MUMPS Validation Test Suite V9.10  Part-90 (DO ^VV3)
JUL 15, 1996
VV3
VV3 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 MAIN DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
START ;
 I $D(^VENVIRON("INTEGRITY"))=0 D ^VINT9
 I ^VENVIRON("INTEGRITY")="OK" G START1
 I ^VENVIRON("INTEGRITY")="NOT OK" G START1
 D ^VINT9
START1 ;
 I $D(^VENVIRON("COMPLETE"))=1 D EDIT^VENVIRON
 I $D(^VENVIRON("COMPLETE"))=0 D ^VENVIRON
 S ^VREPORT="Part-90"
 K ^VREPORT("Part-90")
 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 W #,"*** Standard MUMPS Validation Test Suite Version 9.10, Part-90 (DRIVER) ***"
 W !,"    ( The last Test ID number for Part-90 is III-1108. )",!!
V3GET W !!,"0.1---V3GET" D ^V3GET
V3TR W !!,"6.1---V3TR" D ^V3TR
V3TEXT W !!,"17.1---V3TEXT" D ^V3TEXT
V3FOR W !!,"20.1---V3FOR" D ^V3FOR
V3HANG W !!,"22.1---V3HANG" D ^V3HANG
V3RAND W !!,"25---V3RAND" D ^V3RAND
V3MAX W !!,"25.1---V3MAX" D ^V3MAX
V3NST1 W !!,"28---V3NST1" D ^V3NST1
V3NST2 W !!,"29---V3NST2" D ^V3NST2
V3NST3 W !!,"30---V3NST3" D ^V3NST3
V3SVS W !!,"31---V3SVS" D ^V3SVS
V3SSUB W !!,"31.1---V3SSUB" D ^V3SSUB
V3JOB W !!,"34---V3JOB" D ^V3JOB
V3LOCK W !!,"34.1---V3LOCK" D ^V3LOCK
V3INDNM W !!,"37---V3INDNM" D ^V3INDNM
V3QUERY W !!,"37.1---V3QUERY" D ^V3QUERY
V3FN2 W !!,"43.1---V3FN2" D ^V3FN2
V3FN3 W !!,"65.1---V3FN3" D ^V3FN3
V3NEW W !!,"70.1---V3NEW" D ^V3NEW
V3ALDO w !!,"133.1---V3ALDO" D ^V3ALDO
V3FP W !!,"136---V3FP" D ^V3FP
V3DWP W !!,"137---V3DWP" D ^V3DWP
V3ESV W !!,"138---V3ESV" D ^V3ESV
V3EF W !!,"139---V3EF" D ^V3EF
V3CBR W !!,"139.1---V3CBR" D ^V3CBR
END W !,"*** Standard MUMPS Validation Test Suite Version 9.10, Part-90 END ***",!!
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET
V3GET ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 SUB-DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"Tests of $GET function"
 ;
V3GET1 W !!,"1---V3GET1" D ^V3GET1
V3GET2 W !!,"2---V3GET2" D ^V3GET2
V3GET3 W !!,"3---V3GET3" D ^V3GET3
V3GET4 W !!,"4---V3GET4" D ^V3GET4
V3GET5 W !!,"5---V3GET5" D ^V3GET5
V3GET6 W !!,"6---V3GET6" D ^V3GET6
 ;
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET1
V3GET1 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"1---V3GET1: $GET function -1-"
 W !!,"$D(lvn)=0"
 ;
1 S ^ABSN="30001",^ITEM="III-1  unsubscripted lvn"
 S ^NEXT="2^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET KILL
 S ^VCOMP=$GET(Z)
 S ^VCORR="" D ^VEXAMINE
 ;
2 S ^ABSN="30002",^ITEM="III-2  1 subscript"
 S ^NEXT="3^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^VCOMP=$G(A8900("DJI"))
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30003",^ITEM="III-3  2 subscripts"
 S ^NEXT="4^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^VCOMP=$get(GET(1,"#$)$)"))
 S ^VCORR="" D ^VEXAMINE
 ;
4 S ^ABSN="30004",^ITEM="III-4  5 subscripts"
 S ^NEXT="5^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ZP("A","788","9999","DddfJIRNL",000000,212)="DATA"
 S ^VCOMP=$g(ZP("A","788","9999","DddfJIRNL",000000))
 S ^VCORR="" D ^VEXAMINE
 ;
5 S ^ABSN="30005",^ITEM="III-5  lvn has subscript and ancestors have values"
 S ^NEXT="6^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3GET(2.4,"ABCD")="ANS"
 S ^VCOMP=$G(V3GET(2.4,"ABCD",100))
 S ^VCORR="" D ^VEXAMINE
 ;
6 S ^ABSN="30006",^ITEM="III-6  lvn has subscript and siblings have values"
 S ^NEXT="7^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S QD03("ADFE",43)="EXIST"
 S ^VCOMP=$G(QD03("ADFE",22343))
 S ^VCORR="" D ^VEXAMINE
 ;
7 S ^ABSN="30007",^ITEM="III-7  lvn has subscript and ancestors have no values"
 S ^NEXT="8^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^VCOMP=$G(V3GET(23,45,23))
 S ^VCORR="" D ^VEXAMINE
 ;
8 S ^ABSN="30008",^ITEM="III-8  lvn has subscript and siblings have no values"
 S ^NEXT="9^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^VCOMP=$G(V3GET(123,445))
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"$D(lvn)=1"
 ;
9 S ^ABSN="30009",^ITEM="III-9  unsubscripted lvn"
 S ^NEXT="10^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S A="123456"
 S ^VCOMP=$G(A)
 S ^VCORR="123456" D ^VEXAMINE
 ;
10 S ^ABSN="30010",^ITEM="III-10  1 subscript"
 S ^NEXT="11^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S A000("SUB")="#1234"
 S ^VCOMP=$Get(A000("SUB"))
 S ^VCORR="#1234" D ^VEXAMINE
 ;
11 S ^ABSN="30011",^ITEM="III-11  2 subscripts"
 S ^NEXT="12^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S ZZZZ01(123.45,89)=0.00009,ZZZZ01(123.45)=23
 S ^VCOMP=$G(ZZZZ01(123.45,89)) K
 S ^VCORR=".00009" D ^VEXAMINE
 ;
12 S ^ABSN="30012",^ITEM="III-12  5 subscripts"
 S ^NEXT="13^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S P00P="ERROR"
 S P00P(000.2,"POP","DSD",0009)="ERROR"
 S P00P(000.2,"POP","DSD",0009," IOP")="OK"
 S ^VCOMP=$G(P00P(.2,"POP","DSD",9," IOP"))
 S ^VCORR="OK" D ^VEXAMINE
 ;
13 S ^ABSN="30013",^ITEM="III-13  lvn has subscript and ancestors have values"
 S ^NEXT="14^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S P43="DSA",P43("HIKOE",30.89)="93403940"
 S ^VCOMP=$G(P43("HIKOE",30.89))
 S ^VCORR="93403940" D ^VEXAMINE
 ;
14 S ^ABSN="30014",^ITEM="III-14  lvn has subscript and siblings have values"
 S ^NEXT="15^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S P43("HIKOE",20)=20,P43("HIKOE",30)="30",P43("HIKOE",40)=40
 S ^VCOMP=$G(P43("HIKOE",30))
 S ^VCORR="30" D ^VEXAMINE
 ;
15 S ^ABSN="30015",^ITEM="III-15  lvn has subscript and ancestors have no values"
 S ^NEXT="16^V3GET1,V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S P43("HIKOE",30.89)="89"
 S ^VCOMP=$G(P43("HIKOE",30.89))
 S ^VCORR="89" D ^VEXAMINE
 ;
16 S ^ABSN="30016",^ITEM="III-16  lvn has subscript and siblings have no values"
 S ^NEXT="V3GET2^V3GET,V3TR^VV3" D ^V3PRESET K
 S P43("HIKOE",30)="30"
 S ^VCOMP=$G(P43("HIKOE",30))
 S ^VCORR="30" D ^VEXAMINE
 ;
END W !!,"End of 1 --- V3GET1",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET2
V3GET2 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"2---V3GET2: $GET function -2-"
 W !!,"$D(lvn)=10"
 ;
1 S ^ABSN="30017",^ITEM="III-17  unsubscripted lvn"
 S ^NEXT="2^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S C("ibk",98.780)=100
 S ^VCOMP=$Get(C)
 S ^VCORR="" D ^VEXAMINE
 ;
2 S ^ABSN="30018",^ITEM="III-18  1 subscript"
 S ^NEXT="3^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S L("980M",67.89)="HJDK"
 S ^VCOMP=$G(L("980M"))
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30019",^ITEM="III-19  2 subscripts"
 S ^NEXT="4^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S KO0JK(378.768,"k09k,",47849)=89,KO0JK(378.768,"k09k,","HFKSJ")=87
 S KO0JK(378.768)=100
 S ^VCOMP=$G(KO0JK(378.768,"k09k,"))
 S ^VCORR="" D ^VEXAMINE
 ;
4 S ^ABSN="30020",^ITEM="III-20  5 subscripts"
 S ^NEXT="5^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S M0000("767.89000",89.678,3638,327438,78,36378)=78
 S M0000(767.89,89.678,3638,327438)=78
 S ^VCOMP=$G(M0000("767.89000",89.678,3638,327438,78.00))
 S ^VCORR="" D ^VEXAMINE
 ;
5 S ^ABSN="30021",^ITEM="III-21  lvn has subscript and ancestors have values"
 S ^NEXT="6^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3("abc","def","ghi")="xyz",V3("abc")="abc"
 S ^VCOMP=$g(V3("abc","def"))
 S ^VCORR="" D ^VEXAMINE
 ;
6 S ^ABSN="30022",^ITEM="III-22  lvn has subscript and siblings have values"
 S ^NEXT="7^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3("abc","def","ghi")="xyz",V3("abc","def0")="def0"
 S ^VCOMP=$g(V3("abc","def"))
 S ^VCORR="" D ^VEXAMINE
 ;
7 S ^ABSN="30023",^ITEM="III-23  lvn has subscript and ancestors have no values"
 S ^NEXT="8^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3("abc","def","ghi")="xyz",V30("abc")="abc"
 S ^VCOMP=$g(V3("abc","def"))
 S ^VCORR="" D ^VEXAMINE
 ;
8 S ^ABSN="30024",^ITEM="III-24  lvn has subscript and siblings have no values"
 S ^NEXT="9^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3("abc","def","ghi")="xyz",V30("abc","def0")="def0"
 S ^VCOMP=$g(V3("abc","def"))
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"$D(lvn)=11"
 ;
9 S ^ABSN="30025",^ITEM="III-25  unsubscripted lvn"
 S ^NEXT="10^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S P0ZZZZ="COMPUTER",P0ZZZZ("sub00",90098,0988)="S3"
 S ^VCOMP=$g(P0ZZZZ)
 S ^VCORR="COMPUTER" D ^VEXAMINE
 ;
10 S ^ABSN="30026",^ITEM="III-26  1 subscript"
 S ^NEXT="11^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S NAME("USA")="NORTH AMERICA",NAME("JAPAN")="EAST FAR"
 S ^VCOMP=$G(NAME("USA"))
 S ^VCORR="NORTH AMERICA" D ^VEXAMINE
 ;
11 S ^ABSN="30027",^ITEM="III-27  2 subscripts"
 S ^NEXT="12^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S ADDRESS="paint"
 S ADDRESS(0.0000789,"code",0,0,0,0,12,44,"vibrate")="track"
 S ADDRESS(0.0000789,"code")="TRACE"
 S ^VCOMP=$G(ADDRESS(0.0000789,"code"))
 S ^VCORR="TRACE" D ^VEXAMINE
 ;
12 S ^ABSN="30028",^ITEM="III-28  5 subscripts"
 S ^NEXT="13^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 s DIC(679,77,-688)="78"
 s DIC(-679,77,-688)="778"
 s DIC(-679,677,-688)="ita"
 s DIC(-679,677,-688,"pair","page")="OK"
 s DIC(-679,677,-688,"pair","page",0)="ITA"
 S ^VCOMP=$G(DIC(-679,677,-688,"pair","page"))
 S ^VCORR="OK" D ^VEXAMINE k
 ;
13 S ^ABSN="30029",^ITEM="III-29  lvn has subscript and ancestors have values"
 S ^NEXT="14^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S ADDRESS="paint"
 S ADDRESS(0.0000789,"code",0,0,0,0,12,44,"vibrate")="track"
 S ADDRESS(0.0000789,"code")="TRACE"
 S ADDRESS(0.0000789)="qwery"
 S ^VCOMP=$G(ADDRESS(.0000789,"code"))
 S ^VCORR="TRACE" D ^VEXAMINE
 ;
14 S ^ABSN="30030",^ITEM="III-30  lvn has subscript and siblings have values"
 S ^NEXT="15^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 s DIC(679,6770,-688,"pair","page",0)="ITA"
 s DIC(679,6770,-688,"pair","page")="GOOD"
 s DIC(679,6770,-688,"pair","line",0)="LINE"
 s DIC(679,6770,-688,"pair","line")="line"
 S ^VCOMP=$G(DIC(679,6770,-688,"pair","page"))
 S ^VCORR="GOOD" D ^VEXAMINE
 ;
15 S ^ABSN="30031",^ITEM="III-31  lvn has subscript and ancestors have no values"
 S ^NEXT="16^V3GET2,V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S ADDRESS(0.0000789,"code",0,0,0,0,12,44,"e")="track"
 S ADDRESS(0.0000789,"code")="TRACE"
 S ^VCOMP=$G(ADDRESS(0.0000789,"code"))
 S ^VCORR="TRACE" D ^VEXAMINE
 ;
16 S ^ABSN="30032",^ITEM="III-32  lvn has subscript and siblings have no values"
 S ^NEXT="V3GET3^V3GET,V3TR^VV3" D ^V3PRESET K
 S V3("abc","def","ghi")="xyz",V30("abc","def","ghi",1)="def1",V30("abc","def","ghi",1,2)="def1"
 S ^VCOMP=$g(V3("abc","def","ghi"))
 S ^VCORR="xyz" D ^VEXAMINE
 ;
END W !!,"End of 2 --- V3GET2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET3
V3GET3 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"3---V3GET3: $GET function -3-"
 W !!,"$D(gvn)=0"
 ;
1 S ^ABSN="30033",^ITEM="III-33  unsubscripted lvn"
 S ^NEXT="2^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET KILL ^V3GET
 S ^VCOMP=$GET(^V3GET)
 S ^VCORR="" D ^VEXAMINE KILL ^V3GET
 ;
2 S ^ABSN="30034",^ITEM="III-34  1 subscript"
 S ^NEXT="3^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^VCOMP=$G(^V3GET("DJI"))
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30035",^ITEM="III-35  2 subscripts"
 S ^NEXT="4^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^VCOMP=$get(^V3GET(1,"#$)$)"))
 S ^VCORR="" D ^VEXAMINE KILL ^V3GET
 ;
4 S ^ABSN="30036",^ITEM="III-36  5 subscripts"
 S ^NEXT="5^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^VCOMP=$g(^V3GET("A","788","9999","DddfJIRNL",000000))
 S ^VCORR="" D ^VEXAMINE KILL ^V3GET
 ;
5 S ^ABSN="30037",^ITEM="III-37  naked refernce"
 S ^NEXT="6^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(1,2)=0 I ^V3GET(1,2) ;
 S ^VCOMP=$G(^(3))
 S ^VCORR="" D ^VEXAMINE KILL ^V3GET
 ;
6 S ^ABSN="30038",^ITEM="III-38  gvn has subscript and ancestors have values"
 S ^NEXT="7^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(123,456)=234
 S ^VCOMP=$G(^V3GET(123,456,789))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
7 S ^ABSN="30039",^ITEM="III-39  gvn has subscript and siblings have values"
 S ^NEXT="8^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(123,456)=234
 S ^VCOMP=$G(^V3GET(123,457))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
8 S ^ABSN="30040",^ITEM="III-40  gvn has subscript and ancestors have no values"
 S ^NEXT="9^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^VCOMP=$G(^V3GET("1234.0009","xyz"))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
9 S ^ABSN="30041",^ITEM="III-41  gvn has subscript and siblings have no values"
 S ^NEXT="10^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("ABCD")="ABCD"
 S ^VCOMP=$get(^V3GETA(2394.494,4940))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
 W !!,"$D(gvn)=1"
 ;
10 S ^ABSN="30042",^ITEM="III-42  unsubscripted lvn"
 S ^NEXT="11^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET="123456"
 S ^VCOMP=$G(^V3GET)
 S ^VCORR="123456" D ^VEXAMINE
 ;
11 S ^ABSN="30043",^ITEM="III-43  1 subscript"
 S ^NEXT="12^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("SUB")="#1234"
 S ^VCOMP=$Get(^V3GET("SUB"))
 S ^VCORR="#1234" D ^VEXAMINE
 ;
12 S ^ABSN="30044",^ITEM="III-44  2 subscripts"
 S ^NEXT="13^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(123.45,89)=0.00009,^V3GET(123.45)=23
 S ^VCOMP=$G(^V3GET(123.45,89))
 S ^VCORR=".00009" D ^VEXAMINE
 ;
13 S ^ABSN="30045",^ITEM="III-45  5 subscripts"
 S ^NEXT="14^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET="ERROR"
 S ^V3GET(000.2,"POP","DSD",0009)="ERROR"
 S ^V3GET(000.2,"POP","DSD",0009," IOP")="OK"
 S ^VCOMP=$G(^V3GET(.2,"POP","DSD",9," IOP"))
 S ^VCORR="OK" D ^VEXAMINE
 ;
14 S ^ABSN="30046",^ITEM="III-46  naked refernce"
 S ^NEXT="15^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(1,2)=0
 S ^V3GET(2,8)=12 I $D(^V3GET(1,8))
 S ^VCOMP=$G(^(2))
 S ^VCORR="0" D ^VEXAMINE
 ;
15 S ^ABSN="30047",^ITEM="III-47  gvn has subscript and ancestors have values"
 S ^NEXT="16^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("0.+",234,"+++.0")=456
 S ^V3GET("0.+",234)=123
 S ^VCOMP=$GET(^V3GET("0.+",234,"+++.0"))
 S ^VCORR="456" D ^VEXAMINE K ^V3GET
 ;
16 S ^ABSN="30048",^ITEM="III-48  gvn has subscript and siblings have values"
 S ^NEXT="17^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("0.+",234,"+++.0")=456
 S ^V3GET("0.+",234)=234
 S ^V3GET=123
 S ^V3GET("0.+",234,"+++.1")=890
 S ^VCOMP=$GET(^V3GET("0.+",234,"+++.0"))
 S ^VCORR="456" D ^VEXAMINE K ^V3GET
 ;
17 S ^ABSN="30049",^ITEM="III-49  gvn has subscript and ancestors have no values"
 S ^NEXT="18^V3GET3,V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("0.+-",--234,"++.E0")=456
 S ^VCOMP=$G(^V3GET("0.+-",--234,"++.E0"))
 S ^VCORR="456" D ^VEXAMINE K ^V3GET
 ;
18 S ^ABSN="30050",^ITEM="III-50  gvn has subscript and siblings have no values"
 S ^NEXT="V3GET4^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(+"0.+",234,+"+++.0E+")=456
 S ^VCOMP=$GET(^V3GET(0,234,0))
 S ^VCORR="456" D ^VEXAMINE K ^V3GET
 ;
END W !!,"End of 3 --- V3GET3",!
 K  K ^V3GET Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET4
V3GET4 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"4---V3GET4: $GET function -4-"
 W !!,"$D(gvn)=10"
 ;
1 S ^ABSN="30051",^ITEM="III-51  unsubscripted lvn"
 S ^NEXT="2^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("ibk",98.780)=100,^VCOMP=$Get(^V3GET)
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
2 S ^ABSN="30052",^ITEM="III-52  1 subscript"
 S ^NEXT="3^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("980M",67.89)="HJDK",^VCOMP=$G(^V3GET("980M"))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
3 S ^ABSN="30053",^ITEM="III-53  2 subscripts"
 S ^NEXT="4^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(378.768,"k09k,",47849)=89,^V3GET(378.768,"k09k,","HFKSJ")=87
 S ^V3GET(378.768)=100
 S ^VCOMP=$G(^V3GET(378.768,"k09k,"))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
4 S ^ABSN="30054",^ITEM="III-54  5 subscripts"
 S ^NEXT="5^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("767.89000",89.678,3638,327438,78,36378)=78
 S ^V3GET(767.89,89.678,3638,327438,78)=78
 S ^VCOMP=$G(^V3GET("767.89000",89.678,3638,327438,78.00))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
5 S ^ABSN="30055",^ITEM="III-55  naked refernce"
 S ^NEXT="6^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("NAME","ADDRESS","BAKU",1,0)=90,^V3GET("NAME","ADDRESS","POP")=9
 S ^VCOMP=$get(^("BAKU",1))_"/"_^(1,0)
 S ^VCORR="/90" D ^VEXAMINE K ^V3GET
 ;
6 S ^ABSN="30056",^ITEM="III-56  gvn has subscript and ancestors have values"
 S ^NEXT="7^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET=0,^V3GET(+"-+0E+")=1,^V3GET(+"-+0E+",-789.000,0,0,0,8)=3
 S ^VCOMP=$G(^V3GET(+"-+0E+",-789.000))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
7 S ^ABSN="30057",^ITEM="III-57  gvn has subscript and siblings have values"
 S ^NEXT="8^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(+"-+0E+",-789.001)=2,^VCOMP=$G(^V3GET(+"-+0E+",-789.000))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
8 S ^ABSN="30058",^ITEM="III-58  gvn has subscript and ancestors have no values"
 S ^NEXT="9^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(+"-+0E+",-789.000,-"+E1",1)="300",^V3GET(+"-+0E+",-789.000,-"+E1")="300"
 S ^VCOMP=$G(^V3GET(0))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
9 S ^ABSN="30059",^ITEM="III-59  gvn has subscript and siblings have no values"
 S ^NEXT="10^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("-+0E+"-0,-789.000,-"+E1",23-23)="300"
 S ^VCOMP=$G(^V3GET(0))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
 W !!,"$D(gvn)=11"
 ;
10 S ^ABSN="30060",^ITEM="III-60  unsubscripted lvn"
 S ^NEXT="11^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET="COMPUTER",^V3GET("sub00",90098,0988)="S3"
 S ^VCOMP=$g(^V3GET)
 S ^VCORR="COMPUTER" D ^VEXAMINE K ^V3GET
 ;
11 S ^ABSN="30061",^ITEM="III-61  1 subscript"
 S ^NEXT="12^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("USA")="NORTH AMERICA",^V3GET("JAPAN")="EAST FAR"
 S ^VCOMP=$G(^V3GET("USA"))
 S ^VCORR="NORTH AMERICA" D ^VEXAMINE K ^V3GET
 ;
12 S ^ABSN="30062",^ITEM="III-62  2 subscripts"
 S ^NEXT="13^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET="paint"
 S ^V3GET(0.0000789,"code",0,0,0,0,12,44,"vibrate")="track"
 S ^V3GET(0.0000789,"code")="TRACE",^VCOMP=$G(^V3GET(0.0000789,"code"))
 S ^VCORR="TRACE" D ^VEXAMINE K ^V3GET
 ;
13 S ^ABSN="30063",^ITEM="III-63  5 subscripts"
 S ^NEXT="14^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 s ^V3GET(679,77,-688)="78",^V3GET(-679,77,-688)="778"
 s ^V3GET(-679,677,-688)="ita",^V3GET(-679,677,-688,"pair","page",0)="ITA"
 S ^VCOMP=$G(^V3GET(-679,677,-688,"pair","page"))
 S ^VCORR="" D ^VEXAMINE K ^V3GET
 ;
14 S ^ABSN="30064",^ITEM="III-64  naked refernce"
 S ^NEXT="15^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(3,6)=9,^V3GET(3,9,89,90,900)=000900,^V3GET(3)=3
 S ^VCOMP=$G(^(3,6))_" "_^(9,89,90,900)
 S ^VCORR="9 900" D ^VEXAMINE K ^V3GET
 ;
15 S ^ABSN="30065",^ITEM="III-65  gvn has subscript and ancestors have values"
 S ^NEXT="16^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET="NORTH",^V3GET("EAST")="FAR",^V3GET("EAST","GO")="GO FAR"
 S ^V3GET("AST","GO")="GO FAR ERROR",^V3GET("SAST","GO")="GO FAR ERROR"
 S ^VCOMP=$G(^V3GET("EAST"))
 S ^VCORR="FAR" D ^VEXAMINE K ^V3GET
 ;
16 S ^ABSN="30066",^ITEM="III-66  gvn has subscript and siblings have values"
 S ^NEXT="17^V3GET4,V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(0-1)="-1",^V3GET(0+1)="1",^V3GET(1,-1)="1-1"
 S ^VCOMP=$G(^V3GET(1))
 S ^VCORR="1" D ^VEXAMINE K ^V3GET
 ;
17 S ^ABSN="30067",^ITEM="III-67  gvn has subscript and ancestors have no values"
 S ^NEXT="V3GET5^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(-"--..12",000345.89)="###"
 S ^V3GET(-"--..12",000345.89,3939)="12"
 S ^V3GET(-"--..12",000345.89,"abc")="abc"
 S ^VCOMP=$G(^V3GET(-"--..12",000345.89))
 S ^VCORR="###" D ^VEXAMINE K ^V3GET
 ;
END W !!,"End of 4 --- V3GET4",!
 K  K ^V3GET Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET5
V3GET5 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"5---V3GET5: $GET function -5-"
 ;
1 S ^ABSN="30068",^ITEM="III-68  gvn has subscript and siblings have no values"
 S ^NEXT="2^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("abc",345.89,123)="####"
 S ^V3GET("abc",345.89,123,-2)="####"
 S ^V3GET("abc",45.89,3939)="12"
 S ^V3GET("abc",45.89,3939,-1)="12"
 S ^V3GET("abc",5.89,"abc")="abc"
 S ^V3GET("abc",5.89,"abc",1)="abc"
 S ^VCOMP=$G(^V3GET("abc",45.89,3939))
 S ^VCORR="12" D ^VEXAMINE K ^V3GET
 ;
 W !!,"Relation to the value"
 ;
 W !!,"$GET(lvn)",!
 ;
2 S ^ABSN="30069",^ITEM="III-69  Value is an empty string"
 S ^NEXT="3^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S B00(7.089)=""
 S ^VCOMP=$G(B00(7.089))
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30070",^ITEM="III-70  value is an integer"
 S ^NEXT="4^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S V3GET("FAA","FAIL SAFE")=1234.567E+5
 S ^VCOMP=$G(V3GET("FAA","FAIL SAFE"))
 S ^VCORR="123456700" D ^VEXAMINE
 ;
4 S ^ABSN="30071",^ITEM="III-71  value is a number"
 S ^NEXT="5^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S B1028(+"00648.74800E-2")=-1293.839E-4
 S ^VCOMP=$G(B1028(6.48748))
 S ^VCORR="-.1293839" D ^VEXAMINE
 ;
5 S ^ABSN="30072",^ITEM="III-72  value is a 255 characters string"
 S ^NEXT="6^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S A="" F I=1:1:51 S A=A_"ABCDE"
 S YELLO("8494")=A
 S ^VCOMP=$G(YELLO(8494))
 S ^VCORR="ABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDE"
 S ^VCORR=^VCORR_"ABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDE"
 D ^VEXAMINE
 ;
6 S ^ABSN="30073",^ITEM="III-73  value contains control characters"
 S ^NEXT="7^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S CNTL="" F I=0:1:31 S CNTL=CNTL_$C(I)
 S CNTL=CNTL_$C(13,10)_"abc"
 S ^VCOMP=$G(CNTL)
 S ^VCORR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,13,10)_"abc"
 D ^VEXAMINE
 ;
 W !!,"$GET(gvn)",!
 ;
7 S ^ABSN="30074",^ITEM="III-74  Value is an empty string"
 S ^NEXT="8^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^V3B00(7.089)=""
 S ^VCOMP=$G(^V3B00(7.089))
 S ^VCORR="" D ^VEXAMINE K ^V3B00
 ;
8 S ^ABSN="30075",^ITEM="III-75  value is an integer"
 S ^NEXT="9^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET("FAA","FAIL SAFE")=1234.567E+5
 S ^VCOMP=$G(^V3GET("FAA","FAIL SAFE"))
 S ^VCORR="123456700" D ^VEXAMINE K ^V3GET
 ;
9 S ^ABSN="30076",^ITEM="III-76  value is a number"
 S ^NEXT="10^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S ^V3B1028(+"00648.74800E-2")=-1293.839E-4
 S ^VCOMP=$G(^V3B1028(6.48748))
 S ^VCORR="-.1293839" D ^VEXAMINE K ^V3B1028
 ;
10 S ^ABSN="30077",^ITEM="III-77  value is a 255 characters string"
 S ^NEXT="11^V3GET5,V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K ^V3GET
 S A="" F I=1:1:51 S A=A_"ABCDE"
 S ^V3YELLO("8494")=A
 S ^VCOMP=$G(^V3YELLO(8494))
 S ^VCORR="ABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDE"
 S ^VCORR=^VCORR_"ABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDEABCDE"
 D ^VEXAMINE K ^V3YELLO
 ;
11 S ^ABSN="30078",^ITEM="III-78  value contains control characters"
 S ^NEXT="V3GET6^V3GET,V3TR^VV3" D ^V3PRESET K
 S CNTL="" F I=0:1:31 S CNTL=CNTL_$C(I)
 S ^V3CNTL=CNTL_$C(13,10)_"abc"
 S ^VCOMP=$G(^V3CNTL)
 S ^VCORR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,13,10)_"abc"
 D ^VEXAMINE K ^V3CNTL
 ;
END W !!,"End of 5 --- V3GET5",!
 K  K ^V3GET,^V3CNTL,^V3YELLO,^V3B1028,^V3B00 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3GET6
V3GET6 ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"6---V3GET6: $GET function -6-"
 W !!,"Combined $GET function"
 ;
 W !!,"$GET(lvn)",!
 ;
1 S ^ABSN="30079",^ITEM="III-79  lvn is indirection"
 S ^NEXT="2^V3GET6,V3TR^VV3" D ^V3PRESET K
 S B(3)="A(1,3)",A(1,3,4,67)="NA(2,3)",NA(2,3)="NAME"
 S ^VCOMP=$G(@@B(3)@(4,67))
 S ^VCORR="NAME" D ^VEXAMINE
 ;
2 S ^ABSN="30080",^ITEM="III-80  lvn contains $GET function"
 S ^NEXT="3^V3GET6,V3TR^VV3" D ^V3PRESET K
 S A="B",B="sub",G("sub")="INDIRECTION"
 S ^VCOMP=$get(G($G(@A)))
 S ^VCORR="INDIRECTION" D ^VEXAMINE
 ;
3 S ^ABSN="30081",^ITEM="III-81  lvn contains functions"
 S ^NEXT="4^V3GET6,V3TR^VV3" D ^V3PRESET K
 S AM="PM",PM="TIME"
 S ^VCOMP=$G(@@$E("NAME",2,3))
 S ^VCORR="TIME" D ^VEXAMINE
 ;
4 S ^ABSN="30082",^ITEM="III-82  lvn contains naked refernce"
 S ^NEXT="5^V3GET6,V3TR^VV3" D ^V3PRESET K  K ^V3GET
 S ^V3GET(1,2,3)=23,^V3GET(1,3)=13,X(23)="L"
 S ^VCOMP=$G(X(^(2,3)))_" "_^(3)
 S ^VCORR="L 23" D ^VEXAMINE K ^V3GET
 ;
 W !!,"$GET(gvn)",!
 ;
5 S ^ABSN="30083",^ITEM="III-83  gvn is indirection"
 S ^NEXT="6^V3GET6,V3TR^VV3" D ^V3PRESET K ^V3GET
 S ^V3GET(9)="^V3GET(3,5)",^V3GET(3,5,"BOOK",1)="DATA"
 S ^VCOMP=$G(@^V3GET(9)@("BOOK",1))
 S ^VCORR="DATA" D ^VEXAMINE K ^V3GET
 ;
6 S ^ABSN="30084",^ITEM="III-84  gvn contains $GET function"
 S ^NEXT="7^V3GET6,V3TR^VV3" D ^V3PRESET K
 S ^V3A(4)=4,C="c",^V3A("c",3)="C3",^V3B0(4,"C3")="OK"
 S ^VCOMP=$get(^V3B0($G(^V3A(4)),$G(^V3A($G(C),3))))
 S ^VCORR="OK" D ^VEXAMINE K ^V3B0,^V3A
 ;
7 S ^ABSN="30085",^ITEM="III-85  gvn contains functions"
 S ^NEXT="8^V3GET6,V3TR^VV3" D ^V3PRESET K  K ^V3GET
 S Y=1,X=2,^V3GET(21)="GOOD"
 S ^VCOMP=$G(^V3GET($s(Y="":Y,1:X_Y)))
 S ^VCORR="GOOD" D ^VEXAMINE K ^V3GET
 ;
8 S ^ABSN="30086",^ITEM="III-86  gvn contains naked refernce"
 S ^NEXT="V3TR^VV3" D ^V3PRESET K  K ^V3GET
 S ^V3GET(23,3)="T"
 S ^V3GET(1,2,3)=23,^V3GET(1,2,4)=124,^V3GET(23,124)="A",^V3GET(1,3)=13
 S ^VCOMP=$G(^V3GET(^(2,3),^(4)))_" "_^(3)
 S ^VCORR="A T" D ^VEXAMINE K ^V3GET
 ;
END W !!,"End of 6 --- V3GET6",!
 K  K ^V3GET,^V3B0,^V3A Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR
V3TR ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 SUB-DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
V3TR01 W !!,"7---V3TR01" D ^V3TR01
V3TR02 W !!,"8---V3TR02" D ^V3TR02
V3TR03 W !!,"9---V3TR03" D ^V3TR03
V3TR04 W !!,"10---V3TR04" D ^V3TR04
V3TR05 W !!,"11---V3TR05" D ^V3TR05
V3TR06 W !!,"12---V3TR06" D ^V3TR06
V3TR07 W !!,"13---V3TR07" D ^V3TR07
V3TR08 W !!,"14---V3TR08" D ^V3TR08
V3TR09 W !!,"15---V3TR09" D ^V3TR09
V3TR10 W !!,"16---V3TR10" D ^V3TR10
V3TR11 W !!,"17---V3TR11" D ^V3TR11
 ;
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR01
V3TR01 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"7---V3TR01: $TRANSLATE function -1-"
 W !!,"$TRANSLATE(expr1,expr2)"
 ;
 W !!,"III-87  expr1 and expr2 are strlits",!
 ;
1 S ^ABSN="30087",^ITEM="III-87  expr1 and expr2 are strlits"
 S ^NEXT="2^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TRANSLATE("ABCabcABCabc","Ab")
 S ^VCORR="BCacBCac" D ^VEXAMINE
 ;
 W !!,"expr1 undergoes no change",!
 ;
2 S ^ABSN="30088",^ITEM="III-88  expr1 is an empty string"
 S ^NEXT="3^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$translate("","ABCDEFGHIJ")
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30089",^ITEM="III-89  expr2 is an empty string"
 S ^NEXT="4^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","")
 S ^VCORR="ABCDEFGHIJ" D ^VEXAMINE
 ;
4 S ^ABSN="30090",^ITEM="III-90  Both expr1 and expr2 are empty strings"
 S ^NEXT="5^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$tr("","")
 S ^VCORR="" D ^VEXAMINE
 ;
5 S ^ABSN="30091",^ITEM="III-91  expr1 has no chars of expr2"
 S ^NEXT="6^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","abcde")
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
 W !!,"expr2 has 1 char",!
 ;
6 S ^ABSN="30092",^ITEM="III-92  The heading char is removed"
 S ^NEXT="7^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","A")
 S ^VCORR="BCDE" D ^VEXAMINE
 ;
7 S ^ABSN="30093",^ITEM="III-93  The heading substring is removed"
 S ^NEXT="8^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","A")
 S ^VCORR="BBCC" D ^VEXAMINE
 ;
8 S ^ABSN="30094",^ITEM="III-94  A middle char is removed"
 S ^NEXT="9^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","C")
 S ^VCORR="ABDE" D ^VEXAMINE
 ;
9 S ^ABSN="30095",^ITEM="III-95  A middle substring is removed"
 S ^NEXT="10^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","B")
 S ^VCORR="AACC" D ^VEXAMINE
 ;
10 S ^ABSN="30096",^ITEM="III-96  The last char is removed"
 S ^NEXT="11^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","E")
 S ^VCORR="ABCD" D ^VEXAMINE
 ;
11 S ^ABSN="30097",^ITEM="III-97  The tailing substring is removed"
 S ^NEXT="12^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","C")
 S ^VCORR="AABB" D ^VEXAMINE
 ;
12 S ^ABSN="30098",^ITEM="III-98  All chars are removed"
 S ^NEXT="13^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AAAAA","A")
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"expr2 has 2 chars",!
 ;
13 S ^ABSN="30099",^ITEM="III-99  The heading 2 chars are removed"
 S ^NEXT="14^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","AB")
 S ^VCORR="CDEFGHIJ" D ^VEXAMINE
 ;
14 S ^ABSN="30100",^ITEM="III-100  The heading substring is removed"
 S ^NEXT="15^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDC","AB")
 S ^VCORR="CDDC" D ^VEXAMINE
 ;
15 S ^ABSN="30101",^ITEM="III-101  A middle substring is removed"
 S ^NEXT="16^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCEFFE","CD")
 S ^VCORR="ABBAEFFE" D ^VEXAMINE
 ;
16 S ^ABSN="30102",^ITEM="III-102  The tailing substring is removed"
 S ^NEXT="17^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCEFFE","EF")
 S ^VCORR="ABBACDDC" D ^VEXAMINE
 ;
17 S ^ABSN="30103",^ITEM="III-103  The middle and tailing substrings are removed"
 S ^NEXT="18^V3TR01,V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCABBACDDC","CD")
 S ^VCORR="ABBAABBA" D ^VEXAMINE
 ;
18 S ^ABSN="30104",^ITEM="III-104  All chars are removed"
 S ^NEXT="V3TR02^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBAABBA","AB")
 S ^VCORR="" D ^VEXAMINE
 ;
END W !!,"End of 7 --- V3TR01",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR02
V3TR02 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"8---V3TR02: $TRANSLATE function -2-"
 W !!,"expr2 has 3 chars",!
 ;
1 S ^ABSN="30105",^ITEM="III-105  The heading substring is removed"
 S ^NEXT="2^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFED","ABC")
 S ^VCORR="DEFFED" D ^VEXAMINE
 ;
2 S ^ABSN="30106",^ITEM="III-106  The middle substring is removed"
 S ^NEXT="3^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFEDGHIIHG","DEF")
 S ^VCORR="ABCCBAGHIIHG" D ^VEXAMINE
 ;
3 S ^ABSN="30107",^ITEM="III-107  The last part is removed"
 S ^NEXT="4^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFEDGHIIHG","GHI")
 S ^VCORR="ABCCBADEFFED" D ^VEXAMINE
 ;
4 S ^ABSN="30108",^ITEM="III-108  Various parts are removed"
 S ^NEXT="5^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFEDGHIIHG","AEI")
 S ^VCORR="BCCBDFFDGHHG" D ^VEXAMINE
 ;
5 S ^ABSN="30109",^ITEM="III-109  All chars are removed"
 S ^NEXT="6^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCBCACABCBABACACB","ABC")
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"III-110  expr1 has 255 chars",!
 ;
6 S ^ABSN="30110",^ITEM="III-110  expr1 has 255 chars"
 S ^NEXT="7^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S a="" f i=1:1:51 s a=a_"ABCDE"
 S ^VCOMP=$TR(a,"A")
 s b="" f i=1:1:51 s b=b_"BCDE"
 S ^VCORR=b D ^VEXAMINE
 ;
 W !!,"III-111  expr2 has 255 chars",!
 ;
7 S ^ABSN="30111",^ITEM="III-111  expr2 has 255 chars"
 S ^NEXT="8^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=1:1:51 s a=a_"ABCDE"
 S ^VCOMP=$TR("ABCDEFGHIJ",a)
 S ^VCORR="FGHIJ" D ^VEXAMINE
 ;
 W !!,"III-112  Both expr1 and expr2 have 255 chars",!
 ;
8 S ^ABSN="30112",^ITEM="III-112  Both expr1 and expr2 have 255 chars"
 S ^NEXT="9^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S a="" f i=1:1:51 s a=a_"ABCDE"
 s b="" f i=1:1:51 s b=b_"FGHIJ"
 S ^VCOMP=$TR(a,b)
 S ^VCORR=a D ^VEXAMINE
 ;
 W !!,"III-113  $L(expr1)<$L(expr2)",!
 ;
9 S ^ABSN="30113",^ITEM="III-113  $L(expr1)<$L(expr2)"
 S ^NEXT="10^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABCDEKLMNOPQRST")
 S ^VCORR="FGHIJ" D ^VEXAMINE
 ;
 W !!,"III-114  $L(expr1)=$L(expr2)",!
 ;
10 S ^ABSN="30114",^ITEM="III-114  $L(expr1)=$L(expr2)"
 S ^NEXT="11^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABCDEKLMNO")
 S ^VCORR="FGHIJ" D ^VEXAMINE
 ;
 W !!,"III-115  $L(expr1)>$L(expr2)",!
 ;
11 S ^ABSN="30115",^ITEM="III-115  $L(expr1)>$L(expr2)"
 S ^NEXT="12^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ACEGI")
 S ^VCORR="BDFHJ" D ^VEXAMINE
 ;
 W !!,"III-116  expr1 has control chars",!
 ;
12 S ^ABSN="30116",^ITEM="III-116  expr1 has control chars"
 S ^NEXT="13^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABC"_$C(13,12,0)_"DEF","DEF")
 S ^VCORR="ABC"_$C(13,12,0) D ^VEXAMINE
 ;
 W !!,"III-117  expr2 has control chars",!
 ;
13 S ^ABSN="30117",^ITEM="III-117  expr2 has control chars"
 S ^NEXT="14^V3TR02,V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH",$C(13,10))
 S ^VCORR="ABCDEFGH" D ^VEXAMINE
 ;
 W !!,"III-118  Both expr1 and expr2 have control chars",!
 ;
14 S ^ABSN="30118",^ITEM="III-118  Both expr1 and expr2 have control chars"
 S ^NEXT="V3TR03^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=0:1:127 s a=a_$c(i)
 S ^VCOMP=$TR(a,$C(13,12,13,10))
 s b="" f i=0:1:9 s b=b_$c(i)
 s b=b_$c(11) f i=14:1:127 s b=b_$c(i)
 S ^VCORR=b D ^VEXAMINE
 ;
END W !!,"End of 8 --- V3TR02",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR03
V3TR03 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"9---V3TR03: $TRANSLATE function -3-"
 W !!,"expr1 is a numlit",!
 ;
1 S ^ABSN="30119",^ITEM="III-119  expr1 is 123456789012"
 S ^NEXT="2^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(123456789012,"12")
 S ^VCORR="34567890" D ^VEXAMINE
 ;
2 S ^ABSN="30120",^ITEM="III-120  expr1 is -1.1, expr2 is a period"
 S ^NEXT="3^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(-1.1,".")
 S ^VCORR="-11" D ^VEXAMINE
 ;
3 S ^ABSN="30121",^ITEM="III-121  expr1 is -1.1, expr2 is a minus"
 S ^NEXT="4^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$tr(-1.1,"-")
 S ^VCORR="1.1" D ^VEXAMINE
 ;
4 S ^ABSN="30122",^ITEM="III-122  expr1 is 1.23E1"
 S ^NEXT="5^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(1.23E1,"1")
 S ^VCORR="2.3" D ^VEXAMINE
 ;
5 S ^ABSN="30123",^ITEM="III-123  expr1 is ""1.23E1"""
 S ^NEXT="6^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("1.23E1","E")
 S ^VCORR="1.231" D ^VEXAMINE
 ;
 W !!,"III-124  expr1 is a lvn",!
 ;
6 S ^ABSN="30124",^ITEM="III-124  expr1 is a lvn"
 S ^NEXT="7^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a("a","aa")="abcdefghij"
 S ^VCOMP=$TR(a("a","aa"),"a")
 S ^VCORR="bcdefghij" D ^VEXAMINE
 ;
 W !!,"III-125  expr1 is a gvn",!
 ;
7 S ^ABSN="30125",^ITEM="III-125  expr1 is a gvn"
 S ^NEXT="8^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","aa")="abcdefghij"
 S ^VCOMP=$TR(^VV("a","aa"),"a")
 S ^VCORR="bcdefghij" D ^VEXAMINE K ^VV
 ;
 W !!,"III-126  expr1 has unary operator",!
 ;
8 S ^ABSN="30126",^ITEM="III-126  expr1 has unary operator"
 S ^NEXT="9^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(-+-+-''123,"-")
 S ^VCORR="1" D ^VEXAMINE
 ;
 W !!,"III-127  expr1 has binary operator",!
 ;
9 S ^ABSN="30127",^ITEM="III-127  expr1 has binary operator"
 S ^NEXT="10^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(123/10#10\1+1-1*1_121,"1")
 S ^VCORR="22" D ^VEXAMINE
 ;
 W !!,"III-128  expr1 has function",!
 ;
10 S ^ABSN="30128",^ITEM="III-128  expr1 has function"
 S ^NEXT="11^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR($TR($E($P("ABC,BCD,CDE",","),1,2),"B"),"A")
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"III-129  expr1 has indirection",!
 ;
11 S ^ABSN="30129",^ITEM="III-129  expr1 has indirection"
 S ^NEXT="12^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="ab",ab="^VV(""a"")",b1="b",b2="b1"
 S ^VCOMP=$TR(@ab@(@b2),"a")
 S ^VCORR="b" D ^VEXAMINE k ^VV
 ;
 W !!,"expr2 is a numlit",!
 ;
12 S ^ABSN="30130",^ITEM="III-130  expr2 is 123456789012"
 S ^NEXT="13^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("012A345B",123456789012)
 S ^VCORR="AB" D ^VEXAMINE
 ;
13 S ^ABSN="30131",^ITEM="III-131  expr2 is -0.10"
 S ^NEXT="14^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-012",-0.10)
 S ^VCORR="02" D ^VEXAMINE
 ;
14 S ^ABSN="30132",^ITEM="III-132  expr2 is 1.23E1"
 S ^NEXT="15^V3TR03,V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789",1.23E1)
 S ^VCORR="-0456E789" D ^VEXAMINE
 ;
15 S ^ABSN="30133",^ITEM="III-133  expr2 is ""1.23E1"""
 S ^NEXT="V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789","1.23E1")
 S ^VCORR="-0456789" D ^VEXAMINE
 ;
END W !!,"End of 9 --- V3TR03",!
 K  k ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR04
V3TR04 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"10---V3TR04: $TRANSLATE function -4-"
 W !!,"III-134  expr2 is a lvn",!
 ;
1 S ^ABSN="30134",^ITEM="III-134  expr2 is a lvn"
 S ^NEXT="2^V3TR04,V3TR05^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a("a","aa")="cd"
 S ^VCOMP=$TR("abcd",a("a","aa"))
 S ^VCORR="ab" D ^VEXAMINE
 ;
 W !!,"III-135  expr2 is a gvn",!
 ;
2 S ^ABSN="30135",^ITEM="III-135  expr2 is a gvn"
 S ^NEXT="3^V3TR04,V3TR05^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","aa")="cd"
 S ^VCOMP=$TR("abcd",^VV("a","aa"))
 S ^VCORR="ab" D ^VEXAMINE k ^VV
 ;
 W !!,"III-136  expr2 has unary operator",!
 ;
3 S ^ABSN="30136",^ITEM="III-136  expr2 has unary operator"
 S ^NEXT="4^V3TR04,V3TR05^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(-+-+-''123,"-")
 S ^VCOMP=$TR("-0123",-+-+-''123)
 S ^VCORR="023" D ^VEXAMINE
 ;
 W !!,"III-137  expr2 has binary operator",!
 ;
4 S ^ABSN="30137",^ITEM="III-137  expr2 has binary operator"
 S ^NEXT="5^V3TR04,V3TR05^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123",123/10#10\1+1-1*1_121)
 S ^VCORR="-03" D ^VEXAMINE
 ;
 W !!,"III-138  expr2 has function",!
 ;
5 S ^ABSN="30138",^ITEM="III-138  expr2 has function"
 S ^NEXT="6^V3TR04,V3TR05^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR($TR("ABCDABCD","CD"),$TR($E($P("ABCDE,BCDEF,CDEFG",","),1,3),"BC"))
 S ^VCORR="BB" D ^VEXAMINE
 ;
 W !!,"III-139  expr2 has indirection",!
 ;
6 S ^ABSN="30139",^ITEM="III-139  expr2 has indirection"
 S ^NEXT="V3TR04^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="ab",ab="^VV(""a"")",b1="b",b2="b1"
 S ^VCOMP=$TR("abc",@ab@(@b2))
 S ^VCORR="c" D ^VEXAMINE k ^VV
 ;
END W !!,"End of 10 --- V3TR04",!
 K  k ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR05
V3TR05 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"11---V3TR05: $TRANSLATE function -5-"
 W !!,"$TRANSLATE(expr1,expr2,expr3)"
 ;
 W !!,"III-140  expr1, expr2, and expr3 are strlits",!
 ;
1 S ^ABSN="30140",^ITEM="III-140  expr1, expr2, and expr3 are strlits"
 S ^NEXT="2^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCabcABCabc","Ab","aB")
 S ^VCORR="aBCaBcaBCaBc" D ^VEXAMINE
 ;
 W !!,"expr2 has 1 char",!
 ;
2 S ^ABSN="30141",^ITEM="III-141  expr1 undergoes no change"
 S ^NEXT="3^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","a","b")
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
3 S ^ABSN="30142",^ITEM="III-142  The heading char is changed"
 S ^NEXT="4^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","A","a")
 S ^VCORR="aBCDE" D ^VEXAMINE
 ;
4 S ^ABSN="30143",^ITEM="III-143  The heading substring is changed"
 S ^NEXT="5^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","A","a")
 S ^VCORR="aaBBCC" D ^VEXAMINE
 ;
5 S ^ABSN="30144",^ITEM="III-144  A middle char is changed"
 S ^NEXT="6^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","C","c")
 S ^VCORR="ABcDE" D ^VEXAMINE
 ;
6 S ^ABSN="30145",^ITEM="III-145  A middle substring is changed"
 S ^NEXT="7^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","B","b")
 S ^VCORR="AAbbCC" D ^VEXAMINE
 ;
7 S ^ABSN="30146",^ITEM="III-146  The last char is changed"
 S ^NEXT="8^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","E","e")
 S ^VCORR="ABCDe" D ^VEXAMINE
 ;
8 S ^ABSN="30147",^ITEM="III-147  The tailing substring is changed"
 S ^NEXT="9^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCC","C","c")
 S ^VCORR="AABBcc" D ^VEXAMINE
 ;
9 S ^ABSN="30148",^ITEM="III-148  All chars are changed"
 S ^NEXT="10^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AAAAA","A","a")
 S ^VCORR="aaaaa" D ^VEXAMINE
 ;
 W !!,"expr2 has 2 chars",!
 ;
10 S ^ABSN="30149",^ITEM="III-149  expr1 undergoes no change"
 S ^NEXT="11^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","ab","cd")
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
11 S ^ABSN="30150",^ITEM="III-150  The first 1 char is changed"
 S ^NEXT="12^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","Ab","ab")
 S ^VCORR="aBCDE" D ^VEXAMINE
 ;
12 S ^ABSN="30151",^ITEM="III-151  The first 2 chars are changed"
 S ^NEXT="13^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","AB","ab")
 S ^VCORR="abCDEFGHIJ" D ^VEXAMINE
 ;
13 S ^ABSN="30152",^ITEM="III-152  The heading substring is changed"
 S ^NEXT="14^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDC","AB","ab")
 S ^VCORR="abbaCDDC" D ^VEXAMINE
 ;
14 S ^ABSN="30153",^ITEM="III-153  A middle char is changed"
 S ^NEXT="15^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","Cc","cc")
 S ^VCORR="ABcDE" D ^VEXAMINE
 ;
15 S ^ABSN="30154",^ITEM="III-154  2 successive middle chars are changed"
 S ^NEXT="16^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEF","DC","dc")
 S ^VCORR="ABcdEF" D ^VEXAMINE
 ;
16 S ^ABSN="30155",^ITEM="III-155  2 successive middle substrings are changed"
 S ^NEXT="17^V3TR05,V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCEFFE","CD","cd")
 S ^VCORR="ABBAcddcEFFE" D ^VEXAMINE
 ;
17 S ^ABSN="30156",^ITEM="III-156  The tailing 1 char is changed"
 S ^NEXT="V3TR06^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","HI","hi")
 S ^VCORR="ABCDEFGh" D ^VEXAMINE
 ;
END W !!,"End of 11 --- V3TR05",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR06
V3TR06 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"12---V3TR06: $TRANSLATE function -6-"
 ;
1 S ^ABSN="30157",^ITEM="III-157  The tailing 2 chars are changed"
 S ^NEXT="2^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","GH","gh")
 S ^VCORR="ABCDEFgh" D ^VEXAMINE
 ;
2 S ^ABSN="30158",^ITEM="III-158  The tailing substring is changed"
 S ^NEXT="3^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCEFFE","EF","ef")
 S ^VCORR="ABBACDDCeffe" D ^VEXAMINE
 ;
3 S ^ABSN="30159",^ITEM="III-159  The heading and tailing chars are changed"
 S ^NEXT="4^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","AH","ah")
 S ^VCORR="aBCDEFGh" D ^VEXAMINE
 ;
4 S ^ABSN="30160",^ITEM="III-160  The heading and tailing substrings are changed"
 S ^NEXT="5^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCABBA","AB","ab")
 S ^VCORR="abbaCDDCabba" D ^VEXAMINE
 ;
5 S ^ABSN="30161",^ITEM="III-161  The heading and middle chars are changed"
 S ^NEXT="6^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","AC","ac")
 S ^VCORR="aBcDEFGH" D ^VEXAMINE
 ;
6 S ^ABSN="30162",^ITEM="III-162  The heading and middle substrings are changed"
 S ^NEXT="7^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCABBACDDC","AB","ab")
 S ^VCORR="abbaCDDCabbaCDDC" D ^VEXAMINE
 ;
7 S ^ABSN="30163",^ITEM="III-163  Non successive 2 middle chars are changed"
 S ^NEXT="8^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","CE","ce")
 S ^VCORR="ABcDeFGH" D ^VEXAMINE
 ;
8 S ^ABSN="30164",^ITEM="III-164  Non successive 2 middle substrings are changed"
 S ^NEXT="9^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCCDDEEFFGGHH","DF","df")
 S ^VCORR="AABBCCddEEffGGHH" D ^VEXAMINE
 ;
9 S ^ABSN="30165",^ITEM="III-165  A middle and tailing chars are changed"
 S ^NEXT="10^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","DH","dh")
 S ^VCORR="ABCdEFGh" D ^VEXAMINE
 ;
10 S ^ABSN="30166",^ITEM="III-166  A middle and tailing substrings are changed"
 S ^NEXT="11^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBACDDCABBACDDC","CD","cd")
 S ^VCORR="ABBAcddcABBAcddc" D ^VEXAMINE
 ;
11 S ^ABSN="30167",^ITEM="III-167  All chars are changed"
 S ^NEXT="12^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABBAABBA","AB","ab")
 S ^VCORR="abbaabba" D ^VEXAMINE
 ;
 W !!,"expr2 has 3 chars",!
 ;
12 S ^ABSN="30168",^ITEM="III-168  expr1 undergoes no change"
 S ^NEXT="13^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","abc","def")
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
13 S ^ABSN="30169",^ITEM="III-169  The heading 1 char is changed"
 S ^NEXT="14^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","Abc","aBC")
 S ^VCORR="aBCDE" D ^VEXAMINE
 ;
14 S ^ABSN="30170",^ITEM="III-170  The heading 2 chars are changed"
 S ^NEXT="15^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABc","abC")
 S ^VCORR="abCDEFGHIJ" D ^VEXAMINE
 ;
15 S ^ABSN="30171",^ITEM="III-171  The heading 3 chars are changed"
 S ^NEXT="16^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABC","abc")
 S ^VCORR="abcDEFGHIJ" D ^VEXAMINE
 ;
16 S ^ABSN="30172",^ITEM="III-172  The heading substring is changed"
 S ^NEXT="17^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFED","ABC","abc")
 S ^VCORR="abccbaDEFFED" D ^VEXAMINE
 ;
17 S ^ABSN="30173",^ITEM="III-173  A middle char is changed"
 S ^NEXT="18^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDE","Cde","cDE")
 S ^VCORR="ABcDE" D ^VEXAMINE
 ;
18 S ^ABSN="30174",^ITEM="III-174  2 successive middle chars are changed"
 S ^NEXT="19^V3TR06,V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEF","eDC","Edc")
 S ^VCORR="ABcdEF" D ^VEXAMINE
 ;
19 S ^ABSN="30175",^ITEM="III-175  3 successive middle chars are changed"
 S ^NEXT="V3TR07^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEF","EDC","edc")
 S ^VCORR="ABcdeF" D ^VEXAMINE
 ;
END W !!,"End of 12 --- V3TR06",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR07
V3TR07 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"13---V3TR07: $TRANSLATE function -7-"
 ;
1 S ^ABSN="30176",^ITEM="III-176  2 successive middle substrings are changed"
 S ^NEXT="2^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFEFDCBA","FED","fed")
 S ^VCORR="ABCdefefdCBA" D ^VEXAMINE
 ;
2 S ^ABSN="30177",^ITEM="III-177  The tailing 1 char is changed"
 S ^NEXT="3^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","HIJ","hij")
 S ^VCORR="ABCDEFGh" D ^VEXAMINE
 ;
3 S ^ABSN="30178",^ITEM="III-178  The tailing 2 chars are changed"
 S ^NEXT="4^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","GHI","ghi")
 S ^VCORR="ABCDEFgh" D ^VEXAMINE
 ;
4 S ^ABSN="30179",^ITEM="III-179  The tailing 3 chars are changed"
 S ^NEXT="5^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","FGH","fgh")
 S ^VCORR="ABCDEfgh" D ^VEXAMINE
 ;
5 S ^ABSN="30180",^ITEM="III-180  The tailing substring is changed"
 S ^NEXT="6^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFED","DEF","def")
 S ^VCORR="ABCCBAdeffed" D ^VEXAMINE
 ;
6 S ^ABSN="30181",^ITEM="III-181  The heading 1 and tailing 1 chars are changed"
 S ^NEXT="7^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","ABH","abh")
 S ^VCORR="abCDEFGh" D ^VEXAMINE
 ;
7 S ^ABSN="30182",^ITEM="III-182  The heading 2 and tailing 2 chars are changed"
 S ^NEXT="8^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDDCBA","ABE","abe")
 S ^VCORR="abCDDCba" D ^VEXAMINE
 ;
8 S ^ABSN="30183",^ITEM="III-183  The heading 3 and tailing 3 chars are changed"
 S ^NEXT="9^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFFEDCBA","ABC","abc")
 S ^VCORR="abcDEFFEDcba" D ^VEXAMINE
 ;
9 S ^ABSN="30184",^ITEM="III-184  The heading and last substrings are changed"
 S ^NEXT="10^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFABCCBA","ABC","abc")
 S ^VCORR="abccbaDEFabccba" D ^VEXAMINE
 ;
10 S ^ABSN="30185",^ITEM="III-185  The heading and middle 1 char are changed"
 S ^NEXT="11^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","ACI","aci")
 S ^VCORR="aBcDEFGH" D ^VEXAMINE
 ;
11 S ^ABSN="30186",^ITEM="III-186  The heading 2 and middle 2 chars are changed"
 S ^NEXT="12^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDAEFG","ABE","abe")
 S ^VCORR="abCDaeFG" D ^VEXAMINE
 ;
12 S ^ABSN="30187",^ITEM="III-187  The heading 3 and middle 3 chars are changed"
 S ^NEXT="13^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFCBAGH","ABC","abc")
 S ^VCORR="abcDEFcbaGH" D ^VEXAMINE
 ;
13 S ^ABSN="30188",^ITEM="III-188  The heading and middle substrings are changed"
 S ^NEXT="14^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFEDABCCBAGHIIHG","ABC","abc")
 S ^VCORR="abccbaDEFFEDabccbaGHIIHG" D ^VEXAMINE
 ;
14 S ^ABSN="30189",^ITEM="III-189  2 non successive middle chars are changed"
 S ^NEXT="15^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","CEI","cei")
 S ^VCORR="ABcDeFGH" D ^VEXAMINE
 ;
15 S ^ABSN="30190",^ITEM="III-190  2 non successive middle substrings are changed"
 S ^NEXT="16^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("AABBCCDDEEFFGGHH","DFI","dfi")
 S ^VCORR="AABBCCddEEffGGHH" D ^VEXAMINE
 ;
16 S ^ABSN="30191",^ITEM="III-191  The heading char, a middle char, and tailing chars are changed"
 S ^NEXT="17^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","ADH","adh")
 S ^VCORR="aBCdEFGh" D ^VEXAMINE
 ;
17 S ^ABSN="30192",^ITEM="III-192  The 2 heading chars, 2 middle chars and tailing 2 chars are changed"
 S ^NEXT="18^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDAEFGBE","ABE","abe")
 S ^VCORR="abCDaeFGbe" D ^VEXAMINE
 ;
18 S ^ABSN="30193",^ITEM="III-193  The first, the middle and tailing substrings are changed"
 S ^NEXT="19^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFABCCBADEFFEDCBAABC","ABC","abc")
 S ^VCORR="abccbaDEFabccbaDEFFEDcbaabc" D ^VEXAMINE
 ;
19 S ^ABSN="30194",^ITEM="III-194  A middle and the tailing char are changed"
 S ^NEXT="20^V3TR07,V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","DHI","dhi")
 S ^VCORR="ABCdEFGh" D ^VEXAMINE
 ;
20 S ^ABSN="30195",^ITEM="III-195  2 middle chars and the tailing 2 chars are changed"
 S ^NEXT="V3TR08^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDABDE","CDE","cde")
 S ^VCORR="ABcdABde" D ^VEXAMINE
 ;
END W !!,"End of 13 --- V3TR07",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR08
V3TR08 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"14---V3TR08: $TRANSLATE function -8-"
 ;
1 S ^ABSN="30196",^ITEM="III-196  3 middle chars and tailing 3 chars are changed"
 S ^NEXT="2^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEABCDE","CDE","cde")
 S ^VCORR="ABcdeABcde" D ^VEXAMINE
 ;
2 S ^ABSN="30197",^ITEM="III-197  A middle and tailing substrings are changed"
 S ^NEXT="3^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCCBADEFFEDABCCBAFEDDD","DEF","def")
 S ^VCORR="ABCCBAdeffedABCCBAfeddd" D ^VEXAMINE
 ;
3 S ^ABSN="30198",^ITEM="III-198  All chars are changed"
 S ^NEXT="4^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCBAABCBA","ABC","abc")
 S ^VCORR="abcbaabcba" D ^VEXAMINE
 ;
 W !!,"III-199  expr1 has 255 chars",!
 ;
4 S ^ABSN="30199",^ITEM="III-199  expr1 has 255 chars"
 S ^NEXT="5^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S a="" f i=1:1:51 s a=a_"ABCDE"
 S ^VCOMP=$TR(a,"AB","ab")
 s b="" f i=1:1:51 s b=b_"abCDE"
 S ^VCORR=b D ^VEXAMINE
 ;
 W !!,"III-200  expr2 has 255 chars",!
 ;
5 S ^ABSN="30200",^ITEM="III-200  expr2 has 255 chars"
 S ^NEXT="6^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=1:1:51 s a=a_"ABCDE"
 S ^VCOMP=$TR("ABCDEFGHIJ",a,"abc")
 S ^VCORR="abcFGHIJ" D ^VEXAMINE
 ;
 W !!,"III-201  expr3 has 255 chars",!
 ;
6 S ^ABSN="30201",^ITEM="III-201  expr3 has 255 chars"
 S ^NEXT="7^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=1:1:51 s a=a_"abcde"
 S ^VCOMP=$TR("ABCDEFGHIJ","ABC",a)
 S ^VCORR="abcDEFGHIJ" D ^VEXAMINE
 ;
 W !!,"III-202  expr1, expr3, and expr3 have 255 chars",!
 ;
7 S ^ABSN="30202",^ITEM="III-202  expr1, expr2, and expr3 have 255 chars"
 S ^NEXT="8^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S a="" f i=1:1:51 s a=a_"ABCDE"
 s b="" f i=1:1:85 s b=b_"ABC"
 s c="" f i=1:1:51 s c=c_"abcde"
 S ^VCOMP=$TR(a,b,c)
 s d="" f i=1:1:51 s d=d_"abcDE"
 S ^VCORR=d D ^VEXAMINE
 ;
 W !!,"III-203  $L(expr2)<$L(expr3)",!
 ;
8 S ^ABSN="30203",^ITEM="III-203  $L(expr2)<$L(expr3)"
 S ^NEXT="9^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABC","abcdef")
 S ^VCORR="abcDEFGHIJ" D ^VEXAMINE
 ;
 W !!,"III-204  $L(expr2)=$L(expr3)",!
 ;
9 S ^ABSN="30204",^ITEM="III-204  $L(expr2)=$L(expr3)"
 S ^NEXT="10^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ABCDEKLMNO","abcdeklmno")
 S ^VCORR="abcdeFGHIJ" D ^VEXAMINE
 ;
 W !!,"III-205  $L(expr2)>$L(expr3)",!
 ;
10 S ^ABSN="30205",^ITEM="III-205  $L(expr2)>$L(expr3)"
 S ^NEXT="11^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","ACEGI","ace")
 S ^VCORR="aBcDeFHJ" D ^VEXAMINE
 ;
 W !!,"III-206  expr1 has control chars",!
 ;
11 S ^ABSN="30206",^ITEM="III-206  expr1 has control chars"
 S ^NEXT="12^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABC"_$C(13,12,0)_"DEF","DEF","def")
 S ^VCORR="ABC"_$C(13,12,0)_"def" D ^VEXAMINE
 ;
 W !!,"expr2 has control chars",!
 ;
12 S ^ABSN="30207",^ITEM="III-207  expr2 has control chars"
 S ^NEXT="13^V3TR08,V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH",$C(13,10),"ab")
 S ^VCORR="ABCDEFGH" D ^VEXAMINE
 ;
13 S ^ABSN="30208",^ITEM="III-208  expr3 has control chars"
 S ^NEXT="V3TR09^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","ABCD",$C(13,10,13,12))
 S ^VCORR=$C(13,10,13,12)_"EFGH" D ^VEXAMINE
 ;
END W !!,"End of 14 --- V3TR08",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR09
V3TR09 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"15---V3TR09: $TRANSLATE function -9-"
 ;
 W !!,"Both expr1 and expr2 have control chars",!
 ;
1 S ^ABSN="30209",^ITEM="III-209  Both expr1 and expr2 have control chars"
 S ^NEXT="2^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=0:1:127 s a=a_$c(i)
 s b="" f i=0:1:63  s b=b_$c(i)
 S ^VCOMP=$TR(a,b,"abc")
 s c="abc" f i=64:1:127 s c=c_$c(i)
 S ^VCORR=c D ^VEXAMINE
 ;
 W !!,"III-210  Both expr1 and expr3 have control chars",!
 ;
2 S ^ABSN="30210",^ITEM="III-210  Both expr1 and expr3 have control chars"
 S ^NEXT="3^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR($C(0,13,12,13)_"a","a",$C(10))
 S ^VCORR=$C(0,13,12,13,10) D ^VEXAMINE
 ;
 W !!,"III-211  Both expr2 and expr3 have control chars",!
 ;
3 S ^ABSN="30211",^ITEM="III-211  Both expr2 and expr3 have control chars"
 S ^NEXT="4^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=0:1:15 s a=a_$c(i)
 s b="" f i=16:1:31  s b=b_$c(i)
 S ^VCOMP=$TR("""!@",a,b)
 S ^VCORR="""!@" D ^VEXAMINE
 ;
 W !!,"III-212  expr1, expr2, and expr3 have control chars",!
 ;
4 S ^ABSN="30212",^ITEM="III-212  expr1, expr2, and expr3 have control chars"
 S ^NEXT="5^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a="" f i=0:1:14 s a=a_$c(i)
 s b="" f i=0:1:9 s b=b_$c(i)
 s c="" f i=16:1:31  s c=c_$c(i)
 S ^VCOMP=$TR(a,b,c)
 s d="" f i=16:1:25 s d=d_$c(i)
 f i=10:1:14 s d=d_$c(i)
 S ^VCORR=d D ^VEXAMINE
 ;
 W !!,"III-213  expr1 is a strlit",!
 ;
5 S ^ABSN="30213",^ITEM="III-213  expr1 is a strlit"
 S ^NEXT="6^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("1E1""""","E"""," a")
 S ^VCORR="1 1aa" D ^VEXAMINE
 ;
 W !!,"expr1 is a numlit",!
 ;
6 S ^ABSN="30214",^ITEM="III-214  expr1 is 123456789012"
 S ^NEXT="7^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(123456789012,"12","01")
 S ^VCORR="013456789001" D ^VEXAMINE
 ;
7 S ^ABSN="30215",^ITEM="III-215  expr1 is -1.1, expr2 is a period"
 S ^NEXT="8^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(-1.1,".","2")
 S ^VCORR="-121" D ^VEXAMINE
 ;
8 S ^ABSN="30216",^ITEM="III-216  expr1 is -1.1, expr2 is a minus"
 S ^NEXT="9^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$tr(-1.1,"-","+")
 S ^VCORR="+1.1" D ^VEXAMINE
 ;
9 S ^ABSN="30217",^ITEM="III-217  expr1 is 1.23E1"
 S ^NEXT="10^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(1.23E1,"1","E")
 S ^VCORR="E2.3" D ^VEXAMINE
 ;
10 S ^ABSN="30218",^ITEM="III-218  expr1 is ""1.23E1"""
 S ^NEXT="11^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("1.23E1","E","+")
 S ^VCORR="1.23+1" D ^VEXAMINE
 ;
 W !!,"III-219  expr1 is a lvn",!
 ;
11 S ^ABSN="30219",^ITEM="III-219  expr1 is a lvn"
 S ^NEXT="12^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a("a","aa")="abcdefghij"
 S ^VCOMP=$TR(a("a","aa"),"a","b")
 S ^VCORR="bbcdefghij" D ^VEXAMINE
 ;
 W !!,"III-220  expr1 is a gvn",!
 ;
12 S ^ABSN="30220",^ITEM="III-220  expr1 is a gvn"
 S ^NEXT="13^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","aa")="abcdefghij"
 S ^VCOMP=$TR(^VV("a","aa"),"a","b")
 S ^VCORR="bbcdefghij" D ^VEXAMINE K ^VV
 ;
 W !!,"III-221  expr1 has unary operator",!
 ;
13 S ^ABSN="30221",^ITEM="III-221  expr1 has unary operator"
 S ^NEXT="14^V3TR09,V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(-+-+-''123,"-","'")
 S ^VCORR="'1" D ^VEXAMINE
 ;
 W !!,"III-222  expr1 has binary operator",!
 ;
14 S ^ABSN="30222",^ITEM="III-222  expr1 has binary operator"
 S ^NEXT="V3TR10^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR(123/10#10\1+1-1*1_121,"1",".")
 S ^VCORR="2.2." D ^VEXAMINE
 ;
END W !!,"End of 15 --- V3TR09",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR10
V3TR10 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"16---V3TR10: $TRANSLATE function -10-"
 ;
 W !!,"III-223  expr1 has function",!
 ;
1 S ^ABSN="30223",^ITEM="III-223  expr1 has function"
 S ^NEXT="2^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR($TR($J(.23,6,3)," ",1),1,"-")
 S ^VCORR="-0.230" D ^VEXAMINE
 ;
 W !!,"III-224  expr1 has indirection",!
 ;
2 S ^ABSN="30224",^ITEM="III-224  expr1 has indirections"
 S ^NEXT="3^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="ab",ab="^VV(""a"")",b1="b",b2="b1",c="@ab@(@b2)"
 S ^VCOMP=$TR(@c,"a","b")
 S ^VCORR="bb" D ^VEXAMINE k ^VV
 ;
 W !!,"III-225  expr2 is a strlit",!
 ;
3 S ^ABSN="30225",^ITEM="III-225  expr2 is a strlit"
 S ^NEXT="4^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("""123""","""""","ab")
 S ^VCORR="a123a" D ^VEXAMINE
 ;
 W !!,"expr2 is a numlit",!
 ;
4 S ^ABSN="30226",^ITEM="III-226  expr2 is 123456789012"
 S ^NEXT="5^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("012A345B",123456789012,"abcdef")
 S ^VCORR="abAcdeB" D ^VEXAMINE
 ;
5 S ^ABSN="30227",^ITEM="III-227  expr2 is -2.10"
 S ^NEXT="6^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-012",-2.10,"abcd")
 S ^VCORR="a0db" D ^VEXAMINE
 ;
6 S ^ABSN="30228",^ITEM="III-228  expr2 is 1.23E1"
 S ^NEXT="7^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789",1.23E1,"12.30")
 S ^VCORR="-0123.456E789" D ^VEXAMINE
 ;
7 S ^ABSN="30229",^ITEM="III-229  expr2 is ""1.23E1"""
 S ^NEXT="8^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789","1.23E1","12.3")
 S ^VCORR="-01.32456789" D ^VEXAMINE
 ;
 W !!,"III-230  expr2 is a lvn",!
 ;
8 S ^ABSN="30230",^ITEM="III-230  expr2 is a lvn"
 S ^NEXT="9^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 s a("a","aa")="cd"
 S ^VCOMP=$TR("abcd",a("a","aa"),"ab")
 S ^VCORR="abab" D ^VEXAMINE
 ;
 W !!,"III-231  expr2 is a gvn",!
 ;
9 S ^ABSN="30231",^ITEM="III-231  expr2 is a gvn"
 S ^NEXT="10^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","aa")="cd"
 S ^VCOMP=$TR("abcd",^VV("a","aa"),"ab")
 S ^VCORR="abab" D ^VEXAMINE k ^VV
 ;
 W !!,"III-232  expr2 has unary operator",!
 ;
10 S ^ABSN="30232",^ITEM="III-232  expr2 has unary operator"
 S ^NEXT="11^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123",-+-+-''123,"+4")
 S ^VCORR="+0423" D ^VEXAMINE
 ;
 W !!,"III-233  expr2 has binary operator",!
 ;
11 S ^ABSN="30233",^ITEM="III-233  expr2 has binary operator"
 S ^NEXT="12^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123",123/10#10\1+1-1*1_121,"3456")
 S ^VCORR="-0433" D ^VEXAMINE
 ;
 W !!,"III-234  expr2 has function",!
 ;
12 S ^ABSN="30234",^ITEM="III-234  expr2 has function"
 S ^NEXT="13^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("012.34",$TR($J(.23,6,3)," ",1),"00000a")
 S ^VCORR="000004" D ^VEXAMINE
 ;
 W !!,"III-235  expr2 has indirections",!
 ;
13 S ^ABSN="30235",^ITEM="III-235  expr2 has indirections"
 S ^NEXT="14^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="ab",ab="^VV(""a"")",b1="b",b2="b1",c="@ab@(@b2)"
 S ^VCOMP=$TR("abc",@c,"de")
 S ^VCORR="dec" D ^VEXAMINE k ^VV
 ;
 W !!,"III-236  expr3 is a strlit",!
 ;
14 S ^ABSN="30236",^ITEM="III-236  expr3 is a strlit"
 S ^NEXT="15^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("""abc""","abc","""""""")
 S ^VCORR="""""""""""" D ^VEXAMINE
 ;
 W !!,"expr3 is a numlit",!
 ;
15 S ^ABSN="30237",^ITEM="III-237  expr3 is 123456789012"
 S ^NEXT="16^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("abcdefghijkl","abcdefghijkl",123456789012)
 S ^VCORR="123456789012" D ^VEXAMINE
 ;
16 S ^ABSN="30238",^ITEM="III-238  expr3 is -2.10"
 S ^NEXT="17^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("+012","+2.10",-2.10)
 S ^VCORR="-12" D ^VEXAMINE
 ;
17 S ^ABSN="30239",^ITEM="III-239  expr3 is 1.23E1"
 S ^NEXT="18^V3TR10,V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789","12.30",1.23E1)
 S ^VCORR="-123.456E789" D ^VEXAMINE
 ;
18 S ^ABSN="30240",^ITEM="III-240  expr3 is ""1.23E1"""
 S ^NEXT="V3TR11^V3TR,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123.456E789","-12.3","1.23E1")
 S ^VCORR="10.2E3456E789" D ^VEXAMINE
 ;
END W !!,"End of 16 --- V3TR10",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TR11
V3TR11 ;IW-KO-YS-TS,V3TR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"17---V3TR11: $TRANSLATE function -11-"
 ;
 W !!,"III-241  expr3 is a lvn",!
 ;
1 S ^ABSN="30241",^ITEM="III-241  expr3 is a lvn"
 S ^NEXT="2^V3TR11,V3TEXT^VV3" D ^V3PRESET
 s a("a","aa")="ef"
 S ^VCOMP=$TR("abcd","cd",a("a","aa"))
 S ^VCORR="abef" D ^VEXAMINE
 ;
 W !!,"III-242  expr3 is a gvn",!
 ;
2 S ^ABSN="30242",^ITEM="III-242  expr3 is a gvn"
 S ^NEXT="3^V3TR11,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","aa")="ef"
 S ^VCOMP=$TR("abcd","cd",^VV("a","aa"))
 S ^VCORR="abef" D ^VEXAMINE k ^VV
 ;
 W !!,"III-243  expr3 has unary operator",!
 ;
3 S ^ABSN="30243",^ITEM="III-243  expr3 has unary operator"
 S ^NEXT="4^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123","23",-+-+-''123)
 S ^VCORR="-01-1" D ^VEXAMINE
 ;
 W !!,"III-244  expr3 has binary operator",!
 ;
4 S ^ABSN="30244",^ITEM="III-244  expr3 has binary operator"
 S ^NEXT="5^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("-0123","0123",123/10#10\1+1-1*1_121)
 S ^VCORR="-2121" D ^VEXAMINE
 ;
 W !!,"III-245  expr3 has function",!
 ;
5 S ^ABSN="30245",^ITEM="III-245  expr3 has function"
 S ^NEXT="6^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("abcdefgh","abcdef",$TR($TR($J(.23,6,3)," ",1),1))
 S ^VCORR="0.230gh" D ^VEXAMINE
 ;
 W !!,"III-246  expr3 has indirections",!
 ;
6 S ^ABSN="30246",^ITEM="III-246  expr3 has indirections"
 S ^NEXT="7^V3TR11,V3TEXT^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c")="de",ab="^VV(""a"",""b"")",c1="c",c2="c1",d="@ab@(@c2)"
 S ^VCOMP=$TR("abc","ab",@d)
 S ^VCORR="dec" D ^VEXAMINE k ^VV
 ;
 W !!,"III-247  expr1 is an empty string",!
 ;
7 S ^ABSN="30247",^ITEM="III-247  expr1 is an empty string"
 S ^NEXT="8^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$translate("","ABCDEFGHIJ","abcdefghij")
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"III-248  expr2 is an empty string",!
 ;
8 S ^ABSN="30248",^ITEM="III-248  expr2 is an empty string"
 S ^NEXT="9^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","","abcd")
 S ^VCORR="ABCDEFGHIJ" D ^VEXAMINE
 ;
 W !!,"III-249  expr3 is an empty string",!
 ;
9 S ^ABSN="30249",^ITEM="III-249  expr3 is an empty string"
 S ^NEXT="10^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGHIJ","FGHIJ","")
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
 W !!,"III-250  Both expr2 and expr3 are empty strings",!
 ;
10 S ^ABSN="30250",^ITEM="III-250  Both expr2 and expr3 are empty strings"
 S ^NEXT="11^V3TR11,V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("ABCDEFGH","","")
 S ^VCORR="ABCDEFGH" D ^VEXAMINE
 ;
 W !!,"III-251  expr1, expr2, and expr3 are empty strings",!
 ;
11 S ^ABSN="30251",^ITEM="III-251  expr1, expr2, and expr3 are empty strings"
 S ^NEXT="V3TEXT^VV3" D ^V3PRESET
 S ^VCOMP=$TR("","","")
 S ^VCORR="" D ^VEXAMINE
 ;
END W !!,"End of 17 --- V3TR11",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXT
V3TEXT ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 SUB-DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"$TEXT(entryref)  extended"
 ;
V3TEXT1 W !!,"18---V3TEXT1" D ^V3TEXT1
V3TEXT2 W !!,"19---V3TEXT2" D ^V3TEXT2
V3TEXT3 W !!,"20---V3TEXT3" D ^V3TEXT3
 ;
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXT1
V3TEXT1 ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"18---V3TEXT1: $TEXT function -1-"
 ;
 W !!,"$TEXT(^routineref)",!
 ;
1 S ^ABSN="30252",^ITEM="III-252  routineref is a routinename"
 S ^NEXT="2^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$TEXT(^V3TEXTA)
 S ^VCORR="V3TEXTA ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90" D ^VEXAMINE
 ;
2 S ^ABSN="30253",^ITEM="III-253  routinename has characters of significance"
 S ^NEXT="3^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$text(^V3TEXTA8)
 S ^VCORR="V3TEXTA8 ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90" D ^VEXAMINE
 ;
3 S ^ABSN="30254",^ITEM="III-254  routinename has indirection"
 S ^NEXT="4^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ROU="V3TEXTA"
 S ^VCOMP=$T(^@ROU) K ROU
 S ^VCORR="V3TEXTA ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90" D ^VEXAMINE
 ;
4 S ^ABSN="30255",^ITEM="III-255  The label having the same form as routinename does not exist on the 1st line"
 S ^NEXT="5^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$t(^V3TEXTB)
 S ^VCORR=" ;V3TEXTB ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90" D ^VEXAMINE
 ;
 W !!,"$TEXT(dlable^routineref)",!
 ;
5 S ^ABSN="30256",^ITEM="III-256  routineref is a routinename"
 S ^NEXT="6^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(LABEL^V3TEXTA)
 S ^VCORR="LABEL S A=2 ;COMMENT" D ^VEXAMINE
 ;
6 S ^ABSN="30257",^ITEM="III-257  routineref has indirection"
 S ^NEXT="7^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$Text(A^V3TEXTB)
 S ^VCORR="A S ^VCOMP=123 ;TEXT" D ^VEXAMINE
 ;
7 S ^ABSN="30258",^ITEM="III-258  dlabel is a label"
 S ^NEXT="8^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(B^V3TEXTA)
 S ^VCORR="B ;S ^VCOMP=123 S B=3 ;;TEST" D ^VEXAMINE
 ;
8 S ^ABSN="30259",^ITEM="III-259  dlabel has indirection"
 S ^NEXT="9^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S A("ABC")="A0001"
 S ^VCOMP=$T(@A("ABC")^V3TEXTA8) K A
 S ^VCORR="A0001 ;;COMMNENT  ;COMMNENT" D ^VEXAMINE
 ;
9 S ^ABSN="30260",^ITEM="III-260  Both dlabel and routineref have indirection"
 S ^NEXT="10^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^V3TEXT(12)="B0000",^V3TEXT="V3TEXTA8"
 S ^VCOMP=$T(@^V3TEXT(12)^@^V3TEXT)
 S ^VCORR="B0000 S ^V3TEXT=0 Q" D ^VEXAMINE K ^V3TEXT
 ;
10 S ^ABSN="30261",^ITEM="III-261  dlabel is 00000"
 S ^NEXT="11^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(00000^V3TEXTB)
 S ^VCORR="00000 S A=0 ;ABC" D ^VEXAMINE
 ;
11 S ^ABSN="30262",^ITEM="III-262  dlabel is 0"
 S ^NEXT="12^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(0^V3TEXTB)
 S ^VCORR="0 S B=1 ;COMMENT" D ^VEXAMINE
 ;
12 S ^ABSN="30263",^ITEM="III-263  dlabel is 01"
 S ^NEXT="13^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(01^V3TEXTB)
 S ^VCORR="01 S B=12" D ^VEXAMINE
 ;
13 S ^ABSN="30264",^ITEM="III-264  dlabel is 1"
 S ^NEXT="14^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(1^V3TEXTB)
 S ^VCORR="1 ;S C=34 ;;;;;;ROUTINE" D ^VEXAMINE
 ;
14 S ^ABSN="30265",^ITEM="III-265  dlable has 8 chars of significance"
 S ^NEXT="15^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ABCDEFGH^V3TEXTB)
 S ^VCORR="ABCDEFGH S A=123 ;ABC" D ^VEXAMINE
 ;
15 S ^ABSN="30266",^ITEM="III-266  routinename has 8 chars significance"
 S ^NEXT="16^V3TEXT1,V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$t(B000^V3TEXTA8)
 S ^VCORR="B000 S ^V3TEXT=1 Q" D ^VEXAMINE
 ;
16 S ^ABSN="30267",^ITEM="III-267  Both dlabel and routinename have 8 chars of significance"
 S ^NEXT="V3TEXT2^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$text(B0000000^V3TEXTA8)
 S ^VCORR="B0000000 S ^V3TEXT=8 Q" D ^VEXAMINE
 ;
END W !!,"End of 18 --- V3TEXT1",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXT2
V3TEXT2 ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"19---V3TEXT2: $TEXT function -2-"
 ;
 W !!,"$TEXT(dlabel+intexpr^routineref)",!
 ;
1 S ^ABSN="30268",^ITEM="III-268  routineref is a routinename"
 S ^NEXT="2^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+3^V3TEXTA)
 S ^VCORR=" S A=1 ;A+3" D ^VEXAMINE
 ;
2 S ^ABSN="30269",^ITEM="III-269  routineref has indirection"
 S ^NEXT="3^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S A="V3TEXTA"
 S ^VCOMP=$T(A+2^@A) K A
 S ^VCORR=" ;A+2" D ^VEXAMINE
 ;
3 S ^ABSN="30270",^ITEM="III-270  dlabel is a label"
 S ^NEXT="4^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ZZ0Z+000000002^V3TEXTA)
 S ^VCORR=" S A=2 ;ZZ0Z+2" D ^VEXAMINE
 ;
4 S ^ABSN="30271",^ITEM="III-271  dlabel has indirection"
 S ^NEXT="5^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S A(1,2,3)="A(3)",A(3)="A"
 S ^VCOMP=$T(@@A(1,2,3)+3^V3TEXTA) K A
 S ^VCORR=" S A=1 ;A+3" D ^VEXAMINE
 ;
5 S ^ABSN="30272",^ITEM="III-272  dlabel is 00000"
 S ^NEXT="6^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(00000+0^V3TEXTB)
 S ^VCORR="00000 S A=0 ;ABC" D ^VEXAMINE
 ;
6 S ^ABSN="30273",^ITEM="III-273  dlabel is 0"
 S ^NEXT="7^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(0+2.1^V3TEXTB)
 S ^VCORR="010 S B=1 ;0+2" D ^VEXAMINE
 ;
7 S ^ABSN="30274",^ITEM="III-274  dlabel is 01"
 S ^NEXT="8^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(01+03^V3TEXTB)
 S ^VCORR="ABCDEFGI S A=1234 ;ABCD" D ^VEXAMINE
 ;
8 S ^ABSN="30275",^ITEM="III-275  dlabel is 1"
 S ^NEXT="9^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(1+2.9^V3TEXTB)
 S ^VCORR="ABCDEFGH S A=123 ;ABC" D ^VEXAMINE
 ;
9 S ^ABSN="30276",^ITEM="III-276  dlabel has indirection"
 S ^NEXT="10^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ABC(1)="B"
 S ^VCOMP=$T(@ABC(1)+--2^V3TEXTA)
 S ^VCORR=" ;;A+1" D ^VEXAMINE
 ;
 W !!,"Various intexpr",!
 ;
10 S ^ABSN="30277",^ITEM="III-277  intexpr is 0"
 S ^NEXT="11^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+0^V3TEXTA)
 S ^VCORR="A ;A+0" D ^VEXAMINE
 ;
11 S ^ABSN="30278",^ITEM="III-278  intexpr is 1"
 S ^NEXT="12^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+0.0001E+4^V3TEXTA)
 S ^VCORR=" ;;A+1" D ^VEXAMINE
 ;
12 S ^ABSN="30279",^ITEM="III-279  intexpr is 5"
 S ^NEXT="13^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(LABEL+5^V3TEXTA)
 S ^VCORR=" ;A+2" D ^VEXAMINE
 ;
13 S ^ABSN="30280",^ITEM="III-280  intexpr is a fraction part (0.9)"
 S ^NEXT="14^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+0.9^V3TEXTA)
 S ^VCORR="A ;A+0" D ^VEXAMINE
 ;
14 S ^ABSN="30281",^ITEM="III-281  intexpr is a string literal ""A"""
 S ^NEXT="15^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+"A"^V3TEXTA)
 S ^VCORR="A ;A+0" D ^VEXAMINE
 ;
15 S ^ABSN="30282",^ITEM="III-282  Total routine has 5000 characters"
 S ^NEXT="16^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(00090^V3TEXTC)
 S ^VCORR="00090 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000090" D ^VEXAMINE
 ;
16 S ^ABSN="30283",^ITEM="III-283  intexpr is 999999999999"
 S ^NEXT="17^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(B+999999999999^V3TEXT)
 S ^VCORR="" D ^VEXAMINE
 ;
17 S ^ABSN="30284",^ITEM="III-284  intexpr is -1*-3"
 S ^NEXT="18^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+-1*-3^V3TEXTA)
 S ^VCORR=" S A=1 ;A+3" D ^VEXAMINE
 ;
18 S ^ABSN="30285",^ITEM="III-285  intexpr has a local name"
 S ^NEXT="19^V3TEXT2,V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S V3TEXTA(8)=1
 S ^VCOMP=$T(B+V3TEXTA(8)^V3TEXTA) K V3TEXTA
 S ^VCORR="A ;A+0" D ^VEXAMINE
 ;
19 S ^ABSN="30286",^ITEM="III-286  intexpr has a global name"
 S ^NEXT="V3TEXT3^V3TEXT,V3FOR^VV3" D ^V3PRESET
 S ^V3TEXTA=2
 S ^VCOMP=$T(B+^V3TEXTA^V3TEXTA) K ^V3TEXTA
 S ^VCORR=" ;;A+1" D ^VEXAMINE
 ;
END W !!,"End of 19 --- V3TEXT2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXT3
V3TEXT3 ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"20---V3TEXT3: $TEXT function -3-"
 ;
 W !!,"Existence of specified entryref",!
 ;
1 S ^ABSN="30287",^ITEM="III-287  Specified routinename does not exist"
 S ^NEXT="2^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(^V3TEXTZ)
 S ^VCORR="" D ^VEXAMINE
 ;
2 S ^ABSN="30288",^ITEM="III-288  Specified label does not exist"
 S ^NEXT="3^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ZZZZ^V3TEXTA)
 S ^VCORR="" D ^VEXAMINE
 ;
3 S ^ABSN="30289",^ITEM="III-289  intexpr has large value beyond eor"
 S ^NEXT="4^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$TEXT(A+894^V3TEXTA)
 S ^VCORR="" D ^VEXAMINE
 ;
4 S ^ABSN="30290",^ITEM="III-290  Specified label does not exist and intexpr is too large"
 S ^NEXT="5^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ZBD00+9577^V3TEXTA)
 S ^VCORR="" D ^VEXAMINE
 ;
5 S ^ABSN="30291",^ITEM="III-291  Specified routinename does not exist and specified label does not exist"
 S ^NEXT="6^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(AZFF00+099999^V3TEXTZ)
 S ^VCORR="" D ^VEXAMINE
 ;
6 S ^ABSN="30292",^ITEM="III-292  Specified routinename does not exist, specified label does not exist, and intexpr is too large"
 S ^NEXT="7^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(AZFF00+099999^V3TEXTZ)
 S ^VCORR="" D ^VEXAMINE
 ;
 W !!,"Examination of values returned",!
 ;
7 S ^ABSN="30293",^ITEM="III-293  line has 255 characters"
 S ^NEXT="8^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ABC^V3TEXTA)
 S N="0123456789 ",^VCORR="ABC S A=123 ;" F I=1:1:22 S ^VCORR=^VCORR_N
 D ^VEXAMINE
 ;
8 S ^ABSN="30294",^ITEM="III-294  multiple SPs exist between commands"
 S ^NEXT="9^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ZZ0Z+5^V3TEXTA)
 S ^VCORR=" S A=5            S A=6     ;COMMNET" D ^VEXAMINE
 ;
9 S ^ABSN="30295",^ITEM="III-295  linebody contsins "" characters"
 S ^NEXT="10^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(A+10^V3TEXTA)
 S ^VCORR=" S A=""DATA""   S B(""B"")=""HELLO """" HELLO""" D ^VEXAMINE
 ;
10 S ^ABSN="30296",^ITEM="III-296  linebody consists of "";"" and eol"
 S ^NEXT="11^V3TEXT3,V3FOR^VV3" D ^V3PRESET
 S ^VCOMP=$T(ABC+1^V3TEXTA)
 S ^VCORR=" ;COMMENT  ;; COMMNET" D ^VEXAMINE
 ;
11 S ^ABSN="30297",^ITEM="II,III-297  ls has multi spaces"
 S ^NEXT="V3FOR^VV3" D ^V3PRESET
 ;(title corrected in V7.4;16/9/89)
 S ^VCOMP="" S ^VCOMP=$t(T95)_"*"_$TEXT(T95+1)
 S ^VCORR="T95       S A=1   ;$TEXT*                   S B=2   ;$TEXT+1"
 D ^VEXAMINE
 ;
END W !!,"End of 20 --- V3TEXT3",!
 K  Q
 ;
T95       S A=1   ;$TEXT
                   S B=2   ;$TEXT+1
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXTA
V3TEXTA ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
LABEL S A=2 ;COMMENT
 ;
B ;S ^VCOMP=123 S B=3 ;;TEST
A ;A+0
 ;;A+1
 ;A+2
 S A=1 ;A+3
ZZ0Z Q  ;
 S A=1 ;ZZ0Z+1
 S A=2 ;ZZ0Z+2
 S A=3 ;ZZ0Z+3
 S A=4 ;ZZ0Z+4
 S A=5            S A=6     ;COMMNET
 S A="DATA"   S B("B")="HELLO "" HELLO"
ABC S A=123 ;0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 
 ;COMMENT  ;; COMMNET
 ;

V3TEXTA8
V3TEXTA8 ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
A0001 ;;COMMNENT  ;COMMNENT
B0000000 S ^V3TEXT=8 Q
 ;;
 ;
B0000 S ^V3TEXT=0 Q
B000 S ^V3TEXT=1 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXTB
 ;V3TEXTB ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
A S ^VCOMP=123 ;TEXT
0 S B=1 ;COMMENT
00000 S A=0 ;ABC
010 S B=1 ;0+2
01 S B=12
11 ;ERROR
1 ;S C=34 ;;;;;;ROUTINE
ABCDEFGI S A=1234 ;ABCD
ABCDEFGH S A=123 ;ABC
ABCDEFGG S A=1234 ;ABCD
 ;
 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3TEXTC
V3TEXTC ;IW-KO-YS-TS,V3TEXT,MVTS V9.10;15/6/96; 
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996  
00000 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000000
00001 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000001
00002 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000002
00003 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000003
00004 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000004
00005 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000005
00006 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000006
00007 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000007
00008 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000008
00009 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000009
00010 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000010
00011 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000011
00012 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000012
00013 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000013
00014 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000014
00015 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000015
00016 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000016
00017 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000017
00018 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000018
00019 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000019
00020 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000020
00021 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000021
00022 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000022
00023 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000023
00024 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000024
00025 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000025
00026 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000026
00027 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000027
00028 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000028
00029 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000029
00030 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000030
00031 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000031
00032 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000032
00033 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000033
00034 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000034
00035 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000035
00036 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000036
00037 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000037
00038 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000038
00039 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000039
00040 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000040
00041 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000041
00042 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000042
00043 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000043
00044 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000044
00045 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000045
00046 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000046
00047 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000047
00048 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000048
00049 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000049
00050 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000050
00051 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000051
00052 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000052
00053 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000053
00054 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000054
00055 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000055
00056 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000056
00057 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000057
00058 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000058
00059 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000059
00060 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000060
00061 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000061
00062 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000062
00063 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000063
00064 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000064
00065 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000065
00066 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000066
00067 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000067
00068 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000068
00069 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000069
00070 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000070
00071 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000071
00072 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000072
00073 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000073
00074 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000074
00075 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000075
00076 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000076
00077 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000077
00078 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000078
00079 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000079
00080 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000080
00081 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000081
00082 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000082
00083 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000083
00084 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000084
00085 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000085
00086 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000086
00087 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000087
00088 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000088
00089 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000089
00090 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000090
00091 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000091
00092 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000092
00093 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000093
00094 S A=0,B=1,C=2,D=3,E=4,F=5,G=6,H=7,I=000094
 ;                                              
 Q                         ;                      
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K) ;                        

V3FOR
V3FOR ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 SUB-DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"2.6.5  FOR Command"
 W !,"Argumentless FOR Command except QUIT with argument, and "
 W !,"extrisic function call",!
 ;
V3FOR1 W !!,"21---V3FOR1" D ^V3FOR1
V3FOR2 W !!,"22---V3FOR2" D ^V3FOR2
 ;
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FOR1
V3FOR1 ;IW-KO-YS-TS,V3FOR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"21---V3FOR1: argumentless FOR command -1-"
 ;
1 S ^ABSN="30298",^ITEM="III-298  Unconditional QUIT"
 S ^NEXT="2^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP=""
 FOR  S ^VCOMP=1 QUIT  S ^VCOMP=^VCOMP_2
 S ^VCOMP=^VCOMP_3
 S ^VCORR="13" D ^VEXAMINE
 ;
2 S ^ABSN="30299",^ITEM="III-299  Postconditional QUIT"
 S ^NEXT="3^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1
 for  S ^VCOMP=^VCOMP_N,N=N+1 Q:N>4  S ^VCOMP=^VCOMP_N
 S ^VCOMP=^VCOMP_N
 S ^VCORR="12233445" D ^VEXAMINE
 ;
3 S ^ABSN="30300",^ITEM="III-300  FOR scope has DO command terminated by QUIT"
 S ^NEXT="4^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1,F=0
 F  S ^VCOMP=^VCOMP_N D V3GET1 Q:F  S ^VCOMP=^VCOMP_N,N=N+1
 S ^VCORR="1 12 23 34 45 " D ^VEXAMINE
 ;
4 S ^ABSN="30301",^ITEM="III-301  FOR scope has DO command terminated by EOR"
 S ^NEXT="5^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1,F=0
 F  S ^VCOMP=^VCOMP_N D V3GET2 Q:F  S ^VCOMP=^VCOMP_N,N=N+1
 S ^VCORR="1 12 23 34 45 " D ^VEXAMINE
 ;
5 S ^ABSN="30302",^ITEM="III-302  FOR scope has internal GOTO command"
 S ^NEXT="6^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1
 f  S ^VCOMP=^VCOMP_N  G:N>4 GOTO   S ^VCOMP=^VCOMP_N,N=N+1
 S ^VCOMP=^VCOMP_" ERROR"
GOTO S ^VCORR="112233445" D ^VEXAMINE
 ;
6 S ^ABSN="30303",^ITEM="III-303  FOR scope has external GOTO command"
 S ^NEXT="7^V3FOR1,V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=2
 f  S ^VCOMP=^VCOMP_N  G:N>5 GOTO^V3FOREX   S ^VCOMP=^VCOMP_N,N=N+1
 S ^VCOMP=^VCOMP_" ERROR"
EXGOTO S ^VCORR="223344556" D ^VEXAMINE
 ;
7 S ^ABSN="30304",^ITEM="III-304  FOR scope has XECUTE command"
 S ^NEXT="V3FOR2^V3FOR,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP=""
 S N=0 for  x "S N=N+1 s ^VCOMP=^VCOMP_N DO ^V3FOREX" quit:N=3
 S ^VCORR="1 V3FOREX2 V3FOREX3 V3FOREX" D ^VEXAMINE
 ;
END W !!,"End of 21 --- V3FOR1",!
 K  Q
 ;
V3GET1 ;
 S ^VCOMP=^VCOMP_" "
 IF N>4 S F=1 QUIT
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
V3GET2 ;
 S ^VCOMP=^VCOMP_" "
 IF N>4 S F=1

V3FOR2
V3FOR2 ;IW-KO-YS-TS,V3FOR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"22---V3FOR2: argumentless FOR command -2-"
 ;
1 S ^ABSN="30305",^ITEM="III-305  XECUTE command argument has duplicated argumentless FOR"
 S ^NEXT="2^V3FOR2,V3HANG^VV3" D ^V3PRESET k
 S ^VCOMP="",E=0
 x "for  s ^VCOMP=^VCOMP_"" f"",E=E+1,N=0 q:E=4  f  s N=N+1,^VCOMP=^VCOMP_N q:N>4"
 S ^VCORR=" f12345 f12345 f12345 f" D ^VEXAMINE
 ;
2 S ^ABSN="30306",^ITEM="III-306  FOR scope has XECUTE argument containing argumentless FOR"
 S ^NEXT="3^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",B=1
 FOR  S N=0 X "F  S N=N+1 G:N=5 XECGOTO S ^VCOMP=^VCOMP_N"  S B=B+1 Q:B>3
 S ^VCORR="1234 GOTO 1234 GOTO 1234 GOTO " D ^VEXAMINE
 ;
3 S ^ABSN="30307",^ITEM="III-307  FOR scope has FOR with parameters"
 S ^NEXT="4^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=0
 F   S ^VCOMP=^VCOMP_" ",N=N+1 Q:N=4  F K="A","B",10:-1:5 S ^VCOMP=^VCOMP_K
 S ^VCORR=" AB1098765 AB1098765 AB1098765 " D ^VEXAMINE
 ;
4 S ^ABSN="30308",^ITEM="III-308  FOR scope has IF command"
 S ^NEXT="5^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1 if 0
 for  S ^VCOMP=^VCOMP_N_$T_" ",N=N+1 if N=5 quit
 S ^VCOMP=^VCOMP_"/"_$T
 S ^VCORR="10 20 30 40 /1" D ^VEXAMINE
 ;
5 S ^ABSN="30309",^ITEM="III-309  Subroutine has argumentless FOR"
 S ^NEXT="6^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1 D FORSUB
 S ^VCORR="1 2 3 4 END" D ^VEXAMINE
 ;
6 S ^ABSN="30310",^ITEM="III-310  Nested FOR scope having internal GOTO command"
 S ^NEXT="7^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1
 for  S ^VCOMP=^VCOMP_N_"/",N=N+1 f  S ^VCOMP=^VCOMP_N_" ",N=N+1 Q:N#4=0  G:N>10 NESTG
 S ^VCOMP=^VCOMP_"* error"
NESTG ;
 S ^VCORR="1/2 3 4/5 6 7 8/9 10 " D ^VEXAMINE
 ;
7 S ^ABSN="30311",^ITEM="III-311  Nested FOR scope having external GOTO command"
 S ^NEXT="8^V3FOR2,V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",N=1
 for  S ^VCOMP=^VCOMP_N_"/",N=N+1 f  S ^VCOMP=^VCOMP_N_" ",N=N+1 Q:N#4=0  G:N>10 NESTG^V3FOREX
 S ^VCOMP=^VCOMP_"* error"
NESTGEX ;
 S ^VCORR="1/2 3 4/5 6 7 8/9 10 " D ^VEXAMINE
 ;
8 S ^ABSN="30312",^ITEM="III-312  Nested FOR scope"
 S ^NEXT="V3HANG^VV3" D ^V3PRESET
 S ^VCOMP="",M=1
 F  S N=0,^VCOMP=^VCOMP_"/"_M_" " Q:M>3  S M=M+1 F  S N=N+1 Q:N>3  S ^VCOMP=^VCOMP_N
 S ^VCORR="/1 123/2 123/3 123/4 " D ^VEXAMINE
 ;
END W !!,"End of 22 --- V3FOR2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
FORSUB ;
 for  s ^VCOMP=^VCOMP_N_" ",N=N+1 g:N=5 FORSUBG
 s ^VCOMP=^VCOMP_"ERROR "
FORSUBG s ^VCOMP=^VCOMP_"END" q
 ;
XECGOTO S ^VCOMP=^VCOMP_" GOTO " Q
 ;

V3FOREX
V3FOREX ;IW-KO-YS-TS,V3FOR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 S ^VCOMP=^VCOMP_" V3FOREX"
 Q
GOTO GOTO EXGOTO^V3FOR1
NESTG g NESTGEX^V3FOR2 ;
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3HANG
V3HANG ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;HANG COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V3HANG1 W !!,"23---V3HANG1" D ^V3HANG1
V3HANG2 W !!,"24---V3HANG2" D ^V3HANG2
END Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3HANG1
V3HANG1 ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;HANG COMMAND  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1HANG1"
 W !!,"23---V3HANG1: HANG command  -1-",!
 ;
1 W !!,"I,III-313  HANG duration by $H"
 S ^ABSN="30313",^ITEM="I,III-313  HANG duration by $H"
 S ^NEXT="2^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="HANG 10",TM=10 D START HANG 10 D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
2 W !!,"I,III-314  List of hangargument"
 S ^ABSN="30314",^ITEM="I,III-314  List of hangargument"
 S ^NEXT="3^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="H 0,1,2,3",TM=6 D START H 0,1,2,3 D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
3 W !!,"I,III-315  HANG in FOR scope"
 S ^ABSN="30315",^ITEM="I,III-315  HANG in FOR scope"
 S ^NEXT="4^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="F I=1:1:2 H 5",TM=10 D START F I=1:1:2 H 5
 D STOP ;(test changed in V7.5;20/8/90)
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
4 W !!,"I,III-316  HANG with postconditional"
 S ^ABSN="30316",^ITEM="I,III-316  HANG with postconditional"
 S ^NEXT="5^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="H:1+1 5",TM=5 D START H:1+1 5 D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
5 W !!,"I,III-317  Argument level indirection"
 S ^ABSN="30317",^ITEM="I,III-317  Argument level indirection"
 S ^NEXT="6^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="S A=3 H @1,@A",TM=4,A=3 D START H @1,@A D STOP ;(test changed in V7.5;20/8/90)
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
6 W !!,"I,III-318  Name level indirection"
 S ^ABSN="30318",^ITEM="I,III-318  Name level indirection"
 S ^NEXT="7^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="S A=""B"",B=6 H @A",TM=6,A="B",B=6 D START H @A D STOP ;(test changed in V7.5;20/8/90)
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
7 W !!,"HANG numexpr"
 W !!,"I,III-319  numexpr is integer"
 S ^ABSN="30319",^ITEM="I,III-319  numexpr is integer"
 S ^NEXT="8^V3HANG1,V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="XECUTE ""H 5""",TM=5,X="H 5" D START XECUTE X D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
8 W !!,"I,III-320  numexpr=0"
 S ^ABSN="30320",^ITEM="I,III-320  numexpr=0"
 S ^NEXT="V3HANG2^V3HANG,V3RAND^VV3" D ^V3PRESET
 S CMD="H 0",TM=0 D START H 0 D STOP
 S ^VCOMP="ERROR" IF H=0!(H=1) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
END W !!,"End of 23 --- V3HANG1",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
START S H=$H Q
STOP S H=$P($H,",",2)-$P(H,",",2) Q

V3HANG2
V3HANG2 ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;HANG COMMAND -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1HANG2"
 W !!,"24---V3HANG2: HANG command  -2-",!
 ;
1 W !!,"I,III-321  numexpr<0"
 ;W !!,"Don't touch any key till P/F question appears in a moment." ;(message added in V7.5;20/8/90)
 ;W !,"If not, the system must have halted!,",!
 S ^ABSN="30321",^ITEM="I,III-321  numexpr<0"
 S ^NEXT="2^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="H -10",TM=0 D START H -10 D STOP
 S ^VCOMP="ERROR" IF (H=0)!(H=1) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
2 W !!,"I,III-322  numexpr is non-integer positive numeric literal"
 S ^ABSN="30322",^ITEM="I,III-322  numexpr is non-integer positive numeric literal"
 S ^NEXT="3^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="H 300E-2",TM=3 D START H 300E-2 D STOP ;(test changed in V7.5;20/8/90)
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
3 W !!,"I,III-323  numexpr is greater than zero and less than one"
 S ^ABSN="30323",^ITEM="I,III-323  numexpr is greater than zero and less than one"
 S ^NEXT="4^V3HANG2,V3RAND^VV3" D ^V3PRESET
 W !,"     (This test I,III-323 was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
4 W !!,"I,III-324  numexpr is string literal"
 S ^ABSN="30324",^ITEM="I,III-324  numexpr is string literal"
 S ^NEXT="5^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="H ""2ABCDE""",TM=2 D START H "2ABCDE" D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
5 W !!,"I,III-325  numexpr is an empty string"
 S ^ABSN="30325",^ITEM="I,III-325  numexpr is an empty string"
 S ^NEXT="6^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="H """"",TM=0 D START H "" D STOP
 S ^VCOMP="ERROR" IF (H=0)!(H=1) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
6 W !!,"I,III-326  numexpr is lvn"
 S ^ABSN="30326",^ITEM="I,III-326  numexpr is lvn"
 S ^NEXT="7^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="S A(2)=3 H A(2)",TM=3,A(2)=3 D START H A(2) D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
7 W !!,"I,III-327  numexpr contains unary operator"
 ;W !!,"Don't touch any key till P/F question appears in a moment." ;(message added in V7.5;20/8/90)
 ;W !,"If not, the system must have halted!,",!
 S ^ABSN="30327",^ITEM="I,III-327  numexpr contains unary operator"
 S ^NEXT="8^V3HANG2,V3RAND^VV3" D ^V3PRESET
 S CMD="H -'0",TM=0 D START H -'0 D STOP
 S ^VCOMP="ERROR" IF (H=0)!(H=1) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
8 W !!,"I,III-328  numexpr contains binary operator"
 S ^ABSN="30328",^ITEM="I,III-328  numexpr contains binary operator"
 S ^NEXT="V3RAND^VV3" D ^V3PRESET
 S CMD="H 0_1_1",TM=11 D START H 0_1_1 D STOP
 S ^VCOMP="ERROR" IF (H>(TM*0.5))&(H<(TM*1.5)) S ^VCOMP="OK"
 S ^VCORR="OK" D ^VEXAMINE
 ;
END W !!,"End of 24 --- V3HANG2",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
START S H=$H Q
STOP S H=$P($H,",",2)-$P(H,",",2) Q

V3RAND
V3RAND ;IW-YS-KO-TS,VV3,MVTS V9.10;15/6/96;$RANDOM FUNCTION -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"25---V3RAND: $RANDOM function",!
 ;
1 W !!,"I,III-329  intexpr is 12 digits ( maximum range )"
 S ^ABSN="30329",^ITEM="I,III-329  intexpr is 12 digits ( maximum range )"
 S ^NEXT="V3MAX^VV3" D ^V3PRESET
 W !,"       $R(999999999999) : " S VCOMP=0
 F I=1:1:5 S R=$R(999999999999) W R," " I R'?.N!(R'<999999999999) S VCOMP=VCOMP+1
 S ^VCOMP=VCOMP,^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 25 --- V3RAND",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3MAX
V3MAX ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;HANG COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V3MAX1 W !!,"26---V3MAX1" D ^V3MAX1
V3MAX2 W !!,"27---V3MAX2" D ^V3MAX2
END Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3MAX1
V3MAX1 ;IW-YS-TS,V3MAX,MVTS V9.10;15/6/96;MAXIMUM RANGE -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1MAX1"
 W !!,"26---V3MAX1: Maximum range -1-",!
 ;
1 W !,"I,III-330  Numeric range ( 10 power -25 to 10 power 25 )"
 S ^ABSN="30330",^ITEM="I,III-330  Numeric range ( 10 power -25 to 10 power 25 )"
 S ^NEXT="2^V3MAX1,V3NST1^VV3" D ^V3PRESET
 S ^VCOMP=""
 S A=-1E25,B=1E-25,C=999999999999E-25,D=.999999999999E25
 S A1="-1E25",B1="1E-25",C1="999999999999E-25",D1=".999999999999E25"
 S ^VCOMP=A_" "_-B_" "_C_" "_D_" "_(A-A1)_(B-B1)_(C1-C)_(D-D1)
 S ^VCORR="-10000000000000000000000000 -.0000000000000000000000001 .0000000000000999999999999 9999999999990000000000000 0000" D ^VEXAMINE
 ;
2 W !,"I,III-331  Significant digit up to 12 digits"
 S ^ABSN="30331",^ITEM="I,III-331  Local data"
 S ^NEXT="3^V3MAX1,V3NST1^VV3" D ^V3PRESET
 S ^VCOMP=""
 S A=-.999999999999E25,A1="-.999999999999E25",B=-999999999999E-25,C=999999999999E-25,D=+".999999999999E25"
 S ^VCOMP=A_" "_B_" "_C_" "_D_" "_+A1_" "_(A1+.899999999998E25)
 S ^VCORR="-9999999999990000000000000 -.0000000000000999999999999 .0000000000000999999999999 9999999999990000000000000 -9999999999990000000000000 -1000000000010000000000000" D ^VEXAMINE
 ;
3 S ^ABSN="30332",^ITEM="I,III-332  Global data"
 S ^NEXT="V3MAX2^V3MAX,V3NST1^VV3" D ^V3PRESET
 S ^VCOMP=""
 S ^V1=-.999999999999E25,^V1(1)=-999999999999E-25,^V1(2)=999999999999E-25,^V1(3)=+".999999999999E25",^V1(4)="-.999999999999E25"
 S ^VCOMP=^V1_" "_^V1(1)_" "_^V1(2)_" "_^V1(3)_" "_+^V1(4)
 S ^VCORR="-9999999999990000000000000 -.0000000000000999999999999 .0000000000000999999999999 9999999999990000000000000 -9999999999990000000000000" D ^VEXAMINE
 ;
END W !!,"End of 26 --- V3MAX1",!
 K  K ^V1 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3MAX2
V3MAX2 ;IW-YS-TS,V3MAX,MVTS V9.10;15/6/96;MAXIMUM RANGE -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1MAX2"
 W !!,"27---V3MAX2: Maximum range -2-",!
1 W !,"I,III-333  12 digits subscript of local variable"
 S ^ABSN="30333",^ITEM="I,III-333  12 digits subscript of local variable"
 S ^NEXT="2^V3MAX2,V3NST1^VV3" D ^V3PRESET
 S ^VCOMP=""
 S A(999999999999)=999999999999,A(123450789123,0987654321123)=123450789123
 S ^VCOMP=A(999999999999)_" "_A(123450789123,987654321123)
 S ^VCORR="999999999999 123450789123" D ^VEXAMINE
 ;
2 W !,"I,III-334  12 digits subscript of global variable"
 S ^ABSN="30334",^ITEM="I,III-334  12 digits subscript of global variable"
 S ^NEXT="3^V3MAX2,V3NST1^VV3" D ^V3PRESET
 S ^VCOMP=""
 S ^V1(999999999999)=999999999999,^V1(123450789123,0987654320123)=123450789123
 S ^VCOMP=^V1(999999999999)_" "_^V1(123450789123,987654320123)
 S ^VCORR="999999999999 123450789123" D ^VEXAMINE
 ;
3 W !,"I,III-335  30 levels subscript of local variable"
 S ^ABSN="30335",^ITEM="I,III-335  30 levels subscript of local variable"
 S ^NEXT="4^V3MAX2,V3NST1^VV3" D ^V3PRESET
 K V
 S V(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)="123456789101112131415161718192021222324252627282930"
 S ^VCOMP=V(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)
 S ^VCORR="123456789101112131415161718192021222324252627282930" D ^VEXAMINE
 ;
4 W !,"I,III-336  30 levels subscript of global variable"
 S ^ABSN="30336",^ITEM="I,III-336  30 levels subscript of global variable"
 S ^NEXT="V3NST1^VV3" D ^V3PRESET
 K ^V1
 S ^V1(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)="123456789101112131415161718192021222324252627282930"
 S ^VCOMP=^V1(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)
 S ^VCORR="123456789101112131415161718192021222324252627282930" D ^VEXAMINE
 ;
END W !!,"End of 27 --- V3MAX2",!
 K  K ^V1 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NST1
V3NST1 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;NESTING LEVEL -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1NST1"
 W !!,"28---V3NST1: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -1-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 29 levels of nesting are required."
 W !,"Admitted nesting levels are indicated by the number in each test.",!
1 W !,"I,III-337  2 levels of DO, and 28 levels of FOR"
 S ^ABSN="30337",^ITEM="I,III-337  Termination by GOTO" ;(test changed in V8.3;15/2/94)
 S ^NEXT="2^V3NST1,V3NST2^VV3" D ^V3PRESET
 S X="(OK)"
 F A=1:1:2 F B=1:1:2 F C=1:1:2 F D=1:1:2 F E=1:1:2 F F=1:1:2 F G=1:1:2 F H=1:1:2 F I=1:1:2 F J=1:1:2 F K=1:1:2 F L=1:1:2 F M=1:1:2 F N=1:1:2 F O=1:1:2 D NSTFOR I F=2 S ^VCOMP=^VCOMP_X G F2
 S ^VCOMP=^VCOMP_" ERROR 653"
F2 S ^VCORR="(OK)(OK)" D ^VEXAMINE
 ;
2 S ^ABSN="30338",^ITEM="I,III-338  Termination by QUIT" ;(test changed in V8.3;15/2/94)
 S ^NEXT="3^V3NST1,V3NST2^VV3" D ^V3PRESET
 S X="(OK QUIT)",Z=0,Y=0
 F A=1:1:2 Q:Z  F B=1:1:2 Q:Z  F C=1:1:2 Q:Z  F D=1:1:2 Q:Z  F E=1:1:2 Q:Z  F F=1:1:2 Q:Z  F G=1:1:2 Q:Z  F H=1:1:2 Q:Z  F I=1:1:2 Q:Z  F J=1:1:2 Q:Z  F K=1:1:2 Q:Z  F L=1:1:2 Q:Z  F M=1:1:2 Q:Z  F N=1:1:2 Q:Z  F O=1:1:2 D FORDONST I F=2 S ^VCOMP=X,Z=1
 S ^VCORR="(OK QUIT)" D ^VEXAMINE
 ;
3 S ^ABSN="30339",^ITEM="I,III-339  1 level of DO, and 29 levels of XECUTE"
 S ^NEXT="4^V3NST1,V3NST2^VV3" D ^V3PRESET
 S ^VCOMP=""
 S A="X B",B="X C",C="X D",D="X E",E="X F",F="X G",G="X H",H="X I"
 S I="X J",J="X K",K="X L",L="X M",M="X N",N="X O",O="X P",P="X Q"
 S Q="X R",R="X S",S="X T",T="X U",U="X V",V="X W",W="X X",X="X Y"
 S Y="X Z",Z="X A1",A1="X A2",A2="X A3"
 S ZZ=0,A3="S ZZ=ZZ+1 S ^VCOMP=^VCOMP_ZZ"
 X A3,A2,A1,Z,Y,X,W,V,U,T,S,R,Q,P,O,N,M,L,K,I,J,H,G,F,E,D,C,B,A
 S ^VCORR="1234567891011121314151617181920212223242526272829" D ^VEXAMINE
 ;
4 W !,"I,III-340  30 levels of DO"
 S ^ABSN="30340",^ITEM="I,III-340  Local DO"
 S ^NEXT="5^V3NST1,V3NST2^VV3" D ^V3PRESET
 S V="" D D1
 S ^VCOMP=V
 S ^VCORR="1234567891011121314151617181920212223242526272829" D ^VEXAMINE
 ;
5 S ^ABSN="30341",^ITEM="I,III-341  External DO"
 S ^NEXT="6^V3NST1,V3NST2^VV3" D ^V3PRESET
 S V=""
 D D1^V3NSTE
 S ^VCOMP=V,^VCORR="E1E2E3E4E5E6E7E8E9E10E11E12E13E14E15E16E17E18E19E20E21E22E23E24E25E26E27E28E29" D ^VEXAMINE
 ;
6 S ^ABSN="30342",^ITEM="I,III-342  30 levels of combined DO, FOR, XECUTE"
 S ^NEXT="V3NST2^VV3" D ^V3PRESET
 S ^VCOMP="",Z=0
 S G1="D AAAA",G2="X GGG"
 S GGG="F H0=1:1:2 Q:Z  F I0=1:1:2 Q:Z  F H=1:1:2 Q:Z  F I=1:1:2 Q:Z  D JJJ^V3NSTE"
 S MMM="F N=1:1:2 I H=2 S ^VCOMP=""OK"",Z=1"
 F A0=1:1:2 Q:Z  F B0=1:1:2 Q:Z  F A=1:1:2 Q:Z  F B=1:1:2 Q:Z  D C11
 S ^VCORR="OK" D ^VEXAMINE
 ;
END W !!,"End of 28 --- V3NST1",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
AAAA X G2 Q
C11 D CC2
 Q
CC2 D CCC Q
CCC Q:Z  F D=1:1:2 Q:Z  F E=1:1:2 Q:Z  F F=1:1:2 F D0=1:1:2 Q:Z  F E0=1:1:2 Q:Z  X G1
 QUIT
NSTFOR F A0=1:1:2 F B0=1:1:2 F C0=1:1:2 F D0=1:1:2 F E0=1:1:2 F F0=1:1:2 F G0=1:1:2 F H0=1:1:2 F I0=1:1:2 F J0=1:1:2 F K0=1:1:2 F L0=1:1:2 F M0=1:1:2 I L0=2 S ^VCOMP=X G NSTFOR2
 S ^VCOMP=^VCOMP_" ERROR 653_2"
NSTFOR2 Q
 ;
FORDONST F A0=1:1:2 Q:Y  F B0=1:1:2 Q:Y  F C0=1:1:2 Q:Y  F D0=1:1:2 Q:Y  F E0=1:1:2 Q:Y  F F0=1:1:2 Q:Y  F G0=1:1:2 Q:Y  F H0=1:1:2 Q:Y  F I0=1:1:2 Q:Y  F J0=1:1:2 Q:Y  F K0=1:1:2 Q:Y  F L0=1:1:2 Q:Y  F M0=1:1:2 Q:Y  I K0=2 S ^VCOMP=X,Y=1
 Q
D6611 S V=V_I_J_" " Q
D1 S V=V_1 D D2 Q
D2 S V=V_2 D D3 Q
D3 S V=V_3 D D4 Q
D4 S V=V_4 D D5 Q
D5 S V=V_5 D D6 Q
D6 S V=V_6 D D7 Q
D7 S V=V_7 D D8 Q
D8 S V=V_8 D D9 Q
D9 S V=V_9 D D10 Q
D10 S V=V_10 D D11 Q
D11 S V=V_11 D D12 Q
D12 S V=V_12 D D13 Q
D13 S V=V_13 D D14 Q
D14 S V=V_14 D D15 Q
D15 S V=V_15 D D16 Q
D16 S V=V_16 D D17 Q
D17 S V=V_17 D D18 Q
D18 S V=V_18 D D19 Q
D19 S V=V_19 D D20 Q
D20 S V=V_20 D D21 Q
D21 S V=V_21 D D22 Q
D22 S V=V_22 D D23 Q
D23 S V=V_23 D D24 Q
D24 S V=V_24 D D25 Q
D25 S V=V_25 D D26 Q
D26 S V=V_26 D D27 Q
D27 S V=V_27 D D28 Q
D28 S V=V_28 D D29 Q
D29 S V=V_29 Q
 ;
ED1 S V=V_"E1" D D2^V3NSTE Q
ED2 S V=V_"E2" D D3^V3NSTE Q
ED3 S V=V_"E3" D D4^V3NSTE Q
ED4 S V=V_"E4" D D5^V3NSTE Q
ED5 S V=V_"E5" D D6^V3NSTE Q
ED6 S V=V_"E6" D D7^V3NSTE Q
ED7 S V=V_"E7" D D8^V3NSTE Q
ED8 S V=V_"E8" D D9^V3NSTE Q
ED9 S V=V_"E9" D D10^V3NSTE Q
ED10 S V=V_"E10" D D11^V3NSTE Q
ED11 S V=V_"E11" D D12^V3NSTE Q
ED12 S V=V_"E12" D D13^V3NSTE Q
ED13 S V=V_"E13" D D14^V3NSTE Q
ED14 S V=V_"E14" D D15^V3NSTE Q
ED15 S V=V_"E15" D D16^V3NSTE Q
ED16 S V=V_"E16" D D17^V3NSTE Q
ED17 S V=V_"E17" D D18^V3NSTE Q
ED18 S V=V_"E18" D D19^V3NSTE Q
ED19 S V=V_"E19" D D20^V3NSTE Q
ED20 S V=V_"E20" D D21^V3NSTE Q
ED21 S V=V_"E21" D D22^V3NSTE Q
ED22 S V=V_"E22" D D23^V3NSTE Q
ED23 S V=V_"E23" D D24^V3NSTE Q
ED24 S V=V_"E24" D D25^V3NSTE Q
ED25 S V=V_"E25" D D26^V3NSTE Q
ED26 S V=V_"E26" D D27^V3NSTE Q
ED27 S V=V_"E27" D D28^V3NSTE Q
ED28 S V=V_"E28" D D29^V3NSTE Q
ED29 S V=V_"E29" Q
D6612 S V=V_I_J_" "

V3NST2
V3NST2 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;NESTING LEVEL -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1NST2"
 W !!,"29---V3NST2: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -2-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 29 levels of nesting are required."
 W !,"Admitted nesting levels are indicated by the number in each test.",!
 ;
1 W !,"I,III-343  1 level of DO, and 29 levels of argument level indirection"
 S ^ABSN="30343",^ITEM="I,III-343  1 level of DO, and 29 levels of argument level indirection"
 S ^NEXT="2^V3NST2,V3NST3^VV3" D ^V3PRESET
 S V=""
 S ^V1ID(1)="D1,ED1^V3NSTE,@^V1ID(2)",^V1ID(2)="ED2^V3NSTE,@^V1ID(3)"
 S ^V1ID(3)="ED3^V3NSTE,@^V1ID(4)",^V1ID(4)="ED4^V3NSTE,@^V1ID(5)"
 S ^V1ID(5)="D5,ED5^V3NSTE,@^V1ID(6)",^V1ID(6)="ED6^V3NSTE,@^V1ID(7)"
 S ^V1ID(7)="ED7^V3NSTE,@^V1ID(8)",^V1ID(8)="ED8^V3NSTE,@^V1ID(9)"
 S ^V1ID(9)="ED9^V3NSTE,@^V1ID(10)",^V1ID(10)="D10,ED10^V3NSTE,@^V1ID(11)"
 S ^V1ID(11)="ED11^V3NSTE,@^V1ID(12)",^V1ID(12)="ED12^V3NSTE,@^V1ID(13)"
 S ^V1ID(13)="ED13^V3NSTE,@^V1ID(14)",^V1ID(14)="ED14^V3NSTE,@^V1ID(15)"
 S ^V1ID(15)="ED15^V3NSTE,@^V1ID(16)",^V1ID(16)="ED16^V3NSTE,@^V1ID(17)"
 S ^V1ID(17)="ED17^V3NSTE,@^V1ID(18)",^V1ID(18)="ED18^V3NSTE,@^V1ID(19)"
 S ^V1ID(19)="ED19^V3NSTE,@^V1ID(20)",^V1ID(20)="ED20^V3NSTE,@^V1ID(21)"
 S ^V1ID(21)="ED21^V3NSTE,@^V1ID(22)",^V1ID(22)="ED22^V3NSTE,@^V1ID(23)"
 S ^V1ID(23)="ED23^V3NSTE,@^V1ID(24)",^V1ID(24)="ED24^V3NSTE,@^V1ID(25)"
 S ^V1ID(25)="ED25^V3NSTE,@^V1ID(26)",^V1ID(26)="ED26^V3NSTE,@^V1ID(27)"
 S ^V1ID(27)="ED27^V3NSTE,@^V1ID(28)",^V1ID(28)="ED28^V3NSTE,@^V1ID(29)"
 S ^V1ID(29)="ED29^V3NSTE"
 D @^V1ID(1)
 S ^VCOMP=V
 S ^VCORR="12345678910111213141516171819202122232425262728D1 D2 D3 D4 5678910111213141516171819202122232425262728D5 D6 D7 D8 D9 10111213141516171819202122232425262728D10 D11 D12 D13 D14 D15 D16 D17 D18 D19 D20 D21 D22 D23 D24 D25 D26 D27 D28 D29 "
 D ^VEXAMINE K ^V1ID
 ;
2 W !,"I,III-344  1 level of DO, and 29 levels of name level indirection"
 S ^ABSN="30344",^ITEM="I,III-344  1 level of DO, and 29 levels of name level indirection"
 S ^NEXT="3^V3NST2,V3NST3^VV3" D ^V3PRESET
 S VCOMP=""
 S X="#",A="X",B="@A",C="@B",D="@C",E="@D",F="@E",G="@F",H="@G",I="@H"
 S J="@I",K="@J",L="@K",M="@L",N="@M",O="@N",P="@O",Q="@P",R="@Q",S="@R",T="@S",U="@T",V="@U",W="@V",XX="@W",Y="@XX",Z="@Y",AZ="@Z",BZ="@AZ",CZ="@BZ"
 S VCOMP=X_@A_@B_@C_@D_@E_@F_@G_@H_@I_@J_@K_@L_@M_@N_@O_@P_@Q_@R_@S_@T_@U_@V_@W_@XX_@Y_@Z_@AZ_@BZ_@CZ_" "
 S A="A" S VCOMP=VCOMP_A_@A_@@A_@@@A_@@@@A_@@@@@A_@@@@@@A_@@@@@@@A_@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@A_@@@@@@@@@@@A_@@@@@@@@@@@@A_@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@@@@@@@A_@@@@@@@@@@@@@@@@@@@@@@@@@@@@A
 S VCOMP=VCOMP_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A
 S ^VCOMP=VCOMP,^VCORR="############################## AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" D ^VEXAMINE
 ;
3 W !,"I,III-345  Up to 7 nesting levels of functions"
FNC S ^ABSN="30345",^ITEM="I,III-345  Up to 7 nesting levels of functions"
 S ^NEXT="V3NST3^VV3" D ^V3PRESET
 S VCOMP=""
F20 S VCOMP=VCOMP_$L($T(FNC))+2-$L($T(FNC))
F21 S VCOMP=VCOMP_$P("1,2",$P(",^.","^",1),$E(2,1))
F30 S VCOMP=VCOMP_$A($C($L("A1B")))
F31 S VCOMP=VCOMP_$L($E($E("ABC",1,3),+$T(F31),3))
F40 S VCOMP=VCOMP_$F("12345",$L($E($P("ABCDE","B",2),1,"3")))
F41 S VCOMP=VCOMP_$F($P($E("12345",$F("A","B"),$L("ABCD")),0,1),"3")
F50 S VCOMP=VCOMP_$E($E($E($E($E("ABCD5",1,5),1,5),1,5),1,5),5)
F51 S VCOMP=VCOMP_$L($J($C($E($P("PQR64","P",2),$L(123),4),6_$L("ABCDE")),5))
F60 S VCOMP=VCOMP_$L($E($E($E($E($E($P("123#ABCDEF","#",2),1,6),1,6),1,6),1,6),1,6))
 S ^VCOMP=VCOMP,^VCORR="223344556" D ^VEXAMINE
 ;
END W !!,"End of 29 --- V3NST2",!
 K  K ^V1ID Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
D6611 S V=V_I_J_" " Q
 ;
D1 S V=V_1 D D2 Q
D2 S V=V_2 D D3 Q
D3 S V=V_3 D D4 Q
D4 S V=V_4 D D5 Q
D5 S V=V_5 D D6 Q
D6 S V=V_6 D D7 Q
D7 S V=V_7 D D8 Q
D8 S V=V_8 D D9 Q
D9 S V=V_9 D D10 Q
D10 S V=V_10 D D11 Q
D11 S V=V_11 D D12 Q
D12 S V=V_12 D D13 Q
D13 S V=V_13 D D14 Q
D14 S V=V_14 D D15 Q
D15 S V=V_15 D D16 Q
D16 S V=V_16 D D17 Q
D17 S V=V_17 D D18 Q
D18 S V=V_18 D D19 Q
D19 S V=V_19 D D20 Q
D20 S V=V_20 D D21 Q
D21 S V=V_21 D D22 Q
D22 S V=V_22 D D23 Q
D23 S V=V_23 D D24 Q
D24 S V=V_24 D D25 Q
D25 S V=V_25 D D26 Q
D26 S V=V_26 D D27 Q
D27 S V=V_27 D D28 Q
D28 S V=V_28 Q
 ;
D6612 S V=V_I_J_" "

V3NST3
V3NST3 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;NESTING LEVEL -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"       Moved from V1NST3"
 W !!,"30---V3NST3: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -3-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 29 levels of nesting are required."
 W !,"Admitted nesting levels are indicated by the number in each test.",!
 ;
1 W !,"I,III-346  Effect of GOTO on nesting"
 S ^ABSN="30346",^ITEM="I,III-346  Local GOTO"
 S ^NEXT="2^V3NST3,V3SVS^VV3" D ^V3PRESET
 S V=""
 GOTO G1
G6601 S ^VCOMP=V,^VCORR="1234567891011121314151617181920212223242526272829" D ^VEXAMINE
 ;
2 S ^ABSN="30347",^ITEM="I,III-347  External GOTO"
 S ^NEXT="3^V3NST3,V3SVS^VV3" D ^V3PRESET
 S V=""
 G G1^V3NSTE
G6602 S ^VCOMP=V,^VCORR="G1G2G3G4G5G6G7G8G9G10G11G12G13G14G15G16G17G18G19G20G21G22G23G24G25G26G27G28G29" D ^VEXAMINE
 ;
3 W !,"I,III-348  Effect of QUIT on nesting"
 S ^ABSN="30348",^ITEM="I,III-348  Effect of QUIT on nesting"
 S ^NEXT="V3SVS^VV3" D ^V3PRESET
 S V=""
 F I=1:1:3 F J=1:1:4 D D6611
 S V=V_"/"
 F K=1:1:2 F I=1:1:3 F J=1:1:4 D D6611
 S V=V_"/"
 F I=1:1:3 F J=1:1:4 D D6612
 S V=V_"/"
 F K=1:1:2 F I=1:1:3 F J=1:1:4 D D6612
 S ^VCOMP=V
 S ^VCORR="11 12 13 14 21 22 23 24 31 32 33 34 /11 12 13 14 21 22 23 24 31 32 33 34 11 12 13 14 21 22 23 24 31 32 33 34 /11 12 13 14 21 22 23 24 31 32 33 34 /11 12 13 14 21 22 23 24 31 32 33 34 11 12 13 14 21 22 23 24 31 32 33 34 " D ^VEXAMINE
 ;
END W !!,"End of 30 --- V3NST3",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
D6611 S V=V_I_J_" " Q
 ;
GOTO ;nesting GOTO command
GG1 S V=V_"G1" G G2^V3NSTE
GG2 S V=V_"G2" G G3^V3NSTE
GG3 S V=V_"G3" G G4^V3NSTE
GG4 S V=V_"G4" G G5^V3NSTE
GG5 S V=V_"G5" G G6^V3NSTE
GG6 S V=V_"G6" G G7^V3NSTE
GG7 S V=V_"G7" G G8^V3NSTE
GG8 S V=V_"G8" G G9^V3NSTE
GG9 S V=V_"G9" G G10^V3NSTE
GG10 S V=V_"G10" G G11^V3NSTE
GG11 S V=V_"G11" G G12^V3NSTE
GG12 S V=V_"G12" G G13^V3NSTE
GG13 S V=V_"G13" G G14^V3NSTE
GG14 S V=V_"G14" G G15^V3NSTE
GG15 S V=V_"G15" G G16^V3NSTE
GG16 S V=V_"G16" G G17^V3NSTE
GG17 S V=V_"G17" G G18^V3NSTE
GG18 S V=V_"G18" G G19^V3NSTE
GG19 S V=V_"G19" G G20^V3NSTE
GG20 S V=V_"G20" G G21^V3NSTE
GG21 S V=V_"G21" G G22^V3NSTE
GG22 S V=V_"G22" G G23^V3NSTE
GG23 S V=V_"G23" G G24^V3NSTE
GG24 S V=V_"G24" G G25^V3NSTE
GG25 S V=V_"G25" G G26^V3NSTE
GG26 S V=V_"G26" G G27^V3NSTE
GG27 S V=V_"G27" G G28^V3NSTE
GG28 S V=V_"G28" G G29^V3NSTE
GG29 S V=V_"G29" G G6602
 ;
G15 S V=V_15 G G16
G14 S V=V_14 G G15
G29 S V=V_29 G G6601
G1 S V=V_1 G G2
G16 S V=V_16 G G17
G20 S V=V_20 G G21
G3 S V=V_3 G G4
G17 S V=V_17 G G18
G5 S V=V_5 G G6
G28 S V=V_28 G G29
G19 S V=V_19 G G20
G23 S V=V_23 G G24
G6 S V=V_6 G G7
G27 S V=V_27 G G28
G7 S V=V_7 G G8
G21 S V=V_21 G G22
G13 S V=V_13 G G14
G8 S V=V_8 G G9
G22 S V=V_22 G G23
G18 S V=V_18 G G19
G24 S V=V_24 G G25
G2 S V=V_2 G G3
G4 S V=V_4 G G5
G25 S V=V_25 G G26
G26 S V=V_26 G G27
G11 S V=V_11 G G12
G9 S V=V_9 G G10
G12 S V=V_12 G G13
G10 S V=V_10 G G11
 ;
D1 S V=V_1 D D2 Q
D2 S V=V_2 D D3 Q
D3 S V=V_3 D D4 Q
D4 S V=V_4 D D5 Q
D5 S V=V_5 D D6 Q
D6 S V=V_6 D D7 Q
D7 S V=V_7 D D8 Q
D8 S V=V_8 D D9 Q
D9 S V=V_9 D D10 Q
D10 S V=V_10 D D11 Q
D11 S V=V_11 D D12 Q
D12 S V=V_12 D D13 Q
D13 S V=V_13 D D14 Q
D14 S V=V_14 Q
 ;
D6612 S V=V_I_J_" "

V3NSTE
V3NSTE ;IW-KO-YS-TS,V3NST1/2/3,MVTS V9.10;15/6/96;USING BY <V3NST1, 2, 3>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 ;
GOTO ;nesting GOTO command
G1 S V=V_"G1" G GG2^V3NST3
G2 S V=V_"G2" G GG3^V3NST3
G3 S V=V_"G3" G GG4^V3NST3
G4 S V=V_"G4" G GG5^V3NST3
G5 S V=V_"G5" G GG6^V3NST3
G6 S V=V_"G6" G GG7^V3NST3
G7 S V=V_"G7" G GG8^V3NST3
G8 S V=V_"G8" G GG9^V3NST3
G9 S V=V_"G9" G GG10^V3NST3
G10 S V=V_"G10" G GG11^V3NST3
G11 S V=V_"G11" G GG12^V3NST3
G12 S V=V_"G12" G GG13^V3NST3
G13 S V=V_"G13" G GG14^V3NST3
G14 S V=V_"G14" G GG15^V3NST3
G15 S V=V_"G15" G GG16^V3NST3
G16 S V=V_"G16" G GG17^V3NST3
G17 S V=V_"G17" G GG18^V3NST3
G18 S V=V_"G18" G GG19^V3NST3
G19 S V=V_"G19" G GG20^V3NST3
G20 S V=V_"G20" G GG21^V3NST3
G21 S V=V_"G21" G GG22^V3NST3
G22 S V=V_"G22" G GG23^V3NST3
G23 S V=V_"G23" G GG24^V3NST3
G24 S V=V_"G24" G GG25^V3NST3
G25 S V=V_"G25" G GG26^V3NST3
G26 S V=V_"G26" G GG27^V3NST3
G27 S V=V_"G27" G GG28^V3NST3
G28 S V=V_"G28" G GG29^V3NST3
G29 S V=V_"G29" G G6602^V3NST3
 ;
DO ;DO command nesting
D1 S V=V_"E1" D ED2^V3NST1 Q
D2 S V=V_"E2" D ED3^V3NST1 Q
D3 S V=V_"E3" D ED4^V3NST1 Q
D4 S V=V_"E4" D ED5^V3NST1 Q
D5 S V=V_"E5" D ED6^V3NST1 Q
D6 S V=V_"E6" D ED7^V3NST1 Q
D7 S V=V_"E7" D ED8^V3NST1 Q
D8 S V=V_"E8" D ED9^V3NST1 Q
D9 S V=V_"E9" D ED10^V3NST1 Q
D10 S V=V_"E10" D ED11^V3NST1 Q
D11 S V=V_"E11" D ED12^V3NST1 Q
D12 S V=V_"E12" D ED13^V3NST1 Q
D13 S V=V_"E13" D ED14^V3NST1 Q
D14 S V=V_"E14" D ED15^V3NST1 Q
D15 S V=V_"E15" D ED16^V3NST1 Q
D16 S V=V_"E16" D ED17^V3NST1 Q
D17 S V=V_"E17" D ED18^V3NST1 Q
D18 S V=V_"E18" D ED19^V3NST1 Q
D19 S V=V_"E19" D ED20^V3NST1 Q
D20 S V=V_"E20" D ED21^V3NST1 Q
D21 S V=V_"E21" D ED22^V3NST1 Q
D22 S V=V_"E22" D ED23^V3NST1 Q
D23 S V=V_"E23" D ED24^V3NST1 Q
D24 S V=V_"E24" D ED25^V3NST1 Q
D25 S V=V_"E25" D ED26^V3NST1 Q
D26 S V=V_"E26" D ED27^V3NST1 Q
D27 S V=V_"E27" D ED28^V3NST1 Q
D28 S V=V_"E28" D ED29^V3NST1 Q
D29 S V=V_"E29" Q
 Q
 ;
ED1 S V=V_"D1 " Q
ED2 S V=V_"D2 " Q
ED3 S V=V_"D3 " Q
ED4 S V=V_"D4 " Q
ED5 S V=V_"D5 " Q
ED6 S V=V_"D6 " Q
ED7 S V=V_"D7 " Q
ED8 S V=V_"D8 " Q
ED9 S V=V_"D9 " Q
ED10 S V=V_"D10 " Q
ED11 S V=V_"D11 " Q
ED12 S V=V_"D12 " Q
ED13 S V=V_"D13 " Q
ED14 S V=V_"D14 " Q
ED15 S V=V_"D15 " Q
ED16 S V=V_"D16 " Q
ED17 S V=V_"D17 " Q
ED18 S V=V_"D18 " Q
ED19 S V=V_"D19 " Q
ED20 S V=V_"D20 " Q
ED21 S V=V_"D21 " Q
ED22 S V=V_"D22 " Q
ED23 S V=V_"D23 " Q
ED24 S V=V_"D24 " Q
ED25 S V=V_"D25 " Q
ED26 S V=V_"D26 " Q
ED27 S V=V_"D27 " Q
ED28 S V=V_"D28 " Q
ED29 S V=V_"D29 " Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
J2 D J3 Q
JJJ F K=1:1:2 Q:Z  F L=1:1:2 Q:Z  F K0=1:1:2 Q:Z  F L0=1:1:2 Q:Z  D J2
 Q
J3 D J4 Q
J4 X MMM

V3SVS
V3SVS ;IW-YS-KO-TS,VV3,MVTS V9.10;15/6/96;SPECIAL VARIABLE $STORAGE
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"31---V3SVS: Special variable $STORAGE",!
V3797 W !,"I,III-349  Partition size for assurance of routine transferability (5000 Byte)"
 S ^ABSN="30349",^ITEM="I,III-349  Partition size for assurance of routine transferability (5000 Byte)"
 S ^NEXT="V3SSUB^VV3" D ^V3PRESET
 K
 S ^VCOMP=$S<3200
 S ^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 31 --- V3SVS",!
 K  Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3SSUB
V3SSUB ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;HANG COMMAND  SUB DRIVER
 ;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1984-1996
V3SSUB1 W !!,"32---V3SSUB1" D ^V3SSUB1
V3SSUB2 W !!,"33---V3SSUB2" D ^V3SSUB2
 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3SSUB1
V3SSUB1 ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;STRING SUBSCRIPT -1-
 ;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1984-1996
 W !!,"       Moved from V2SSUB1"
 W !!,"32---V3SSUB1: String subscript -1-",!
 ;
1 W !,"II,III-350  Length of one subscript of a local variable is 63 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30350",^ITEM="II,III-350  Length of one subscript of a local variable is 63 (max)"
 S ^NEXT="2^V3SSUB1,V3SSUB2^V3SSUB,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ABC("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=1
 S VCOMP=ABC("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")
 S ABC("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=MAX
 S VCOMP=VCOMP_(ABC("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=MAX) K ABC
 S ^VCOMP=VCOMP,^VCORR="11" D ^VEXAMINE
 ;
2 W !,"II,III-351  Total length of a local variable is 127 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30351",^ITEM="II,III-351  Total length of a local variable is 127 (max)"
 S ^NEXT="3^V3SSUB1,V3SSUB2^V3SSUB,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ABCDEFGH("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO")=2
 S VCOMP=ABCDEFGH("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO")
 S ABCDEFGH("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO")=MAX
 S VCOMP=VCOMP_(ABCDEFGH("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO")=MAX) K ABCDEFGH
 S ^VCOMP=VCOMP,^VCORR="21" D ^VEXAMINE
 ;
3 W !,"II,III-352  Length of one subscript of a global variable is 63 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30352",^ITEM="II,III-352  Length of one subscript of a global variable is 63 (max)"
 S ^NEXT="4^V3SSUB1,V3SSUB2^V3SSUB,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ^VV("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=3
 S VCOMP=^VV("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")
 S ^VV("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=MAX
 S VCOMP=VCOMP_(^VV("ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'ABCDEFGHIJKLMNOPQRSTUVWXYZ#$%&'2")=MAX)
 S ^VCOMP=VCOMP,^VCORR="31" D ^VEXAMINE K ^VV
 ;
4 W !,"II,III-353  Total length of a global variable is 127 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30353",^ITEM="II,III-353  Total length of a global variable is 127 (max)"
 S ^NEXT="V3SSUB2^V3SSUB,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ^VV("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","BCDE")=4
 S VCOMP=^VV("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","BCDE")
 S ^VV("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","BCDE")=MAX
 S VCOMP=VCOMP_(^VV("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","BCDE")=MAX)
 S ^VCOMP=VCOMP,^VCORR="41" D ^VEXAMINE K ^VV
 ;
END W !!,"End of 32 --- V3SSUB1",!
 K  K ^VV Q
 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3SSUB2
V3SSUB2 ;IW-KO-TS,VV3,MVTS V9.10;15/6/96;STRING SUBSCRIPT -2-
 ;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1984-1996
 W !!,"       Moved from V2SSUB2"
 W !!,"33---V3SSUB2: String subscript -2-",!
 ;
1 W !,"II,III-354  Naked reference when the total length of global variable is 127 characters (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30354",^ITEM="II,III-354  Naked reference when the total length of global variable is 127 characters (max)"
 S ^NEXT="2^V3SSUB2,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ^VV("ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","ABCDEFGHIJKLMNO","BCDE")=MAX
 S ^("GHIJ")=5,VCOMP=^("GHIJ"),^("GHIJ")=MAX,VCOMP=VCOMP_(^("GHIJ")=^("BCDE"))
 S ^VCOMP=VCOMP,^VCORR="51" D ^VEXAMINE K ^VV
 ;
2 W !,"II,III-355  Minimum (-.999999999999E25) to maximum (.999999999999E25) number of one subscript of local variable"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30355",^ITEM="II,III-355  Minimum (-.999999999999E25) to maximum (.999999999999E25) number of one subscript of local variable"
 S ^NEXT="3^V3SSUB2,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S A(-.999999999999E25)=6,A(-999999999999E-25)=7,A(999999999999E-25)=8,A(.999999999999E25)=9
 SET VCOMP=A(-.999999999999E+25)_A(-999999999999E-25)_A(999999999999E-25)_A(.999999999999E+25)
 S ^VCOMP=VCOMP,^VCORR="6789" D ^VEXAMINE
 ;
3 W !,"II,III-356  Minimum (-.999999999999E25) to maximum (.999999999999E25) number of one subscript of global variable"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30356",^ITEM="II,III-356  Minimum (-.999999999999E25) to maximum (.999999999999E25) number of one subscript of global variable"
 S ^NEXT="4^V3SSUB2,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S ^VV(-.999999999999E25)=10,^VV(-999999999999E-25)=11,^VV(999999999999E-25)=12,^VV(.999999999999E25)=13
 S VCOMP=^VV(-.999999999999E+25)_^VV(-999999999999E-25)_^VV(999999999999E-25)_^VV(.999999999999E+25)
 S ^VCOMP=VCOMP,^VCORR="10111213" D ^VEXAMINE K ^VV
 ;
4 W !,"II,III-357  Total number of local variable subscripts is 42 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30357",^ITEM="II,III-357  Total number of local variable subscripts is 42 (max)"
 S ^NEXT="5^V3SSUB2,V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S A("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=14
 S VCOMP=A("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")
 S A("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=MAX
 S VCOMP=VCOMP_(A("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=MAX)
 S ^VCOMP=VCOMP,^VCORR="141" D ^VEXAMINE
 ;
5 W !,"II,III-358  Total number of global variable subscripts is 42 (max)"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="30358",^ITEM="II,III-358  Total number of global variable subscripts is 42 (max)"
 S ^NEXT="V3JOB^VV3" D ^V3PRESET
 S VCOMP="" S MAX="#" F I=0:2:252 S MAX=MAX_"QW"
 S ^V("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=15
 S ^("q")=16
 S VCOMP=^V("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")
 S VCOMP=VCOMP_^("q")
 S ^V("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=MAX
 S ^("q")=MAX
 S VCOMP=VCOMP_(^V("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p")=MAX)
 S VCOMP=VCOMP_(^("q")=MAX)
 S ^VCOMP=VCOMP,^VCORR="151611" D ^VEXAMINE K ^V
 ;
END W !!,"End of 33 --- V3SSUB2",!
 K  K ^VV,^V Q
 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3JOB
V3JOB ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"34---V3JOB: JOB command",!
 ;
1 S ^ABSN="30359",^ITEM="III-359  JOB ^routinename"
 S ^NEXT="2^V3JOB,V3LOCK^VV3" D ^V3PRESET
 K ^V3JOB S V3JOB=1
 JOB ^V3JOBEXA
 F I=1:1:100 Q:$D(^V3JOB)=1  H 1
 I $D(^V3JOB)=0 S ^V3JOB="JOB ERROR"
 S ^VCOMP=V3JOB_"/"_(^V3JOB=$J)
 S ^VCORR="1/0" D ^VEXAMINE
 ;
2 S ^ABSN="30360",^ITEM="III-360  J label^routinename"
 S ^NEXT="3^V3JOB,V3LOCK^VV3" D ^V3PRESET
 K ^V3JOB S V3JOB=2
 J B^V3JOBEXA
 F I=1:1:100 Q:$D(^V3JOB)=1  H 1
 I $D(^V3JOB)=0 S ^V3JOB="JOB ERROR"
 S ^VCOMP=V3JOB_"/"_(^V3JOB="OK")
 S ^VCORR="2/1" D ^VEXAMINE
 ;
3 S ^ABSN="30361",^ITEM="III-361  JOB label"
 S ^NEXT="4^V3JOB,V3LOCK^VV3" D ^V3PRESET
 K ^V3JOB S V3JOB=3
 JOB B
 F I=1:1:100 Q:$D(^V3JOB)=1  H 1
 I $D(^V3JOB)=0 S ^V3JOB="JOB ERROR"
 S ^VCOMP=V3JOB_"/"_(^V3JOB="OK")
 S ^VCORR="3/1" D ^VEXAMINE
 ;
 W !!,"Simultaneous evoking of the same routine",!
 ;
4 S ^ABSN="30362",^ITEM="III-362  JOB ^V3A J ^V3A"
 S ^NEXT="V3LOCK^VV3" D ^V3PRESET
 K ^V3JOB S V3JOB=4 S ^VCOMP=1,^V3JOB=1 L
 JOB ^V3A
 J ^V3A
 F I=1:1:100 L ^V3JOB  Q:^V3JOB>1000  L  H 1
 S ^VCORR="12121212121212121212121212121212121212121" D ^VEXAMINE
 K ^V3JOB  L
 ;
END W !!,"End of 34 --- V3JOB",!
 K  Q
 ;
B S V3JOB="LVN ERROR"
 S ^V3JOB="OK"
 H
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3JOBEXA
V3JOBEXA ;IW-KO-YS-TS,V3JOB,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
A S V3JOB="LVN ERROR"
 S ^V3JOB=$J
 H
 ;
B S V3JOB="LVN ERROR"
 S ^V3JOB="OK"
 H
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3A
V3A ;IW-KO-YS-TS,V3JOB,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 S FLAG=0
 L ^V3JOB
 S V3JOB=^V3JOB,^V3JOB=^V3JOB+1
 L
 F I=1:1 D AA Q:FLAG=1
 L ^V3JOB
 S ^V3JOB=^V3JOB*100
 L  H
 ;
AA L ^VCOMP
 I $L(^VCOMP)>40 S FLAG=1 L  Q
 I $E(^VCOMP,$L(^VCOMP))'=V3JOB S ^VCOMP=^VCOMP_V3JOB L  H .1
 L
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCK
V3LOCK ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 SUB-DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
V3LOCK1 W !!,"35---V3LOCK1" D ^V3LOCK1
V3LOCK2 W !!,"36---V3LOCK2" D ^V3LOCK2
 ;
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCK1
V3LOCK1 ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"35---V3LOCK1: +- LOCK command -1-",!
 ;
1 S ^ABSN="30363",^ITEM="III-363  LOCK +nref"
 S ^NEXT="2^V3LOCK1,V3LOCK2^V3LOCK,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0
 LOCK ^VA
 JOB ^V3LOCKA
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=2
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="20 1" D ^VEXAMINE K ^VA,^VB,^VF L
 ;
2 S ^ABSN="30364",^ITEM="III-364  LOCK -nref"
 S ^NEXT="3^V3LOCK1,V3LOCK2^V3LOCK,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0
 LOCK (^VA,^VB,^VC)
 JOB ^V3LOCKB
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=3
 LOCK -^VA
 S ^VB=5
 LOCK -^VB
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="30 150" D ^VEXAMINE K ^VA,^VB,^VC,^VF L
 ;
3 S ^ABSN="30365",^ITEM="III-365  LOCK +(nref)"
 S ^NEXT="4^V3LOCK1,V3LOCK2^V3LOCK,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0
 LOCK ^VA
 JOB ^V3LOCKA
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=2
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="20 1" D ^VEXAMINE K ^VA,^VB,^VF L
 ;
4 S ^ABSN="30366",^ITEM="III-366  LOCK -(nref)"
 S ^NEXT="5^V3LOCK1,V3LOCK2^V3LOCK,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0
 LOCK (^VA,^VB,^VC)
 JOB ^V3LOCKB H 2
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=3
 LOCK -^VA
 S ^VB=5
 LOCK -^VB
 L ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="30 150" D ^VEXAMINE K ^VA,^VB,^VC,^VF L
 ;
5 S ^ABSN="30367",^ITEM="III-367  LOCK +(^VA,^VB,^VC)"
 S ^NEXT="6^V3LOCK1,V3LOCK2^V3LOCK,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=0,^VB=10,^VC=100,^VF=0
 LOCK (^VB,^VC)
 JOB ^V3LOCKC
 F I=1:1:100 Q:^VF=1  H 1
 S ^VA=1
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VC
 S ^VCORR="111 10 100" D ^VEXAMINE K ^VA,^VB,^VC,^VF L
 ;
6 S ^ABSN="30368",^ITEM="III-368  LOCK -(^VA,^VB,^VC)"
 S ^NEXT="V3LOCK2^V3HANG,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=10,^VC=100,^VE=0
 LOCK (^VA,^VB,^VC,^VD)
 JOB ^V3LOCKD H 2
 F I=1:1:100 Q:^VE=1  H 1
 S ^VA=2
 LOCK -(^VA,^VB,^VC)
 S ^VB=20
 LOCK -^VD
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VC
 S ^VCORR="122 20 100" D ^VEXAMINE K ^VA,^VB,^VC,^VD,^VE L
 ;
END W !!,"End of 35 --- V3LOCK1",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;

V3LOCK2
V3LOCK2 ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"36---V3LOCK2: +- LOCK command -2-"
 W !!,"LOCK with timeout",!
 ;
1 S ^ABSN="30369",^ITEM="III-369  LOCK +nref:timeout"
 S ^NEXT="2^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0,^VE="TIMEOUT-ERROR"
 LOCK ^VA
 JOB ^V3LOCKAT
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=2
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VE
 S ^VCORR="2 1" D ^VEXAMINE K ^VA,^VB,^VE L
 ;
2 S ^ABSN="30370",^ITEM="III-370  LOCK -nref:timeout"
 S ^NEXT="3^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0,^VE=""
 LOCK (^VA,^VB,^VC)
 JOB ^V3LOCKB
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=3
 LOCK -^VA:3 S ^VE=^VE_$T_"/"
 S ^VB=5
 LOCK -^VB:3 S ^VE=^VE_$T_"/"
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VE
 S ^VCORR="30 150 1/1/" D ^VEXAMINE K ^VA,^VB,^VE L
 ;
3 S ^ABSN="30371",^ITEM="III-371  LOCK +(nref):timeout"
 S ^NEXT="4^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0,^VE="TIMEOUT-ERROR"
 LOCK
 JOB ^V3LOCKAA
 F I=1:1:100 Q:^VB=1  H 1
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VE
 S ^VCORR="2 1" D ^VEXAMINE K ^VA,^VB,^VE L
 ;
4 S ^ABSN="30372",^ITEM="III-372  LOCK -(nref):timeout"
 S ^NEXT="5^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=0,^VE=""
 LOCK (^VA,^VB,^VC)
 JOB ^V3LOCKB
 F I=1:1:100 Q:^VB=1  H 1
 S ^VA=3
 LOCK -(^VA):3 S ^VE=^VE_$T_"/"
 S ^VB=5
 LOCK -(^VB):3 S ^VE=^VE_$T_"/"
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VE
 S ^VCORR="30 150 1/1/" D ^VEXAMINE K ^VA,^VB,^VE L
 ;
5 S ^ABSN="30373",^ITEM="III-373  LOCK +(^VA,^VB,^VC):timeout"
 S ^NEXT="6^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=10,^VC=100,^VD=0
 LOCK (^VB,^VC)
 JOB ^V3LOCKCT
 F I=1:1:100 Q:^VD=1  H 1
 S ^VB=20
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VC
 S ^VCORR="121/1/ 20 100" D ^VEXAMINE K ^VA,^VB,^VC,^VD L
 ;
6 S ^ABSN="30374",^ITEM="III-374  LOCK -(^VA,^VB,^VC):timeout"
 S ^NEXT="7^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=10,^VC=100,^VD=1000,^VE=0,^VF=0
 LOCK (^VA,^VB,^VC,^VD)
 JOB V3LOCKDT^V3LOCKD
 F I=1:1:100 Q:^VE=1  H 1
 S ^VA=3
 LOCK -(^VA,^VB,^VC):10 s ^VF=$T
 S ^VB=10
 LOCK -^VD
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VC_" "_^VD_" "_^VE_" "_^VF
 S ^VCORR="1113 10 100 1000 1 1" D ^VEXAMINE K ^VA,^VB,^VC,^VD,^VE,^VF L
 ;
7 S ^ABSN="30375",^ITEM="III-375  LOCK +^VA,+^VA,+^VA"
 S ^NEXT="8^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K  L
 S ^VA=2,^VB=0
 JOB V3LOCKMA^V3LOCKA
 F I=1:1:100 Q:^VB=1  H 1
 LOCK ^VA
 S ^VA=^VA+2
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="2002 1" D ^VEXAMINE K ^VA,^VB L
 ;
8 S ^ABSN="30376",^ITEM="III-376  LOCK +(^VA,^VA,^VA)"
 S ^NEXT="9^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K  L
 S ^VA=2,^VB=0
 JOB V3LOCKMB^V3LOCKA
 F I=1:1:100 Q:^VB=1  H 1
 LOCK ^VA
 LOCK ^VA S ^VA=^VA+2
 LOCK ^VF
 S ^VCOMP=^VA_" "_^VB
 S ^VCORR="2002 1" D ^VEXAMINE K ^VA,^VB L
 ;
9 S ^ABSN="30377",^ITEM="III-377  LOCK -^VA,-^VA,-^VA"
 S ^NEXT="10^V3LOCK2,V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=10,^VC=0,^VE=0
 LOCK (^VA,^VB)
 JOB V3LOCKMD^V3LOCKD
 F I=1:1:100 Q:^VE=1  H 1
 S ^VA=3
 LOCK -^VA,-^VA,-^VA
 S ^VB=5
 LOCK -^VB
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VE
 S ^VCORR="35 5 1" D ^VEXAMINE K ^VA,^VB,^VC L
 ;
10 S ^ABSN="30378",^ITEM="III-378  LOCK -(^VA,^VA,^VA)"
 S ^NEXT="V3INDNM^VV3" D ^V3PRESET K
 S ^VA=1,^VB=10,^VC=0,^VE=0
 LOCK (^VA,^VB)
 JOB V3LOCKMD^V3LOCKD
 F I=1:1:100 Q:^VE=1  H 1
 S ^VA=3
 LOCK -(^VA,^VA,^VA)
 S ^VB=5
 LOCK -^VB
 L ^VF
 S ^VCOMP=^VA_" "_^VB_" "_^VE
 S ^VCORR="35 5 1" D ^VEXAMINE K ^VA,^VB,^VC L
 ;
END W !!,"End of 36 --- V3LOCK2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKA
V3LOCKA ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK (^VB,^VF)
 S ^VB=1
 LOCK +^VA
 S ^VA=^VA*10
 LOCK
 H
 ;
V3LOCKMA ;
 LOCK ^VF
 LOCK +^VA,+^VA,+^VA
 S ^VB=1
 S ^VA=^VA*10 LOCK -^VA H 1
 S ^VA=^VA*10 LOCK -^VA H 1
 S ^VA=^VA*10 LOCK -^VA H 1
 LOCK
 H
 ;
V3LOCKMB ;
 LOCK ^VF
 LOCK +(^VA,^VA,^VA)
 S ^VB=1
 S ^VA=^VA*10 LOCK -^VA H 1
 S ^VA=^VA*10 LOCK -^VA H 1
 S ^VA=^VA*10 LOCK -^VA H 1
 LOCK
 H
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKB
V3LOCKB ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VB=1
 LOCK +^VA
 S ^VA=^VA*10
 LOCK +^VB
 S ^VB=^VA*^VB
 LOCK
 H
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKC
V3LOCKC ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VF=1
 LOCK +(^VA,^VB,^VC)
 S ^VA=^VA+^VB+^VC
 LOCK
 H
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKD
V3LOCKD ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VE=1
 LOCK +(^VB,^VD,^VC)
 S ^VA=^VA+^VB+^VC
 LOCK
 H
 ;
V3LOCKDT ;
 LOCK ^VF
 S ^VE=1
 LOCK +(^VB,^VD,^VC,^VE)
 S ^VA=^VA+^VB+^VC+^VD
 LOCK
 H
 ;
V3LOCKMD ;
 LOCK ^VF
 S ^VE=1
 LOCK +^VA
 S ^VA=^VA*10
 LOCK +^VB
 S ^VA=^VA+^VB
 LOCK
 HALT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKAT
V3LOCKAT ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VB=1 I 1
 LOCK +^VA:3 S ^VE=$T
 LOCK
 H
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKAA
V3LOCKAA ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VB=1 I 1
 LOCK +(^VA):3 S ^VE=$T
 S ^VA=2
 LOCK
 H
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3LOCKCT
V3LOCKCT ;IW-KO-YS-TS,V3LOCK,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 LOCK ^VF
 S ^VD=1
 LOCK +(^VA,^VB,^VC):300
 S ^VA=^VA+^VB+^VC,^VA=^VA_"/"_$T_"/"
 LOCK
 H
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3INDNM
V3INDNM ;IW-KO-YS-TS,V3GET,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 ;
 W !!,"       Moved from V1IDNM3"
 W !!,"37---V3INDNM: Name level indirection"
 ;
1 W !!,"$ORDER(@expratom)",!
 W !,"I,III-30379  Indirection of $ORDER argument"
 S ^ABSN="30379",^ITEM="I,III-30379  Indirection of $ORDER argument"
 S ^NEXT="2^V3INDNM,V3QUERY^VV3" D ^V3PRESET
 ;Rev. ANSI 84 20/8/92
 D NEXT
 S B="^V1A(0)",C="^(1)",D="^(22,1)",E="^V1A(X)",X=30
 S F="^V1A(1000)",G="^V1A(2000)"
 S ^VCOMP=$ORDER(@B)_" "_$O(@C)_" "_$O(@D)_" "_$O(@E)_" "_$O(@F)_" "_$O(@G)
 S ^VCORR="1 22 44 100  " D ^VEXAMINE k ^V1A
 ;
2 W !,"I,III-30380  Indirection of subscript"
 S ^ABSN="30380",^ITEM="I,III-30380  Indirection of subscript"
 S ^NEXT="3^V3INDNM,V3QUERY^VV3" D ^V3PRESET
 ;Rev. ANSI 84 20/8/92
 D NEXT S A="A1",A1=0,B(1)="B(2)",B(2)=10,C="^V1A(@C(1))",C(1)="C(2)",C(2)=23
 S D="D(1)",D(1)="500"
 S ^VCOMP=$ORDER(^V1A(@A))_" "_$O(^(@B(1)))_" "_$O(^(22,@B(1)))_" "
 S ^VCOMP=^VCOMP_$O(@C)_" "_$O(^V1A(@D+@D))_" "_$O(^V1A(1000+1000))
 S ^VCORR="1 22 44 100  " D ^VEXAMINE K ^V1A
 ;
3 W !,"I,III-30381  Indirection of naked reference"
 S ^ABSN="30381",^ITEM="I,III-30381  Indirection of naked reference"
 S ^NEXT="4^V3INDNM,V3QUERY^VV3" D ^V3PRESET
 ;Rev. ANSI 84 20/8/92
 D NEXT S ^VCOMP=""
 S A="^(2)",B="^(22,"""")",C="^(44)"
 S ^VCOMP=$O(^V1A(""))_" "_$O(@A)_" "_$O(@B)_" "_$O(@C)
 S ^VCORR="0 22 44 66" D ^VEXAMINE K ^V1A
 ;
4 W !,"I,III-30382  2 levels of indirection"
 S ^ABSN="30382",^ITEM="I,III-30382  2 levels of indirection"
 S ^NEXT="5^V3INDNM,V3QUERY^VV3" D ^V3PRESET
 ;Rev. ANSI 84 20/8/92
 D NEXT S ^VCOMP=""
 S A="^V1A(@A(1))",A(1)="A(2)",A(2)="",B="@V1A(20)",V1A(20)="^V1A(500)"
 S C="C(1)",C(1)="^V1A(22,44,"""")"
 S ^VCOMP=$O(@A)_" "_$O(@B)_" "_$O(@@C)
 S ^VCORR="0 1000 66" D ^VEXAMINE K ^V1A
 ;
5 W !,"I,III-30383  3 levels of indirection"
 S ^ABSN="30383",^ITEM="I,III-30383  3 levels of indirection"
 S ^NEXT="V3QUERY^VV3" D ^V3PRESET
 ;Rev. ANSI 84 20/8/92
 D NEXT S ^VCOMP=""
 S A(0)="A(1)",A(1)="A(2)",A(2)="^V1A(1000,A(3))",A(3)=20
 S B(100)="@B(200)",B(200)="@B(300)",B(300)="^V1A(22,44,50)",B(4)=100
 S ^VCOMP=$O(@@@A(0))_" "_$O(@B(B(4)))
 S ^VCORR="1000 66" D ^VEXAMINE K ^V1A
 ;
END W !!,"End of 37 --- V3INDNM",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
NEXT K ^V1A
 S ^V1A(0)=0,^(1)=1,^V1A(1,1)=11,^V1A(1000,1000)=1000000
 S ^V1A(22,66)=2266,^V1A(22,44,66)=224466,^V1A(100)=100

V3QUERY
V3QUERY ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96; SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"Tests of $QUERY function"
V3Q1 W !!,"38---V3Q1" D ^V3Q1
V3Q2 W !!,"39---V3Q2" D ^V3Q2
V3Q3 W !!,"40---V3Q3" D ^V3Q3
V3Q4 W !!,"41---V3Q4" D ^V3Q4
V3Q5 W !!,"42---V3Q5" D ^V3Q5
V3Q6 W !!,"43---V3Q6" D ^V3Q6
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q1
V3Q1 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"38---V3Q1: $QUERY(glvn) -1-"
 W !!,"$QUERY(lvn)  When p<q and ik=jk for all k in the range (0<k'>p)"
 ;
1 S ^ABSN="30384",^ITEM="III-0384  p=1 and q=2"
 S ^NEXT="2^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a")="",A("a","b")=""
 S ^VCOMP=$QUERY(A("a"))
 S ^VCORR="A(""a"",""b"")" D ^VEXAMINE
 ;
2 S ^ABSN="30385",^ITEM="III-0385  p=1 and q=5"
 S ^NEXT="3^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a")="",A("a","b","c","d","e")=""
 S ^VCOMP=$query(A("a"))
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"")" D ^VEXAMINE
 ;
3 S ^ABSN="30386",^ITEM="III-0386  p=1 and q=10"
 S ^NEXT="4^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a")="",A("a","a","a","a","a","a","a","a","a","a")=""
 S ^VCOMP=$Q(A("a"))
 S ^VCORR="A(""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"")" D ^VEXAMINE
 ;
4 S ^ABSN="30387",^ITEM="III-0387  p=2 and q=3"
 S ^NEXT="5^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b")="",A("a","b","c")=""
 S ^VCOMP=$q(A("a","b"))
 S ^VCORR="A(""a"",""b"",""c"")" D ^VEXAMINE
 ;
5 S ^ABSN="30388",^ITEM="III-0388  p=2 and q=4"
 S ^NEXT="6^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b")="",A("a","b","c","d")=""
 S ^VCOMP=$Q(A("a","b"))
 S ^VCORR="A(""a"",""b"",""c"",""d"")" D ^VEXAMINE
 ;
6 S ^ABSN="30389",^ITEM="III-0389  p=2 and q=10"
 S ^NEXT="7^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","a")="",A("a","a","a","a","a","a","a","a","a","a")=""
 S ^VCOMP=$Q(A("a","a"))
 S ^VCORR="A(""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"")" D ^VEXAMINE
 ;
7 S ^ABSN="30390",^ITEM="III-0390  p=8 and q=9"
 S ^NEXT="8^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c","d","e","f","g","h")=""
 s A("a","b","c","d","e","f","g","h","i")=""
 S ^VCOMP=$Q(A("a","b","c","d","e","f","g","h"))
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"")" D ^VEXAMINE
 ;
8 S ^ABSN="30391",^ITEM="III-0391  p=8 and q=11"
 S ^NEXT="9^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c","d","e","f","g","h")=""
 s A("a","b","c","d","e","f","g","h","i","j","k")=""
 S ^VCOMP=$Q(A("a","b","c","d","e","f","g","h"))
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"")" D ^VEXAMINE
 ;
9 S ^ABSN="30392",^ITEM="III-0392  p=8 and q=20"
 S ^NEXT="10^V3Q1,V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c","d","e","f","g","h")=""
 s A("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t")=""
 S ^VCOMP=$Q(A("a","b","c","d","e","f","g","h","i"))
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"",""l"",""m"",""n"",""o"",""p"",""q"",""r"",""s"",""t"")" D ^VEXAMINE
 ;
10 S ^ABSN="30393",^ITEM="III-0393  Maximum length variable name"
 S ^NEXT="V3Q2^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="abcdefghijklmnop",A(A,A,A,A,A)=A,A(A,A,A,A,A,A,A)=A
 S ^VCOMP=$Q(A(A,A,A,A,A))
 s B="A("""_A_"""" f I=1:1:6 s B=B_","""_A_""""
 s B=B_")"
 S ^VCORR=B D ^VEXAMINE
 ;
END W !!,"End of 38 --- V3Q1",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q2
V3Q2 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"39---V3Q2: $QUERY(glvn) -2-"
 W !!,"$QUERY(lvn)  When p=0 and q<0"
 ;
11 S ^ABSN="30394",^ITEM="III-0394  p=0 and q=1"
 S ^NEXT="12^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="",A("a")=""
 S ^VCOMP=$Q(A)
 S ^VCORR="A(""a"")" D ^VEXAMINE
 ;
12 S ^ABSN="30395",^ITEM="III-0395  p=0 and q=2"
 S ^NEXT="13^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="",A("a","b")=""
 S ^VCOMP=$Q(A)
 S ^VCORR="A(""a"",""b"")" D ^VEXAMINE
 ;
13 S ^ABSN="30396",^ITEM="III-0396  p=0 and q=3"
 S ^NEXT="14^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="",A("a","b","c")=""
 S ^VCOMP=$Q(A)
 S ^VCORR="A(""a"",""b"",""c"")" D ^VEXAMINE
 ;
14 S ^ABSN="30397",^ITEM="III-0397  p=0 and q=7"
 S ^NEXT="15^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="",A("a","b","c","d","e","f","g")=""
 S ^VCOMP=$Q(A)
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"",""f"",""g"")" D ^VEXAMINE
 ;
15 S ^ABSN="30398",^ITEM="III-0398  p=0 and q=10"
 S ^NEXT="16^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c","d",5,6,7,8,9,0)=""
 S ^VCOMP=$Q(A)
 S ^VCORR="A(""a"",""b"",""c"",""d"",5,6,7,8,9,0)" D ^VEXAMINE
 ;
16 S ^ABSN="30399",^ITEM="III-0399  Maximum length variable name"
 S ^NEXT="17^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="abcdefgh",ABCDEFG="",ABCDEFG(A,A,A,A,A,A,A,A,A,A,A,A)=A
 S ^VCOMP=$Q(ABCDEFG)
 s B="ABCDEFG("""_A_"""" f I=1:1:11 s B=B_","""_A_""""
 s B=B_")"
 S ^VCORR=B D ^VEXAMINE
 ;
17 W !!,"When k>0 and k'>min(p,q) and ..."
 ;
 S ^ABSN="30400",^ITEM="III-0400  k=1"
 S ^NEXT="18^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("abcdefgh")="",A("abcdefgi",123)=""
 S ^VCOMP=$Q(A("abcdefgh"))
 S ^VCORR="A(""abcdefgi"",123)" D ^VEXAMINE
 ;
18 S ^ABSN="30401",^ITEM="III-0401  k=2"
 S ^NEXT="19^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","A")="",A("a","a","a")=""
 S ^VCOMP=$Q(A("a","A","a"))
 S ^VCORR="A(""a"",""a"",""a"")" D ^VEXAMINE
 ;
19 S ^ABSN="30402",^ITEM="III-0402  k=3"
 S ^NEXT="20^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","a","a")="",A("a","a","b")=""
 S ^VCOMP=$Q(A("a","a","a"))
 S ^VCORR="A(""a"",""a"",""b"")" D ^VEXAMINE
 ;
20 S ^ABSN="30403",^ITEM="III-0403  k=7"
 S ^NEXT="21^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A(1,2,3,4,5,6,7)=""
 s A(1,2,3,4,5,6,+7.10,8,9,0)=""
 s A(1,2,3,4,5,6,7.2)=""
 S ^VCOMP=$Q(A(1,2,3,4,5,6,7))
 S ^VCORR="A(1,2,3,4,5,6,7.1,8,9,0)" D ^VEXAMINE
 ;
21 S ^ABSN="30404",^ITEM="III-0404  k=12"
 S ^NEXT="22^V3Q2,V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c","d","e","f","g","h","i","j","k","l")=""
 s A("a","b","c","d","e","f","g","h","i","j","k","l1","m")=""
 S ^VCOMP=$Q(A("a","b","c","d","e","f","g","h","i","j","k","l0"))
 S ^VCORR="A(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"",""l1"",""m"")" D ^VEXAMINE
 ;
22 S ^ABSN="30405",^ITEM="III-0405  Maximum length variable name"
 S ^NEXT="V3Q3^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A="x",B="A(A"
 f I=1:1:41 s B=B_",A"
 s B=B_")",@B=A
 s C="A(A"
 f I=1:1:40 s C=C_",A"
 s C=C_",""y"")",@C=A
 S ^VCOMP=$Q(@B)
 s D="A(""x""" f I=1:1:40 s D=D_",""x"""
 s D=D_",""y"")"
 S ^VCORR=D D ^VEXAMINE
 ;
END W !!,"End of 39 --- V3Q2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q3
V3Q3 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"40---V3Q3: $QUERY(glvn) -3-"
 W !!,"$QUERY(gvn)  When p<q and ik=jk for all k in the range (0<k'>p)"
 ;
23 S ^ABSN="30406",^ITEM="III-0406  p=1 and q=2"
 S ^NEXT="24^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a")="",^VV("a","b")=""
 S ^VCOMP=$QUERY(^VV("a"))
 S ^VCORR="^VV(""a"",""b"")" D ^VEXAMINE k ^VV
 ;
24 S ^ABSN="30407",^ITEM="III-0407  p=1 and q=5"
 S ^NEXT="25^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a")="",^VV("a","b","c","d","e")=""
 S ^VCOMP=$query(^VV("a"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"")" D ^VEXAMINE k ^VV
 ;
25 S ^ABSN="30408",^ITEM="III-0408  p=1 and q=10"
 S ^NEXT="26^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a")="",^VV("a","a","a","a","a","a","a","a","a","a")=""
 S ^VCOMP=$Q(^VV("a"))
 S ^VCORR="^VV(""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"")" D ^VEXAMINE k ^VV
 ;
26 S ^ABSN="30409",^ITEM="III-0409  p=2 and q=3"
 S ^NEXT="27^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="",^VV("a","b","c")=""
 S ^VCOMP=$q(^VV("a","b"))
 S ^VCORR="^VV(""a"",""b"",""c"")" D ^VEXAMINE k ^VV
 ;
27 S ^ABSN="30410",^ITEM="III-0410  p=2 and q=4"
 S ^NEXT="28^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b")="",^VV("a","b","c","d")=""
 S ^VCOMP=$Q(^VV("a","b"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"")" D ^VEXAMINE k ^VV
 ;
28 S ^ABSN="30411",^ITEM="III-0411  p=2 and q=10"
 S ^NEXT="29^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","a")="",^VV("a","a","a","a","a","a","a","a","a","a")=""
 S ^VCOMP=$Q(^VV("a","a"))
 S ^VCORR="^VV(""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"",""a"")" D ^VEXAMINE K ^VV
 ;
29 S ^ABSN="30412",^ITEM="III-0412  p=8 and q=9"
 S ^NEXT="30^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c","d","e","f","g","h")=""
 s ^VV("a","b","c","d","e","f","g","h","i")=""
 S ^VCOMP=$Q(^VV("a","b","c","d","e","f","g","h"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"")" D ^VEXAMINE K ^VV
 ;
30 S ^ABSN="30413",^ITEM="III-0413  p=8 and q=11"
 S ^NEXT="31^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c","d","e","f","g","h")=""
 s ^VV("a","b","c","d","e","f","g","h","i","j","k")=""
 S ^VCOMP=$Q(^VV("a","b","c","d","e","f","g","h"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"")" D ^VEXAMINE K ^VV
 ;
31 S ^ABSN="30414",^ITEM="III-0414  p=8 and q=20"
 S ^NEXT="32^V3Q3,V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c","d","e","f","g","h")=""
 s ^VV("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t")=""
 S ^VCOMP=$Q(^VV("a","b","c","d","e","f","g","h","i"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"",""l"",""m"",""n"",""o"",""p"",""q"",""r"",""s"",""t"")" D ^VEXAMINE K ^VV
 ;
32 S ^ABSN="30415",^ITEM="III-0415  Maximum length variable name"
 S ^NEXT="V3Q4^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s A="abcdefghijklmnopqrstuvw",^VV(A,A,A,A)=A,^VV(A,A,A,A,A)=A
 S ^VCOMP=$Q(^VV(A,A,A,A))
 s B="^VV("""_A_"""" f I=1:1:4 s B=B_","""_A_""""
 s B=B_")"
 S ^VCORR=B D ^VEXAMINE K ^VV
 ;
END W !!,"End of 40 --- V3Q3",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q4
V3Q4 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"41---V3Q4: $QUERY(glvn) -4-"
 W !!,"$QUERY(gvn)  When p=0 and q<0"
 ;
33 S ^ABSN="30416",^ITEM="III-0416  p=0 and q=1"
 S ^NEXT="34^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV="",^VV("a")=""
 S ^VCOMP=$Q(^VV)
 S ^VCORR="^VV(""a"")" D ^VEXAMINE K ^VV
 ;
34 S ^ABSN="30417",^ITEM="III-0417  p=0 and q=2"
 S ^NEXT="35^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV="",^VV("a","b")=""
 S ^VCOMP=$Q(^VV)
 S ^VCORR="^VV(""a"",""b"")" D ^VEXAMINE K ^VV
 ;
35 S ^ABSN="30418",^ITEM="III-0418  p=0 and q=3"
 S ^NEXT="36^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV="",^VV("a","b","c")=""
 S ^VCOMP=$Q(^VV)
 S ^VCORR="^VV(""a"",""b"",""c"")" D ^VEXAMINE K ^VV
 ;
36 S ^ABSN="30419",^ITEM="III-0419  p=0 and q=7"
 S ^NEXT="37^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV="",^VV("a","b","c","d","e","f","g")=""
 S ^VCOMP=$Q(^VV)
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"",""f"",""g"")" D ^VEXAMINE K ^VV
 ;
37 S ^ABSN="30420",^ITEM="III-0420  p=0 and q=10"
 S ^NEXT="38^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c","d",5,6,7,8,9,0)=""
 S ^VCOMP=$Q(^VV)
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",5,6,7,8,9,0)" D ^VEXAMINE K ^VV
 ;
38 S ^ABSN="30421",^ITEM="III-0421  Maximum length variable name"
 S ^NEXT="39^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VVABCDE s A="abcdefgh",^VVABCDE="",^VVABCDE(A,A,A,A,A,A,A,A,A,A,A,A)=A
 S ^VCOMP=$Q(^VVABCDE)
 s B="^VVABCDE("""_A_"""" f I=1:1:11 s B=B_","""_A_""""
 s B=B_")"
 S ^VCORR=B D ^VEXAMINE k ^VVABCDE K ^VVABCDE
 ;
39 W !!,"When k>0 and k'>min(p,q) and ..."
 ;
 S ^ABSN="30422",^ITEM="III-0422  k=1"
 S ^NEXT="40^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("abcdefgh")="",^VV("abcdefgi",123)=""
 S ^VCOMP=$Q(^VV("abcdefgh"))
 S ^VCORR="^VV(""abcdefgi"",123)" D ^VEXAMINE K ^VV
 ;
40 S ^ABSN="30423",^ITEM="III-0423  k=2"
 S ^NEXT="41^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","A")="",^VV("a","a","a")=""
 S ^VCOMP=$Q(^VV("a","A","b"))
 S ^VCORR="^VV(""a"",""a"",""a"")" D ^VEXAMINE K ^VV
 ;
41 S ^ABSN="30424",^ITEM="III-0424  k=3"
 S ^NEXT="42^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","a","a")="",^VV("a","a","b")=""
 S ^VCOMP=$Q(^VV("a","a","abc"))
 S ^VCORR="^VV(""a"",""a"",""b"")" D ^VEXAMINE K ^VV
 ;
42 S ^ABSN="30425",^ITEM="III-0425  k=7"
 S ^NEXT="43^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV(1,2,3,4,5,6,7)=""
 s ^VV(1,2,3,4,5,6,+7.10,8,9,0)=""
 s ^VV(1,2,3,4,5,6,7.2)=""
 S ^VCOMP=$Q(^VV(1,2,3,4,5,6,7))
 S ^VCORR="^VV(1,2,3,4,5,6,7.1,8,9,0)" D ^VEXAMINE K ^VV
 ;
43 S ^ABSN="30426",^ITEM="III-0426  k=12"
 S ^NEXT="44^V3Q4,V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c","d","e","f","g","h","i","j","k","l")=""
 s ^VV("a","b","c","d","e","f","g","h","i","j","k","l1","m")=""
 S ^VCOMP=$Q(^VV("a","b","c","d","e","f","g","h","i","j","k","l0"))
 S ^VCORR="^VV(""a"",""b"",""c"",""d"",""e"",""f"",""g"",""h"",""i"",""j"",""k"",""l1"",""m"")" D ^VEXAMINE K ^VV
 ;
44 S ^ABSN="30427",^ITEM="III-0427  Maximum length variable name"
 S ^NEXT="V3Q5^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VVAB s A="x",B="^VVAB(A"
 f I=1:1:40 s B=B_",A"
 s B=B_")",@B=A
 s C="^VVAB(A"
 f I=1:1:39 s C=C_",A"
 s C=C_",""y"")",@C=A
 S ^VCOMP=$Q(@B)
 s D="^VVAB(""x""" f I=1:1:39 s D=D_",""x"""
 s D=D_",""y"")"
 S ^VCORR=D D ^VEXAMINE k ^VVAB
 ;
END W !!,"End of 41 --- V3Q4",!
 K  K ^VV,^VVABCDE,^VVAB Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q5
V3Q5 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"42---V3Q5: $QUERY(glvn) -5-"
 W !!,"Numeric interpretation of subscirpts"
 ;
45 S ^ABSN="30428",^ITEM="III-0428  single subscirpt of lvn"
 S ^NEXT="46^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d LOCAL1^V3QE s A="A(-1E11)",(B1,B2,B3)=""
 ;f I=1:1:35 s A=$Q(@A) s B=B_A_" "
 f I=1:1:7 s A=$Q(@A) s B1=B1_A_" "
 f I=8:1:20 s A=$Q(@A) s B2=B2_A_" "
 f I=21:1:35 s A=$Q(@A) s B3=B3_A_" "
 S ^VCOMP=(B1=X1)_(B2=X2)_(B3=X3)
 S ^VCORR="111" D ^VEXAMINE
 ;
46 S ^ABSN="30429",^ITEM="III-0429  single subscript of gvn"
 S ^NEXT="47^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d GLOBAL1^V3QE s A="^VV(-1E11)",(B1,B2,B3)=""
 ;f I=1:1:35 s A=$q(@A) s B=B_A_" "
 f I=1:1:7 s A=$q(@A) s B1=B1_A_" "
 f I=8:1:20 s A=$q(@A) s B2=B2_A_" "
 f I=21:1:35 s A=$q(@A) s B3=B3_A_" "
 S ^VCOMP=(B1=X1)_(B2=X2)_(B3=X3)
 S ^VCORR="111" D ^VEXAMINE
 ;
47 S ^ABSN="30430",^ITEM="III-0430  plural subscirpts of lvn"
 S ^NEXT="48^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d LOCAL2^V3QE s A="A(-1E11)",B=""
 f I=1:1 s A=$Q(@A) q:A=""  s B=B_A_" "
 S ^VCOMP=B
 S ^VCORR=X D ^VEXAMINE
 ;
48 S ^ABSN="30431",^ITEM="III-0431  plural subscripts of gvn"
 S ^NEXT="49^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d GLOBAL2^V3QE s A="^VV(-1E11)",B=""
 f I=1:1 s A=$Q(@A) q:A=""  s B=B_A_" "
 S ^VCOMP=B
 S ^VCORR=X D ^VEXAMINE
 ;
49 W !!,"Subscript is one character (95 graphics including space)"
 ;
 S ^ABSN="30432",^ITEM="III-0432  lvn subscript is one character"
 S ^NEXT="50^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d LOCAL3^V3QE s A="A("""")",B=""
 f I=1:1 s A=$Q(@A) q:A=""  s B=B_$s(A["""""":$e(A,4,5),A["""":$e(A,4),1:$e(A,3))
 S ^VCOMP=B
 S ^VCORR=X D ^VEXAMINE
 ;
50 S ^ABSN="30433",^ITEM="III-0433  gvn subscript is one character"
 S ^NEXT="51^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 d GLOBAL3^V3QE s A="^VV("""")",B=""
 f I=1:1 s A=$Q(@A) q:A=""  s B=B_$s(A["""""":$e(A,6,7),A["""":$e(A,6),1:$e(A,5))
 S ^VCOMP=B
 S ^VCORR=X D ^VEXAMINE
 ;
51 W !!,"Subscript is 63 characters"
 ;
 S ^ABSN="30434",^ITEM="III-0434  lvn subscript is 63 characters"
 S ^NEXT="52^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz1234567","012345678901234567890123456789012345678901234567890123456789012")=""
 S ^VCOMP=$Q(A("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz1234567"))
 S ^VCORR="A(""abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz1234567"",""012345678901234567890123456789012345678901234567890123456789012"")" D ^VEXAMINE
 ;
52 S ^ABSN="30435",^ITEM="III-0435  gvn subscript is 63 characters"
 S ^NEXT="53^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s ^VV("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123456","012345678901234567890123456789012345678901234567890123456789012")=""
 S ^VCOMP=$Q(^VV("abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123456"))
 S ^VCORR="^VV(""abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz123456"",""012345678901234567890123456789012345678901234567890123456789012"")" D ^VEXAMINE
 K ^VV
 ;
53 W !!,"Subscript has a quotation character"
 ;
 S ^ABSN="30436",^ITEM="III-0436  lvn subscript has a quotation character"
 S ^NEXT="54^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("""")="",A("""","""")=""
 S ^VCOMP=$Q(A(""""))
 S ^VCORR="A("""""""","""""""")" D ^VEXAMINE
 ;
54 S ^ABSN="30437",^ITEM="III-0437  gvn subscript has a quotation character"
 S ^NEXT="55^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("""")="",^VV("""","""")=""
 S ^VCOMP=$Q(^VV(""""))
 S ^VCORR="^VV("""""""","""""""")" D ^VEXAMINE K ^VV
 ;
55 W !!,"Subscript has plural quotation characters"
 ;
 S ^ABSN="30438",^ITEM="III-0438  lvn subscript has plural quotation characters"
 S ^NEXT="56^V3Q5,V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k  s A("""""""")="",A("""""""","""""a""""b""""c""""d""""e""""f""""g""""h""""")=""
 S ^VCOMP=$Q(A(""""""""))
 S ^VCORR="A("""""""""""""""",""""""""""a""""""""b""""""""c""""""""d""""""""e""""""""f""""""""g""""""""h"""""""""")" D ^VEXAMINE
 ;
56 S ^ABSN="30439",^ITEM="III-0439  gvn subscript has plural quotation characters"
 S ^NEXT="V3Q6^V3QUERY,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("""""""")="",^VV("""""""","""""a""""b""""c""""d""""e""""f""""g""""h""""")=""
 S ^VCOMP=$Q(^VV(""""""""))
 S ^VCORR="^VV("""""""""""""""",""""""""""a""""""""b""""""""c""""""""d""""""""e""""""""f""""""""g""""""""h"""""""""")" D ^VEXAMINE K ^VV
 ;
END W !!,"End of 42 --- V3Q5",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3Q6
V3Q6 ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"43---V3Q6: $QUERY(glvn) -6-"
 W !!,"Value of $Q is an empty string"
 ;
57 S ^ABSN="30440",^ITEM="III-0440  lvn is undefined"
 S ^NEXT="58^V3Q6,V3FN2^VV3" D ^V3PRESET
 k
 S ^VCOMP=$Q(A)_$Q(A(""))_$Q(A("0"))_$Q(A("a"))
 S ^VCORR="" D ^VEXAMINE
 ;
58 S ^ABSN="30441",^ITEM="III-0441  gvn is undefined"
 S ^NEXT="59^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV
 S ^VCOMP=$Q(^VV)_$Q(^VV(""))_$Q(^VV("0"))_$Q(^VV("a"))
 S ^VCORR="" D ^VEXAMINE K ^VV
 ;
59 S ^ABSN="30442",^ITEM="III-0442  Value of $Q(lvn) is an empty string"
 S ^NEXT="60^V3Q6,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b")=""
 S ^VCOMP=$Q(A("a","b"))_$Q(A("a","c"))_$Q(A("a "))_$Q(A("b"))
 S ^VCORR="" D ^VEXAMINE
 ;
60 S ^ABSN="30443",^ITEM="III-0443  Value of $Q(gvn) is an empty string"
 S ^NEXT="61^V3Q6,V3FN2^VV3" D ^V3PRESET
 k  K ^VV s ^VV("a","b")=""
 S ^VCOMP=$Q(^VV("a","b"))_$Q(^VV("a","c"))_$Q(^VV("a "))_$Q(^VV("b"))
 S ^VCORR="" D ^VEXAMINE K ^VV
 ;
61 W !!,"glvn has indirection"
 ;
 S ^ABSN="30444",^ITEM="III-0444  lvn has indirection"
 S ^NEXT="62^V3Q6,V3FN2^VV3" D ^V3PRESET
 k  s A="",A("a","b","c")=""
 s A="A(@X1,@@X3)",X1="X2",X2="a",X3="X4",X4="X5",X5="b"
 s B="A"
 S ^VCOMP=$Q(@A)_" "_$Q(@@B)
 S ^VCORR="A(""a"",""b"",""c"") A(""a"",""b"",""c"")" D ^VEXAMINE
 ;
62 S ^ABSN="30445",^ITEM="III-0445  gvn has indirection"
 S ^NEXT="63^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV="",^VV("a","b","c")=""
 s A="^VV(@X1,@@X3)",X1="X2",X2="a",X3="X4",X4="X5",X5="b"
 s B="A"
 S ^VCOMP=$Q(@A)_" "_$Q(@@B)
 S ^VCORR="^VV(""a"",""b"",""c"") ^VV(""a"",""b"",""c"")" D ^VEXAMINE K ^VV
 ;
63 S ^ABSN="30446",^ITEM="III-0446  gvn has gnamind"
 S ^NEXT="64^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c")=""
 s A="^VV(""a"",""b"")"
 S ^VCOMP=$Q(@A@("a"))_" "_$Q(@A@(""))
 S ^VCORR="^VV(""a"",""b"",""c"") ^VV(""a"",""b"",""c"")" D ^VEXAMINE K ^VV
 ;
64 W !!,"gvn has naked reference"
 ;
 S ^ABSN="30447",^ITEM="III-0447  gvn has naked reference"
 S ^NEXT="65^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","a")="",^VV("a","b","a")="a",^VV("a","b","c")=""
 S ^VCOMP=$Q(^(^("a")))
 S ^VCORR="^VV(""a"",""b"",""c"")" D ^VEXAMINE K ^VV
 ;
65 W !!,"glvn has function"
 ;
 S ^ABSN="30448",^ITEM="III-0448  lvn has function"
 S ^NEXT="66^V3Q6,V3FN2^VV3" D ^V3PRESET
 k  s A("a","b","c")=""
 S ^VCOMP=$Q(A("a","b",$O(A("a","a"))))
 S ^VCORR="A(""a"",""b"",""c"")" D ^VEXAMINE
 ;
66 S ^ABSN="30449",^ITEM="III-0449  gvn has function"
 S ^NEXT="67^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a","b","c")=""
 S ^VCOMP=$Q(^VV("a","b",$O(^VV("a","a"))))
 S ^VCORR="^VV(""a"",""b"",""c"")" D ^VEXAMINE K ^VV
 ;
67 W !!,"Nesting of $Q function"
 ;
 S ^ABSN="30450",^ITEM="III-0450  Nested $Q(lvn)"
 S ^NEXT="68^V3Q6,V3FN2^VV3" D ^V3PRESET
 k  s A("a")="",A("a","b")="",A("a","c")="",A("b","c")="",A("c","d")=""
 S ^VCOMP=$Q(A($TR($P($P($Q(A("a")),",",2),")"),""""),$TR($P($P($Q(A("a","b")),",",2),")"),"""")))
 S ^VCORR="A(""c"",""d"")" D ^VEXAMINE
 ;
68 S ^ABSN="30451",^ITEM="III-0451  Nested $Q(gvn)"
 S ^NEXT="END^V3Q6,V3FN2^VV3" D ^V3PRESET
 k ^VV s ^VV("a")="",^VV("a","b")="",^VV("a","c")="",^VV("b","c")="",^VV("c","d")=""
 S ^VCOMP=$Q(^VV($tr($P($P($Q(^VV("a")),",",2),")"),""""),$tr($P($P($Q(^VV("a","b")),",",2),")"),"""")))
 S ^VCORR="^VV(""c"",""d"")" D ^VEXAMINE K ^VV
 ;
END W !!,"End of 43 --- V3Q6",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3QE
V3QE ;IW-KO-YS-TS,V3QUERY,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
LOCAL1 k A
 s A("-999999999")="",A("-10")="",A("-1.2")="",A("-1.11")="",A("-1.1")=""
 s A("-.5")="",A("0")="",A(0.5)="",A("1.1")="",A("999999999")=""
 s A("#")="",A("%")="",A("+4")="",A("-4.")="",A("-4.0")="",A(".0")=""
 s A(".00")="",A("0.0")="",A("0.1")="",A("1.")="",A("1.0")="",A("A")=""
 s A("AA")="",A("AB")=""
 s A("00")="",A("01")="",A("20")="",A("123E1")="",A("--1")="",A("-0")=""
 s A("1.1.2")="",A("-")="",A("-.")="",A("-.0")="",A(".")=""
 s X1="A(-999999999) A(-10) A(-1.2) A(-1.11) A(-1.1) A(-.5) A(0) "
 s X2="A(.5) A(1.1) A(20) A(999999999) A(""#"") A(""%"") A(""+4"") A(""-"") A(""--1"") A(""-."") A(""-.0"") A(""-0"") A(""-4."") "
 s X3="A(""-4.0"") A(""."") A("".0"") A("".00"") A(""0.0"") A(""0.1"") A(""00"") A(""01"") A(""1."") A(""1.0"") A(""1.1.2"") A(""123E1"") A(""A"") A(""AA"") A(""AB"") "
 q
 ;
GLOBAL1 k ^VV
 s ^VV("-999999999")="",^VV("-10")="",^VV("-1.2")="",^VV("-1.11")=""
 s ^VV("-1.1")="",^VV("-.5")="",^VV("0")="",^VV(0.5)="",^VV("1.1")=""
 s ^VV("999999999")="",^VV("#")="",^VV("%")="",^VV("+4")="",^VV("-4.")=""
 s ^VV("-4.0")="",^VV(".0")="",^VV(".00")="",^VV("0.0")="",^VV("0.1")=""
 s ^VV("1.")="",^VV("1.0")="",^VV("A")="",^VV("AA")="",^VV("AB")=""
 s ^VV("00")="",^VV("01")="",^VV("20")="",^VV("123E1")="",^VV("--1")=""
 s ^VV("-0")=""
 s ^VV("1.1.2")="",^VV("-")="",^VV("-.")="",^VV("-.0")="",^VV(".")=""
 s X1="^VV(-999999999) ^VV(-10) ^VV(-1.2) ^VV(-1.11) ^VV(-1.1) ^VV(-.5) ^VV(0) "
 s X2="^VV(.5) ^VV(1.1) ^VV(20) ^VV(999999999) ^VV(""#"") ^VV(""%"") ^VV(""+4"") ^VV(""-"") ^VV(""--1"") ^VV(""-."") ^VV(""-.0"") ^VV(""-0"") ^VV(""-4."") "
 s X3="^VV(""-4.0"") ^VV(""."") ^VV("".0"") ^VV("".00"") ^VV(""0.0"") ^VV(""0.1"") ^VV(""00"") ^VV(""01"") ^VV(""1."") ^VV(""1.0"") ^VV(""1.1.2"") ^VV(""123E1"") ^VV(""A"") ^VV(""AA"") ^VV(""AB"") "
 q
 ;
LOCAL2 k A
 s A("0")="",A(0.5)="",A("1.1")="",A("999999999")="",A("1.")="",A("1.0")=""
 s A("0",".00")="",A("0","0.0")="",A("0","12.3")=""
 s A(1.1,"1.")="",A("1.1","1.0")="",A("1.1",0.0)="",A("1.1","0.0","-2")=""
 s A("999999999","AA")="",A("999999999","01")=""
 s A("1.","0.10")="",A("1.",0.10)=""
 S X="A(0) A(0,12.3) A(0,"".00"") A(0,""0.0"") A(.5) A(1.1) A(1.1,0) "
 s X=X_"A(1.1,""0.0"",-2) A(1.1,""1."") A(1.1,""1.0"") A(999999999) "
 s X=X_"A(999999999,""01"") A(999999999,""AA"") A(""1."") "
 s X=X_"A(""1."",.1) A(""1."",""0.10"") A(""1.0"") "
 q
 ;
GLOBAL2 k ^VV
 s ^VV("0")="",^VV(0.5)="",^VV("1.1")="",^VV("999999999")="",^VV("1.")="",^VV("1.0")=""
 s ^VV("0",".00")="",^VV("0","0.0")="",^VV("0","12.3")=""
 s ^VV(1.1,"1.")="",^VV("1.1","1.0")="",^VV("1.1",0.0)="",^VV("1.1","0.0","-2")=""
 s ^VV("999999999","AA")="",^VV("999999999","01")=""
 s ^VV("1.","0.10")="",^VV("1.",0.10)=""
 s X="^VV(0) ^VV(0,12.3) ^VV(0,"".00"") ^VV(0,""0.0"") ^VV(.5) ^VV(1.1) ^VV(1.1,0) "
 s X=X_"^VV(1.1,""0.0"",-2) ^VV(1.1,""1."") ^VV(1.1,""1.0"") ^VV(999999999) "
 s X=X_"^VV(999999999,""01"") ^VV(999999999,""AA"") ^VV(""1."") "
 s X=X_"^VV(""1."",.1) ^VV(""1."",""0.10"") ^VV(""1.0"") "
 q
 ;
LOCAL3 k A
 f I=126:-1:32 s A($c(I))=""
 s X="" f I=48:1:57 s X=X_$C(I)
 f I=32:1:33 s X=X_$c(I)
 s X=X_""""""
 f I=35:1:47,58:1:126 s X=X_$c(I)
 q
 ;
GLOBAL3 k ^VV
 f I=126:-1:32 s ^VV($c(I))=""
 s X="" f I=48:1:57 s X=X_$c(I)
 f I=32:1:33 s X=X_$c(I)
 s X=X_""""""
 f I=35:1:47,58:1:126 s X=X_$c(I)
 q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN2
V3FN2 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"$FNUMBER(numexpr,fncodexpr)"
V3FN21 W !!,"44---V3FN21" D ^V3FN21
V3FN22 W !!,"45---V3FN22" D ^V3FN22
V3FN23 W !!,"46---V3FN23" D ^V3FN23
V3FN24 W !!,"47---V3FN24" D ^V3FN24
V3FN25 W !!,"48---V3FN25" D ^V3FN25
V3FN26 W !!,"49---V3FN26" D ^V3FN26
V3FN27 W !!,"50---V3FN27" D ^V3FN27
V3FN28 W !!,"51---V3FN28" D ^V3FN28
V3FN29 W !!,"52---V3FN29" D ^V3FN29
V3FN210 W !!,"53---V3FN210" D ^V3FN210
V3FN211 W !!,"54---V3FN211" D ^V3FN211
V3FN212 W !!,"55---V3FN212" D ^V3FN212
V3FN213 W !!,"56---V3FN213" D ^V3FN213
V3FN214 W !!,"57---V3FN214" D ^V3FN214
V3FN215 W !!,"58---V3FN215" D ^V3FN215
V3FN216 W !!,"59---V3FN216" D ^V3FN216
V3FN217 W !!,"60---V3FN217" D ^V3FN217
V3FN218 W !!,"61---V3FN218" D ^V3FN218
V3FN219 W !!,"62---V3FN219" D ^V3FN219
V3FN220 W !!,"63---V3FN220" D ^V3FN220
V3FN221 W !!,"64---V3FN221" D ^V3FN221
V3FN222 W !!,"65---V3FN222" D ^V3FN222
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN21
V3FN21 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"44---V3FN21: $FNUMBER(numexpr,fncodexpr)  -1-"
 W !!,"Fundamental tests"
 ;
1 S ^ABSN="30452",^ITEM="III-0452  $FNUMBER(123456789,"","")"
 S ^NEXT="2^V3FN21,V3FN22^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FNUMBER(123456789,",")
 S ^VCORR="123,456,789" D ^VEXAMINE
 ;
2 S ^ABSN="30453",^ITEM="III-0453  $fnumber(-123456789,""-"")"
 S ^NEXT="3^V3FN21,V3FN22^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$fnumber(-123456789,"-")
 S ^VCORR="123456789" D ^VEXAMINE
 ;
3 S ^ABSN="30454",^ITEM="III-0454  $FN(123456789,""+"")"
 S ^NEXT="4^V3FN21,V3FN22^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(123456789,"+")
 S ^VCORR="+123456789" D ^VEXAMINE
 ;
4 S ^ABSN="30455",^ITEM="III-0455  $fn(-123456789,""P"")"
 S ^NEXT="5^V3FN21,V3FN22^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$fn(-123456789,"P")
 S ^VCORR="(123456789)" D ^VEXAMINE
 ;
5 S ^ABSN="30456",^ITEM="III-0456  $fn(123456789,""T"")"
 S ^NEXT="V3FN22^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$fn(123456789,"T")
 S ^VCORR="123456789 " D ^VEXAMINE
 ;
END W !!,"End of 44 --- V3FN21",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN22
V3FN22 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"45---V3FN22: $FNUMBER(numexpr,fncodexpr)  -2-"
 W !!,"fncodexpr is a ""P"""
 ;
6 S ^ABSN="30457",^ITEM="III-0457  numexpr=0000"
 S ^NEXT="7^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"P")
 S ^VCORR=" 0 " D ^VEXAMINE
 ;
7 S ^ABSN="30458",^ITEM="III-0458  numexpr=1"
 S ^NEXT="8^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"P")
 S ^VCORR=" 1 " D ^VEXAMINE
 ;
8 S ^ABSN="30459",^ITEM="III-0459  numexpr=-1"
 S ^NEXT="9^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"P")
 S ^VCORR="(1)" D ^VEXAMINE
 ;
9 S ^ABSN="30460",^ITEM="III-0460  numexpr=0020.00000"
 S ^NEXT="10^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"P")
 S ^VCORR=" 20 " D ^VEXAMINE
 ;
10 S ^ABSN="30461",^ITEM="III-0461  numexpr=-00020.00000"
 S ^NEXT="11^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"P")
 S ^VCORR="(20)" D ^VEXAMINE
 ;
11 S ^ABSN="30462",^ITEM="III-0462  numexpr=31267"
 S ^NEXT="12^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"P")
 S ^VCORR=" 31267 " D ^VEXAMINE
 ;
12 S ^ABSN="30463",^ITEM="III-0463  numexpr=-31267"
 S ^NEXT="13^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"P")
 S ^VCORR="(31267)" D ^VEXAMINE
 ;
13 S ^ABSN="30464",^ITEM="III-0464  numexpr=000000000000000000000000262999219"
 S ^NEXT="14^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"P")
 S ^VCORR=" 262999219 " D ^VEXAMINE
 ;
14 S ^ABSN="30465",^ITEM="III-0465  numexpr=-000000000000000000000000262999219"
 S ^NEXT="15^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"P")
 S ^VCORR="(262999219)" D ^VEXAMINE
 ;
15 S ^ABSN="30466",^ITEM="III-0466  numexpr=000.000789200"
 S ^NEXT="16^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"P")
 S ^VCORR=" .0007892 " D ^VEXAMINE
 ;
16 S ^ABSN="30467",^ITEM="III-0467  numexpr=-000.000789200"
 S ^NEXT="17^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"P")
 S ^VCORR="(.0007892)" D ^VEXAMINE
 ;
17 S ^ABSN="30468",^ITEM="III-0468  numexpr=00670.00789200"
 S ^NEXT="18^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"P")
 S ^VCORR=" 670.007892 " D ^VEXAMINE
 ;
18 S ^ABSN="30469",^ITEM="III-0469  numexpr=-00670.00789200"
 S ^NEXT="19^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"P")
 S ^VCORR="(670.007892)" D ^VEXAMINE
 ;
19 S ^ABSN="30470",^ITEM="III-0470  numexpr=981000000000"
 S ^NEXT="20^V3FN22,V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"P")
 S ^VCORR=" 981000000000 " D ^VEXAMINE
 ;
20 S ^ABSN="30471",^ITEM="III-0471  numexpr=-981000000000"
 S ^NEXT="V3FN23^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"P")
 S ^VCORR="(981000000000)" D ^VEXAMINE
 ;
END W !!,"End of 45 --- V3FN22",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN23
V3FN23 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"46---V3FN23: $FNUMBER(numexpr,fncodexpr)  -3-"
 W !!,"fncodexpr is a ""T"""
 ;
21 S ^ABSN="30472",^ITEM="III-0472  numexpr=0000"
 S ^NEXT="22^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T")
 S ^VCORR="0 " D ^VEXAMINE
 ;
22 S ^ABSN="30473",^ITEM="III-0473  numexpr=-00"
 S ^NEXT="23^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00,"T")
 S ^VCORR="0 " D ^VEXAMINE
 ;
23 S ^ABSN="30474",^ITEM="III-0474  numexpr=1"
 S ^NEXT="24^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T")
 S ^VCORR="1 " D ^VEXAMINE
 ;
24 S ^ABSN="30475",^ITEM="III-0475  numexpr=-1"
 S ^NEXT="25^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T")
 S ^VCORR="1-" D ^VEXAMINE
 ;
25 S ^ABSN="30476",^ITEM="III-0476  numexpr=0020.00000"
 S ^NEXT="26^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T")
 S ^VCORR="20 " D ^VEXAMINE
 ;
26 S ^ABSN="30477",^ITEM="III-0477  numexpr=-00020.00000"
 S ^NEXT="27^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T")
 S ^VCORR="20-" D ^VEXAMINE
 ;
27 S ^ABSN="30478",^ITEM="III-0478  numexpr=31267"
 S ^NEXT="28^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T")
 S ^VCORR="31267 " D ^VEXAMINE
 ;
28 S ^ABSN="30479",^ITEM="III-0479  numexpr=-31267"
 S ^NEXT="29^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T")
 S ^VCORR="31267-" D ^VEXAMINE
 ;
29 S ^ABSN="30480",^ITEM="III-0480  numexpr=000000000000000000000000262999219"
 S ^NEXT="30^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T")
 S ^VCORR="262999219 " D ^VEXAMINE
 ;
30 S ^ABSN="30481",^ITEM="III-0481  numexpr=-000000000000000000000000262999219"
 S ^NEXT="31^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T")
 S ^VCORR="262999219-" D ^VEXAMINE
 ;
31 S ^ABSN="30482",^ITEM="III-0482  numexpr=000.000789200"
 S ^NEXT="32^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
32 S ^ABSN="30483",^ITEM="III-0483  numexpr=-000.000789200"
 S ^NEXT="33^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T")
 S ^VCORR=".0007892-" D ^VEXAMINE
 ;
33 S ^ABSN="30484",^ITEM="III-0484  numexpr=00670.00789200"
 S ^NEXT="34^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
34 S ^ABSN="30485",^ITEM="III-0485  numexpr=-00670.00789200"
 S ^NEXT="35^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T")
 S ^VCORR="670.007892-" D ^VEXAMINE
 ;
35 S ^ABSN="30486",^ITEM="III-0486  numexpr=981000000000"
 S ^NEXT="36^V3FN23,V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T")
 S ^VCORR="981000000000 " D ^VEXAMINE
 ;
36 S ^ABSN="30487",^ITEM="III-0487  numexpr=-981000000000"
 S ^NEXT="V3FN24^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T")
 S ^VCORR="981000000000-" D ^VEXAMINE
 ;
END W !!,"End of 46 --- V3FN23",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN24
V3FN24 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"47---V3FN24: $FNUMBER(numexpr,fncodexpr)  -4-"
 W !!,"fncodexpr is a "","""
 ;
37 S ^ABSN="30488",^ITEM="III-0488  numexpr=0000"
 S ^NEXT="38^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,",")
 S ^VCORR="0" D ^VEXAMINE
 ;
38 S ^ABSN="30489",^ITEM="III-0489  numexpr=1"
 S ^NEXT="39^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,",")
 S ^VCORR="1" D ^VEXAMINE
 ;
39 S ^ABSN="30490",^ITEM="III-0490  numexpr=-1"
 S ^NEXT="40^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,",")
 S ^VCORR="-1" D ^VEXAMINE
 ;
40 S ^ABSN="30491",^ITEM="III-0491  numexpr=0020.00000"
 S ^NEXT="41^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,",")
 S ^VCORR="20" D ^VEXAMINE
 ;
41 S ^ABSN="30492",^ITEM="III-0492  numexpr=-00020.00000"
 S ^NEXT="42^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,",")
 S ^VCORR="-20" D ^VEXAMINE
 ;
42 S ^ABSN="30493",^ITEM="III-0493  numexpr=31267"
 S ^NEXT="43^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,",")
 S ^VCORR="31,267" D ^VEXAMINE
 ;
43 S ^ABSN="30494",^ITEM="III-0494  numexpr=-31267"
 S ^NEXT="44^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,",")
 S ^VCORR="-31,267" D ^VEXAMINE
 ;
44 S ^ABSN="30495",^ITEM="III-0495  numexpr=000000000000000000000000262999219"
 S ^NEXT="45^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,",")
 S ^VCORR="262,999,219" D ^VEXAMINE
 ;
45 S ^ABSN="30496",^ITEM="III-0496  numexpr=-000000000000000000000000262999219"
 S ^NEXT="46^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,",")
 S ^VCORR="-262,999,219" D ^VEXAMINE
 ;
46 S ^ABSN="30497",^ITEM="III-0497  numexpr=000.000789200"
 S ^NEXT="47^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,",")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
47 S ^ABSN="30498",^ITEM="III-0498  numexpr=-000.000789200"
 S ^NEXT="48^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,",")
 S ^VCORR="-.0007892" D ^VEXAMINE
 ;
48 S ^ABSN="30499",^ITEM="III-0499  numexpr=00670.00789200"
 S ^NEXT="49^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
49 S ^ABSN="30500",^ITEM="III-0500  numexpr=-00670.00789200"
 S ^NEXT="50^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",")
 S ^VCORR="-670.007892" D ^VEXAMINE
 ;
50 S ^ABSN="30501",^ITEM="III-0501  numexpr=981000000000"
 S ^NEXT="51^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",")
 S ^VCORR="981,000,000,000" D ^VEXAMINE
 ;
51 S ^ABSN="30502",^ITEM="III-0502  numexpr=-981000000000"
 S ^NEXT="52^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,",")
 S ^VCORR="-981,000,000,000" D ^VEXAMINE
 ;
52 S ^ABSN="30503",^ITEM="III-0503  numexpr=1E25"
 S ^NEXT="53^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,",")
 S ^VCORR="10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
53 S ^ABSN="30504",^ITEM="III-0504  numexpr=-1E25"
 S ^NEXT="54^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,",")
 S ^VCORR="-10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
54 S ^ABSN="30505",^ITEM="III-0505  numexpr=1E-25"
 S ^NEXT="55^V3FN24,V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,",")
 S ^VCORR=".0000000000000000000000001" D ^VEXAMINE
 ;
55 S ^ABSN="30506",^ITEM="III-0506  numexpr=-1E-25"
 S ^NEXT="V3FN25^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,",")
 S ^VCORR="-.0000000000000000000000001" D ^VEXAMINE
 ;
END W !!,"End of 47 --- V3FN24",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN25
V3FN25 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"48---V3FN25: $FNUMBER(numexpr,fncodexpr)  -5-"
 W !!,"fncodexpr is a ""+"""
 ;
56 S ^ABSN="30507",^ITEM="III-0507  numexpr=0000"
 S ^NEXT="57^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"+")
 S ^VCORR="0" D ^VEXAMINE
 ;
57 S ^ABSN="30508",^ITEM="III-0508  numexpr=-00"
 S ^NEXT="58^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00,"+")
 S ^VCORR="0" D ^VEXAMINE
 ;
58 S ^ABSN="30509",^ITEM="III-0509  numexpr=""+00"""
 S ^NEXT="59^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("+00","+")
 S ^VCORR="0" D ^VEXAMINE
 ;
59 S ^ABSN="30510",^ITEM="III-0510  numexpr=1"
 S ^NEXT="60^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"+")
 S ^VCORR="+1" D ^VEXAMINE
 ;
60 S ^ABSN="30511",^ITEM="III-0511  numexpr=-1"
 S ^NEXT="61^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"+")
 S ^VCORR="-1" D ^VEXAMINE
 ;
61 S ^ABSN="30512",^ITEM="III-0512  numexpr=0020.00000"
 S ^NEXT="62^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"+")
 S ^VCORR="+20" D ^VEXAMINE
 ;
62 S ^ABSN="30513",^ITEM="III-0513  numexpr=-00020.00000"
 S ^NEXT="63^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"+")
 S ^VCORR="-20" D ^VEXAMINE
 ;
63 S ^ABSN="30514",^ITEM="III-0514  numexpr=31267"
 S ^NEXT="64^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"+")
 S ^VCORR="+31267" D ^VEXAMINE
 ;
64 S ^ABSN="30515",^ITEM="III-0515  numexpr=-31267"
 S ^NEXT="65^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"+")
 S ^VCORR="-31267" D ^VEXAMINE
 ;
65 S ^ABSN="30516",^ITEM="III-0516  numexpr=000000000000000000000000262999219"
 S ^NEXT="66^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"+")
 S ^VCORR="+262999219" D ^VEXAMINE
 ;
66 S ^ABSN="30517",^ITEM="III-0517  numexpr=-000000000000000000000000262999219"
 S ^NEXT="67^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"+")
 S ^VCORR="-262999219" D ^VEXAMINE
 ;
67 S ^ABSN="30518",^ITEM="III-0518  numexpr=000.000789200"
 S ^NEXT="68^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+")
 S ^VCORR="+.0007892" D ^VEXAMINE
 ;
68 S ^ABSN="30519",^ITEM="III-0519  numexpr=-000.000789200"
 S ^NEXT="69^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"+")
 S ^VCORR="-.0007892" D ^VEXAMINE
 ;
69 S ^ABSN="30520",^ITEM="III-0520  numexpr=00670.00789200"
 S ^NEXT="70^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"+")
 S ^VCORR="+670.007892" D ^VEXAMINE
 ;
70 S ^ABSN="30521",^ITEM="III-0521  numexpr=-00670.00789200"
 S ^NEXT="71^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+")
 S ^VCORR="-670.007892" D ^VEXAMINE
 ;
71 S ^ABSN="30522",^ITEM="III-0522  numexpr=981000000000"
 S ^NEXT="72^V3FN25,V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"+")
 S ^VCORR="+981000000000" D ^VEXAMINE
 ;
72 S ^ABSN="30523",^ITEM="III-0523  numexpr=-981000000000"
 S ^NEXT="V3FN26^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"+")
 S ^VCORR="-981000000000" D ^VEXAMINE
 ;
END W !!,"End of 48 --- V3FN25",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN26
V3FN26 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"49---V3FN26: $FNUMBER(numexpr,fncodexpr)  -6-"
 W !!,"fncodexpr is a ""-"""
 ;
73 S ^ABSN="30524",^ITEM="III-0524  numexpr=0000"
 S ^NEXT="74^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"-")
 S ^VCORR="0" D ^VEXAMINE
 ;
74 S ^ABSN="30525",^ITEM="III-0525  numexpr=1"
 S ^NEXT="75^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"-")
 S ^VCORR="1" D ^VEXAMINE
 ;
75 S ^ABSN="30526",^ITEM="III-0526  numexpr=-1"
 S ^NEXT="76^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"-")
 S ^VCORR="1" D ^VEXAMINE
 ;
76 S ^ABSN="30527",^ITEM="III-0527  numexpr=0020.00000"
 S ^NEXT="77^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"-")
 S ^VCORR="20" D ^VEXAMINE
 ;
77 S ^ABSN="30528",^ITEM="III-0528  numexpr=-00020.00000"
 S ^NEXT="78^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"-")
 S ^VCORR="20" D ^VEXAMINE
 ;
78 S ^ABSN="30529",^ITEM="III-0529  numexpr=31267"
 S ^NEXT="79^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"-")
 S ^VCORR="31267" D ^VEXAMINE
 ;
79 S ^ABSN="30530",^ITEM="III-0530  numexpr=-31267"
 S ^NEXT="80^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"-")
 S ^VCORR="31267" D ^VEXAMINE
 ;
80 S ^ABSN="30531",^ITEM="III-0531  numexpr=000000000000000000000000262999219"
 S ^NEXT="81^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"-")
 S ^VCORR="262999219" D ^VEXAMINE
 ;
81 S ^ABSN="30532",^ITEM="III-0532  numexpr=-000000000000000000000000262999219"
 S ^NEXT="82^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"-")
 S ^VCORR="262999219" D ^VEXAMINE
 ;
82 S ^ABSN="30533",^ITEM="III-0533  numexpr=000.000789200"
 S ^NEXT="83^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"-")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
83 S ^ABSN="30534",^ITEM="III-0534  numexpr=-000.000789200"
 S ^NEXT="84^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
84 S ^ABSN="30535",^ITEM="III-0535  numexpr=00670.00789200"
 S ^NEXT="85^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
85 S ^ABSN="30536",^ITEM="III-0536  numexpr=-00670.00789200"
 S ^NEXT="86^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"-")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
86 S ^ABSN="30537",^ITEM="III-0537  numexpr=981000000000"
 S ^NEXT="87^V3FN26,V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"-")
 S ^VCORR="981000000000" D ^VEXAMINE
 ;
87 S ^ABSN="30538",^ITEM="III-0538  numexpr=-981000000000"
 S ^NEXT="V3FN27^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"-")
 S ^VCORR="981000000000" D ^VEXAMINE
 ;
END W !!,"End of 49 --- V3FN26",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN27
V3FN27 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"50---V3FN27: $FNUMBER(numexpr,fncodexpr)  -7-"
 W !!,"fncodexpr is an empty string"
 ;
88 S ^ABSN="30539",^ITEM="III-0539  numexpr=01.2340"
 S ^NEXT="89^V3FN27,V3FN28^V3FN2,V3FN3^VV3" D ^V3PRESET
 ;S ^VCOMP=$FN(01.2340,"")
 ;S ^VCORR="1.234" D ^VEXAMINE
 W !,"   (This test ",^ITEM," was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
89 S ^ABSN="30540",^ITEM="III-0540  numexpr=-01.2340"
 S ^NEXT="90^V3FN27,V3FN28^V3FN2,V3FN3^VV3" D ^V3PRESET
 ;S ^VCOMP=$FN(-01.2340,"")
 ;S ^VCORR="-1.234" D ^VEXAMINE
 W !,"   (This test ",^ITEM," was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
90 S ^ABSN="30541",^ITEM="III-0541  numexpr=""01.2340"""
 S ^NEXT="91^V3FN27,V3FN28^V3FN2,V3FN3^VV3" D ^V3PRESET
 ;S ^VCOMP=$FN("01.2340","")
 ;S ^VCORR="1.234" D ^VEXAMINE
 W !,"   (This test ",^ITEM," was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
91 S ^ABSN="30542",^ITEM="III-0542  numexpr=""-01.2340"""
 S ^NEXT="V3FN28^V3FN2,V3FN3^VV3" D ^V3PRESET
 ;S ^VCOMP=$FN("-01.2340","")
 ;S ^VCORR="-1.234" D ^VEXAMINE
 W !,"   (This test ",^ITEM," was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 50 --- V3FN27",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN28
V3FN28 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"51---V3FN28: $FNUMBER(numexpr,fncodexpr)  -8-"
 W !!,"fncodexpr is a ""P,"""
 ;
92 S ^ABSN="30543",^ITEM="III-0543  numexpr=0000"
 S ^NEXT="93^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"P,")
 S ^VCORR=" 0 " D ^VEXAMINE
 ;
93 S ^ABSN="30544",^ITEM="III-0544  numexpr=1"
 S ^NEXT="94^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"P,")
 S ^VCORR=" 1 " D ^VEXAMINE
 ;
94 S ^ABSN="30545",^ITEM="III-0545  numexpr=-1"
 S ^NEXT="95^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"P,")
 S ^VCORR="(1)" D ^VEXAMINE
 ;
95 S ^ABSN="30546",^ITEM="III-0546  numexpr=0020.00000"
 S ^NEXT="96^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"P,")
 S ^VCORR=" 20 " D ^VEXAMINE
 ;
96 S ^ABSN="30547",^ITEM="III-0547  numexpr=-00020.00000"
 S ^NEXT="97^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"P,")
 S ^VCORR="(20)" D ^VEXAMINE
 ;
97 S ^ABSN="30548",^ITEM="III-0548  numexpr=31267"
 S ^NEXT="98^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"P,")
 S ^VCORR=" 31,267 " D ^VEXAMINE
 ;
98 S ^ABSN="30549",^ITEM="III-0549  numexpr=-31267"
 S ^NEXT="99^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"P,")
 S ^VCORR="(31,267)" D ^VEXAMINE
 ;
99 S ^ABSN="30550",^ITEM="III-0550  numexpr=000000000000000000000000262999219"
 S ^NEXT="100^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"P,")
 S ^VCORR=" 262,999,219 " D ^VEXAMINE
 ;
100 S ^ABSN="30551",^ITEM="III-0551  numexpr=-000000000000000000000000262999219"
 S ^NEXT="101^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"P,")
 S ^VCORR="(262,999,219)" D ^VEXAMINE
 ;
101 S ^ABSN="30552",^ITEM="III-0552  numexpr=000.000789200"
 S ^NEXT="102^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"P,")
 S ^VCORR=" .0007892 " D ^VEXAMINE
 ;
102 S ^ABSN="30553",^ITEM="III-0553  numexpr=-000.000789200"
 S ^NEXT="103^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"P,")
 S ^VCORR="(.0007892)" D ^VEXAMINE
 ;
103 S ^ABSN="30554",^ITEM="III-0554  numexpr=00670.00789200"
 S ^NEXT="104^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"P,")
 S ^VCORR=" 670.007892 " D ^VEXAMINE
 ;
104 S ^ABSN="30555",^ITEM="III-0555  numexpr=-00670.00789200"
 S ^NEXT="105^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"P,")
 S ^VCORR="(670.007892)" D ^VEXAMINE
 ;
105 S ^ABSN="30556",^ITEM="III-0556  numexpr=981000000000"
 S ^NEXT="106^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"P,")
 S ^VCORR=" 981,000,000,000 " D ^VEXAMINE
 ;
106 S ^ABSN="30557",^ITEM="III-0557  numexpr=-981000000000"
 S ^NEXT="107^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"P,")
 S ^VCORR="(981,000,000,000)" D ^VEXAMINE
 ;
107 S ^ABSN="30558",^ITEM="III-0558  numexpr=1E25"
 S ^NEXT="108^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"P,")
 S ^VCORR=" 10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
108 S ^ABSN="30559",^ITEM="III-0559  numexpr=-1E25"
 S ^NEXT="109^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"P,")
 S ^VCORR="(10,000,000,000,000,000,000,000,000)" D ^VEXAMINE
 ;
109 S ^ABSN="30560",^ITEM="III-0560  numexpr=1E-25"
 S ^NEXT="110^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"P,")
 S ^VCORR=" .0000000000000000000000001 " D ^VEXAMINE
 ;
110 S ^ABSN="30561",^ITEM="III-0561  numexpr=-1E-25"
 S ^NEXT="111^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"P,")
 S ^VCORR="(.0000000000000000000000001)" D ^VEXAMINE
 ;
111 W !!,"fncodezpr is a "",P""" ;-------
 ;
 S ^ABSN="30562",^ITEM="III-0562  numexpr=00670.00789200"
 S ^NEXT="112^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",P")
 S ^VCORR=" 670.007892 " D ^VEXAMINE
 ;
112 S ^ABSN="30563",^ITEM="III-0563  numexpr=-00670.00789200"
 S ^NEXT="113^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",P")
 S ^VCORR="(670.007892)" D ^VEXAMINE
 ;
113 S ^ABSN="30564",^ITEM="III-0564  numexpr=981000000000"
 S ^NEXT="114^V3FN28,V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",P")
 S ^VCORR=" 981,000,000,000 " D ^VEXAMINE
 ;
114 S ^ABSN="30565",^ITEM="III-0565  numexpr=-981000000000"
 S ^NEXT="V3FN29^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,",P")
 S ^VCORR="(981,000,000,000)" D ^VEXAMINE
 ;
END W !!,"End of 51 --- V3FN28",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN29
V3FN29 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"52---V3FN29: $FNUMBER(numexpr,fncodexpr)  -9-"
 W !!,"fncodexpr is a ""T,"""
 ;
115 S ^ABSN="30566",^ITEM="III-0566  numexpr=0000"
 S ^NEXT="116^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T,")
 S ^VCORR="0 " D ^VEXAMINE
 ;
116 S ^ABSN="30567",^ITEM="III-0567  numexpr=1"
 S ^NEXT="117^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T,")
 S ^VCORR="1 " D ^VEXAMINE
 ;
117 S ^ABSN="30568",^ITEM="III-0568  numexpr=-1"
 S ^NEXT="118^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T,")
 S ^VCORR="1-" D ^VEXAMINE
 ;
118 S ^ABSN="30569",^ITEM="III-0569  numexpr=0020.00000"
 S ^NEXT="119^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T,")
 S ^VCORR="20 " D ^VEXAMINE
 ;
119 S ^ABSN="30570",^ITEM="III-0570  numexpr=-00020.00000"
 S ^NEXT="120^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T,")
 S ^VCORR="20-" D ^VEXAMINE
 ;
120 S ^ABSN="30571",^ITEM="III-0571  numexpr=31267"
 S ^NEXT="121^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T,")
 S ^VCORR="31,267 " D ^VEXAMINE
 ;
121 S ^ABSN="30572",^ITEM="III-0572  numexpr=-31267"
 S ^NEXT="122^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T,")
 S ^VCORR="31,267-" D ^VEXAMINE
 ;
122 S ^ABSN="30573",^ITEM="III-0573  numexpr=000000000000000000000000262999219"
 S ^NEXT="123^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T,")
 S ^VCORR="262,999,219 " D ^VEXAMINE
 ;
123 S ^ABSN="30574",^ITEM="III-0574  numexpr=-000000000000000000000000262999219"
 S ^NEXT="124^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T,")
 S ^VCORR="262,999,219-" D ^VEXAMINE
 ;
124 S ^ABSN="30575",^ITEM="III-0575  numexpr=000.000789200"
 S ^NEXT="125^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T,")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
125 S ^ABSN="30576",^ITEM="III-0576  numexpr=-000.000789200"
 S ^NEXT="126^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T,")
 S ^VCORR=".0007892-" D ^VEXAMINE
 ;
126 S ^ABSN="30577",^ITEM="III-0577  numexpr=00670.00789200"
 S ^NEXT="127^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T,")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
127 S ^ABSN="30578",^ITEM="III-0578  numexpr=-00670.00789200"
 S ^NEXT="128^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T,")
 S ^VCORR="670.007892-" D ^VEXAMINE
 ;
128 S ^ABSN="30579",^ITEM="III-0579  numexpr=981000000000"
 S ^NEXT="129^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T,")
 S ^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
129 S ^ABSN="30580",^ITEM="III-0580  numexpr=-981000000000"
 S ^NEXT="130^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T,")
 S ^VCORR="981,000,000,000-" D ^VEXAMINE
 ;
130 S ^ABSN="30581",^ITEM="III-0581  numexpr=1E25"
 S ^NEXT="131^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"T,")
 S ^VCORR="10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
131 S ^ABSN="30582",^ITEM="III-0582  numexpr=-1E25"
 S ^NEXT="132^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"T,")
 S ^VCORR="10,000,000,000,000,000,000,000,000-" D ^VEXAMINE
 ;
132 S ^ABSN="30583",^ITEM="III-0583  numexpr=1E-25"
 S ^NEXT="133^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"T,")
 S ^VCORR=".0000000000000000000000001 " D ^VEXAMINE
 ;
133 S ^ABSN="30584",^ITEM="III-0584  numexpr=-1E-25"
 S ^NEXT="134^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"T,")
 S ^VCORR=".0000000000000000000000001-" D ^VEXAMINE
 ;
134 W !!,"fncodexpr is a "",T""" ;-------
 ;
 S ^ABSN="30585",^ITEM="III-0585  numexpr=00670.00789200"
 S ^NEXT="135^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",T")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
135 S ^ABSN="30586",^ITEM="III-0586  numexpr=-00670.00789200"
 S ^NEXT="136^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",T")
 S ^VCORR="670.007892-" D ^VEXAMINE
 ;
136 S ^ABSN="30587",^ITEM="III-0587  numexpr=981000000000"
 S ^NEXT="137^V3FN29,V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",T")
 S ^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
137 S ^ABSN="30588",^ITEM="III-0588  numexpr=-981000000000"
 S ^NEXT="V3FN210^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,",T")
 S ^VCORR="981,000,000,000-" D ^VEXAMINE
 ;
END W !!,"End of 52 --- V3FN29",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN210
V3FN210 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"53---V3FN210: $FNUMBER(numexpr,fncodexpr)  -10-"
 W !!,"fncodexpr is a ""T+"""
 ;
138 S ^ABSN="30589",^ITEM="III-0589  numexpr=0000"
 S ^NEXT="139^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T+")
 S ^VCORR="0 " D ^VEXAMINE
 ;
139 S ^ABSN="30590",^ITEM="III-0590  numexpr=-00"
 S ^NEXT="140^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00,"T+")
 S ^VCORR="0 " D ^VEXAMINE
 ;
140 S ^ABSN="30591",^ITEM="III-0591  numexpr=""+00"""
 S ^NEXT="141^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("+00","T+")
 S ^VCORR="0 " D ^VEXAMINE
 ;
141 S ^ABSN="30592",^ITEM="III-0592  numexpr=1"
 S ^NEXT="142^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T+")
 S ^VCORR="1+" D ^VEXAMINE
 ;
142 S ^ABSN="30593",^ITEM="III-0593  numexpr=-1"
 S ^NEXT="143^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T+")
 S ^VCORR="1-" D ^VEXAMINE
 ;
143 S ^ABSN="30594",^ITEM="III-0594  numexpr=0020.00000"
 S ^NEXT="144^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T+")
 S ^VCORR="20+" D ^VEXAMINE
 ;
144 S ^ABSN="30595",^ITEM="III-0595  numexpr=-00020.00000"
 S ^NEXT="145^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T+")
 S ^VCORR="20-" D ^VEXAMINE
 ;
145 S ^ABSN="30596",^ITEM="III-0596  numexpr=31267"
 S ^NEXT="146^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T+")
 S ^VCORR="31267+" D ^VEXAMINE
 ;
146 S ^ABSN="30597",^ITEM="III-0597  numexpr=-31267"
 S ^NEXT="147^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T+")
 S ^VCORR="31267-" D ^VEXAMINE
 ;
147 S ^ABSN="30598",^ITEM="III-0598  numexpr=000000000000000000000000262999219"
 S ^NEXT="148^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T+")
 S ^VCORR="262999219+" D ^VEXAMINE
 ;
148 S ^ABSN="30599",^ITEM="III-0599  numexpr=-000000000000000000000000262999219"
 S ^NEXT="149^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T+")
 S ^VCORR="262999219-" D ^VEXAMINE
 ;
149 S ^ABSN="30600",^ITEM="III-0600  numexpr=000.000789200"
 S ^NEXT="150^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T+")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
150 S ^ABSN="30601",^ITEM="III-0601  numexpr=-000.000789200"
 S ^NEXT="151^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T+")
 S ^VCORR=".0007892-" D ^VEXAMINE
 ;
151 S ^ABSN="30602",^ITEM="III-0602  numexpr=00670.00789200"
 S ^NEXT="152^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T+")
 S ^VCORR="670.007892+" D ^VEXAMINE
 ;
152 S ^ABSN="30603",^ITEM="III-0603  numexpr=-00670.00789200"
 S ^NEXT="153^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T+")
 S ^VCORR="670.007892-" D ^VEXAMINE
 ;
153 S ^ABSN="30604",^ITEM="III-0604  numexpr=981000000000"
 S ^NEXT="154^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T+")
 S ^VCORR="981000000000+" D ^VEXAMINE
 ;
154 S ^ABSN="30605",^ITEM="III-0605  numexpr=-981000000000"
 S ^NEXT="155^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T+")
 S ^VCORR="981000000000-" D ^VEXAMINE
 ;
155 W !!,"fncodexpr is a ""+T""" ;------
 ;
 S ^ABSN="30606",^ITEM="III-0606  numexpr=-31267"
 S ^NEXT="156^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"+T")
 S ^VCORR="31267-" D ^VEXAMINE
 ;
156 S ^ABSN="30607",^ITEM="III-0607  numexpr=000000000000000000000000262999219"
 S ^NEXT="157^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"+T")
 S ^VCORR="262999219+" D ^VEXAMINE
 ;
157 S ^ABSN="30608",^ITEM="III-0608  numexpr=-000000000000000000000000262999219"
 S ^NEXT="158^V3FN210,V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"+T")
 S ^VCORR="262999219-" D ^VEXAMINE
 ;
158 S ^ABSN="30609",^ITEM="III-0609  numexpr=000.000789200"
 S ^NEXT="V3FN211^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+T")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
END W !!,"End of 53 --- V3FN210",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN211
V3FN211 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"54---V3FN211: $FNUMBER(numexpr,fncodexpr)  -11-"
 W !!,"fncodexpr is a ""T-"""
 ;
159 S ^ABSN="30610",^ITEM="III-0610  numexpr=0000"
 S ^NEXT="160^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
160 S ^ABSN="30611",^ITEM="III-0611  numexpr=1"
 S ^NEXT="161^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T-")
 S ^VCORR="1 " D ^VEXAMINE
 ;
161 S ^ABSN="30612",^ITEM="III-0612  numexpr=-1"
 S ^NEXT="162^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T-")
 S ^VCORR="1 " D ^VEXAMINE
 ;
162 S ^ABSN="30613",^ITEM="III-0613  numexpr=0020.00000"
 S ^NEXT="163^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T-")
 S ^VCORR="20 " D ^VEXAMINE
 ;
163 S ^ABSN="30614",^ITEM="III-0614  numexpr=-00020.00000"
 S ^NEXT="164^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T-")
 S ^VCORR="20 " D ^VEXAMINE
 ;
164 S ^ABSN="30615",^ITEM="III-0615  numexpr=31267"
 S ^NEXT="165^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T-")
 S ^VCORR="31267 " D ^VEXAMINE
 ;
165 S ^ABSN="30616",^ITEM="III-0616  numexpr=-31267"
 S ^NEXT="166^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T-")
 S ^VCORR="31267 " D ^VEXAMINE
 ;
166 S ^ABSN="30617",^ITEM="III-0617  numexpr=000000000000000000000000262999219"
 S ^NEXT="167^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T-")
 S ^VCORR="262999219 " D ^VEXAMINE
 ;
167 S ^ABSN="30618",^ITEM="III-0618  numexpr=-000000000000000000000000262999219"
 S ^NEXT="168^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T-")
 S ^VCORR="262999219 " D ^VEXAMINE
 ;
168 S ^ABSN="30619",^ITEM="III-0619  numexpr=000.000789200"
 S ^NEXT="169^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T-")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
169 S ^ABSN="30620",^ITEM="III-0620  numexpr=-000.000789200"
 S ^NEXT="170^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T-")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
170 S ^ABSN="30621",^ITEM="III-0621  numexpr=00670.00789200"
 S ^NEXT="171^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T-")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
171 S ^ABSN="30622",^ITEM="III-0622  numexpr=-00670.00789200"
 S ^NEXT="172^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T-")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
172 S ^ABSN="30623",^ITEM="III-0623  numexpr=981000000000"
 S ^NEXT="173^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T-")
 S ^VCORR="981000000000 " D ^VEXAMINE
 ;
173 S ^ABSN="30624",^ITEM="III-0624  numexpr=-981000000000"
 S ^NEXT="174^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T-")
 S ^VCORR="981000000000 " D ^VEXAMINE
 ;
174 W !!,"fncodexpr is a ""-T""" ;------
 ;
 S ^ABSN="30625",^ITEM="III-0625  numexpr=000.000789200"
 S ^NEXT="175^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"-T")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
175 S ^ABSN="30626",^ITEM="III-0626  numexpr=-000.000789200"
 S ^NEXT="176^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-T")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
176 S ^ABSN="30627",^ITEM="III-0627  numexpr=00670.00789200"
 S ^NEXT="177^V3FN211,V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-T")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
177 S ^ABSN="30628",^ITEM="III-0628  numexpr=-00670.00789200"
 S ^NEXT="V3FN212^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"-T")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
END W !!,"End of 54 --- V3FN211",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN212
V3FN212 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"55---V3FN212: $FNUMBER(numexpr,fncodexpr)  -11-"
 W !!,"fncodexpr is a ""+,"""
 ;
178 S ^ABSN="30629",^ITEM="III-0629  numexpr=0000"
 S ^NEXT="179^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"+,")
 S ^VCORR="0" D ^VEXAMINE
 ;
179 S ^ABSN="30630",^ITEM="III-0630  numexpr=1"
 S ^NEXT="180^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"+,")
 S ^VCORR="+1" D ^VEXAMINE
 ;
180 S ^ABSN="30631",^ITEM="III-0631  numexpr=-1"
 S ^NEXT="181^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"+,")
 S ^VCORR="-1" D ^VEXAMINE
 ;
181 S ^ABSN="30632",^ITEM="III-0632  numexpr=0020.00000"
 S ^NEXT="182^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"+,")
 S ^VCORR="+20" D ^VEXAMINE
 ;
182 S ^ABSN="30633",^ITEM="III-0633  numexpr=-00020.00000"
 S ^NEXT="183^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"+,")
 S ^VCORR="-20" D ^VEXAMINE
 ;
183 S ^ABSN="30634",^ITEM="III-0634  numexpr=31267"
 S ^NEXT="184^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"+,")
 S ^VCORR="+31,267" D ^VEXAMINE
 ;
184 S ^ABSN="30635",^ITEM="III-0635  numexpr=-31267"
 S ^NEXT="185^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"+,")
 S ^VCORR="-31,267" D ^VEXAMINE
 ;
185 S ^ABSN="30636",^ITEM="III-0636  numexpr=000000000000000000000000262999219"
 S ^NEXT="186^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"+,")
 S ^VCORR="+262,999,219" D ^VEXAMINE
 ;
186 S ^ABSN="30637",^ITEM="III-0637  numexpr=-000000000000000000000000262999219"
 S ^NEXT="187^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"+,")
 S ^VCORR="-262,999,219" D ^VEXAMINE
 ;
187 S ^ABSN="30638",^ITEM="III-0638  numexpr=000.000789200"
 S ^NEXT="188^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+,")
 S ^VCORR="+.0007892" D ^VEXAMINE
 ;
188 S ^ABSN="30639",^ITEM="III-0639  numexpr=-000.000789200"
 S ^NEXT="189^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"+,")
 S ^VCORR="-.0007892" D ^VEXAMINE
 ;
189 S ^ABSN="30640",^ITEM="III-0640  numexpr=00670.00789200"
 S ^NEXT="190^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"+,")
 S ^VCORR="+670.007892" D ^VEXAMINE
 ;
190 S ^ABSN="30641",^ITEM="III-0641  numexpr=-00670.00789200"
 S ^NEXT="191^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+,")
 S ^VCORR="-670.007892" D ^VEXAMINE
 ;
191 S ^ABSN="30642",^ITEM="III-0642  numexpr=981000000000"
 S ^NEXT="192^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"+,")
 S ^VCORR="+981,000,000,000" D ^VEXAMINE
 ;
192 S ^ABSN="30643",^ITEM="III-0643  numexpr=-981000000000"
 S ^NEXT="193^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"+,")
 S ^VCORR="-981,000,000,000" D ^VEXAMINE
 ;
193 S ^ABSN="30644",^ITEM="III-0644  numexpr=1E25"
 S ^NEXT="194^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"+,")
 S ^VCORR="+10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
194 S ^ABSN="30645",^ITEM="III-0645  numexpr=-1E25"
 S ^NEXT="195^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"+,")
 S ^VCORR="-10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
195 S ^ABSN="30646",^ITEM="III-0646  numexpr=1E-25"
 S ^NEXT="196^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"+,")
 S ^VCORR="+.0000000000000000000000001" D ^VEXAMINE
 ;
196 S ^ABSN="30647",^ITEM="III-0647  numexpr=-1E-25"
 S ^NEXT="197^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"+,")
 S ^VCORR="-.0000000000000000000000001" D ^VEXAMINE
 ;
197 W !!,"fncodexpr is a "",+""" ;-------
 ;
 S ^ABSN="30648",^ITEM="III-0648  numexpr=000.000789200"
 S ^NEXT="198^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,",+")
 S ^VCORR="+.0007892" D ^VEXAMINE
 ;
198 S ^ABSN="30649",^ITEM="III-0649  numexpr=-000.000789200"
 S ^NEXT="199^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,",+")
 S ^VCORR="-.0007892" D ^VEXAMINE
 ;
199 S ^ABSN="30650",^ITEM="III-0650  numexpr=00670.00789200"
 S ^NEXT="200^V3FN212,V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",+")
 S ^VCORR="+670.007892" D ^VEXAMINE
 ;
200 S ^ABSN="30651",^ITEM="III-0651  numexpr=-00670.00789200"
 S ^NEXT="V3FN213^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",+")
 S ^VCORR="-670.007892" D ^VEXAMINE
 ;
END W !!,"End of 55 --- V3FN212",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN213
V3FN213 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"56---V3FN213: $FNUMBER(numexpr,fncodexpr)  -13-"
 W !!,"fncodexpr is a ""-,"""
 ;
201 S ^ABSN="30652",^ITEM="III-0652  numexpr=0000"
 S ^NEXT="202^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"-,")
 S ^VCORR="0" D ^VEXAMINE
 ;
202 S ^ABSN="30653",^ITEM="III-0653  numexpr=1"
 S ^NEXT="203^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"-,")
 S ^VCORR="1" D ^VEXAMINE
 ;
203 S ^ABSN="30654",^ITEM="III-0654  numexpr=-1"
 S ^NEXT="204^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"-,")
 S ^VCORR="1" D ^VEXAMINE
 ;
204 S ^ABSN="30655",^ITEM="III-0655  numexpr=0020.00000"
 S ^NEXT="205^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"-,")
 S ^VCORR="20" D ^VEXAMINE
 ;
205 S ^ABSN="30656",^ITEM="III-0656  numexpr=-00020.00000"
 S ^NEXT="206^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"-,")
 S ^VCORR="20" D ^VEXAMINE
 ;
206 S ^ABSN="30657",^ITEM="III-0657  numexpr=31267"
 S ^NEXT="207^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"-,")
 S ^VCORR="31,267" D ^VEXAMINE
 ;
207 S ^ABSN="30658",^ITEM="III-0658  numexpr=-31267"
 S ^NEXT="208^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"-,")
 S ^VCORR="31,267" D ^VEXAMINE
 ;
208 S ^ABSN="30659",^ITEM="III-0659  numexpr=000000000000000000000000262999219"
 S ^NEXT="209^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"-,")
 S ^VCORR="262,999,219" D ^VEXAMINE
 ;
209 S ^ABSN="30660",^ITEM="III-0660  numexpr=-000000000000000000000000262999219"
 S ^NEXT="210^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"-,")
 S ^VCORR="262,999,219" D ^VEXAMINE
 ;
210 S ^ABSN="30661",^ITEM="III-0661  numexpr=000.000789200"
 S ^NEXT="211^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"-,")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
211 S ^ABSN="30662",^ITEM="III-0662  numexpr=-000.000789200"
 S ^NEXT="212^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-,")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
212 S ^ABSN="30663",^ITEM="III-0663  numexpr=00670.00789200"
 S ^NEXT="213^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-,")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
213 S ^ABSN="30664",^ITEM="III-0664  numexpr=-00670.00789200"
 S ^NEXT="214^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"-,")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
214 S ^ABSN="30665",^ITEM="III-0665  numexpr=981000000000"
 S ^NEXT="215^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"-,")
 S ^VCORR="981,000,000,000" D ^VEXAMINE
 ;
215 S ^ABSN="30666",^ITEM="III-0666  numexpr=-981000000000"
 S ^NEXT="216^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"-,")
 S ^VCORR="981,000,000,000" D ^VEXAMINE
 ;
216 S ^ABSN="30667",^ITEM="III-0667  numexpr=1E25"
 S ^NEXT="217^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"-,")
 S ^VCORR="10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
217 S ^ABSN="30668",^ITEM="III-0668  numexpr=-1E25"
 S ^NEXT="218^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"-,")
 S ^VCORR="10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
218 S ^ABSN="30669",^ITEM="III-0669  numexpr=1E-25"
 S ^NEXT="219^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"-,")
 S ^VCORR=".0000000000000000000000001" D ^VEXAMINE
 ;
219 S ^ABSN="30670",^ITEM="III-0670  numexpr=-1E-25"
 S ^NEXT="220^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"-,")
 S ^VCORR=".0000000000000000000000001" D ^VEXAMINE
 ;
220 W !!,"fncodexpr is a "",-""" ;----------
 ;
 S ^ABSN="30671",^ITEM="III-0671  numexpr=-000.000789200"
 S ^NEXT="221^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,",-")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
221 S ^ABSN="30672",^ITEM="III-0672  numexpr=00670.00789200"
 S ^NEXT="222^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",-")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
222 S ^ABSN="30673",^ITEM="III-0673  numexpr=-00670.00789200"
 S ^NEXT="223^V3FN213,V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",-")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
223 S ^ABSN="30674",^ITEM="III-0674  numexpr=981000000000"
 S ^NEXT="V3FN214^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",-")
 S ^VCORR="981,000,000,000" D ^VEXAMINE
 ;
END W !!,"End of 56 --- V3FN213",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN214
V3FN214 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"57---V3FN214: $FNUMBER(numexpr,fncodexpr)  -14-"
 W !!,"fncodexpr is a ""-+"""
 ;
224 S ^ABSN="30675",^ITEM="III-0675  numexpr=0000"
 S ^NEXT="225^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"-+")
 S ^VCORR="0" D ^VEXAMINE
 ;
225 S ^ABSN="30676",^ITEM="III-0676  numexpr=-00"
 S ^NEXT="226^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00,"-+")
 S ^VCORR="0" D ^VEXAMINE
 ;
226 S ^ABSN="30677",^ITEM="III-0677  numexpr=""+00"""
 S ^NEXT="227^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("+00","-+")
 S ^VCORR="0" D ^VEXAMINE
 ;
227 S ^ABSN="30678",^ITEM="III-0678  numexpr=1"
 S ^NEXT="228^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"-+")
 S ^VCORR="+1" D ^VEXAMINE
 ;
228 S ^ABSN="30679",^ITEM="III-0679  numexpr=-1"
 S ^NEXT="229^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"-+")
 S ^VCORR="1" D ^VEXAMINE
 ;
229 S ^ABSN="30680",^ITEM="III-0680  numexpr=0020.00000"
 S ^NEXT="230^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"-+")
 S ^VCORR="+20" D ^VEXAMINE
 ;
230 S ^ABSN="30681",^ITEM="III-0681  numexpr=-00020.00000"
 S ^NEXT="231^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"-+")
 S ^VCORR="20" D ^VEXAMINE
 ;
231 S ^ABSN="30682",^ITEM="III-0682  numexpr=31267"
 S ^NEXT="232^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"-+")
 S ^VCORR="+31267" D ^VEXAMINE
 ;
232 S ^ABSN="30683",^ITEM="III-0683  numexpr=-31267"
 S ^NEXT="233^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"-+")
 S ^VCORR="31267" D ^VEXAMINE
 ;
233 S ^ABSN="30684",^ITEM="III-0684  numexpr=000000000000000000000000262999219"
 S ^NEXT="234^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"-+")
 S ^VCORR="+262999219" D ^VEXAMINE
 ;
234 S ^ABSN="30685",^ITEM="III-0685  numexpr=-000000000000000000000000262999219"
 S ^NEXT="235^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"-+")
 S ^VCORR="262999219" D ^VEXAMINE
 ;
235 S ^ABSN="30686",^ITEM="III-0686  numexpr=000.000789200"
 S ^NEXT="236^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"-+")
 S ^VCORR="+.0007892" D ^VEXAMINE
 ;
236 S ^ABSN="30687",^ITEM="III-0687  numexpr=-000.000789200"
 S ^NEXT="237^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-+")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
237 S ^ABSN="30688",^ITEM="III-0688  numexpr=00670.00789200"
 S ^NEXT="238^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-+")
 S ^VCORR="+670.007892" D ^VEXAMINE
 ;
238 S ^ABSN="30689",^ITEM="III-0689  numexpr=-00670.00789200"
 S ^NEXT="239^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"-+")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
239 S ^ABSN="30690",^ITEM="III-0690  numexpr=981000000000"
 S ^NEXT="240^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"-+")
 S ^VCORR="+981000000000" D ^VEXAMINE
 ;
240 S ^ABSN="30691",^ITEM="III-0691  numexpr=-981000000000"
 S ^NEXT="241^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"-+")
 S ^VCORR="981000000000" D ^VEXAMINE
 ;
241 W !!,"fncodexpr is a ""+-""" ;-------
 ;
 S ^ABSN="30692",^ITEM="III-0692  numexpr=000.000789200"
 S ^NEXT="242^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+-")
 S ^VCORR="+.0007892" D ^VEXAMINE
 ;
242 S ^ABSN="30693",^ITEM="III-0693  numexpr=-000.000789200"
 S ^NEXT="243^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"+-")
 S ^VCORR=".0007892" D ^VEXAMINE
 ;
243 S ^ABSN="30694",^ITEM="III-0694  numexpr=00670.00789200"
 S ^NEXT="244^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"+-")
 S ^VCORR="+670.007892" D ^VEXAMINE
 ;
244 S ^ABSN="30695",^ITEM="III-0695  numexpr=-00670.00789200"
 S ^NEXT="245^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+-")
 S ^VCORR="670.007892" D ^VEXAMINE
 ;
 W !!,"fncodexpr is a ""T,+"""
 ;
245 S ^ABSN="30696",^ITEM="III-0696  numexpr=0000"
 S ^NEXT="246^V3FN214,V3FN215^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T,+"),^VCORR="0 " D ^VEXAMINE
 ;
246 S ^ABSN="30697",^ITEM="III-0697  numexpr=1"
 S ^NEXT="^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T,+"),^VCORR="1+" D ^VEXAMINE
 ;
END W !!,"End of 57 --- V3FN214",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN215
V3FN215 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"58---V3FN215: $FNUMBER(numexpr,fncodexpr)  -15-"
 ;
247 S ^ABSN="30698",^ITEM="III-0698  numexpr=-1"
 S ^NEXT="248^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T,+"),^VCORR="1-" D ^VEXAMINE
 ;
248 S ^ABSN="30699",^ITEM="III-0699  numexpr=0020.00000"
 S ^NEXT="249^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T,+"),^VCORR="20+" D ^VEXAMINE
 ;
249 S ^ABSN="30700",^ITEM="III-0700  numexpr=-00020.00000"
 S ^NEXT="250^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T,+"),^VCORR="20-" D ^VEXAMINE
 ;
250 S ^ABSN="30701",^ITEM="III-0701  numexpr=31267"
 S ^NEXT="251^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T,+"),^VCORR="31,267+" D ^VEXAMINE
 ;
251 S ^ABSN="30702",^ITEM="III-0702  numexpr=-31267"
 S ^NEXT="252^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T,+"),^VCORR="31,267-" D ^VEXAMINE
 ;
252 S ^ABSN="30703",^ITEM="III-0703  numexpr=000000000000000000000000262999219"
 S ^NEXT="253^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T,+"),^VCORR="262,999,219+" D ^VEXAMINE
 ;
253 S ^ABSN="30704",^ITEM="III-0704  numexpr=-000000000000000000000000262999219"
 S ^NEXT="254^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T,+"),^VCORR="262,999,219-" D ^VEXAMINE
 ;
254 S ^ABSN="30705",^ITEM="III-0705  numexpr=000.000789200"
 S ^NEXT="255^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T,+"),^VCORR=".0007892+" D ^VEXAMINE
 ;
255 S ^ABSN="30706",^ITEM="III-0706  numexpr=-000.000789200"
 S ^NEXT="256^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T,+"),^VCORR=".0007892-" D ^VEXAMINE
 ;
256 S ^ABSN="30707",^ITEM="III-0707  numexpr=00670.00789200"
 S ^NEXT="257^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T,+"),^VCORR="670.007892+" D ^VEXAMINE
 ;
257 S ^ABSN="30708",^ITEM="III-0708  numexpr=-00670.00789200"
 S ^NEXT="258^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T,+"),^VCORR="670.007892-" D ^VEXAMINE
 ;
258 S ^ABSN="30709",^ITEM="III-0709  numexpr=981000000000"
 S ^NEXT="259^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T,+"),^VCORR="981,000,000,000+" D ^VEXAMINE
 ;
259 S ^ABSN="30710",^ITEM="III-0710  numexpr=-981000000000"
 S ^NEXT="260^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T,+"),^VCORR="981,000,000,000-" D ^VEXAMINE
 ;
260 S ^ABSN="30711",^ITEM="III-0711  numexpr=1E25"
 S ^NEXT="261^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"T,+"),^VCORR="10,000,000,000,000,000,000,000,000+" D ^VEXAMINE
 ;
261 S ^ABSN="30712",^ITEM="III-0712  numexpr=-1E25"
 S ^NEXT="262^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"T,+"),^VCORR="10,000,000,000,000,000,000,000,000-" D ^VEXAMINE
 ;
262 S ^ABSN="30713",^ITEM="III-0713  numexpr=1E-25"
 S ^NEXT="263^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"T,+"),^VCORR=".0000000000000000000000001+" D ^VEXAMINE
 ;
263 S ^ABSN="30714",^ITEM="III-0714  numexpr=-1E-25"
 S ^NEXT="264^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"T,+"),^VCORR=".0000000000000000000000001-" D ^VEXAMINE
 ;
264 W !!,"fncodexpr is a ""T+,"""
 ;
 S ^ABSN="30715",^ITEM="III-0715  fncodexpr is a ""T+,"""
 S ^NEXT="265^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T+,"),^VCORR="262,999,219+" D ^VEXAMINE
 ;
265 W !!,"fncodexpr is a ""+,T"""
 ;
 S ^ABSN="30716",^ITEM="III-0716  fncodexpr is a ""+,T"""
 S ^NEXT="266^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"+,T"),^VCORR="262,999,219-" D ^VEXAMINE
 ;
266 W !!,"fncodexpr is a ""+T,"""
 ;
 S ^ABSN="30717",^ITEM="III-0717  fncodexpr is a ""+T,"""
 S ^NEXT="267^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+T,"),^VCORR=".0007892+" D ^VEXAMINE
 ;
267 W !!,"fncodexpr is a "",+T"""
 ;
 S ^ABSN="30718",^ITEM="III-0718  fncodexpr is a "",+T"""
 S ^NEXT="268^V3FN215,V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,",+T"),^VCORR=".0007892-" D ^VEXAMINE
 ;
268 W !!,"fncodexpr is a "",T+"""
 ;
 S ^ABSN="30719",^ITEM="III-0719  fncodexpr is a "",T+"""
 S ^NEXT="V3FN216^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",T+"),^VCORR="670.007892+" D ^VEXAMINE
 ;
END W !!,"End of 58 --- V3FN215",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN216
V3FN216 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"59---V3FN216: $FNUMBER(numexpr,fncodexpr)  -16-"
 W !!,"fncodexpr is a ""T,-"""
 ;
269 S ^ABSN="30720",^ITEM="III-0720  numexpr=0000"
 S ^NEXT="270^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T,-"),^VCORR="0 " D ^VEXAMINE
 ;
270 S ^ABSN="30721",^ITEM="III-0721  numexpr=1"
 S ^NEXT="271^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T,-"),^VCORR="1 " D ^VEXAMINE
 ;
271 S ^ABSN="30722",^ITEM="III-0722  numexpr=-1"
 S ^NEXT="272^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T,-"),^VCORR="1 " D ^VEXAMINE
 ;
272 S ^ABSN="30723",^ITEM="III-0723  numexpr=0020.00000"
 S ^NEXT="273^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T,-"),^VCORR="20 " D ^VEXAMINE
 ;
273 S ^ABSN="30724",^ITEM="III-0724  numexpr=-00020.00000"
 S ^NEXT="274^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T,-"),^VCORR="20 " D ^VEXAMINE
 ;
274 S ^ABSN="30725",^ITEM="III-0725  numexpr=31267"
 S ^NEXT="275^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T,-"),^VCORR="31,267 " D ^VEXAMINE
 ;
275 S ^ABSN="30726",^ITEM="III-0726  numexpr=-31267"
 S ^NEXT="276^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T,-"),^VCORR="31,267 " D ^VEXAMINE
 ;
276 S ^ABSN="30727",^ITEM="III-0727  numexpr=000000000000000000000000262999219"
 S ^NEXT="277^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T,-"),^VCORR="262,999,219 " D ^VEXAMINE
 ;
277 S ^ABSN="30728",^ITEM="III-0728  numexpr=-000000000000000000000000262999219"
 S ^NEXT="278^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T,-"),^VCORR="262,999,219 " D ^VEXAMINE
 ;
278 S ^ABSN="30729",^ITEM="III-0729  numexpr=000.000789200"
 S ^NEXT="279^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T,-"),^VCORR=".0007892 " D ^VEXAMINE
 ;
279 S ^ABSN="30730",^ITEM="III-0730  numexpr=-000.000789200"
 S ^NEXT="280^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T,-"),^VCORR=".0007892 " D ^VEXAMINE
 ;
280 S ^ABSN="30731",^ITEM="III-0731  numexpr=00670.00789200"
 S ^NEXT="281^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T,-"),^VCORR="670.007892 " D ^VEXAMINE
 ;
281 S ^ABSN="30732",^ITEM="III-0732  numexpr=-00670.00789200"
 S ^NEXT="282^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T,-"),^VCORR="670.007892 " D ^VEXAMINE
 ;
282 S ^ABSN="30733",^ITEM="III-0733  numexpr=981000000000"
 S ^NEXT="283^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T,-"),^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
283 S ^ABSN="30734",^ITEM="III-0734  numexpr=-981000000000"
 S ^NEXT="284^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T,-"),^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
284 S ^ABSN="30735",^ITEM="III-0735  numexpr=1E25"
 S ^NEXT="285^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"T,-"),^VCORR="10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
285 S ^ABSN="30736",^ITEM="III-0736  numexpr=-1E25"
 S ^NEXT="286^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"T,-"),^VCORR="10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
286 S ^ABSN="30737",^ITEM="III-0737  numexpr=1E-25"
 S ^NEXT="287^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"T,-"),^VCORR=".0000000000000000000000001 " D ^VEXAMINE
 ;
287 S ^ABSN="30738",^ITEM="III-0738  numexpr=-1E-25"
 S ^NEXT="288^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"T,-"),^VCORR=".0000000000000000000000001 " D ^VEXAMINE
 ;
288 W !!,"fncodexpr is a ""T-,"""
 ;
 S ^ABSN="30739",^ITEM="III-0739  fncodexpr is a ""T-,"""
 S ^NEXT="289^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T-,"),^VCORR=".0007892 " D ^VEXAMINE
 ;
289 W !!,"fncodexpr is a ""-,T"""
 ;
 S ^ABSN="30740",^ITEM="III-0740  fncodexpr is a ""-,T"""
 S ^NEXT="290^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-,T"),^VCORR="670.007892 " D ^VEXAMINE
 ;
290 W !!,"fncodexpr is a ""-T,"""
 ;
 S ^ABSN="30741",^ITEM="III-0741  fncodexpr is a ""-T,"""
 S ^NEXT="291^V3FN216,V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"-T,"),^VCORR="670.007892 " D ^VEXAMINE
 ;
291 W !!,"fncodexpr is a "",-T"""
 ;
 S ^ABSN="30742",^ITEM="III-0742  fncodexpr is a "",-T"""
 S ^NEXT="V3FN217^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",-T"),^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
END W !!,"End of 59 --- V3FN216",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN217
V3FN217 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"60---V3FN217: $FNUMBER(numexpr,fncodexpr)  -17-"
 ;
292 W !!,"fncodexpr is a "",T-"""
 ;
 S ^ABSN="30743",^ITEM="III-0743  fncodexpr is a "",T-"""
 S ^NEXT="293^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,",T-"),^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
293 W !!,"fncodexpr is a ""T+-""" ;------
 ;
 S ^ABSN="30744",^ITEM="III-0744  numexpr=0000"
 S ^NEXT="294^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T+-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
294 S ^ABSN="30745",^ITEM="III-0745  numexpr=-00"
 S ^NEXT="295^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00,"T+-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
295 S ^ABSN="30746",^ITEM="III-0746  numexpr=""+00"""
 S ^NEXT="296^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("+00","T+-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
296 S ^ABSN="30747",^ITEM="III-0747  numexpr=1"
 S ^NEXT="297^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T+-")
 S ^VCORR="1+" D ^VEXAMINE
 ;
297 S ^ABSN="30748",^ITEM="III-0748  numexpr=-1"
 S ^NEXT="298^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T+-")
 S ^VCORR="1 " D ^VEXAMINE
 ;
298 S ^ABSN="30749",^ITEM="III-0749  numexpr=0020.00000"
 S ^NEXT="299^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T+-")
 S ^VCORR="20+" D ^VEXAMINE
 ;
299 S ^ABSN="30750",^ITEM="III-0750  numexpr=-00020.00000"
 S ^NEXT="300^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T+-")
 S ^VCORR="20 " D ^VEXAMINE
 ;
300 S ^ABSN="30751",^ITEM="III-0751  numexpr=31267"
 S ^NEXT="301^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T+-")
 S ^VCORR="31267+" D ^VEXAMINE
 ;
301 S ^ABSN="30752",^ITEM="III-0752  numexpr=-31267"
 S ^NEXT="302^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T+-")
 S ^VCORR="31267 " D ^VEXAMINE
 ;
302 S ^ABSN="30753",^ITEM="III-0753  numexpr=000000000000000000000000262999219"
 S ^NEXT="303^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T+-")
 S ^VCORR="262999219+" D ^VEXAMINE
 ;
303 S ^ABSN="30754",^ITEM="III-0754  numexpr=-000000000000000000000000262999219"
 S ^NEXT="304^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T+-")
 S ^VCORR="262999219 " D ^VEXAMINE
 ;
304 S ^ABSN="30755",^ITEM="III-0755  numexpr=000.000789200"
 S ^NEXT="305^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T+-")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
305 S ^ABSN="30756",^ITEM="III-0756  numexpr=-000.000789200"
 S ^NEXT="306^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T+-")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
306 S ^ABSN="30757",^ITEM="III-0757  numexpr=00670.00789200"
 S ^NEXT="307^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T+-")
 S ^VCORR="670.007892+" D ^VEXAMINE
 ;
307 S ^ABSN="30758",^ITEM="III-0758  numexpr=-00670.00789200"
 S ^NEXT="308^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T+-")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
308 S ^ABSN="30759",^ITEM="III-0759  numexpr=981000000000"
 S ^NEXT="309^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T+-")
 S ^VCORR="981000000000+" D ^VEXAMINE
 ;
309 S ^ABSN="30760",^ITEM="III-0760  numexpr=-981000000000"
 S ^NEXT="310^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T+-")
 S ^VCORR="981000000000 " D ^VEXAMINE
 ;
310 W !!,"fncodexpr is a ""T-+""" ;------
 ;
 S ^ABSN="30761",^ITEM="III-0761  fncodexpr is a ""T-+"""
 S ^NEXT="311^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T+-")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
311 W !!,"fncodexpr is a ""-+T""" ;------
 ;
 S ^ABSN="30762",^ITEM="III-0762  fncodexpr is a ""-+T"""
 S ^NEXT="312^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-+T")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
312 W !!,"fncodexpr is a ""-T+""" ;------
 ;
 S ^ABSN="30763",^ITEM="III-0763  fncodexpr is a ""-T+"""
 S ^NEXT="313^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-T+")
 S ^VCORR="670.007892+" D ^VEXAMINE
 ;
313 W !!,"fncodexpr is a ""+-T""" ;------
 ;
 S ^ABSN="30764",^ITEM="III-0764  fncodexpr is a ""+-T"""
 S ^NEXT="314^V3FN217,V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+-T")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
314 W !!,"fncodexpr is a ""+T-""" ;------
 ;
 S ^ABSN="30765",^ITEM="III-0765  fncodexpr is a ""+T-"""
 S ^NEXT="V3FN218^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"+T-")
 S ^VCORR="981000000000+" D ^VEXAMINE
 ;
END W !!,"End of 60 --- V3FN217",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN218
V3FN218 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"61---V3FN218: $FNUMBER(numexpr,fncodexpr)  -18-"
 W !!,"fncodexpr is a "",+-"""
 ;
315 S ^ABSN="30766",^ITEM="III-0766  numexpr=0000"
 S ^NEXT="316^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,",+-"),^VCORR="0" D ^VEXAMINE
 ;
316 S ^ABSN="30767",^ITEM="III-0767  numexpr=1"
 S ^NEXT="317^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,",+-"),^VCORR="+1" D ^VEXAMINE
 ;
317 S ^ABSN="30768",^ITEM="III-0768  numexpr=-1"
 S ^NEXT="318^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,",+-"),^VCORR="1" D ^VEXAMINE
 ;
318 S ^ABSN="30769",^ITEM="III-0769  numexpr=0020.00000"
 S ^NEXT="319^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,",+-"),^VCORR="+20" D ^VEXAMINE
 ;
319 S ^ABSN="30770",^ITEM="III-0770  numexpr=-00020.00000"
 S ^NEXT="320^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,",+-"),^VCORR="20" D ^VEXAMINE
 ;
320 S ^ABSN="30771",^ITEM="III-0771  numexpr=31267"
 S ^NEXT="321^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,",+-"),^VCORR="+31,267" D ^VEXAMINE
 ;
321 S ^ABSN="30772",^ITEM="III-0772  numexpr=-31267"
 S ^NEXT="322^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,",+-"),^VCORR="31,267" D ^VEXAMINE
 ;
322 S ^ABSN="30773",^ITEM="III-0773  numexpr=000000000000000000000262999219"
 S ^NEXT="323^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000262999219,",+-"),^VCORR="+262,999,219" D ^VEXAMINE
 ;
323 S ^ABSN="30774",^ITEM="III-0774  numexpr=-000000000000000000000262999219"
 S ^NEXT="324^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000262999219,",+-"),^VCORR="262,999,219" D ^VEXAMINE
 ;
324 S ^ABSN="30775",^ITEM="III-0775  numexpr=000.000789200"
 S ^NEXT="325^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,",+-"),^VCORR="+.0007892" D ^VEXAMINE
 ;
325 S ^ABSN="30776",^ITEM="III-0776  numexpr=-000.000789200"
 S ^NEXT="326^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,",+-"),^VCORR=".0007892" D ^VEXAMINE
 ;
326 S ^ABSN="30777",^ITEM="III-0777  numexpr=00670.00789200"
 S ^NEXT="327^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,",+-"),^VCORR="+670.007892" D ^VEXAMINE
 ;
327 S ^ABSN="30778",^ITEM="III-0778  numexpr=-00670.00789200"
 S ^NEXT="328^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,",+-"),^VCORR="670.007892" D ^VEXAMINE
 ;
328 S ^ABSN="30779",^ITEM="III-0779  numexpr=981000000000"
 S ^NEXT="329^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,",+-"),^VCORR="+981,000,000,000" D ^VEXAMINE
 ;
329 S ^ABSN="30780",^ITEM="III-0780  numexpr=-981000000000"
 S ^NEXT="330^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,",+-"),^VCORR="981,000,000,000" D ^VEXAMINE
 ;
330 S ^ABSN="30781",^ITEM="III-0781  numexpr=1E25"
 S ^NEXT="331^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,",+-"),^VCORR="+10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
331 S ^ABSN="30782",^ITEM="III-0782  numexpr=-1E25"
 S ^NEXT="332^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,",+-"),^VCORR="10,000,000,000,000,000,000,000,000" D ^VEXAMINE
 ;
332 S ^ABSN="30783",^ITEM="III-0783  numexpr=1E-25"
 S ^NEXT="333^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,",+-"),^VCORR="+.0000000000000000000000001" D ^VEXAMINE
 ;
333 S ^ABSN="30784",^ITEM="III-0784  numexpr=-1E-25"
 S ^NEXT="334^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,",+-"),^VCORR=".0000000000000000000000001" D ^VEXAMINE
 ;
334 W !!,"fncodexpr is a "",-+"""
 S ^ABSN="30785",^ITEM="III-0785  fncodexpr is a "",-+"""
 S ^NEXT="335^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,",-+"),^VCORR="+.0007892" D ^VEXAMINE
 ;
335 W !!,"fncodexpr is a ""-+,"""
 S ^ABSN="30786",^ITEM="III-0786  fncodexpr is a ""-+,"""
 S ^NEXT="336^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"-+,"),^VCORR=".0007892" D ^VEXAMINE
 ;
336 W !!,"fncodexpr is a ""-,+"""
 S ^ABSN="30787",^ITEM="III-0787  fncodexpr is a ""-,+"""
 S ^NEXT="337^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"-,+"),^VCORR="+670.007892" D ^VEXAMINE
 ;
337 W !!,"fncodexpr is a ""+-,"""
 S ^ABSN="30788",^ITEM="III-0788  fncodexpr is a ""+-,"""
 S ^NEXT="338^V3FN218,V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+-,"),^VCORR="670.007892" D ^VEXAMINE
 ;
338 W !!,"fncodexpr is a ""+,-"""
 S ^ABSN="30789",^ITEM="III-0789  fncodexpr is a ""+,-"""
 S ^NEXT="V3FN219^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"+,-"),^VCORR="+981,000,000,000" D ^VEXAMINE
 ;
END W !!,"End of 61 --- V3FN218",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN219
V3FN219 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"62---V3FN219: $FNUMBER(numexpr,fncodexpr)  -19-"
 W !!,"fncodexpr is a ""T,+-""" ;------
 ;
339 S ^ABSN="30790",^ITEM="III-0790  numexpr=0000"
 S ^NEXT="340^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T,+-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
340 S ^ABSN="30791",^ITEM="III-0791  numexpr=1"
 S ^NEXT="341^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1,"T,+-")
 S ^VCORR="1+" D ^VEXAMINE
 ;
341 S ^ABSN="30792",^ITEM="III-0792  numexpr=-1"
 S ^NEXT="342^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,"T,+-")
 S ^VCORR="1 " D ^VEXAMINE
 ;
342 S ^ABSN="30793",^ITEM="III-0793  numexpr=0020.00000"
 S ^NEXT="343^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,"T,+-")
 S ^VCORR="20+" D ^VEXAMINE
 ;
343 S ^ABSN="30794",^ITEM="III-0794  numexpr=-00020.00000"
 S ^NEXT="344^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,"T,+-")
 S ^VCORR="20 " D ^VEXAMINE
 ;
344 S ^ABSN="30795",^ITEM="III-0795  numexpr=31267"
 S ^NEXT="345^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,"T,+-")
 S ^VCORR="31,267+" D ^VEXAMINE
 ;
345 S ^ABSN="30796",^ITEM="III-0796  numexpr=-31267"
 S ^NEXT="346^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,"T,+-")
 S ^VCORR="31,267 " D ^VEXAMINE
 ;
346 S ^ABSN="30797",^ITEM="III-0797  numexpr=000000000000000000000000262999219"
 S ^NEXT="347^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"T,+-")
 S ^VCORR="262,999,219+" D ^VEXAMINE
 ;
347 S ^ABSN="30798",^ITEM="III-0798  numexpr=-000000000000000000000000262999219"
 S ^NEXT="348^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"T,+-")
 S ^VCORR="262,999,219 " D ^VEXAMINE
 ;
348 S ^ABSN="30799",^ITEM="III-0799  numexpr=000.000789200"
 S ^NEXT="349^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"T,+-")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
349 S ^ABSN="30800",^ITEM="III-0800  numexpr=-000.000789200"
 S ^NEXT="350^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"T,+-")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
350 S ^ABSN="30801",^ITEM="III-0801  numexpr=00670.00789200"
 S ^NEXT="351^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"T,+-")
 S ^VCORR="670.007892+" D ^VEXAMINE
 ;
351 S ^ABSN="30802",^ITEM="III-0802  numexpr=-00670.00789200"
 S ^NEXT="352^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"T,+-")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
352 S ^ABSN="30803",^ITEM="III-0803  numexpr=981000000000"
 S ^NEXT="353^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"T,+-")
 S ^VCORR="981,000,000,000+" D ^VEXAMINE
 ;
353 S ^ABSN="30804",^ITEM="III-0804  numexpr=-981000000000"
 S ^NEXT="354^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"T,+-")
 S ^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
354 S ^ABSN="30805",^ITEM="III-0805  numexpr=1E25"
 S ^NEXT="355^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"T,+-")
 S ^VCORR="10,000,000,000,000,000,000,000,000+" D ^VEXAMINE
 ;
355 S ^ABSN="30806",^ITEM="III-0806  numexpr=-1E25"
 S ^NEXT="356^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"T,+-")
 S ^VCORR="10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
356 S ^ABSN="30807",^ITEM="III-0807  numexpr=1E-25"
 S ^NEXT="357^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"T,+-")
 S ^VCORR=".0000000000000000000000001+" D ^VEXAMINE
 ;
357 S ^ABSN="30808",^ITEM="III-0808  numexpr=-1E-25"
 S ^NEXT="358^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"T,+-")
 S ^VCORR=".0000000000000000000000001 " D ^VEXAMINE
 ;
358 W !!,"fncodexpr is a ""T,-+""" ;------
 ;
 S ^ABSN="30809",^ITEM="III-0809  numexpr=0000"
 S ^NEXT="359^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000,"T,+-")
 S ^VCORR="0 " D ^VEXAMINE
 ;
359 W !!,"fncodexpr is a ""T-+,""" ;------
 ;
 S ^ABSN="30810",^ITEM="III-0810  fncodexpr is a ""T-+,"""
 S ^NEXT="360^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(235E-5,"T-+,")
 S ^VCORR=".00235+" D ^VEXAMINE
 ;
360 W !!,"fncodexpr is a ""T-,+""" ;------
 ;
 S ^ABSN="30811",^ITEM="III-0811  fncodexpr is a ""T-,+"""
 S ^NEXT="361^V3FN219,V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(603.450000000E+4,"T-,+")
 S ^VCORR="6,034,500+" D ^VEXAMINE
 ;
361 W !!,"fncodexpr is a ""T+-,""" ;------
 ;
 S ^ABSN="30812",^ITEM="III-0812  fncodexpr is a ""T+-,"""
 ;changed correct value 20/1/94
 S ^NEXT="V3FN220^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-9810000.0200,"T+-,")
 S ^VCORR="9,810,000.02 " D ^VEXAMINE
 ;
END W !!,"End of 62 --- V3FN219",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN220
V3FN220 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"63---V3FN220: $FNUMBER(numexpr,fncodexpr)  -20-"
362 W !!,"fncodexpr is a ""T+,-""" ;------
 ;
 S ^ABSN="30813",^ITEM="III-0813  fncodexpr is a ""T+,-"""
 S ^NEXT="363^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0.0002004E+10,"T+,-")
 S ^VCORR="2,004,000+" D ^VEXAMINE
 ;
363 W !!,"fncodexpr is a "",T+-""" ;------
 ;
 S ^ABSN="30814",^ITEM="III-0814  fncodexpr is a "",T+-"""
 S ^NEXT="364^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(98765432E-10,",T+-")
 S ^VCORR=".0098765432+" D ^VEXAMINE
 ;
364 W !!,"fncodexpr is a "",T-+""" ;------
 ;
 S ^ABSN="30815",^ITEM="III-0815  fncodexpr is a "",T-+"""
 ;changed correct value 20/1/94
 S ^NEXT="365^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1,",T-+")
 S ^VCORR="1 " D ^VEXAMINE
 ;
365 W !!,"fncodexpr is a "",-+T""" ;------
 ;
 S ^ABSN="30816",^ITEM="III-0816  fncodexpr is a "",-+T"""
 S ^NEXT="366^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0020.00000,",-+T")
 S ^VCORR="20+" D ^VEXAMINE
 ;
366 W !!,"fncodexpr is a "",-T+""" ;------
 ;
 S ^ABSN="30817",^ITEM="III-0817  fncodexpr is a "",-T+"""
 S ^NEXT="367^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00020.00000,",-T+")
 S ^VCORR="20 " D ^VEXAMINE
 ;
367 W !!,"fncodexpr is a "",+-T""" ;------
 ;
 S ^ABSN="30818",^ITEM="III-0818  fncodexpr is a "",+-T"""
 S ^NEXT="368^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(31267,",+-T")
 S ^VCORR="31,267+" D ^VEXAMINE
 ;
368 W !!,"fncodexpr is a "",+T-""" ;------
 ;
 S ^ABSN="30819",^ITEM="III-0819  fncodexpr is a "",+T-"""
 S ^NEXT="369^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-31267,",+T-")
 S ^VCORR="31,267 " D ^VEXAMINE
 ;
369 W !!,"fncodexpr is a ""+T,-""" ;------
 ;
 S ^ABSN="30820",^ITEM="III-0820  fncodexpr is a ""+T,-"""
 S ^NEXT="370^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000000000000000000000000262999219,"+T,-")
 S ^VCORR="262,999,219+" D ^VEXAMINE
 ;
370 W !!,"fncodexpr is a ""+T-,""" ;------
 ;
 S ^ABSN="30821",^ITEM="III-0821  fncodexpr is a ""+T-,"""
 S ^NEXT="371^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,"+T-,")
 S ^VCORR="262,999,219 " D ^VEXAMINE
 ;
371 W !!,"fncodexpr is a ""+-,T""" ;------
 ;
 S ^ABSN="30822",^ITEM="III-0822  fncodexpr is a ""+-,T"""
 S ^NEXT="372^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(000.000789200,"+-,T")
 S ^VCORR=".0007892+" D ^VEXAMINE
 ;
372 W !!,"fncodexpr is a ""+-T,""" ;------
 ;
 S ^ABSN="30823",^ITEM="III-0823  fncodexpr is a ""+-T,"""
 S ^NEXT="373^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000.000789200,"+-T,")
 S ^VCORR=".0007892 " D ^VEXAMINE
 ;
373 W !!,"fncodexpr is a ""+,-T""" ;------
 ;
 S ^ABSN="30824",^ITEM="III-0824  fncodexpr is a ""+,-T"""
 S ^NEXT="374^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00670.00789200,"+,-T")
 S ^VCORR="670.007892+" D ^VEXAMINE
 ;
374 W !!,"fncodexpr is a ""+,T-""" ;------
 ;
 S ^ABSN="30825",^ITEM="III-0825  fncodexpr is a ""+,T-"""
 S ^NEXT="375^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-00670.00789200,"+,T-")
 S ^VCORR="670.007892 " D ^VEXAMINE
 ;
375 W !!,"fncodexpr is a ""-T,+""" ;------
 ;
 S ^ABSN="30826",^ITEM="III-0826  fncodexpr is a ""-T,+"""
 S ^NEXT="376^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(--981000000000,"-T,+")
 S ^VCORR="981,000,000,000+" D ^VEXAMINE
 ;
376 W !!,"fncodexpr is a ""-T+,""" ;------
 ;
 S ^ABSN="30827",^ITEM="III-0827  fncodexpr is a ""-T+,"""
 S ^NEXT="377^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-981000000000,"-T+,")
 S ^VCORR="981,000,000,000 " D ^VEXAMINE
 ;
377 W !!,"fncodexpr is a ""-+,T""" ;------
 ;
 S ^ABSN="30828",^ITEM="III-0828  fncodexpr is a ""-+,T"""
 S ^NEXT="378^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E25,"-+,T")
 S ^VCORR="10,000,000,000,000,000,000,000,000+" D ^VEXAMINE
 ;
378 W !!,"fncodexpr is a ""-+T,""" ;------
 ;
 S ^ABSN="30829",^ITEM="III-0829  fncodexpr is a ""-+T,"""
 S ^NEXT="379^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E25,"-+T,")
 S ^VCORR="10,000,000,000,000,000,000,000,000 " D ^VEXAMINE
 ;
379 W !!,"fncodexpr is a ""-,+T""" ;------
 ;
 S ^ABSN="30830",^ITEM="III-0830  fncodexpr is a ""-,+T"""
 S ^NEXT="380^V3FN220,V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1E-25,"-,+T")
 S ^VCORR=".0000000000000000000000001+" D ^VEXAMINE
 ;
380 W !!,"fncodexpr is a ""-,T+""" ;------
 ;
 S ^ABSN="30831",^ITEM="III-0831  fncodexpr is a ""-,T+"""
 S ^NEXT="V3FN221^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-1E-25,"-,T+")
 S ^VCORR=".0000000000000000000000001 " D ^VEXAMINE
 ;
END W !!,"End of 63 --- V3FN220",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN221
V3FN221 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"64---V3FN221: $FNUMBER(numexpr,fncodexpr)  -21-"
 W !!,"fncodexpr is a duplicated fncodatom"
 ;
381 S ^ABSN="30832",^ITEM="III-0832  fncodexpr is a ""PP"""
 S ^NEXT="382^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(981000000000,"PP")
 S ^VCORR=" 981000000000 " D ^VEXAMINE
 ;
382 S ^ABSN="30833",^ITEM="III-0833  fncodexpr is a ""TT"""
 S ^NEXT="383^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-623025,"TT")
 S ^VCORR="623025-" D ^VEXAMINE
 ;
383 S ^ABSN="30834",^ITEM="III-0834  fncodexpr is a "",,"""
 S ^NEXT="384^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(2000000.9,",,")
 S ^VCORR="2,000,000.9" D ^VEXAMINE
 ;
384 S ^ABSN="30835",^ITEM="III-0835  fncodexpr is a ""++"""
 S ^NEXT="385^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(0000.00000991,"++")
 S ^VCORR="+.00000991" D ^VEXAMINE
 ;
385 S ^ABSN="30836",^ITEM="III-0836  fncodexpr is a ""--"""
 S ^NEXT="386^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-08935.5600,"--")
 S ^VCORR="8935.56" D ^VEXAMINE
 ;
386 S ^ABSN="30837",^ITEM="III-0837  fncodexpr is a ""PP,"""
 S ^NEXT="387^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-262999219E+4,"PP,")
 S ^VCORR="(2,629,992,190,000)" D ^VEXAMINE
 ;
387 S ^ABSN="30838",^ITEM="III-0838  fncodexpr is a "",PP"""
 S ^NEXT="388^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(262999219E+4,",PP")
 S ^VCORR=" 2,629,992,190,000 " D ^VEXAMINE
 ;
388 S ^ABSN="30839",^ITEM="III-0839  fncodexpr is a "",+-++"""
 S ^NEXT="389^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(81743.6,",+-++")
 S ^VCORR="+81,743.6" D ^VEXAMINE
 ;
389 S ^ABSN="30840",^ITEM="III-0840  fncodexpr is a ""+-T+TT"""
 S ^NEXT="390^V3FN221,V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000850.00569,"+-T+TT")
 S ^VCORR="850.00569 " D ^VEXAMINE
 ;
390 S ^ABSN="30841",^ITEM="III-0841  fncodexpr is a ""+-+T+TT,,,,,,,,"""
 S ^NEXT="V3FN222^V3FN2,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(00.235E8,"+-+T+TT,,,,,,,,")
 S ^VCORR="23,500,000+" D ^VEXAMINE
 ;
END W !!,"End of 64 --- V3FN221",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN222
V3FN222 ;IW-KO-YS-TS,V3FN2,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"65---V3FN222: $FNUMBER(numexpr,fncodexpr)  -22-"
 ;
391 W !!,"numexpr is a strlit"
 S ^ABSN="30842",^ITEM="III-0842  ""09878978.78E2"""
 S ^NEXT="392^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("09878978.78E2",",")
 S ^VCORR="987,897,878" D ^VEXAMINE
 ;
392 S ^ABSN="30843",^ITEM="III-0843  ""-0987x8978.78E2"""
 S ^NEXT="393^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN("-0987x8978.78E2","+")
 S ^VCORR="-987" D ^VEXAMINE
 ;
393 W !!,"numexpr is a lvn"
 ;
 S ^ABSN="30844",^ITEM="III-0844  lvn=VV"
 S ^NEXT="394^V3FN222,V3FN3^VV3" D ^V3PRESET
 S VV=-089.38740
 S ^VCOMP=$FN(VV,",P")
 S ^VCORR="(89.3874)" D ^VEXAMINE k VV
 ;
394 S ^ABSN="30845",^ITEM="III-0845  lvn=VV(VV)"
 S ^NEXT="395^V3FN222,V3FN3^VV3" D ^V3PRESET
 S VV=23.09,VV(23.090)="023186.4650"
 S ^VCOMP=$FN(VV(VV),"-,")
 S ^VCORR="23,186.465" D ^VEXAMINE K VV
 ;
 W !!,"numexpr is a gvn"
395 S ^ABSN="30846",^ITEM="III-0846  gvn=^VV"
 S ^NEXT="396^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VV=-089.38740
 S ^VCOMP=$FN(^VV,",P")
 S ^VCORR="(89.3874)" D ^VEXAMINE K ^VV
 ;
396 S ^ABSN="30847",^ITEM="III-0847  gvn=^VV(VV)"
 S ^NEXT="397^V3FN222,V3FN3^VV3" D ^V3PRESET
 S VV=23.09,^VV(23.090)="023186.460"
 S ^VCOMP=$FN(^VV(VV),"-,")
 S ^VCORR="23,186.46" D ^VEXAMINE K ^VV
 ;
397 S ^ABSN="30848",^ITEM="III-0848  gvn=^(23)"
 S ^NEXT="398^V3FN222,V3FN3^VV3" D ^V3PRESET K ^VV
 S ^VV(3,4,23)=23,A=$D(^VV(3,4,2))
 S ^VCOMP=$FN(^(23),"P")
 S ^VCORR=" 23 " D ^VEXAMINE K ^VV
 ;
398 W !!,"numexpr contains unary operator"
 S ^ABSN="30849",^ITEM="III-0849  numexpr contains unary operator"
 S ^NEXT="399^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-+-+-''-123,"T")
 S ^VCORR="1-" D ^VEXAMINE
 ;
399 W !!,"numexpr contains binary operator"
 S ^ABSN="30850",^ITEM="III-0850  numexpr contains binary operator"
 S ^NEXT="400^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(123#10+30-1*-1_12150,",")
 S ^VCORR="-3,212,150" D ^VEXAMINE
 ;
400 W !!,"numexpr has function"
 S ^ABSN="30851",^ITEM="III-0851  numexpr has function"
 S ^NEXT="401^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN($FN($j(8423.7049,5,2),"+"),",")
 S ^VCORR="8,423.7" D ^VEXAMINE
 ;
401 W !!,"numexpr contains indirection"
 S ^ABSN="30852",^ITEM="III-0852  numexpr contains indirection"
 S ^NEXT="402^V3FN222,V3FN3^VV3" D ^V3PRESET
 S A="B(12,0,9)",B(8)="C(2,00,""c"")",C(2,00,"c")="00"
 S B(12,0,9,"00")="+78.33763E2"
 S ^VCOMP=$FN(@A@(@B(8)),",T")
 S ^VCORR="7,833.763 " D ^VEXAMINE
 ;
402 W !!,"numexpr is expr"
 S ^ABSN="30853",^ITEM="III-0853  numexpr is expr"
 S ^NEXT="403^V3FN222,V3FN3^VV3" D ^V3PRESET I 1
 S A(9)="^VVB(8)",^VVB(8)="B(9)",B(9)="78909.30"
 S ^VCOMP=$FN(-$E(("0923"_"7DS8")*$T,3,+99)_@@A(9),"P,")
 S ^VCORR="(3,778,909.3)" D ^VEXAMINE K ^VVB
 ;
 ;
403 W !!,"fncodexpr is a lvn"
 S ^ABSN="30854",^ITEM="III-0854  fncodexpr is a lvn"
 S ^NEXT="404^V3FN222,V3FN3^VV3" D ^V3PRESET
 S VV(3,5,6,7,90)=-0.99993,VV(5)="-"
 S ^VCOMP=$FN(VV(3,5,6,7,90),VV(5))
 S ^VCORR=".99993" D ^VEXAMINE
 ;
404 W !!,"fncodexpr is a gvn"
 S ^ABSN="30855",^ITEM="III-0855  fncodexpr is a gvn"
 S ^NEXT="405^V3FN222,V3FN3^VV3" D ^V3PRESET
 S AB="B" K ^VVA
 S ^VVA(7,"B")="T+"
 S ^VCOMP=$FN(76484,^VVA(7,AB))
 S ^VCORR="76484+" D ^VEXAMINE K ^VVA
 ;
405 W !!,"fncodexpr contains binary operator"
 S ^ABSN="30856",^ITEM="III-0856  fncodexpr contains binary operator"
 S ^NEXT="406^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(78-938474,"+"_"T")
 S ^VCORR="938396-" D ^VEXAMINE
 ;
406 W !!,"fncodexpr has function"
 S ^ABSN="30857",^ITEM="III-0857  fncodexpr has function"
 S ^NEXT="407^V3FN222,V3FN3^VV3" D ^V3PRESET
 S ^VCOMP=$FN(12345678,$TR("AJDXPKEFYL","EXAJDPKFYLPAFDJ",",P"))
 S ^VCORR=" 12,345,678 " D ^VEXAMINE
 ;
407 W !!,"fncodexpr is a expr"
 S ^ABSN="30858",^ITEM="III-0858  fncodexpr is a expr"
 S ^NEXT="END^V3FN222,V3FN3^VV3" D ^V3PRESET
 K ^VV S ^VV("a","b","c")=""
 s A="^VV(@X1,@@X3)",X1="X2",X2="a",X3="X4",X4="X5",X5="b"
 s B="A"
 S ^VCOMP=$FN("-0.897000",@$Q(@@B))
 S ^VCORR="-.897" D ^VEXAMINE K ^VV
 ;
END W !!,"End of 65 --- V3FN222",!
 K  K ^VV Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN3
V3FN3 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"$FNUMBER(numexpr,fncodexpr,intexpr)"
V3FN31 W !!,"66---V3FN31" D ^V3FN31
V3FN32 W !!,"67---V3FN32" D ^V3FN32
V3FN33 W !!,"68---V3FN33" D ^V3FN33
V3FN34 W !!,"69---V3FN34" D ^V3FN34
V3FN35 W !!,"70---V3FN35" D ^V3FN35
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN31
V3FN31 ;IW-KO-YS-TS,V3FN3,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"66---V3FN31: $FNUMBER(numexpr,fncodexpr,intexpr) -1-"
 W !!,"Fundamental tests"
 ;
1 S ^ABSN="30859",^ITEM="III-0859  $FNUMBER(123456.789,""+"",2)"
 S ^NEXT="2^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FNUMBER(123456.789,"+",2)
 S ^VCORR="+123456.79" D ^VEXAMINE
 ;
2 S ^ABSN="30860",^ITEM="III-0860  $fnumber(-12345.6789,""-"",2)"
 S ^NEXT="3^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fnumber(-12345.6789,"-",2)
 S ^VCORR="12345.68" D ^VEXAMINE
 ;
3 S ^ABSN="30861",^ITEM="III-0861  $FN(1234.56789,"","",1)"
 S ^NEXT="4^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(1234.56789,",",1)
 S ^VCORR="1,234.6" D ^VEXAMINE
 ;
4 S ^ABSN="30862",^ITEM="III-0862  $fn(-0.123456789,""P"",3)"
 S ^NEXT="5^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(-0.123456789,"P",3)
 S ^VCORR="(0.123)" D ^VEXAMINE
 ;
5 S ^ABSN="30863",^ITEM="III-0863  $fn(0.123456789,""T"",4)"
 S ^NEXT="6^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(0.123456789,"T",4)
 S ^VCORR="0.1235 " D ^VEXAMINE
 ;
6 W !!,"numexpr'>-1"
 ;
 S ^ABSN="30864",^ITEM="III-0864  intexpr=0"
 S ^NEXT="7^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-000000000000000000000000262999219,",",0)
 S ^VCORR="-262,999,219" D ^VEXAMINE
 ;
7 S ^ABSN="30865",^ITEM="III-0865  intexpr=1"
 S ^NEXT="8^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-0792566.589200,"+,",1)
 S ^VCORR="-792,566.6" D ^VEXAMINE
 ;
8 S ^ABSN="30866",^ITEM="III-0866  intexpr=4"
 S ^NEXT="9^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-07566.5892490,"-,T",4)
 S ^VCORR="7,566.5892 " D ^VEXAMINE
 ;
9 S ^ABSN="30867",^ITEM="III-0867  intexpr=10"
 S ^NEXT="10^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-07566.5892400,"+,T",10)
 S ^VCORR="7,566.5892400000-" D ^VEXAMINE
 ;
10 W !!,"-1<numexpr<0"
 ;
 S ^ABSN="30868",^ITEM="III-0868  intexpr=0"
 S ^NEXT="11^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(-000.46389,"P",0)
 S ^VCORR=" 0 " D ^VEXAMINE
 ;
11 S ^ABSN="30869",^ITEM="III-0869  intexpr=1"
 S ^NEXT="12^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-"0000.951200000","+,",1)
 S ^VCORR="-1.0" D ^VEXAMINE
 ;
12 S ^ABSN="30870",^ITEM="III-0870  intexpr=4"
 S ^NEXT="13^V3FN31,V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-.0004683,"-T",4)
 S ^VCORR="0.0005 " D ^VEXAMINE
 ;
13 S ^ABSN="30871",^ITEM="III-0871  intexpr=10"
 S ^NEXT="V3FN32^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(-00000.000452,",+",10)
 S ^VCORR="-0.0004520000" D ^VEXAMINE
 ;
END W !!,"End of 66 --- V3FN31",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN32
V3FN32 ;IW-KO-YS-TS,V3FN3,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"67---V3FN32: $FNUMBER(numexpr,fncodexpr,intexpr) -2-"
 W !!,"numexpr=0"
 ;
14 S ^ABSN="30872",^ITEM="III-0872  intexpr=0"
 S ^NEXT="15^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(00.00000E2,"+",0)
 S ^VCORR="0" D ^VEXAMINE
 ;
15 S ^ABSN="30873",^ITEM="III-0873  intexpr=-0.9"
 S ^NEXT="16^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$Fn(-0,"T",-0.9)
 S ^VCORR="0 " D ^VEXAMINE
 ;
16 W !!,"0<numexpr<1"
 ;
 S ^ABSN="30874",^ITEM="III-0874  intexpr=0"
 S ^NEXT="17^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(683545E-10,",P",+0.0)
 S ^VCORR=" 0 " D ^VEXAMINE
 ;
17 S ^ABSN="30875",^ITEM="III-0875  intexpr=0 another"
 S ^NEXT="18^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(-683545E-10,",P",-0.0)
 S ^VCORR=" 0 " D ^VEXAMINE
 ;
18 S ^ABSN="30876",^ITEM="III-0876  intexpr=1"
 S ^NEXT="19^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(.7494646,"+,T",1)
 S ^VCORR="0.7+" D ^VEXAMINE
 ;
19 S ^ABSN="30877",^ITEM="III-0877  intexpr=4"
 S ^NEXT="20^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(.05207,"-+",4)
 S ^VCORR="+0.0521" D ^VEXAMINE
 ;
20 S ^ABSN="30878",^ITEM="III-0878  intexpr=10"
 S ^NEXT="21^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(+.00000038574583,"-",10)
 S ^VCORR="0.0000003857" D ^VEXAMINE
 ;
21 W !!,"1'>numexpr"
 ;
 S ^ABSN="30879",^ITEM="III-0879  intexpr=0"
 S ^NEXT="22^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(099999.54,",P",0)
 S ^VCORR=" 100,000 " D ^VEXAMINE
 ;
22 S ^ABSN="30880",^ITEM="III-0880  intexpr=1"
 S ^NEXT="23^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(93874E+10,",+T",1)
 S ^VCORR="938,740,000,000,000.0+" D ^VEXAMINE
 ;
23 S ^ABSN="30881",^ITEM="III-0881  intexpr=4"
 S ^NEXT="24^V3FN32,V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(++1245E20,"T,",4)
 S ^VCORR="124,500,000,000,000,000,000,000.0000 " D ^VEXAMINE
 ;
24 S ^ABSN="30882",^ITEM="III-0882  intexpr=10"
 S ^NEXT="V3FN33^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$fn(--54679.2658E-3,"+-+---",10)
 S ^VCORR="+54.6792658000" D ^VEXAMINE
 ;
END W !!,"End of 67 --- V3FN32",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN33
V3FN33 ;IW-KO-YS-TS,V3FN3,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"68---V3FN33: $FNUMBER(numexpr,fncodexpr,intexpr) -3-"
 ;
 W !!,"intexpr is a strlit"
25 S ^ABSN="30883",^ITEM="III-0883  ""2"""
 S ^NEXT="26^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FNUMBER(09878979.78E-2,",","2")
 S ^VCORR="98,789.80" D ^VEXAMINE
 ;
26 S ^ABSN="30884",^ITEM="III-0884  ""000004"""
 S ^NEXT="27^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-"0987$8978.78E2","+","000004")
 S ^VCORR="-987.0000" D ^VEXAMINE
 ;
27 W !!,"intexpr is a lvn"
 S ^ABSN="30885",^ITEM="III-0885  intexpr is a lvn"
 S ^NEXT="28^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S A("abc")=4.00
 S ^VCOMP=$FNumber(-045.380905,",P",A("abc"))
 S ^VCORR="(45.3809)" D ^VEXAMINE k VV
 ;
28 W !!,"intexpr is a gvn"
 S ^ABSN="30886",^ITEM="III-0886  ^VV(""abc"",VV,0)"
 S ^NEXT="29^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET K ^VV
 S VV=23.09,^VV("abc",23.090,0)=--1.66
 S ^VCOMP=$fn(003245.68020E-3,"-+",^VV("abc",VV,0))
 S ^VCORR="+3.2" D ^VEXAMINE K ^VV
 ;
29 S ^ABSN="30887",^ITEM="III-0887  gvn=^(""x"",""y"")"
 S ^NEXT="30^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET K ^VV
 S ^VV(3,"a","x","y")=3,A=$D(^VV(3,"a","u"))
 S ^VCOMP=$FN(00.230,"",^("x","y"))
 S ^VCORR="0.230" D ^VEXAMINE K ^VV
 ;
30 W !!,"intexpr contains unary operator"
 S ^ABSN="30888",^ITEM="III-0888  intexpr contains unary operator"
 S ^NEXT="31^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(--8945632E-2,"T",+-+-''-123)
 S ^VCORR="89456.3 " D ^VEXAMINE
 ;
31 W !!,"intexpr contains binary operator"
 S ^ABSN="30889",^ITEM="III-0889  intexpr contains binary operator"
 S ^NEXT="32^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(12345E-5,",",123#10+30-1*-1_12150*-1E-6)
 S ^VCORR="0.123" D ^VEXAMINE
 ;
32 W !!,"intexpr has function"
 S ^ABSN="30890",^ITEM="III-0890  intexpr has function"
 S ^NEXT="33^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(8423.7049,",T+",$l("ABCDEBF","B"))
 S ^VCORR="8,423.705+" D ^VEXAMINE
 ;
33 W !!,"intexpr contains indirection"
 S ^ABSN="30891",^ITEM="III-0891  intexpr contains indirection"
 S ^NEXT="34^V3FN33,V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET
 S A="B(12,0,9)",B(8)="C(2,00,""c"")",C(2,00,"c")="00"
 S B(12,0,9,"00")="+78.33763E-1"
 S ^VCOMP=$FN(-C(2,00,"c"),",T",@A@(@B(8)))
 S ^VCORR="0.0000000 " D ^VEXAMINE
 ;
34 W !!,"intexpr is expr"
 S ^ABSN="30892",^ITEM="III-0892  intexpr is expr"
 S ^NEXT="V3FN34^V3FN3,V3NEW^VV3" D ^V3PRESET I 1
 S A(9)="^VVB(8)",^VVB(8)="B(9)",B(9)="78909.30"
 S ^VCOMP=$FN(-000.2000020,"P,",$FN(-$E(("0923"_"7DS8")*$T,3,+99)_@@A(9),"-,"))
 S ^VCORR="(0.200)" D ^VEXAMINE K ^VVB
 ;
END W !!,"End of 68 --- V3FN33",!
 K  K ^VV,^VVB Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN34
V3FN34 ;IW-KO-YS-TS,V3FN3,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"69---V3FN34: $FNUMBER(numexpr,fncodexpr,intexpr) -4-"
 ;
 W !!,"numexpr is a strlit"
35 S ^ABSN="30893",^ITEM="III-0893  ""09878979.78E-2"""
 S ^NEXT="36^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN("09878979.78E-2",",","2")
 S ^VCORR="98,789.80" D ^VEXAMINE
 ;
36 S ^ABSN="30894",^ITEM="III-0894  ""-0987,8978.78E2"""
 S ^NEXT="37^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ABC=4
 S ^VCOMP=$FN("-0987,8978.78E2","+",+ABC)
 S ^VCORR="-987.0000" D ^VEXAMINE K ABC
 ;
37 W !!,"numexpr is a lvn"
 ;
 S ^ABSN="30895",^ITEM="III-0895  numexpr is a lvn"
 S ^NEXT="38^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S A("abc")=-045.380905
 S ^VCOMP=$FN(A("abc"),",P",4)
 S ^VCORR="(45.3809)" D ^VEXAMINE k VV
 ;
38 W !!,"numexpr is a gvn"
 S ^ABSN="30896",^ITEM="III-0896  ^VV(""abc"",VV,0)"
 S ^NEXT="39^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET K ^VV
 S VV=23.09,^VV("abc",23.090,0)="03.245680,20E-3"
 S ^VCOMP=$FN(^VV("abc",VV,0),"-+",--1.66)
 S ^VCORR="+3.2" D ^VEXAMINE K ^VV
 ;
39 S ^ABSN="30897",^ITEM="III-0897  gvn=^(""x"",""y"")"
 S ^NEXT="40^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET K ^VV
 S ^VV(3,"a","x","y")=00.230,A=$D(^VV(3,"a","u"))
 S ^VCOMP=$FN(^("x","y"),"",3)
 S ^VCORR="0.230" D ^VEXAMINE K ^VV
 ;
40 W !!,"numexpr contains unary operator"
 S ^ABSN="30898",^ITEM="III-0898  numexpr contains unary operator"
 S ^NEXT="41^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(-+-+-''-123,"T",6)
 S ^VCORR="1.000000-" D ^VEXAMINE
 ;
41 W !!,"numexpr contains binary operator"
 S ^ABSN="30899",^ITEM="III-0899  numexpr contains binary operator"
 S ^NEXT="42^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(123#10+30-1*-1_12150*1E-5,",",2)
 S ^VCORR="-32.12" D ^VEXAMINE
 ;
42 W !!,"numexpr has function"
 S ^ABSN="30900",^ITEM="III-0900  numexpr has function"
 S ^NEXT="43^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN($FN($j(8423.7049,1),"+"),",T+",00000000000000000000000000000003)
 S ^VCORR="8,423.705+" D ^VEXAMINE
 ;
43 W !!,"numexpr contains indirection"
 S ^ABSN="30901",^ITEM="III-0901  numexpr contains indirection"
 S ^NEXT="44^V3FN34,V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET
 S A="B(12,0,9)",B(8)="C(2,00,""c"")",C(2,00,"c")="00"
 S B(12,0,9,"00")="+78.33763E2"
 S ^VCOMP=$FN(@A@(@B(8)),",T",000000000000000000000000.00000000000000000000000)
 S ^VCORR="7,834 " D ^VEXAMINE
 ;
44 W !!,"numexpr is expr"
 S ^ABSN="30902",^ITEM="III-0902  numexpr is expr"
 S ^NEXT="V3FN35^V3FN3,V3NEW^VV3" D ^V3PRESET I 1
 S A(9)="^VVB(8)",^VVB(8)="B(9)",B(9)="78909.30"
 S ^VCOMP=$FN(-$E(("0923"_"7DS8")*$T,3,+99)_@@A(9),"P,",3)
 S ^VCORR="(3,778,909.300)" D ^VEXAMINE K ^VVB
 ;
END W !!,"End of 69 --- V3FN34",!
 K  K ^VV,^VVB Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3FN35
V3FN35 ;IW-KO-YS-TS,V3FN3,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"70---V3FN35: $FNUMBER(numexpr,fncodexpr,intexpr) -5-"
 ;
45 W !!,"fncodexpr is a lvn"
 S ^ABSN="30903",^ITEM="III-0903  fncodexpr is a lvn"
 S ^NEXT="46^V3FN35,V3NEW^VV3" D ^V3PRESET
 S VV(3,5,6,7,90)=-0.99993,VV(5)="-"
 S ^VCOMP=$FN(VV(3,5,6,7,90),VV(5),$F(VV(3,5,6,7,90),"."))
 S ^VCORR="1.000" D ^VEXAMINE K VV
 ;
46 W !!,"fncodexpr is a gvn"
 S ^ABSN="30904",^ITEM="III-0904  fncodexpr is a gvn"
 S ^NEXT="47^V3FN35,V3NEW^VV3" D ^V3PRESET
 S AB="B" K ^VVA
 S ^VVA(7,"B")="T+"
 S ^VCOMP=$FN(76484,^VVA(7,AB),$D(^VVA(7,"A")))
 S ^VCORR="76484+" D ^VEXAMINE K AB K ^VVA
 ;
47 W !!,"fncodexpr contains binary operator"
 S ^ABSN="30905",^ITEM="III-0905  "
 S ^NEXT="48^V3FN35,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(78-938474,"+"_"T",6-4)
 S ^VCORR="938396.00-" D ^VEXAMINE
 ;
48 W !!,"fncodexpr has function"
 S ^ABSN="30906",^ITEM="III-0906  fncodexpr has function"
 S ^NEXT="49^V3FN35,V3NEW^VV3" D ^V3PRESET
 S ^VCOMP=$FN(12345678,$TR("AJDX,PKEF,YL","EXAJDPKFYLPAFDJ","P"),88/44)
 S ^VCORR=" 12,345,678.00 " D ^VEXAMINE
 ;
49 W !!,"fncodexpr is a expr"
 S ^ABSN="30907",^ITEM="III-0907  fncodexpr is a expr"
 S ^NEXT="END^V3FN35,V3NEW^VV3" D ^V3PRESET
 K ^VV S ^VV("a","b","c")=""
 s A="^VV(@X1,@@X3)",X1="X2",X2="a",X3="X4",X4="X5",X5="b"
 s B="A"
 S ^VCOMP=$FN("-0.897000",@$Q(@@B),X2)
 S ^VCORR="-1" D ^VEXAMINE K ^VV
 ;
END W !!,"End of 70 --- V3FN35",!
 K  K ^VV,^VVA Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW
V3NEW ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"Tests of limited only NEW command"
 ;
V3NEW1 W !!,"71---V3NEW1" D ^V3NEW1
V3NEW2 W !!,"72---V3NEW2" D ^V3NEW2
V3NEW3 W !!,"73---V3NEW3" D ^V3NEW3
V3NEW4 W !!,"74---V3NEW4" D ^V3NEW4
V3NEW5 W !!,"75---V3NEW5" D ^V3NEW5
V3NEW6 W !!,"76---V3NEW6" D ^V3NEW6
V3NEW7 W !!,"77---V3NEW7" D ^V3NEW7
V3NEW8 W !!,"78---V3NEW8" D ^V3NEW8
V3NEW9 W !!,"79---V3NEW9" D ^V3NEW9
V3NEW10 W !!,"80---V3NEW10" D ^V3NEW10
V3NEW11 W !!,"81---V3NEW11" D ^V3NEW11
V3NEW12 W !!,"82---V3NEW12" D ^V3NEW12
V3NEW13 W !!,"83---V3NEW13" D ^V3NEW13
V3NEW14 W !!,"84---V3NEW14" D ^V3NEW14
V3NEW15 W !!,"85---V3NEW15" D ^V3NEW15
V3NEW16 W !!,"86---V3NEW16" D ^V3NEW16
V3NEW17 W !!,"87---V3NEW17" D ^V3NEW17
V3NEW18 W !!,"88---V3NEW18" D ^V3NEW18
V3NEWK1 W !!,"89---V3NEWK1" D ^V3NEWK1
V3NEWK2 W !!,"90---V3NEWK2" D ^V3NEWK2
V3NEWK3 W !!,"91---V3NEWK3" D ^V3NEWK3
V3NEWK4 W !!,"92---V3NEWK4" D ^V3NEWK4
V3NEWF1 W !!,"93---V3NEWF1" D ^V3NEWF1
V3NEWF2 W !!,"94---V3NEWF2" D ^V3NEWF2
V3NEWO1 W !!,"95---V3NEWO1" D ^V3NEWO1
V3NEWO2 W !!,"96---V3NEWO2" D ^V3NEWO2
V3NEWP W !!,"97---V3NEWP" D ^V3NEWP
V3NEWX W !!,"98---V3NEWX" D ^V3NEWX
V3NEWDO1 W !!,"99---V3NEWDO1" D ^V3NEWDO1
V3NEWDO2 W !!,"100---V3NEWDO2" D ^V3NEWDO2
V3NEWMF1 W !!,"101---V3NEWMF1" D ^V3NEWMF1
V3NEWMF2 W !!,"102---V3NEWMF2" D ^V3NEWMF2
V3NEWMF3 W !!,"103---V3NEWMF3" D ^V3NEWMF3
V3NEWMF4 W !!,"104---V3NEWMF4" D ^V3NEWMF4
V3NEWT1 W !!,"105---V3NEWT1" D ^V3NEWT1
V3NEWT2 W !!,"106---V3NEWT2" D ^V3NEWT2
V3NEWT3 W !!,"107---V3NEWT3" D ^V3NEWT3
V3NEWT4 W !!,"108---V3NEWT4" D ^V3NEWT4
V3NEWML1 W !!,"109---V3NEWML1" D ^V3NEWML1
V3NEWML2 W !!,"110---V3NEWML2" D ^V3NEWML2
V3NEWXA W !!,"111---V3NEWXA" D ^V3NEWXA
V3NEWL1 W !!,"112---V3NEWL1" D ^V3NEWL1
V3NEWL2 W !!,"113---V3NEWL2" D ^V3NEWL2
V3NEWPN W !!,"114---V3NEWPN" D ^V3NEWPN
V3NEWI1 W !!,"115---V3NEWI1" D ^V3NEWI1
V3NEWI2 W !!,"116---V3NEWI2" D ^V3NEWI2
V3NEWI3 W !!,"117---V3NEWI3" D ^V3NEWI3
V3NEWI4 W !!,"118---V3NEWI4" D ^V3NEWI4
V3NEWI5 W !!,"119---V3NEWI5" D ^V3NEWI5
V3NEWI6 W !!,"120---V3NEWI6" D ^V3NEWI6
V3NEWI7 W !!,"121---V3NEWI7" D ^V3NEWI7
V3NEWN1 W !!,"122---V3NEWN1" D ^V3NEWN1
V3NEWN2 W !!,"123---V3NEWN2" D ^V3NEWN2
V3NEWN3 W !!,"124---V3NEWN3" D ^V3NEWN3
V3NEWN4 W !!,"125---V3NEWN4" D ^V3NEWN4
V3NEWN5 W !!,"126---V3NEWN5" D ^V3NEWN5
V3NEWN6 W !!,"127---V3NEWN6" D ^V3NEWN6
V3NEWN7 W !!,"128---V3NEWN7" D ^V3NEWN7
V3NEWN8 W !!,"129---V3NEWN8" D ^V3NEWN8
V3NEWN9 W !!,"130---V3NEWN9" D ^V3NEWN9
V3NEWN10 W !!,"131---V3NEWN10" D ^V3NEWN10
V3NEWN11 W !!,"132---V3NEWN11" D ^V3NEWN11
V3NEWN12 W !!,"133---V3NEWN12" D ^V3NEWN12
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW1
V3NEW1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"71---V3NEW1: NEW -1-"
 W !!,"NEW ALL"
 ;
1 S ^ABSN="30908",^ITEM="III-0908  $D(lvn)=0"
 S ^NEXT="2^V3NEW1,V3NEW2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWALL1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 0 0 0 0 0 0 "
 D ^VEXAMINE
 ;
2 S ^ABSN="30909",^ITEM="III-0909  $D(lvn)=1"
 S ^NEXT="^V3NEW2,V3NEW3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWALL2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#1 0 1 0 1 0 0 0 ABC"
 D ^VEXAMINE
 ;
END W !!,"End of 71 --- V3NEW1",!
 K  Q
 ;
NEWALL1 ;
 NEW
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
NEWALL2 ;
 NEW
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW2
V3NEW2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"72---V3NEW2: NEW -2-"
 ;
3 S ^ABSN="30910",^ITEM="III-0910  $D(lvn)=10"
 S ^NEXT="4^V3NEW2,V3NEW3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWALL3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 10 1 10 1 0 0 A(2)B(2)C(2)"
 D ^VEXAMINE
 ;
4 S ^ABSN="30911",^ITEM="III-0911  $D(lvn)=11"
 S ^NEXT="^V3NEW3,V3NEW3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWALL4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 72 --- V3NEW2",!
 K  Q
 ;
NEWALL3 ;
 NEW
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
NEWALL4 ;
 NEW
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW3
V3NEW3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"73---V3NEW3: NEW -3-"
 W !!,"Selective NEW"
 ;
5 S ^ABSN="30912",^ITEM="III-0912  $D(lvn)=0"
 S ^NEXT="6^V3NEW3,V3NEW4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 1 0 10 1 0 0 bc(2)"
 D ^VEXAMINE
 ;
6 S ^ABSN="30913",^ITEM="III-0913  $D(lvn)=1"
 S ^NEXT="^V3NEW4,V3NEW4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWSEL2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="101/11 1 1 0 11 1 0 0 aa(2)bCc(2)#11 1 1 0 11 1 0 0 aa(2)BCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 73 --- V3NEW3",!
 K  Q
 ;
NEWSEL1 ;
 NEW A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
NEWSEL2 ;
 NEW B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW4
V3NEW4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"74---V3NEW4: NEW -4-"
 ;
7 S ^ABSN="30914",^ITEM="III-0914  $D(lvn)=10"
 S ^NEXT="8^V3NEW4,V3NEW5^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10100/11 1 11 1 10 1 0 0 aa(2)bB(2)c(2)#11 1 11 1 10 1 0 0 aa(2)bB(2)C(2)"
 D ^VEXAMINE
 ;
8 S ^ABSN="30915",^ITEM="III-0915  $D(lvn)=11"
 S ^NEXT="^V3NEW5,V3NEW6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="01111/11 1 11 1 11 1 0 0 aa(2)bB(2)Cc(2)#11 1 11 1 11 1 0 0 AA(2)bB(2)Cc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 74 --- V3NEW4",!
 K  Q
 ;
NEWSEL3 ;
 NEW C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL4 ;
 NEW A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;01111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW5
V3NEW5 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"75---V3NEW5: NEW -5-"
 W !!,"Exclusive NEW"
 ;
9 S ^ABSN="30916",^ITEM="III-0916  $D(lvn)=0"
 S ^NEXT="10^V3NEW5,V3NEW6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 0 0 0 0 0 0 aa(2)"
 D ^VEXAMINE
 ;
10 S ^ABSN="30917",^ITEM="III-0917  $D(lvn)=1"
 S ^NEXT="^V3NEW6,V3NEW7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWEXC2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="010/11 1 1 0 10 1 0 0 aa(2)bc(2)#1 0 1 0 1 0 0 0 AbC"
 D ^VEXAMINE
 ;
END W !!,"End of 75 --- V3NEW5",!
 K  Q
 ;
NEWEXC1 ;
 NEW (A)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC2 ;
 NEW (B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW6
V3NEW6 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"76---V3NEW6: NEW -6-"
 ;
11 S ^ABSN="30918",^ITEM="III-0918  $D(lvn)=10"
 S ^NEXT="12^V3NEW6,V3NEW7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="0010/11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 10 1 10 1 0 0 A(2)B(2)c(2)"
 D ^VEXAMINE
 ;
12 S ^ABSN="30919",^ITEM="III-0919  $D(lvn)=11"
 S ^NEXT="^V3NEW7,V3NEW8^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 76 --- V3NEW6",!
 K  Q
 ;
NEWEXC3 ;
 NEW (C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC4 ;
 NEW (D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW7
V3NEW7 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"77---V3NEW7: NEW -7-"
 W !!,"NEW name1,name2"
 ;
13 S ^ABSN="30920",^ITEM="III-0920  $D(lvn)=0"
 S ^NEXT="14^V3NEW7,V3NEW8^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL21
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 0 0 10 1 0 0 c(2)"
 D ^VEXAMINE
 ;
14 S ^ABSN="30921",^ITEM="III-0921  $D(lvn)=1"
 S ^NEXT="^V3NEW8,V3NEW9^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWSEL22
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="100/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 1 0 1 0 0 0 aa(2)BC"
 D ^VEXAMINE
 ;
END W !!,"End of 77 --- V3NEW7",!
 K  Q
 ;
NEWSEL21 ;
 N A,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL22 ;
 N B,C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW8
V3NEW8 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"78---V3NEW8: NEW -8-"
 ;
15 S ^ABSN="30922",^ITEM="III-0922  $D(lvn)=10"
 S ^NEXT="16^V3NEW8,V3NEW9^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL23                               ;NEW C,D
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10100/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 10 1 0 0 aa(2)bB(2)C(2)"
 D ^VEXAMINE
 ;
16 S ^ABSN="30923",^ITEM="III-0923  $D(lvn)=11"
 S ^NEXT="^V3NEW9,V3NEW10^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL24
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="0110/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bB(2)CC(2)dd(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 78 --- V3NEW8",!
 K  Q
 ;
NEWSEL23 ;
 NEW C,D
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL24 ;
 N A,C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0110/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW9
V3NEW9 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"79---V3NEW9: NEW -9-"
 W !!,"NEW (name1,name2)"
 ;
17 S ^ABSN="30924",^ITEM="III-0924  $D(lvn)=0"
 S ^NEXT="18^V3NEW9,V3NEW10^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC21
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a 
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2) 
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 0 0 0 0 aa(2)b"
 D ^VEXAMINE
 ;
18 S ^ABSN="30925",^ITEM="III-0925  $D(lvn)=1"
 S ^NEXT="^V3NEW10,V3NEW11^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWEXC22
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="011/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#1 0 1 0 11 1 0 0 AbCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 79 --- V3NEW9",!
 K  Q
 ;
NEWEXC21 ;
 N (A,B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC22 ;
 N (B,C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;011/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW10
V3NEW10 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"80---V3NEW10: NEW -10-"
 ;
19 S ^ABSN="30926",^ITEM="III-0926  $D(lvn)=10"
 S ^NEXT="20^V3NEW10,V3NEW11^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC23                               ;NEW (C,A)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10010/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 10 1 0 0 aa(2)B(2)c(2)"
 D ^VEXAMINE
 ;
20 S ^ABSN="30927",^ITEM="III-0927  $D(lvn)=11"
 S ^NEXT="^V3NEW11,V3NEW12^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC24
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="0110/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bB(2)CC(2)dd(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 80 --- V3NEW10",!
 K  Q
 ;
NEWEXC23 ;
 NEW (C,A)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC24 ;
 NEW (B,D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0110/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW11
V3NEW11 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"81---V3NEW11: NEW -11-"
 W !!,"Selective NEW with 3 arguemnts"
 ;
21 S ^ABSN="30928",^ITEM="III-0928  $D(lvn)=0"
 S ^NEXT="22^V3NEW11,V3NEW12^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL31
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#0 0 0 0 0 0 11 1 dd(2)"
 D ^VEXAMINE
 ;
22 S ^ABSN="30929",^ITEM="III-0929  $D(lvn)=1"
 S ^NEXT="^V3NEW12,V3NEW13^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWSEL32
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#1 0 1 0 1 0 11 1 ABCdd(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 81 --- V3NEW11",!
 K  Q
 ;
NEWSEL31 ;
 new A,B,C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL32 ;
 n B,C,A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW12
V3NEW12 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"82---V3NEW12: NEW -12-"
 ;
23 S ^ABSN="30930",^ITEM="III-0930  $D(lvn)=10"
 S ^NEXT="24^V3NEW12,V3NEW13^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL33
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="0100/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#10 1 11 1 10 1 0 0 A(2)bB(2)C(2)"
 D ^VEXAMINE
 ;
24 S ^ABSN="30931",^ITEM="III-0931  $D(lvn)=11"
 S ^NEXT="^V3NEW13,V3NEW14^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL34
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)BB(2)CC(2)dd(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 82 --- V3NEW12",!
 K  Q
 ;
NEWSEL33 ;
 NEW C,D,A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL34 ;
 n A,C,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW13
V3NEW13 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"83---V3NEW13: NEW -13-"
 W !!,"NEW (name1,name2,name3)"
 ;
25 S ^ABSN="30932",^ITEM="III-0932  $D(lvn)=0"
 S ^NEXT="26^V3NEW13,V3NEW14^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC31
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a 
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2) 
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;c(2)
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 10 1 0 0 aa(2)bc(2)"
 D ^VEXAMINE
 ;
26 S ^ABSN="30933",^ITEM="III-0933  $D(lvn)=1"
 S ^NEXT="^V3NEW14,V3NEW15^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWEXC32                               ;N (C,A,B)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="111/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#11 1 1 0 11 1 0 0 aa(2)bCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 83 --- V3NEW13",!
 K  Q
 ;
NEWEXC31 ;
 N (A,B,C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC32 ;
 N (C,A,B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW14
V3NEW14 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"84---V3NEW14: NEW -14-"
 ;
27 S ^ABSN="30934",^ITEM="III-0934  $D(lvn)=10"
 S ^NEXT="28^V3NEW14,V3NEW15^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC33                               ;NEW (C,A,D)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="10010/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 10 1 11 1 aa(2)B(2)c(2)dd(2)"
 D ^VEXAMINE
 ;
28 S ^ABSN="30935",^ITEM="III-0935  $D(lvn)=11"
 S ^NEXT="^V3NEW15,V3NEW16^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC34                               ;NEW (B,A,C)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="111111/11 1 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)#11 1 11 1 11 1 0 0 aa(2)bB(2)Cc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 84 --- V3NEW14",!
 K  Q
 ;
NEWEXC33 ;
 NEW (C,A,D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC34 ;
 NEW (B,A,C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW15
V3NEW15 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"85---V3NEW15: NEW -15-"
 W !!,"NEW name,name   same name"
 ;
29 S ^ABSN="30936",^ITEM="III-0936  $D(lvn)=0"
 S ^NEXT="30^V3NEW15,V3NEW16^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 1 0 10 1 0 0 bc(2)"
 D ^VEXAMINE
 ;
30 S ^ABSN="30937",^ITEM="III-0937  $D(lvn)=1"
 S ^NEXT="^V3NEW16,V3NEW17^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWSEL2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="101/11 1 1 0 11 1 0 0 aa(2)bCc(2)#11 1 1 0 11 1 0 0 aa(2)BCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 85 --- V3NEW15",!
 K  Q
 ;
NEWSEL1 ;
 NEW A,A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
NEWSEL2 ;
 NEW B,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT  S ^VCOMP=^VCOMP_" error" QUIT
 S ^VCOMP=^VCOMP_" error" QUIT
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW16
V3NEW16 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"86---V3NEW16: NEW -16-"
 ;
31 S ^ABSN="30938",^ITEM="III-0938  $D(lvn)=10"
 S ^NEXT="32^V3NEW16,V3NEW17^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL3                                ;N C,C
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10100/11 1 11 1 10 1 0 0 aa(2)bB(2)c(2)#11 1 11 1 10 1 0 0 aa(2)bB(2)C(2)"
 D ^VEXAMINE
 ;
32 S ^ABSN="30939",^ITEM="III-0939  $D(lvn)=11"
 S ^NEXT="^V3NEW17,V3NEW18^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL4                                ;NEW D,D
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="111111/11 1 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)#11 1 11 1 11 1 0 0 aa(2)bB(2)Cc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 86 --- V3NEW16",!
 K  Q
 ;
NEWSEL3 ;
 N C,C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL4 ;
 NEW D,D
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW17
V3NEW17 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"87---V3NEW17: NEW -17-"
 W !!,"NEW (name,name)  same name"
 ;
33 S ^ABSN="30940",^ITEM="III-0940  $D(lvn)=0"
 S ^NEXT="34^V3NEW17,V3NEW18^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC1                                ;NEW (A,A)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 0 0 0 0 0 0 aa(2)"
 D ^VEXAMINE
 ;
34 S ^ABSN="30941",^ITEM="III-0941  $D(lvn)=1"
 S ^NEXT="^V3NEW18,V3NEW19^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWEXC2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="010/11 1 1 0 10 1 0 0 aa(2)bc(2)#1 0 1 0 1 0 0 0 AbC"
 D ^VEXAMINE
 ;
END W !!,"End of 87 --- V3NEW17",!
 K  Q
 ;
NEWEXC1 ;
 NEW (A,A)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC2 ;
 NEW (B,B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEW18
V3NEW18 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"88---V3NEW18: NEW -18-"
 ;
35 S ^ABSN="30942",^ITEM="III-0942  $D(lvn)=10"
 S ^NEXT="36^V3NEW18,V3NEW19^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC3                                ;NEW (C,C)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="0010/11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 10 1 10 1 0 0 A(2)B(2)c(2)"
 D ^VEXAMINE
 ;
36 S ^ABSN="30943",^ITEM="III-0943  $D(lvn)=11"
 S ^NEXT="^V3NEWK1,V3NEWK2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 88 --- V3NEW18",!
 K  Q
 ;
NEWEXC3 ;
 NEW (C,C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC4 ;
 NEW (D,D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWK1
V3NEWK1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"89---V3NEWK1: NEW -19-"
 ;KILL command
 W !!,"Selective NEW and Kill command"
 ;
37 S ^ABSN="30944",^ITEM="III-0944  $D(lvn)=0"
 S ^NEXT="38^V3NEWK1,V3NEWK2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 1 0 0 0 0 0 b#0 0 1 0 0 0 0 0 b"
 D ^VEXAMINE
 ;
38 S ^ABSN="30945",^ITEM="III-0945  $D(lvn)=1"
 S ^NEXT="39^V3NEWK2,V3NEWK3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWSEL2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="101/11 1 1 0 11 1 0 0 aa(2)bCc(2)#11 1 0 0 11 1 0 0 aa(2)Cc(2)#11 1 1 0 11 1 0 0 aa(2)BCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 89 --- V3NEWK1",!
 K  Q
 ;
NEWSEL1 ;
 NEW A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 Kill A,C(2)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL2 ;
 NEW B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 K B
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWK2
V3NEWK2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"90---V3NEWK2: NEW -20-"
 ;KILL command
 ;
39 S ^ABSN="30946",^ITEM="III-0946  $D(lvn)=10"
 S ^NEXT="40^V3NEWK2,V3NEWK3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10100/11 1 11 1 10 1 0 0 aa(2)bB(2)c(2)#1 0 11 1 10 1 0 0 abB(2)c(2)#1 0 11 1 10 1 0 0 abB(2)C(2)"
 D ^VEXAMINE
 ;
40 S ^ABSN="30947",^ITEM="III-0947  $D(lvn)=11"
 S ^NEXT="^V3NEWK3,V3NEWK4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="01111/11 1 11 1 11 1 0 0 aa(2)bB(2)Cc(2)#1 0 11 1 11 1 0 0 abB(2)Cc(2)#11 1 11 1 11 1 0 0 AA(2)bB(2)Cc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 90 --- V3NEWK2",!
 K  Q
 ;
NEWSEL3 ;
 NEW C
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 K A(2),D
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWSEL4 ;
 NEW A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;01111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 K A(2)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWK3
V3NEWK3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"91---V3NEWK3: NEW -21-"
 ;KILL command
 W !!,"Exclusive NEW and Kill command"
 ;
41 S ^ABSN="30948",^ITEM="III-0948  $D(lvn)=0"
 S ^NEXT="42^V3NEWK3,V3NEWK4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 1 0 0 0 0 0 b#0 0 0 0 0 0 0 0 "
 D ^VEXAMINE
 ;
42 S ^ABSN="30949",^ITEM="III-0949  $D(lvn)=1"
 S ^NEXT="^V3NEWK4,V3NEWF1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWEXC2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="010/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 0 0 0 0 0 0 #1 0 0 0 1 0 0 0 AC"
 D ^VEXAMINE
 ;
END W !!,"End of 91 --- V3NEWK3",!
 K  Q
 ;
NEWEXC1 ;
 NEW (A)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 kill A,C(2)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC2 ;
 NEW (B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 K
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWK4
V3NEWK4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"92---V3NEWK4: NEW -22-"
 ;
43 S ^ABSN="30950",^ITEM="III-0950  $D(lvn)=10"
 S ^NEXT="44^V3NEWK4,V3NEWF1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="0010/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 0 0 10 1 0 0 aa(2)c(2)#10 1 10 1 10 1 0 0 A(2)B(2)c(2)"
 D ^VEXAMINE
 ;
44 S ^ABSN="30951",^ITEM="III-0951  $D(lvn)=11"
 S ^NEXT="^V3NEWF1,V3NEWF2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#0 0 1 0 10 1 0 0 bc(2)#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 92 --- V3NEWK4",!
 K  Q
 ;
NEWEXC3 ;
 NEW (C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 kill (C,A)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWEXC4 ;
 NEW (D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 K (B,C)
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWF1
V3NEWF1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"93---V3NEWF1: NEW -23-"
 w !!,"FOR body within NEW command"
 ;
45 S ^ABSN="30952",^ITEM="III-0952  NEW all"
 S ^NEXT="46^V3NEWF1,V3NEWF2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWF1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 1 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "      ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;2
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;3
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="101010/11 0 1 0 0 1 1 0 10 1 0 0 aa(2)5bc(2)#10 1 1 1 0 0 10 1 10 1 0 0 123B(2)C(2)"
 D ^VEXAMINE
 ;
46 S ^ABSN="30953",^ITEM="III-0953  Selected NEW"
 S ^NEXT="^V3NEWF2,V3NEWO1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 1 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 1 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;2
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;3
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="10011/11 0 1 0 1 0 1 0 11 1 0 0 aa(2)4bCc(2)#11 1 1 1 0 0 11 1 11 1 0 0 A123BB(2)Cc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 93 --- V3NEWF1",!
 K  Q
 ;
NEWF1 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101010/
 F I=1:1:10  S A(I)=I  Q:I=5  I I=3 NEW  S I=4
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 0 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "      ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "      ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;5
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWF2 ;
 F I=1:1:10  S A(I)=I  Q:I=4  I I=3 NEW A,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10011/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 0 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;4
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWF2
V3NEWF2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"94---V3NEWF2: NEW -24-"
 ;
47 S ^ABSN="30954",^ITEM="III-0954  Exclusive NEW"
 S ^NEXT="48^V3NEWF2,V3NEWO1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWF3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 1 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "      ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;2
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;3
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="101010/11 0 1 0 0 1 1 0 10 1 11 1 aa(2)5bc(2)dd(2)#10 1 1 1 0 0 10 1 10 1 0 0 123B(2)c(2)"
 D ^VEXAMINE
 ;
48 S ^ABSN="30955",^ITEM="III-0955  Selected NEW"
 S ^NEXT="^V3NEWO1,V3NEWO2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 1 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 1 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;3
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="11110/11 1 1 1 0 0 11 1 10 1 11 1 a1a(2)3bB(2)c(2)dd(2)#11 1 1 1 0 0 11 1 11 1 0 0 a1a(2)3bB(2)CC(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 94 --- V3NEWF2",!
 K  Q
 ;
NEWF3 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101010/
 F I=1:1:10  S A(I)=I  Q:I=5  I I=3 NEW (I,C) S I=4
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 0 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "      ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "      ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "      ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;5
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWF4 ;
 F I=1:1:10  S A(I)=I If I=3 NEW (A,B) q
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;11110/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "      ;11 1 
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "   ;1 1 
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)     ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)     ;3
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)     ;
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWO1
V3NEWO1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"95---V3NEWO1: NEW -25-"
 W !!,"$ORDER for NEWed Variable"
 ;
49 S ^ABSN="30956",^ITEM="III-0956  $D(lvn)=0"
 S ^NEXT="50^V3NEWO1,V3NEWO2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWO1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)223a#11 1 0 0 0 0 0 0 aa(2)2"
 D ^VEXAMINE
 ;
50 S ^ABSN="30957",^ITEM="III-0957  $D(lvn)=1"
 S ^NEXT="^V3NEWO2,V3NEWP^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWO2
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCORR="010/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)222#1 0 1 0 1 0 0 0 AbC"
 D ^VEXAMINE
 ;
END W !!,"End of 95 --- V3NEWO1",!
 K  Q
 ;
NEWO1 ;
 NEW (A)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",C(3,3)=33,C("a",0)="a0"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;23a
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWO2 ;
 NEW (B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWO2
V3NEWO2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"96---V3NEWO2: NEW -26-"
 ;
51 S ^ABSN="30958",^ITEM="III-0958  $D(lvn)=10"
 S ^NEXT="52^V3NEWO2,V3NEWP^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)",C(3)="C(3)",C(9)="C(9)"
 S A(1)="A(1)",A("@")="@"
 D NEWO3
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;12@
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;239
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCORR="0010/11 1 1 0 10 1 0 0 aa(2)bc(2)2239#10 1 10 1 10 1 0 0 A(2)B(2)c(2)12@2239"
 D ^VEXAMINE
 ;
52 S ^ABSN="30959",^ITEM="III-0959  $D(lvn)=11"
 S ^NEXT="^V3NEWP,V3NEWX^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S C(3)="C(3)",C(9)="C(9)",A(1)="A(1)",A("@")="@"
 D NEWO4
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;12@
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;239
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)22#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)12@2239"
 D ^VEXAMINE
 ;
END W !!,"End of 96 --- V3NEWO2",!
 K  Q
 ;
NEWO3 ;
 NEW (C)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;239
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWO4 ;
 NEW (D)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S Q="" F K=1:1 S Q=$O(A(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(B(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S Q="" F K=1:1 S Q=$O(C(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;2
 S Q="" F K=1:1 S Q=$O(D(Q)) Q:Q=""  S ^VCOMP=^VCOMP_Q ;
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWP
V3NEWP ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"97---V3NEWWP: NEW -27-"
 W !!,"NEW command with postcondition"
 ;
53 S ^ABSN="30960",^ITEM="III-0960  postcond is true"
 S ^NEXT="54^V3NEWP,V3NEWX^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWP1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#0 0 0 0 0 0 0 0 "
 D ^VEXAMINE
 ;
54 S ^ABSN="30961",^ITEM="III-0961  postcond is false"
 S ^NEXT="^V3NEWX,V3NEWDO1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWP2                                  ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S ^VCORR="011/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#1 0 1 0 11 1 0 0 AbCc(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 97 --- V3NEWP",!
 K  Q
 ;
NEWP1 ;
 N:$D(B)=0
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;10 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWP2 ;
 N:$d(D) B
 N:$d(A) A,D
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;011/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWX
V3NEWX ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"98---V3NEWX: NEW -28-"
 W !!,"NEW command within XECUTE command"
 ;
55 S ^ABSN="30962",^ITEM="III-0962  NEW B,C"
 S ^NEXT="56^V3NEWX,V3NEWDO1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S ^VCOMP=""
 D NEWX1
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="11 1 0 0 0 0 #11 1 0 0 0 0 0 0 1A(2)#111111/11 1 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)#11 1 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)"
 D ^VEXAMINE
 ;
56 S ^ABSN="30963",^ITEM="III-0963  NEW (B,C)"
 S ^NEXT="^V3NEWDO1,V3NEWDO2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWX2                                  ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;BB(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;CC
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCORR="1 0 1 0 1 0 #1 0 1 0 1 0 0 0 1BC#11111/11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)#11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)"
 D ^VEXAMINE
 ;
END W !!,"End of 98 --- V3NEWX",!
 K  Q
 ;
NEWX1 ;
 S A="NEW B,C S A=1 S ^VCOMP=^VCOMP_$D(A)_"" ""_$D(A(2))_"" ""_$D(B)_"" ""_$D(B(2))_"" ""_$D(C)_"" ""_$D(C(2))_"" #"" D ^V3NEWXE1" X A ;11 1 0 0 0 0 #11 1 0 0 0 0 0 0 #
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
NEWX2 ;
 S A="NEW (B,C) S A=1 S ^VCOMP=^VCOMP_$D(A)_"" ""_$D(A(2))_"" ""_$D(B)_"" ""_$D(B(2))_"" ""_$D(C)_"" ""_$D(C(2))_"" #"" D NEWXE2" X A ;1 0 1 0 1 0 #
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;11111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;11 1 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;a
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;a(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;b
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;BB(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;CC
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;c(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;d
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;d(2)
 S ^VCOMP=^VCOMP_"#"                      ;#
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
NEWXE2 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;1 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;C
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S A="AA",A(2)="AA(2)",B="BB",B(2)="BB(2)",C="CC",C(2)="CC(2)"
 S ^VCOMP=^VCOMP_"#"                      ;#

V3NEWXE1
V3NEWXE1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;11 1 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A        ;1
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)     ;A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B        ;
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)     ;
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C        ;
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)     ;
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D        ;
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)     ;
 S A="AA",A(2)="AA(2)",B="BB",C(2)="CC(2)"
 S ^VCOMP=^VCOMP_"#"                      ;#
 q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWDO1
V3NEWDO1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"99---V3NEWDO1: NEW -29-"
 W !!,"internal DO command"
 ;
57 S ^ABSN="30964",^ITEM="III-0964  NEW all"
 S ^NEXT="58^V3NEWDO1,V3NEWDO2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWDO1
 D CHK
 S ^VCORR="111/0 0 0 0 0 0 0 0 11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)#1 0 1 0 1 0 0 0 ABC#"
 D ^VEXAMINE
 ;
58 S ^ABSN="30965",^ITEM="III-0965  selective NEW"
 S ^NEXT="59^V3NEWDO1,V3NEWDO2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S ^VCOMP=""
 D NEWDO2,CHK
 S ^VCORR="0011/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)BB(2)Cc(2)dd(2)#"
 D ^VEXAMINE
 ;
59 S ^ABSN="30966",^ITEM="III-0966  exclusive NEW"
 S ^NEXT="^V3NEWDO2,V3NEWMF1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S ^VCOMP=""
 D NEWDO3,CHK
 S ^VCORR="111111/0 0 11 1 0 0 0 0 11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bBB(2)CC(2)dd(2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 99 --- V3NEWDO1",!
 K  Q
 ;
NEWDO1 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111/
 N  d NEWDOE1
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHK
 Q
 ;
NEWDO3 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 N (B,D) d NEWDOE1
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHK
 Q
 ;
NEWDOE1 ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 S A="AA",A(2)="AA(2)",B="BB",B(2)="BB(2)",C="CC",C(2)="CC(2)"
 Q
 ;
NEWDO2 ;
 N A,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0011/
 D NEWDOE2
 S D="d",D(2)="d(2)"
 D CHK
 q
 ;
CHK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
NEWDOE2 S A="a",A(2)="a(2)",B="b",B(2)="b(2)",C(2)="c(2)"
 KILL B(2)
 Q
 ;

V3NEWDO2
V3NEWDO2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"100---V3NEWDO2: NEW -30-"
 W !!,"external DO command"
 ;
60 S ^ABSN="30967",^ITEM="III-0967  NEW all"
 S ^NEXT="61^V3NEWDO2,V3NEWMF1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C" s D=32 k D
 D NEWDO1
 D CHK^V3NEWDO1
 S ^VCORR="111/0 0 0 0 0 0 0 0 11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)#1 0 1 0 1 0 0 0 ABC#"
 D ^VEXAMINE
 ;
61 S ^ABSN="30968",^ITEM="III-0968  selective NEW"
 S ^NEXT="62^V3NEWDO2,V3NEWMF1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S ^VCOMP=""
 D NEWDO2
 D CHK^V3NEWDO1
 S ^VCORR="0011/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)BB(2)Cc(2)dd(2)#"
 D ^VEXAMINE
 ;
62 S ^ABSN="30969",^ITEM="III-0969  exclusive NEW"
 S ^NEXT="^V3NEWMF1,V3NEWMF2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 S ^VCOMP=""
 D NEWDO3^V3NEWDO1,CHK^V3NEWDO1
 S ^VCORR="111111/0 0 11 1 0 0 0 0 11 1 11 1 11 1 11 1 aa(2)bBB(2)CCc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bBB(2)CC(2)dd(2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 100 --- V3NEWDO2",!
 K  Q
 ;
NEWDO1 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111/
 N  d ^V3NEWDE1
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHK^V3NEWDO1
 QUIT
 ;
NEWDO2 ;
 N A,B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0011/
 D NEWDOE2^V3NEWDE1
 S D="d",D(2)="d(2)"
 D CHK^V3NEWDO1
 q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWDE1
V3NEWDE1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "   ;0 0 
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "   ;0 0 
 S A="AA",A(2)="AA(2)",B="BB",B(2)="BB(2)",C="CC",C(2)="CC(2)"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
NEWDOE2 S A="a",A(2)="a(2)",B="b",B(2)="b(2)",C(2)="c(2)"
 KILL B(2)

V3NEWMF1
V3NEWMF1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"101---V3NEWMF1: NEW -31-"
 W !!,"duplicated NEW by FOR command" 
 ;
63 S ^ABSN="30970",^ITEM="III-0970  FOR I=1:1:4 ... NEW"
 S ^NEXT="64^V3NEWMF1,V3NEWMF2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWF1,CHECK
 S ^VCORR="101010/11 0 1 0 0 0 1 0 10 1 0 0 aa(2)bc(2)#10 1 1 0 0 0 10 1 10 1 0 0 1A(2)B(2)C(2)#"
 D ^VEXAMINE K ^VV
 ;
64 S ^ABSN="30971",^ITEM="III-0971  FOR I=1:1:4 ... NEW A,B"
 S ^NEXT="65^V3NEWMF1,V3NEWMF2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWF2,CHECK
 S ^VCORR="000/11 0 1 0 0 0 1 0 10 1 0 0 aa(2)bc(2)#10 1 0 0 0 0 0 0 10 1 0 0 1c(2)#"
 D ^VEXAMINE
 ;
65 S ^ABSN="30972",^ITEM="III-0972  FOR I=1:1:4 ... NEW (I,B)"
 S ^NEXT="^V3NEWMF2,V3NEWMF3^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A",A(1)="A(1)",A(2)="A(2)",A(3)="A(3)",A(4)="A(4)",A(5)="A(5)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF3,CHECK
 S ^VCORR="111111/11 0 1 0 0 0 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 1 1 1 1 11 1 11 1 0 0 A1A(2)A(3)A(4)A(5)bB(2)CC(2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 101 --- V3NEWMF1",!
 K  K ^VV Q
 ;
NEWF1 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101010/
 F I=1:1:4 S ^VV=I S A(I)=I N  S I=^VV
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)" G CHECK
 ;
NEWF2 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 F I=1:1:4 S A(I)=I NEW A,B
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)" D CHECK Q
 ;
NEWF3 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 F I=1:1:4 S A(I)=I NEW (I,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWMF2
V3NEWMF2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"102---V3NEWMF2: NEW -32-"
 ;
66 S ^ABSN="30973",^ITEM="III-0973  FOR I=1:1:4 ... NEW  ...  QUIT"
 S ^NEXT="67^V3NEWMF2,V3NEWMF3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF4,CHECK
 S ^VCORR="111111/11 0 1 0 0 0 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 0 0 11 1 11 1 0 0 A1A(2)BB(2)CC(2)#"
 D ^VEXAMINE K ^VV
 ;
67 S ^ABSN="30974",^ITEM="III-0974  FOR  ... NEW A ...  QUIT"
 S ^NEXT="68^V3NEWMF2,V3NEWMF3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWF5,CHECK
 S ^VCORR="111/11 0 1 1 1 0 1 0 11 1 11 1 aa(2)34bCc(2)dd(2)#11 1 0 0 0 0 1 0 11 1 11 1 A1bCc(2)dd(2)#"
 D ^VEXAMINE
 ;
68 S ^ABSN="30975",^ITEM="III-0975  FOR  ... NEW (B) ...  QUIT"
 S ^NEXT="^V3NEWMF3,V3NEWMF4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWF6,CHECK
 S ^VCORR="101010/11 0 1 0 0 0 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#10 1 1 1 0 0 11 1 10 1 0 0 123bB(2)C(2)#"
 D ^VEXAMINE K ^VV
 ;
END W !!,"End of 102 --- V3NEWMF2",!
 K  K ^VV Q
 ;
NEWF4 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 F I=1:1:4 S ^VV=I S A(I)=I NEW  S I=^VV Q
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
NEWF5 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111/
 S I=1 FOR  S A(I)=I NEW:I<3 A S I=I+1 Q:I=5
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 G CHECK
 ;
NEWF6 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101010/
 S I=1 F  S A(I)=I S ^VV=I NEW:I>2 (B) S I=^VV+1 q:I=5
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWMF3
V3NEWMF3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"103---V3NEWMF3: NEW -33-"
 ;
69 S ^ABSN="30976",^ITEM="III-0976  FOR I=1:1:5 ... NEW  ...  GOTO"
 S ^NEXT="70^V3NEWMF3,V3NEWMF4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(1)="A(1)",A(2)="A(2)",A(3)="A(3)",A(4)="A(4)",A(5)="A(5)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF7,CHECK
 S ^VCORR="111111/11 0 1 0 0 0 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 1 1 1 11 1 11 1 0 0 A123A(4)A(5)BB(2)CC(2)#"
 D ^VEXAMINE
 ;
70 S ^ABSN="30977",^ITEM="III-0977  FOR  ... NEW A,C ...  GOTO"
 S ^NEXT="71^V3NEWMF3,V3NEWMF4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF8,CHECK
 S ^VCORR="111111/10 0 1 0 0 0 11 1 11 1 11 1 a(2)bb(2)cc(2)dd(2)#11 1 1 0 0 0 11 1 11 1 11 1 A1A(2)bb(2)CC(2)dd(2)#"
 D ^VEXAMINE
 ;
71 S ^ABSN="30978",^ITEM="III-0978  FOR  ... NEW (B) ...  GOTO"
 S ^NEXT="^V3NEWMF4,V3NEWT1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWF9,CHECK
 S ^VCORR="000/11 0 1 0 0 0 1 0 10 1 11 1 aa(2)bc(2)dd(2)#10 1 1 0 0 0 1 0 0 0 0 0 12b#"
 D ^VEXAMINE K ^VV
 ;
END W !!,"End of 103 --- V3NEWMF3",!
 K  K ^VV Q
 ;
NEWF7 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 F I=1:1:5 S A(I)=I s ^VV=I NEW:I>2  GOTO:^VV>4 NEWF71 s I=^VV
 S ^VCOMP=^VCOMP_"ERROR"
NEWF71 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
NEWF8 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 S I=1 F  S A(I)=I N A,C S I=I+1 I I=4 G NEWF81
 S ^VCOMP=^VCOMP_"ERROR"
NEWF81 S A(2)="a(2)",B="b",B(2)="b(2)",C="c",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
NEWF9 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S I=1 F  S A(I)=I S ^VV=I n:I#2=0 (B) S I=^VV+1 g:I=5 NEWF91
 S ^VCOMP=^VCOMP_"ERROR"
NEWF91 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWMF4
V3NEWMF4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"104---V3NEWMF4: NEW -34-"
 ;
72 S ^ABSN="30979",^ITEM="III-0979  FOR I=2,4 ... NEW  ...  DO .. "
 S ^NEXT="73^V3NEWMF4,V3NEWT1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(1)="A(1)",A(2)="A(2)",A(3)="A(3)",A(4)="A(4)",A(5)="A(5)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF10,CHECK
 S ^VCORR="111111/0 0 0 0 0 0 0 0 0 0 0 0 #0 0 0 0 0 0 0 0 0 0 0 0 #11 0 1 0 0 0 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 1 1 1 11 1 11 1 0 0 AA(1)2A(3)A(4)A(5)BB(2)CC(2)#"
 D ^VEXAMINE
 ;
73 S ^ABSN="30980",^ITEM="III-0980  FOR I=1:1:3 ... NEW A ...  DO .. Q"
 S ^NEXT="74^V3NEWMF4,V3NEWT1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWF11,CHECK
 S ^VCORR="111111/0 0 0 0 0 0 11 1 11 1 0 0 BB(2)CC(2)#0 0 0 0 0 0 11 1 11 1 0 0 BB(2)CC(2)#0 0 0 0 0 0 11 1 11 1 0 0 BB(2)CC(2)#11 0 1 0 0 0 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)#11 1 1 0 0 0 11 1 11 1 11 1 A1A(2)bB(2)Cc(2)dd(2)#"
 D ^VEXAMINE
 ;
74 S ^ABSN="30981",^ITEM="III-0981  FOR I=1:1:4 ... NEW (B) ...  DO .. GOTO"
 S ^NEXT="^V3NEWT1,V3NEWT2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWF12,CHECK
 S ^VCORR="000/0 0 0 0 0 0 0 0 0 0 0 0 #0 0 0 0 0 0 0 0 0 0 0 0 #0 0 0 0 0 0 0 0 0 0 0 0 #11 0 1 0 0 0 1 0 10 1 11 1 aa(2)bc(2)dd(2)#10 1 0 0 0 0 1 0 0 0 0 0 1b#"
 D ^VEXAMINE K ^VV
 ;
END W !!,"End of 104 --- V3NEWMF4",!
 K  K ^VV Q
 ;
NEWF10 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 F I=2,4 S A(I)=I NEW  D CHECK
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
NEWF11 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 F I=1:1:3 S A(I)=I N A DO CHECK Q:I=3
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
NEWF12 ;
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 F I=1:1:4 S A(I)=I S ^VV=I NEW (B) d CHECK S I=^VV I I=3 G NEWF121
 S ^VCOMP=^VCOMP_"ERROR"
NEWF121 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(1))_" "
 S ^VCOMP=^VCOMP_$D(A(2))_" "_$D(A(3))_" "
 S ^VCOMP=^VCOMP_$D(A(4))_" "_$D(A(5))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(A(3))#10=1 S ^VCOMP=^VCOMP_A(3)
 I $D(A(4))#10=1 S ^VCOMP=^VCOMP_A(4)
 I $D(A(5))#10=1 S ^VCOMP=^VCOMP_A(5)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWT1
V3NEWT1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"105---V3NEWMT1: NEW -35-"
 W !!,"duplicated NEW in a DO command"
 W !!,"2 times"
 ;
75 S ^ABSN="30982",^ITEM="III-0982  $D(lvn)=0"
 S ^NEXT="76^V3NEWT1,V3NEWT2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWT21,CHECK
 S ^VCORR="11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 1 0 0 0 aaaa(2)bb(2)cc#11 1 1 0 0 0 0 0 aaaa(2)b#"
 D ^VEXAMINE
 ;
76 S ^ABSN="30983",^ITEM="III-0983  $D(lvn)=1"
 S ^NEXT="^V3NEWT2,V3NEWT3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWT22,CHECK
 S ^VCORR="11 1 1 0 11 1 1 0 aa(2)bCc(2)d#10 1 11 1 11 1 10 1 aa(2)bbb(2)Ccc(2)dd(2)#11 1 1 0 11 1 1 0 aa(2)BCcc(2)d#"
 D ^VEXAMINE
 ;
END W !!,"End of 105 --- V3NEWT1",!
 K  Q
 ;
NEWT21 ;
 N (A,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 NEW C,B kill D
 S A="aa",A(2)="aa(2)",B(2)="bb(2)",C="cc"
 D CHECK
 Q
 ;
NEWT22 ;
 NEW B
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d"
 D CHECK
 N (B,C)
 S A(2)="aa(2)",B(2)="bb(2)",C(2)="cc(2)",D(2)="dd(2)"
 D CHECK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q

V3NEWT2
V3NEWT2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"106---V3NEWMT2: NEW -36-"
 ;
77 S ^ABSN="30984",^ITEM="III-0984  $D(lvn)=10"
 S ^NEXT="78^V3NEWT2,V3NEWT3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWT23,CHECK
 S ^VCORR="11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 11 1 1 0 aaa(2)bbccc(2)dd#10 1 10 1 10 1 0 0 A(2)B(2)C(2)#"
 D ^VEXAMINE
 ;
78 S ^ABSN="30985",^ITEM="III-0985  $D(lvn)=11"
 S ^NEXT="^V3NEWT3,V3NEWT4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWT24
 D CHECK
 S ^VCORR="1 0 11 1 11 1 1 0 aabbB(2)ccC(2)dd#11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 11 1 11 1 1 0 AA(2)bbB(2)ccC(2)dd#"
 D ^VEXAMINE
 ;
END W !!,"End of 106 --- V3NEWT2",!
 K  Q
 ;
NEWT23 ;
 n
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 NEW (C,A)
 S A="aa",B="bb",C="cc",D="dd"
 D CHECK
 QUIT
 ;
NEWT24 ;
 NEW A
 S A="aa",B="bb",C="cc",D="dd"
 D CHECK
 n
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 QUIT
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWT3
V3NEWT3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"107---V3NEWMT3: NEW -37-"
 W !!,"3 times"
 ;
79 S ^ABSN="30986",^ITEM="III-0986  $D(lvn)=0"
 S ^NEXT="80^V3NEWT3,V3NEWT4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWT31,CHECK
 S ^VCORR="11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 1 0 0 0 aaaa(2)bb(2)cc#11 1 11 1 10 1 1 0 aaAA(2)BBbb(2)CC(2)DD#11 1 1 0 0 0 0 0 aaAA(2)b#"
 D ^VEXAMINE
 ;
80 S ^ABSN="30987",^ITEM="III-0987  $D(lvn)=1"
 S ^NEXT="^V3NEWT4,V3NEWML1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWT32,CHECK
 S ^VCORR="11 1 1 0 11 1 1 0 aa(2)bCc(2)d#10 1 11 1 11 1 10 1 aa(2)bbb(2)Ccc(2)dd(2)#11 1 1 0 10 1 11 1 AA(2)BC(2)DD(2)#11 1 1 0 11 1 1 0 aa(2)BCcc(2)d#"
 D ^VEXAMINE
 ;
END W !!,"End of 107 --- V3NEWT3",!
 K  Q
 ;
NEWT31 ;
 N (A,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 NEW C,B kill D
 S A="aa",A(2)="aa(2)",B(2)="bb(2)",C="cc"
 D CHECK
 nEW (A,B)
 S A(2)="AA(2)",B="BB",C(2)="CC(2)",D="DD"
 D CHECK
 Q
 ;
NEWT32 ;
 NEW B
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d"
 D CHECK
 N (B,C)
 S A(2)="aa(2)",B(2)="bb(2)",C(2)="cc(2)",D(2)="dd(2)"
 D CHECK
 N  S A="A",A(2)="A(2)",B="B",C(2)="C(2)",D="D",D(2)="D(2)"
 D CHECK
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWT4
V3NEWT4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"108---V3NEWMT4: NEW -38-"
 ;
81 S ^ABSN="30988",^ITEM="III-0988  $D(lvn)=10"
 S ^NEXT="82^V3NEWT4,V3NEWML1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWT33,CHECK
 S ^VCORR="11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 11 1 1 0 aaa(2)bbccc(2)dd#0 0 1 0 11 1 0 0 BBccc(2)#10 1 10 1 10 1 0 0 A(2)B(2)C(2)#"
 D ^VEXAMINE
 ;
82 S ^ABSN="30989",^ITEM="III-0989  $D(lvn)=11"
 S ^NEXT="^V3NEWML1,V3NEWML2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWT34
 D CHECK
 S ^VCORR="1 0 11 1 11 1 1 0 aabbB(2)ccC(2)dd#11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#0 0 0 0 0 0 0 0 #11 1 11 1 11 1 1 0 AA(2)bbB(2)ccC(2)dd#"
 D ^VEXAMINE
 ;
END W !!,"End of 108 --- V3NEWT4",!
 K  Q
 ;
NEWT33 ;
 n
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 NEW (C,A)
 S A="aa",B="bb",C="cc",D="dd"
 D CHECK
 N A,D K D,B S B="BB"
 D CHECK
 Q
 ;
NEWT34 ;
 NEW A
 S A="aa",B="bb",C="cc",D="dd"
 D CHECK
 n
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK N (B,D) K  D CHECK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWML1
V3NEWML1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"109---V3NEWML1: NEW -39-"
 W !!,"length of value is 255"
 ;
83 S ^ABSN="30990",^ITEM="III-0990  $D(lvn)=0"
 S ^NEXT="84^V3NEWML1,V3NEWML2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D SET
 D NEWL1
 D CHECK
 S ^VCORR="11 1 1 0 10 1 0 0 1111#0 0 1 0 10 1 0 0 11#"
 D ^VEXAMINE K ^VVA,^VVB,^VVC,^VVD
 ;
84 S ^ABSN="30991",^ITEM="III-0991  $D(lvn)=1"
 S ^NEXT="^V3NEWML2,V3NEWXA^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D SET
 S A=^VVA,B=^VVB,C=^VVC
 D NEWL2,CHECK
 S ^VCORR="11 1 1 0 10 1 0 0 0000#11 1 1 0 1 0 0 0 0011#"
 D ^VEXAMINE K ^VVA,^VVB,^VVC,^VVD
 ;
END W !!,"End of 109 --- V3NEWML1",!
 K  K ^VVA,^VVB,^VVC,^VVD Q
 ;
NEWL1 ;
 NEW A
 S A=^VVA,A(2)=^VVA,B=^VVB,C(2)=^VVC
 D CHECK
 Q
 ;
NEWL2 ;
 NEW B,C
 S A=2,A(2)=2,B=2,C(2)=2
 D CHECK
 QUIT
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_(A=^VVA)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_(A(2)=^VVA)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_(B=^VVB)
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_(B(2)=^VVB)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_(C=^VVC)
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_(C(2)=^VVC)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_(D=^VVD)
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_(D(2)=^VVD)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SET S A="" F I=1:1:255 S A=A_"A"
 S ^VVA=A K A
 S B="" F I=1:1:255 S B=B_"B"
 S ^VVB=B K B
 S C="" F I=1:1:255 S C=C_"C"
 S ^VVC=C K C
 S D="" F I=1:1:255 S D=D_"D"
 S ^VVD=D K D
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWML2
V3NEWML2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"110---V3NEWML2: NEW -40-"
 ;
85 S ^ABSN="30992",^ITEM="III-0992  $D(lvn)=10"
 S ^NEXT="86^V3NEWML2,V3NEWXA^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D SET
 S A(2)=^VVA,B(2)=^VVB,C(2)=^VVC
 D NEWL3,CHECK
 S ^VCORR="10 1 1 0 10 1 0 0 000#10 1 10 1 10 1 0 0 110#"
 D ^VEXAMINE K ^VVA,^VVB,^VVC,^VVD
 ;
86 S ^ABSN="30993",^ITEM="III-0993  $D(lvn)=11"
 S ^NEXT="^V3NEWXA,V3NEWL1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D SET
 S A=^VVA,A(2)=^VVA,B=^VVB,B(2)=^VVB,C=^VVC,C(2)=^VVC
 D NEWL4
 D CHECK
 S ^VCORR="11 1 1 0 11 1 1 0 000100#11 1 11 1 11 1 0 0 111110#"
 D ^VEXAMINE K ^VVA,^VVB,^VVC,^VVD
 ;
END W !!,"End of 110 --- V3NEWML2",!
 K  K ^VVA,^VVB,^VVC,^VVD Q
 ;
NEWL3 ;
 NEW B,(C,B)
 S A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK
 Q
 ;
NEWL4 NEW (C) S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="" D CHECK Q
 ;
SET S A="" F I=1:1:255 S A=A_"A"
 S ^VVA=A K A
 S B="" F I=1:1:255 S B=B_"B"
 S ^VVB=B K B
 S C="" F I=1:1:255 S C=C_"C"
 S ^VVC=C K C
 S D="" F I=1:1:255 S D=D_"D"
 S ^VVD=D K D
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_(A=^VVA)
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_(A(2)=^VVA)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_(B=^VVB)
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_(B(2)=^VVB)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_(C=^VVC)
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_(C(2)=^VVC)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_(D=^VVD)
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_(D(2)=^VVD)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWXA
V3NEWXA ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"111---V3NEWXA: NEW -41-"
 W !!,"XECUTE command after NEW command"
 ;
87 S ^ABSN="30994",^ITEM="III-0994  NEW B,C"
 S ^NEXT="88^V3NEWXA,V3NEWL1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)",^VCOMP=""
 D NEWX1,CHECK
 S ^VCORR="11 1 0 0 0 0 0 0 AA(2)#11 1 1 0 11 1 11 1 A2S C=3,A(2)=23c(2)dd(2)#11 1 11 1 11 1 11 1 A2BB(2)CC(2)dd(2)#"
 D ^VEXAMINE
 ;
88 S ^ABSN="30995",^ITEM="III-0995  NEW (B,C)"
 S ^NEXT="^V3NEWL1,V3NEWL2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" S A="A",B="B",C="C"
 D NEWX2,CHECK
 S ^VCORR="11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#0 0 11 1 0 0 11 1 bb(2)dd(2)#1 0 11 1 0 0 0 0 Abb(2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 111 --- V3NEWXA",!
 K  Q
 ;
NEWX1 N B,C D CHECK S A(2)="a(2)",C(2)="c(2)",D="d",D(2)="d(2)"
 S B="S C=3,A(2)=2" X B D CHECK
 Q
 ;
NEWX2 ;
 NEW (B,C)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 S C(2)="K A,C S B(2)=""b(2)"" D CHECK" x C(2)
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWL1
V3NEWL1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"112---V3NEWL1: NEW -42-"
 W !!,"NEW A,B,C,...,Z"
 ;
89 S ^ABSN="30996",^ITEM="III-0996  $D(lvn)=0"
 S ^NEXT="90^V3NEWL1,V3NEWL2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWL1
 D CHECK
 S ^VCORR="2323232323232323232323232323232323232323232323232323/23232323#/23232323#"
 D ^VEXAMINE
 ;
 W !!,"NEW (A,B,C,...,Z)"
 ;
90 S ^ABSN="30997",^ITEM="III-0997  $D(lvn)=1"
 S ^NEXT="^V3NEWL2,V3NEWPN^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,BB,CC,DD)=4
 D NEWL2
 D CHECK
 S ^VCORR="2020202020202020202020202020202020202020202020202020/0000#2020202020202020202020202020202020202020202020202020/4444#"
 D ^VEXAMINE
 ;
END W !!,"End of 112 --- V3NEWL1",!
 K  Q
 ;
NEWL1 ;
 NEW A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,BB,CC,DD)=2
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=3
 D CHECK
 Q
 ;
NEWL2 ;
 NEW (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)=2
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=0
 D CHECK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 I $D(E)#10=1    S ^VCOMP=^VCOMP_E
 I $D(E(2))#10=1 S ^VCOMP=^VCOMP_E(2)
 I $D(F)#10=1    S ^VCOMP=^VCOMP_F
 I $D(F(2))#10=1 S ^VCOMP=^VCOMP_F(2)
 I $D(G)#10=1    S ^VCOMP=^VCOMP_G
 I $D(G(2))#10=1 S ^VCOMP=^VCOMP_G(2)
 I $D(H)#10=1    S ^VCOMP=^VCOMP_H
 I $D(H(2))#10=1 S ^VCOMP=^VCOMP_H(2)
 I $D(I)#10=1    S ^VCOMP=^VCOMP_I
 I $D(I(2))#10=1 S ^VCOMP=^VCOMP_I(2)
 I $D(J)#10=1    S ^VCOMP=^VCOMP_J
 I $D(J(2))#10=1 S ^VCOMP=^VCOMP_J(2)
 I $D(K)#10=1    S ^VCOMP=^VCOMP_K
 I $D(K(2))#10=1 S ^VCOMP=^VCOMP_K(2)
 I $D(L)#10=1    S ^VCOMP=^VCOMP_L
 I $D(L(2))#10=1 S ^VCOMP=^VCOMP_L(2)
 I $D(M)#10=1    S ^VCOMP=^VCOMP_M
 I $D(M(2))#10=1 S ^VCOMP=^VCOMP_M(2)
 I $D(N)#10=1    S ^VCOMP=^VCOMP_N
 I $D(N(2))#10=1 S ^VCOMP=^VCOMP_N(2)
 I $D(O)#10=1    S ^VCOMP=^VCOMP_O
 I $D(O(2))#10=1 S ^VCOMP=^VCOMP_O(2)
 I $D(P)#10=1    S ^VCOMP=^VCOMP_P
 I $D(P(2))#10=1 S ^VCOMP=^VCOMP_P(2)
 I $D(Q)#10=1    S ^VCOMP=^VCOMP_Q
 I $D(Q(2))#10=1 S ^VCOMP=^VCOMP_Q(2)
 I $D(R)#10=1    S ^VCOMP=^VCOMP_R
 I $D(R(2))#10=1 S ^VCOMP=^VCOMP_R(2)
 I $D(S)#10=1    S ^VCOMP=^VCOMP_S
 I $D(S(2))#10=1 S ^VCOMP=^VCOMP_S(2)
 I $D(T)#10=1    S ^VCOMP=^VCOMP_T
 I $D(T(2))#10=1 S ^VCOMP=^VCOMP_T(2)
 I $D(U)#10=1    S ^VCOMP=^VCOMP_U
 I $D(U(2))#10=1 S ^VCOMP=^VCOMP_U(2)
 I $D(V)#10=1    S ^VCOMP=^VCOMP_V
 I $D(V(2))#10=1 S ^VCOMP=^VCOMP_V(2)
 I $D(W)#10=1    S ^VCOMP=^VCOMP_W
 I $D(W(2))#10=1 S ^VCOMP=^VCOMP_W(2)
 I $D(X)#10=1    S ^VCOMP=^VCOMP_X
 I $D(X(2))#10=1 S ^VCOMP=^VCOMP_X(2)
 I $D(Y)#10=1    S ^VCOMP=^VCOMP_Y
 I $D(Y(2))#10=1 S ^VCOMP=^VCOMP_Y(2)
 I $D(Z)#10=1    S ^VCOMP=^VCOMP_Z
 I $D(Z(2))#10=1 S ^VCOMP=^VCOMP_Z(2)
 S ^VCOMP=^VCOMP_"/"
 I $D(AA)#10=1    S ^VCOMP=^VCOMP_AA
 I $D(AA(2))#10=1 S ^VCOMP=^VCOMP_AA(2)
 I $D(BB)#10=1    S ^VCOMP=^VCOMP_BB
 I $D(BB(2))#10=1 S ^VCOMP=^VCOMP_BB(2)
 I $D(CC)#10=1    S ^VCOMP=^VCOMP_CC
 I $D(CC(2))#10=1 S ^VCOMP=^VCOMP_CC(2)
 I $D(DD)#10=1    S ^VCOMP=^VCOMP_DD
 I $D(DD(2))#10=1 S ^VCOMP=^VCOMP_DD(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWL2
V3NEWL2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"113---V3NEWL2: NEW -43-"
 W !!,"NEW (A,B,C,...,Z)"
 ;
91 S ^ABSN="30998",^ITEM="III-0998  $D(lvn)=10"
 S ^NEXT="92^V3NEWL2,V3NEWPN^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=3
 D NEWL3,CHECK
 S ^VCORR="6767676767676767676767676767676767676767676767676767/67676767#6767676767676767676767676767676767676767676767676767/3333#"
 D ^VEXAMINE
 ;
 W !!,"NEW A,B,C,...,Z"
 ;
92 S ^ABSN="30999",^ITEM="III-0999  $D(lvn)=11"
 S ^NEXT="^V3NEWPN,V3NEWI1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,BB,CC,DD)=4
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=5
 D NEWL4,CHECK
 S ^VCORR="8989898989898989898989898989898989898989898989898989/89898989#4545454545454545454545454545454545454545454545454545/89898989#"
 D ^VEXAMINE
 ;
END W !!,"End of 113 --- V3NEWL2",!
 K  Q
 ;
NEWL3 ;
 n (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,BB,CC,DD)=6
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=7
 D CHECK
 Q
 ;
NEWL4 ;
 new A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
 S (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,AA,BB,CC,DD)=8
 S (A(2),B(2),C(2),D(2),E(2),F(2),G(2),H(2),I(2),J(2),K(2),L(2),M(2),N(2),O(2),P(2),Q(2),R(2),S(2),T(2),U(2),V(2),W(2),X(2),Y(2),Z(2),AA(2),BB(2),CC(2),DD(2))=9
 D CHECK
 Q
 ;
CHECK ;
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 I $D(E)#10=1    S ^VCOMP=^VCOMP_E
 I $D(E(2))#10=1 S ^VCOMP=^VCOMP_E(2)
 I $D(F)#10=1    S ^VCOMP=^VCOMP_F
 I $D(F(2))#10=1 S ^VCOMP=^VCOMP_F(2)
 I $D(G)#10=1    S ^VCOMP=^VCOMP_G
 I $D(G(2))#10=1 S ^VCOMP=^VCOMP_G(2)
 I $D(H)#10=1    S ^VCOMP=^VCOMP_H
 I $D(H(2))#10=1 S ^VCOMP=^VCOMP_H(2)
 I $D(I)#10=1    S ^VCOMP=^VCOMP_I
 I $D(I(2))#10=1 S ^VCOMP=^VCOMP_I(2)
 I $D(J)#10=1    S ^VCOMP=^VCOMP_J
 I $D(J(2))#10=1 S ^VCOMP=^VCOMP_J(2)
 I $D(K)#10=1    S ^VCOMP=^VCOMP_K
 I $D(K(2))#10=1 S ^VCOMP=^VCOMP_K(2)
 I $D(L)#10=1    S ^VCOMP=^VCOMP_L
 I $D(L(2))#10=1 S ^VCOMP=^VCOMP_L(2)
 I $D(M)#10=1    S ^VCOMP=^VCOMP_M
 I $D(M(2))#10=1 S ^VCOMP=^VCOMP_M(2)
 I $D(N)#10=1    S ^VCOMP=^VCOMP_N
 I $D(N(2))#10=1 S ^VCOMP=^VCOMP_N(2)
 I $D(O)#10=1    S ^VCOMP=^VCOMP_O
 I $D(O(2))#10=1 S ^VCOMP=^VCOMP_O(2)
 I $D(P)#10=1    S ^VCOMP=^VCOMP_P
 I $D(P(2))#10=1 S ^VCOMP=^VCOMP_P(2)
 I $D(Q)#10=1    S ^VCOMP=^VCOMP_Q
 I $D(Q(2))#10=1 S ^VCOMP=^VCOMP_Q(2)
 I $D(R)#10=1    S ^VCOMP=^VCOMP_R
 I $D(R(2))#10=1 S ^VCOMP=^VCOMP_R(2)
 I $D(S)#10=1    S ^VCOMP=^VCOMP_S
 I $D(S(2))#10=1 S ^VCOMP=^VCOMP_S(2)
 I $D(T)#10=1    S ^VCOMP=^VCOMP_T
 I $D(T(2))#10=1 S ^VCOMP=^VCOMP_T(2)
 I $D(U)#10=1    S ^VCOMP=^VCOMP_U
 I $D(U(2))#10=1 S ^VCOMP=^VCOMP_U(2)
 I $D(V)#10=1    S ^VCOMP=^VCOMP_V
 I $D(V(2))#10=1 S ^VCOMP=^VCOMP_V(2)
 I $D(W)#10=1    S ^VCOMP=^VCOMP_W
 I $D(W(2))#10=1 S ^VCOMP=^VCOMP_W(2)
 I $D(X)#10=1    S ^VCOMP=^VCOMP_X
 I $D(X(2))#10=1 S ^VCOMP=^VCOMP_X(2)
 I $D(Y)#10=1    S ^VCOMP=^VCOMP_Y
 I $D(Y(2))#10=1 S ^VCOMP=^VCOMP_Y(2)
 I $D(Z)#10=1    S ^VCOMP=^VCOMP_Z
 I $D(Z(2))#10=1 S ^VCOMP=^VCOMP_Z(2)
 S ^VCOMP=^VCOMP_"/"
 I $D(AA)#10=1    S ^VCOMP=^VCOMP_AA
 I $D(AA(2))#10=1 S ^VCOMP=^VCOMP_AA(2)
 I $D(BB)#10=1    S ^VCOMP=^VCOMP_BB
 I $D(BB(2))#10=1 S ^VCOMP=^VCOMP_BB(2)
 I $D(CC)#10=1    S ^VCOMP=^VCOMP_CC
 I $D(CC(2))#10=1 S ^VCOMP=^VCOMP_CC(2)
 I $D(DD)#10=1    S ^VCOMP=^VCOMP_DD
 I $D(DD(2))#10=1 S ^VCOMP=^VCOMP_DD(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWPN
V3NEWPN ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"114---V3NEWPN: NEW -44-"
 W !!,"lvn is % and alphnumeric"
 ;
93 S ^ABSN="31000",^ITEM="III-1000  NEW all"
 S ^NEXT="94^V3NEWPN,V3NEWI1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S %ABCDEFG(1,2,3)="%A"
 S %B123456("A","%",000)="%B"
 S %Z1D2E30("09793","ADEEDF")="%Z"
 D NEW1,CHECK
 S ^VCORR="1 0 1 0 1 0 1 0 %1%2%3%#10 1 10 1 10 1 0 0 %A%B%Z#"
 D ^VEXAMINE
 ;
94 S ^ABSN="31001",^ITEM="III-1001  selective NEW"
 S ^NEXT="95^V3NEWPN,V3NEWI1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S %ABCDEFG="%A"
 S %B123456="%B"
 S %Z1D2E30="%Z"
 S %="%"
 D NEW2
 D CHECK
 S ^VCORR="0 0 0 0 1 0 1 0 %Z%#10 1 10 1 10 1 1 0 %a%b%z%#1 0 1 0 10 1 1 0 %A%B%z%#"
 D ^VEXAMINE
 ;
95 S ^ABSN="31002",^ITEM="III-1002  exclusive NEW"
 S ^NEXT="^V3NEWI1,V3NEWI2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S %ABCDEFG="%A"
 S %B123456="%B"
 S %Z1D2E30="%Z"
 S %="%"
 S %ABCDEFG(1,2,3)="%A"
 S %B123456("A","%",000)="%B"
 S %Z1D2E30("09793","ADEEDF")="%Z"
 D NEW3
 D CHECK
 S ^VCORR="0 0 0 0 0 0 1 0 %#1 0 1 0 0 0 1 0 %A%B%#11 1 11 1 11 1 1 0 %A%A%B%B%Z%Z%#"
 D ^VEXAMINE
 ;
END W !!,"End of 114 --- V3NEWPN",!
 K  Q
 ;
NEW1 N
 S %ABCDEFG="%1",%B123456="%2",%Z1D2E30="%3",%="%"
 D CHECK Q
 ;
NEW2 ;
 NEW %ABCDEFG,%B123456
 D CHECK
 K %Z1D2E30
 S %ABCDEFG(1,2,3)="%a" S %B123456("A","%",000)="%b"
 S %Z1D2E30("09793","ADEEDF")="%z"
 D CHECK Q
 ;
NEW3 ;
 NEW (%)
 D CHECK
 S %ABCDEFG="%A"
 S %B123456="%B"
 D CHECK
 QUIT
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(%ABCDEFG)_" "_$D(%ABCDEFG(1,2,3))_" "
 S ^VCOMP=^VCOMP_$D(%B123456)_" "_$D(%B123456("A","%",0))_" "
 S ^VCOMP=^VCOMP_$D(%Z1D2E30)_" "_$D(%Z1D2E30("09793","ADEEDF"))_" "
 S ^VCOMP=^VCOMP_$D(%)_" "_$D(%(2))_" "
 I $D(%ABCDEFG)#10=1    S ^VCOMP=^VCOMP_%ABCDEFG
 I $D(%ABCDEFG(1,2,3))#10=1 S ^VCOMP=^VCOMP_%ABCDEFG(1,2,3)
 I $D(%B123456)#10=1    S ^VCOMP=^VCOMP_%B123456
 I $D(%B123456("A","%",0))#10=1 S ^VCOMP=^VCOMP_%B123456("A","%",0)
 I $D(%Z1D2E30)#10=1    S ^VCOMP=^VCOMP_%Z1D2E30
 I $D(%Z1D2E30("09793","ADEEDF"))#10=1 S ^VCOMP=^VCOMP_%Z1D2E30("09793","ADEEDF")
 I $D(%)#10=1    S ^VCOMP=^VCOMP_%
 I $D(%(2))#10=1 S ^VCOMP=^VCOMP_%(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWI1
V3NEWI1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"115---V3NEWI1: NEW -45-"
 W !!,"newargument is @expr"
 ;
96 S ^ABSN="31003",^ITEM="III-1003  @""A"""
 S ^NEXT="97^V3NEWI1,V3NEWI2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL1,CHECK
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(0,1,2)bc(0,1,2)#0 0 1 0 10 1 0 0 bc(0,1,2)#"
 D ^VEXAMINE
 ;
97 S ^ABSN="31004",^ITEM="III-1004  @B"
 S ^NEXT="98^V3NEWI1,V3NEWI2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWSEL2,CHECK
 S ^VCORR="101/11 1 1 0 11 1 0 0 aa(0,1,2)bCc(0,1,2)#11 1 1 0 11 1 0 0 aa(0,1,2)BCc(0,1,2)#"
 D ^VEXAMINE
 ;
98 S ^ABSN="31005",^ITEM="III-1005  @$P(C,""("",1))"
 S ^NEXT="99^V3NEWI1,V3NEWI2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(0,1,2)="A(0,1,2)",B(0,1,2)="B(0,1,2)",C(0,1,2)="C(0,1,2)"
 D NEWSEL3,CHECK
 S ^VCORR="10100/11 1 11 1 10 1 0 0 aa(0,1,2)bB(0,1,2)c(0,1,2)#11 1 11 1 10 1 0 0 aa(0,1,2)bB(0,1,2)C(0,1,2)#"
 D ^VEXAMINE
 ;
99 S ^ABSN="31006",^ITEM="III-1006  @B(0,1,2)"
 S ^NEXT="^V3NEWI2,V3NEWI3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(0,1,2)="A(0,1,2)",B="B",B(0,1,2)="@C",C="A",C(0,1,2)="C(0,1,2)"
 D NEWSEL4 D CHECK
 S ^VCORR="01111/11 1 11 1 11 1 0 0 aa(0,1,2)b@CAc(0,1,2)#11 1 11 1 11 1 0 0 AA(0,1,2)b@CAc(0,1,2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 115 --- V3NEWI1",!
 K  Q
 ;
NEWSEL1 ;
 NEW @"A"
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(0,1,2)="a(0,1,2)",B="b",C(0,1,2)="c(0,1,2)"
 D CHECK Q
 ;
NEWSEL2 ;
 NEW @B
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;101/
 S A="a",A(0,1,2)="a(0,1,2)",B="b",C(0,1,2)="c(0,1,2)"
 D CHECK Q
 ;
NEWSEL3 ;
 NEW @$P(C(0,1,2),"(",1)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(0,1,2)="a(0,1,2)",B="b",C(0,1,2)="c(0,1,2)"
 D CHECK Q
 ;
NEWSEL4 ;
 NEW @B(0,1,2)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;01111/
 S A="a",A(0,1,2)="a(0,1,2)",B="b",C(0,1,2)="c(0,1,2)"
 D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(0,1,2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(0,1,2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(0,1,2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(0,1,2))_" "
 I $D(A)#10=1        S ^VCOMP=^VCOMP_A
 I $D(A(0,1,2))#10=1 S ^VCOMP=^VCOMP_A(0,1,2)
 I $D(B)#10=1        S ^VCOMP=^VCOMP_B
 I $D(B(0,1,2))#10=1 S ^VCOMP=^VCOMP_B(0,1,2)
 I $D(C)#10=1        S ^VCOMP=^VCOMP_C
 I $D(C(0,1,2))#10=1 S ^VCOMP=^VCOMP_C(0,1,2)
 I $D(D)#10=1        S ^VCOMP=^VCOMP_D
 I $D(D(0,1,2))#10=1 S ^VCOMP=^VCOMP_D(0,1,2)
 S ^VCOMP=^VCOMP_"#"

V3NEWI2
V3NEWI2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"116---V3NEWI2: NEW -46-"
 ;
100 S ^ABSN="31007",^ITEM="III-1007  @""(A)"""
 S ^NEXT="101^V3NEWI2,V3NEWI3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC1,CHECK
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 0 0 0 0 0 0 aa(2)#"
 D ^VEXAMINE
 ;
101 S ^ABSN="31008",^ITEM="III-1008  @A"
 S ^NEXT="102^V3NEWI2,V3NEWI3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="(B)",B="B",C="C"
 D NEWEXC2,CHECK
 S ^VCORR="010/11 1 1 0 10 1 0 0 aa(2)bc(2)#1 0 1 0 1 0 0 0 (B)bC#"
 D ^VEXAMINE
 ;
102 S ^ABSN="31009",^ITEM="III-1009  @LVN(1,2,3,4)"
 S ^NEXT="103^V3NEWI2,V3NEWI3^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)",LVN(1,2,3,4)="(C)"
 D NEWEXC3,CHECK
 S ^VCORR="0010/11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 10 1 10 1 0 0 A(2)B(2)c(2)#"
 D ^VEXAMINE
 ;
103 S ^ABSN="31010",^ITEM="III-1010  @^VV(00,2)"
 S ^NEXT="^V3NEWI3,V3NEWI4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)",^VV(0,2)="(D)"
 D NEWEXC4,CHECK
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 11 1 11 1 0 0 AA(2)BB(2)CC(2)#"
 D ^VEXAMINE K ^VV
 ;
END W !!,"End of 116 --- V3NEWI2",!
 K  K ^VV Q
 ;
NEWEXC1 ;
 NEW @"(A)"
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
NEWEXC2 ;
 NEW @A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
NEWEXC3 ;
 NEW @LVN(1,2,3,4)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
NEWEXC4 ;
 NEW @^VV(00,2)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWI3
V3NEWI3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"117---V3NEWI3: NEW -47-"
 ;
104 S ^ABSN="31011",^ITEM="III-1011  @(""A,B"")"
 S ^NEXT="105^V3NEWI3,V3NEWI4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL21,CHECK
 S ^VCORR="000/11 1 1 0 10 1 0 0 aa(2)bc(2)#0 0 0 0 10 1 0 0 c(2)#"
 D ^VEXAMINE
 ;
105 S ^ABSN="31012",^ITEM="III-1012  @D"
 S ^NEXT="106^V3NEWI3,V3NEWI4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C",D="B,C"
 D NEWSEL22,CHECK
 S ^VCORR="100/11 1 1 0 10 1 1 0 aa(2)bc(2)B,C#11 1 1 0 1 0 1 0 aa(2)BCB,C#"
 D ^VEXAMINE
 ;
106 S ^ABSN="31013",^ITEM="III-1013  @(""C""_"",""_""D"")"
 S ^NEXT="107^V3NEWI3,V3NEWI4^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL23
 D CHECK
 S ^VCORR="10100/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 10 1 0 0 aa(2)bB(2)C(2)#"
 D ^VEXAMINE
 ;
107 S ^ABSN="31014",^ITEM="III-1014  @^VV(2)"
 S ^NEXT="^V3NEWI4,V3NEWI5^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="",^VV(2)="A,C"
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL24,CHECK
 S ^VCORR="0110/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bB(2)CC(2)dd(2)#"
 D ^VEXAMINE k ^VV
 ;
END W !!,"End of 117 --- V3NEWI3",!
 K  K ^VV Q
 ;
NEWSEL21 ;
 N @("A,B")
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
NEWSEL22 ;
 N @D
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK^V3NEWCHK Q
 ;
NEWSEL23 ;
 NEW @("C"_","_"D")
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWSEL24 ;
 N @^VV(2)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0110/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWI4
V3NEWI4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"118---V3NEWI4: NEW -48-"
 ;
108 S ^ABSN="31015",^ITEM="III-1015  @""(A,B)"""
 S ^NEXT="109^V3NEWI4,V3NEWI5^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC21,CHECK
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 0 0 0 0 aa(2)b#"
 D ^VEXAMINE
 ;
109 S ^ABSN="31016",^ITEM="III-1016  @ZZZZZZZZ(""abcd"",""efg"",1,2,3,4)"
 S ^NEXT="110^V3NEWI4,V3NEWI5^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWEXC22,CHECK
 S ^VCORR="011/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#1 0 1 0 11 1 0 0 AbCc(2)#"
 D ^VEXAMINE
 ;
110 S ^ABSN="31017",^ITEM="III-1017  @$tr(""52341"",""42315"",""AC,)("")"
 S ^NEXT="111^V3NEWI4,V3NEWI5^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC23
 D CHECK
 S ^VCORR="10010/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 10 1 0 0 aa(2)B(2)c(2)#"
 D ^VEXAMINE
 ;
111 S ^ABSN="31018",^ITEM="III-1018  @AA($O(AA(A)))"
 S ^NEXT="^V3NEWI5,V3NEWI6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC24,CHECK
 S ^VCORR="0110/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)bB(2)CC(2)dd(2)#"
 D ^VEXAMINE
 ;
END W !!,"End of 118 --- V3NEWI4",!
 K  Q
 ;
NEWEXC21 ;
 N @"(A,B)"
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK QUIT
 ;
NEWEXC22 ;
 S ZZZZZZZZ("abcd","efg",1,2,3,4)="A,(B,C)"
 N @ZZZZZZZZ("abcd","efg",1,2,3,4)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;011/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWEXC23 ;
 N @$tr("52341","42315","AC,)(")
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWEXC24 ;
 S AA(0)=""
 S AA("DD")="(B,D)"
 NEW @AA($O(AA(A)))
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0110/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWI5
V3NEWI5 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"119---V3NEWI5: NEW -49-"
 ;
112 S ^ABSN="31019",^ITEM="III-1019  @""A"",@""B,C"""
 S ^NEXT="113^V3NEWI5,V3NEWI6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWSEL31,CHECK
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#0 0 0 0 0 0 11 1 dd(2)#"
 D ^VEXAMINE
 ;
113 S ^ABSN="31020",^ITEM="III-1020  @B,@C,@A"
 S ^NEXT="114^V3NEWI5,V3NEWI6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWSEL32,CHECK
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#1 0 1 0 1 0 11 1 ABCdd(2)#"
 D ^VEXAMINE
 ;
114 S ^ABSN="31021",^ITEM="III-1021  @^VVA,@^VVA(2)"
 S ^NEXT="115^V3NEWI5,V3NEWI6^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWSEL33,CHECK
 S ^VCORR="0100/11 1 11 1 10 1 11 1 aa(2)bB(2)c(2)dd(2)#10 1 11 1 10 1 0 0 A(2)bB(2)C(2)#"
 D ^VEXAMINE
 ;
115 S ^ABSN="31022",^ITEM="III-1022  @AA,@BB,@CC"
 S ^NEXT="^V3NEWI6,V3NEWI7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWSEL34,CHECK
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 11 1 11 1 11 1 AA(2)BB(2)CC(2)dd(2)#"
 D ^VEXAMINE K ^VVA
 ;
END W !!,"End of 119 --- V3NEWI5",!
 K  K ^VVA Q
 ;
NEWSEL31 ;
 new @"A",@"B,C"
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
NEWSEL32 ;
 n @B,@C,@A
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
NEWSEL33 ;
 S ^VVA="A",^VVA(2)="C,D"
 NEW @^VVA,@^VVA(2)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;0100/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
NEWSEL34 ;
 S AA="A,B",BB="B,C,A",CC="C"
 n @AA,@BB,@CC
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWI6
V3NEWI6 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"120---V3NEWI6: NEW -50-"
 ;
116 S ^ABSN="31023",^ITEM="III-1023  (@""A"",@""B"",@""C"")"
 S ^NEXT="117^V3NEWI6,V3NEWI7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 D NEWEXC31,CHECK
 S ^VCORR="000/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 1 0 10 1 0 0 aa(2)bc(2)#"
 D ^VEXAMINE
 ;
117 S ^ABSN="31024",^ITEM="III-1024  (@C,@A,@B)"
 S ^NEXT="118^V3NEWI6,V3NEWI7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",B="B",C="C"
 D NEWEXC32,CHECK
 S ^VCORR="111/11 1 1 0 11 1 11 1 aa(2)bCc(2)dd(2)#11 1 1 0 11 1 0 0 aa(2)bCc(2)#"
 D ^VEXAMINE
 ;
118 S ^ABSN="31025",^ITEM="III-1025  (@$E(""ABCDEF"",3),@$C(65),@$TR(123.456,0.12345678,""D""))"
 S ^NEXT="119^V3NEWI6,V3NEWI7^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEWEXC33,CHECK
 S ^VCORR="10010/11 1 1 0 10 1 11 1 aa(2)bc(2)dd(2)#11 1 10 1 10 1 11 1 aa(2)B(2)c(2)dd(2)#"
 D ^VEXAMINE
 ;
119 S ^ABSN="31026",^ITEM="III-1026  @""(@BB,@A,@CC(2))"""
 S ^NEXT="^V3NEWI7,V3NEWN1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S A="A",A(2)="A(2)",B="B",B(2)="B(2)",C="C",C(2)="C(2)"
 D NEWEXC34,CHECK
 S ^VCOMP=^VCOMP_$D(BB)_" "_$D(CC(2))_" "
 I $D(BB)#10=1    S ^VCOMP=^VCOMP_BB
 I $D(CC(2))#10=1 S ^VCOMP=^VCOMP_CC(2)
 S ^VCORR="111111/11 1 11 1 11 1 11 1 aa(2)bB(2)Cc(2)dd(2)#0 0 11 1 11 1 11 1 0 0 aa(2)bB(2)Cc(2)#1 1 B@CC(1)"
 D ^VEXAMINE
 ;
END W !!,"End of 120 --- V3NEWI6",!
 K  Q
 ;
NEWEXC31 ;
 N (@"A",@"B",@"C")
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;000/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWEXC32 ;
 N (@C,@A,@B)
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWEXC33 ;
 NEW (@$E("ABCDEF",3),@$C(65),@$TR(123.456,0.12345678,"D"))
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;10010/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK Q
 ;
NEWEXC34 ;
 S BB="B",CC(2)="@CC(1)",CC(1)="C"
 NEW @"(@BB,@A,@CC(2))"
 S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_"/"    ;111111/
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D="d",D(2)="d(2)"
 D CHECK
 S ^VCOMP=^VCOMP_$D(BB)_" "_$D(CC(2))_" "
 I $D(BB)#10=1    S ^VCOMP=^VCOMP_BB
 I $D(CC(2))#10=1 S ^VCOMP=^VCOMP_CC(2)
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWI7
V3NEWI7 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"121---V3NEWI7: NEW -51-"
 ;
120 S ^ABSN="31027",^ITEM="III-1027  @A"
 S ^NEXT="121^V3NEWI7,V3NEWN1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D NEW1,CHECK
 S ^VCORR="1 0 11 1 1 0 1 0 (C,B),@B@B(2)BCD#0 0 0 0 1 0 0 0 C#11 1 1 0 11 1 0 0 aa(2)bCc(2)#1 0 11 1 11 1 1 0 (C,B),@B@B(2)BCc(2)D#"
 D ^VEXAMINE
 ;
121 S ^ABSN="31028",^ITEM="III-1028  @B"
 S ^NEXT="122^V3NEWI7,V3NEWN1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D NEW2,CHECK
 S ^VCORR="10 1 1 0 10 1 10 1 A(2)(A,B),(B,C)C(2)D(2)#0 0 1 0 0 0 0 0 (A,B),(B,C)#11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 1 0 10 1 10 1 A(2)bC(2)D(2)#"
 D ^VEXAMINE
 ;
122 S ^ABSN="31029",^ITEM="III-1029  @@A,(@@B,@@C)"
 S ^NEXT="123^V3NEWI7,V3NEWN1^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D NEW3 D CHECK
 S ^VCORR="11 1 11 1 11 1 11 1 A(2)AB(2)BC(2)CD(2)D#0 0 11 1 11 1 0 0 B(2)BC(2)C#11 1 11 1 11 1 0 0 aa(2)bBC(2)c(2)#11 1 11 1 11 1 11 1 A(2)AbBC(2)c(2)D(2)D#"
 D ^VEXAMINE
 ;
123 S ^ABSN="31030",^ITEM="III-1030  A,@^VVA"
 S ^NEXT="^V3NEWN1,V3NEWN2^V3NEW,V3ALDO^VV3" D ^V3PRESET K
 S ^VCOMP="" D NEW4,CHECK
 S ^VCORR="1 0 11 1 11 1 10 1 ABBCCD#0 0 0 0 0 0 10 1 D#11 1 1 0 10 1 10 1 aa(2)bc(2)D#1 0 11 1 11 1 10 1 ABBCCD#"
 D ^VEXAMINE K ^VVA
 ;
END W !!,"End of 121 --- V3NEWI7",!
 K  Q
 ;
NEW1 S A="(C,B),@B",B="@B(2)",B(2)="B",C="C",D="D"
 D CHECK NEW @A
 D CHECK S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK Q
 ;
NEW2 ;
 S A(2)="A(2)",B="(A,B),(B,C)",C(2)="C(2)",D(2)="D(2)"
 D CHECK
 N @B
 D CHECK
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK
 Q
 ;
NEW3 ;
 S A="A(2)",A(2)="A",B="B(2)",B(2)="B",C="C(2)",C(2)="C",D="D(2)",D(2)="D"
 D CHECK
 new @@A,(@@B,@@C)
 D CHECK
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK
 Q
 ;
NEW4 ;
 S A="A",B="B",C="C",B(2)="B",C(2)="C",D(2)="D"
 S ^VVA="@B($D(A)+2),@C($D(B)+2),(@D($D(C)+2))"
 D CHECK
 NEW A,@^VVA
 D CHECK
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN1
V3NEWN1 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"122---V3NEWN1: NEW -52-"
 W !!,"Nesting tests"
 ;
124 S ^ABSN="31031",^ITEM="III-1031  all, all"
 S ^NEXT="125^V3NEWN1,V3NEWN2^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEW1,CHECK
 S ^VCORR="11 1 1 0 10 1 0 0 aa(2)bc(2)#1 0 10 1 11 1 1 0 xy(2)zz(2)w#11 1 1 0 10 1 0 0 aa(2)bc(2)#10 1 10 1 10 1 0 0 A(2)B(2)C(2)#"
 D ^VEXAMINE
 ;
125 S ^ABSN="31032",^ITEM="III-1032  all, selective"
 S ^NEXT="126^V3NEWN1,V3NEWN2^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s B(2)="B(2)",D="D"
 D NEW2,CHECK
 S ^VCORR="11 1 1 0 10 1 0 0 aa(2)bc(2)#11 1 0 0 10 1 0 0 aa(2)c(2)#11 1 11 1 11 1 0 0 aa(3)b3b(3)c3c(2)#11 1 1 0 11 1 0 0 aa(3)bc3c(2)#0 0 10 1 0 0 1 0 B(2)D#"
 D ^VEXAMINE
 ;
126 S ^ABSN="31033",^ITEM="III-1033  all, exclusive"
 S ^NEXT="^V3NEWN2,V3NEWN3^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 1 0 10 1 10 1 aa(2)bc(2)d(2)#11 1 0 0 0 0 10 1 aa(2)d(2)#11 1 11 1 1 0 11 1 aa(3)b3b(3)c3d3d(2)#11 1 1 0 10 1 0 0 aa(3)bc(2)#1 0 1 0 1 0 1 0 ABCD#"
 D ^VEXAMINE
 ;
END W !!,"End of 122 --- V3NEWN1",!
 K  Q
 ;
NEW1 NEW  S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK,NEW1N,CHECK Q
 ;
NEW1N NEW
 S A="x",B(2)="y(2)",C="z",C(2)="z(2)",D="w"
 D CHECK q
 ;
NEW2 ;
 NEW
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK,NEW2N,CHECK
 Q
 ;
NEW2N NEW B,D
 D CHECK
 S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3"
 D CHECK
 Q
 ;
NEW3 ;
 S A="A",B="B",C="C",D="D"
 NEW
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)",D(2)="d(2)"
 D CHECK^V3NEWCHK,NEW3N,^V3NEWCHK
 Q
 ;
NEW3N ;
 NEW (A,D) d CHECK S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3"
 D CHECK^V3NEWCHK k D
 Q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN2
V3NEWN2 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"123---V3NEWN2: NEW -53-"
 ;
127 S ^ABSN="31034",^ITEM="III-1034  selective, all      "
 S ^NEXT="128^V3NEWN2,V3NEWN3^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S ^VV("D")="D"
 S A("AB",2.4)="@B(""AB"",2.4)",B("AB",2.4)="@C(""AB"",2.4)",C("AB",2.4)="@^VV(""D"")"
 D NEW1,CHECK
 S ^VCORR="10 1 10 1 10 1 0 0 @B(""AB"",2.4)@C(""AB"",2.4)@^VV(""D"")#11 1 11 1 10 1 10 1 aa(2)b@C(""AB"",2.4)c(2)d(2)#0 0 0 0 0 0 0 0 #1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#11 1 11 1 10 1 10 1 aa(2)b@C(""AB"",2.4)c(2)d(2)#11 1 0 0 10 1 0 0 aa(2)c(2)#"
 D ^VEXAMINE K ^VV
 ;
128 S ^ABSN="31035",^ITEM="III-1035  selective, selective"
 S ^NEXT="129^V3NEWN2,V3NEWN3^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A(""AB"")",A("AB",2.4)="C",B="B",B("AB",2.4)="@A@(2.4)"
 D NEW2,CHECK
 S ^VCORR="0 0 0 0 11 1 0 0 AC(""AB"",2.4)#1 0 11 1 11 1 0 0 abAAc(2)#0 0 11 1 11 1 0 0 bAAc(2)#11 1 11 1 11 1 10 1 a3a(3)b3AAc(3)d(3)#1 0 11 1 11 1 0 0 ab3AAc(3)#11 1 11 1 11 1 0 0 A(""AB"")CB@A@(2.4)Ac(3)#"
 D ^VEXAMINE
 ;
129 S ^ABSN="31036",^ITEM="III-1036  selective, exclusive"
 S ^NEXT="^V3NEWN3,V3NEWN4^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 0 0 0 0 0 0 AA(""AB"",2.4)#11 1 1 0 10 1 0 0 a2@C(""AB"",2.4)b2B#0 0 0 0 10 1 0 0 B#1 0 11 1 10 1 1 0 a3b3b(3)c(3)d3#1 0 0 0 10 1 0 0 a3c(3)#11 1 1 0 10 1 0 0 a2@C(""AB"",2.4)b2c(3)#11 1 11 1 11 1 0 0 a2@C(""AB"",2.4)BB(1)CC(1)#"
 D ^VEXAMINE
 ;
END W !!,"End of 123 --- V3NEWN2",!
 K  K ^VV Q
 ;
NEW1 NEW:.001 @A("AB",2.4)
 D CHECK
 S A="a",A("AB",2.4)="a(2)",B="b",C("AB",2.4)="c(2)",D("AB",2.4)="d(2)"
 D CHECK,NEW1N,CHECK k B Q
 ;
NEW1N NEW
 D CHECK S A="a3",B("AB",2.4)="b(3)",C="c3",C("AB",2.4)="c(3)",D="d3"
 D CHECK K B,C Q
 ;
NEW2 ;
 s C="A",C("AB",2.4)="C(""AB"",2.4)"
 IF $D(B)  N @@@B("AB",2.4),B ;A,B
 ELSE  K B
 D CHECK
 S A="a",B="b",B("AB",2.4)="A",C("AB",2.4)="c(2)"
 D CHECK D NEW2N D CHECK Q
 ;
NEW2N ;
 N @@("B(""A"_"B"")")@(2.4),D ;A,D
 D CHECK
 S A="a3",A("AB",2.4)="a(3)",B="b3",C("AB",2.4)="c(3)",D("AB",2.4)="d(3)"
 D CHECK
 Q
 ;
NEW3 ;
 S A="A",A("AB",2.4)="A(""AB"",2.4)"
 S B="B",B("AB",2.4)="B(1)"
 S C="C",C("AB",2.4)="C(1)"
 s ^VV("AB",2.4)="B",^VV("AB",0)="A"
 NEW C,@^(2.4) ;C,B
 D CHECK
 S A="a2",A("AB",2.4)="@C(""AB"",2.4)",B="b2",C("AB",2.4)="B"
 D CHECK
 s ^VV("AB",2.4)="B"
 D NEW3N,CHECK Q
 ;
NEW3N ;
 N @A("AB",2.4),@^(0) ;B,A
 D CHECK
 S A="a3",B="b3",B("AB",2.4)="b(3)",C("AB",2.4)="c(3)",D="d3"
 D CHECK k (C,A) D CHECK Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D("AB",2.4))_" "
 I $D(A)#10=1           S ^VCOMP=^VCOMP_A
 I $D(A("AB",2.4))#10=1 S ^VCOMP=^VCOMP_A("AB",2.4)
 I $D(B)#10=1           S ^VCOMP=^VCOMP_B
 I $D(B("AB",2.4))#10=1 S ^VCOMP=^VCOMP_B("AB",2.4)
 I $D(C)#10=1           S ^VCOMP=^VCOMP_C
 I $D(C("AB",2.4))#10=1 S ^VCOMP=^VCOMP_C("AB",2.4)
 I $D(D)#10=1           S ^VCOMP=^VCOMP_D
 I $D(D("AB",2.4))#10=1 S ^VCOMP=^VCOMP_D("AB",2.4)
 S ^VCOMP=^VCOMP_"#" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN3
V3NEWN3 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"124---V3NEWN3: NEW -54-"
 ;
130 S ^ABSN="31037",^ITEM="III-1037  exclusive, all"
 S ^NEXT="131^V3NEWN3,V3NEWN4^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW1,CHECK
 S ^VCORR="1 0 11 1 1 0 11 1 abB(1)cdD(1)0 0 10 1 11 1 1 0 b(3)c3c(3)d31 0 11 1 1 0 11 1 abB(1)cdD(1)11 1 11 1 11 1 11 1 A1A(1)bB(1)C1C(1)dD(1)"
 D ^VEXAMINE
 ;
131 S ^ABSN="31038",^ITEM="III-1038  exclusive, selective"
 S ^NEXT="132^V3NEWN3,V3NEWN4^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 S ^VVA(11)="B"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 10 1 11 1 aa(2)bB(1)c(2)D1D(1)11 1 11 1 0 0 11 1 aa(2)bB(1)D1D(1)11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(3)D1D(1)11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(2)D1D(1)11 1 11 1 11 1 11 1 A1A(1)b3B(1)C1C(1)D1D(1)"
 D ^VEXAMINE
 ;
132 S ^ABSN="31039",^ITEM="III-1039  exclusive, exclusive"
 S ^NEXT="^V3NEWN4,V3NEWN5^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="0 0 11 1 0 0 11 1 B1B(1)D1D(1)11 1 11 1 10 1 11 1 @$C(66)(@A,D)AB(1)c(2)D1D(1)0 0 11 1 0 0 11 1 AB(1)D1D(1)11 1 11 1 10 1 10 1 a3a(3)b3B(1)c(3)d(3)11 1 11 1 10 1 10 1 @$C(66)(@A,D)b3B(1)c(2)d(3)11 1 11 1 11 1 10 1 (D,B)A(1)b3B(1)C1C(1)d(3)"
 D ^VEXAMINE
 ;
END W !!,"End of 124 --- V3NEWN3",!
 K  K ^VVA Q
 ;
NEW1 ;
 NEW (D,B)
 S A="a",B="b",C="c",D="d"
 D CHECK D NEW1N D CHECK Q
 ;
NEW1N ;
 NEW
 S B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK Q
 ;
NEW2 ;
 NEW (@$P("A,B,C,D,E,F,G",",",4),@^VVA($D(C))) ;(D,B)  A,C
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D CHECK
 D NEW2N D CHECK Q
NEW2N N C D CHECK S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" D CHECK Q
 ;
NEW3 ;
 S A="(D,B)",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 NEW @A ;N A,C
 D CHECK
 S A="@$C(66)",A(2)="(@A,D)",B="A",C(2)="c(2)"
 D CHECK,NEW3N,CHECK Q
 ;
NEW3N ;
 N @@B@(2) ;(B,D) A,C
 D CHECK k D
 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)",D(2)="d(3)"
 D CHECK q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"" Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN4
V3NEWN4 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"125---V3NEWN4: NEW -55-"
 ;
133 S ^ABSN="31040",^ITEM="III-1040  all, all, all"
 S ^NEXT="134^V3NEWN4,V3NEWN5^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#1 0 10 1 11 1 1 0 a2b(2)c2c(2)d2#11 1 1 0 10 1 0 0 a1a(1)b1c(1)#10 1 10 1 10 1 0 0 A(2)B(2)C(2)#"
 D ^VEXAMINE
 ;
134 S ^ABSN="31041",^ITEM="III-1041  all, all, selective"
 S ^NEXT="135^V3NEWN4,V3NEWN5^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s B(2)="B(2)",D="D"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 1 0 a2a(3)b3b(3)c3c(2)d3#11 1 1 0 11 1 0 0 a2a(3)b2c3c(2)#11 1 1 0 10 1 0 0 a1a(1)b1c(1)#0 0 10 1 0 0 1 0 B(2)D#"
 D ^VEXAMINE
 ;
135 S ^ABSN="31042",^ITEM="III-1042  all, all, exclusive"
 S ^NEXT="^V3NEWN5,V3NEWN6^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 0 0 0 0 0 0 a3a(3)#11 1 11 1 1 0 1 0 a3a(3)b3b(3)c3d3#11 1 1 0 10 1 0 0 a3a(3)b3c(3)#11 1 1 0 10 1 0 0 a2a(2)b2c(2)#1 0 1 0 1 0 1 0 ABCD#"
 D ^VEXAMINE
 ;
END W !!,"End of 125 --- V3NEWN4",!
 K  Q
 ;
NEW1 NEW  S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW1N,CHECK Q
 ;
NEW1N NEW
 S A="a2",B(2)="b(2)",C="c2",C(2)="c(2)",D="d2"
 D NEW1M,CHECK q
 ;
NEW1M N
 S A="a3",B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK q
 ;
NEW2 ;
 NEW
 S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW2N,CHECK Q
 ;
NEW2M NEW B,D
 S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3" D CHECK Q
 ;
NEW3 ;
 S A="A",B="B",C="C",D="D"
 NEW
 D SET2 D NEW3N,^V3NEWCHK Q
 ;
NEW3N ;
 NEW  K
 d SET3
 D NEW3M,CHECK Q
 ;
NEW3M ;
 NEW (A,D) d CHECK S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3"
 D CHECK^V3NEWCHK k D
 Q
SET2 S A="a2",A(2)="a(2)",B="b2",C(2)="c(2)" q
SET3 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
NEW2N ;
 NEW
 D SET2
 D NEW2M,CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN5
V3NEWN5 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"126---V3NEWN5: NEW -56-"
 ;
136 S ^ABSN="31043",^ITEM="III-1043  all, selective, all      "
 S ^NEXT="137^V3NEWN5,V3NEWN6^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S ^VV("D")="D"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#11 1 11 1 10 1 10 1 aa(2)b@C(""AB"",2.4)c(2)d(2)#11 1 0 0 10 1 0 0 aa(2)c(2)#1 0 10 0 11 0 0 0 a1c1#"
 D ^VEXAMINE K ^VV
 ;
137 S ^ABSN="31044",^ITEM="III-1044  all, selective, selective"
 S ^NEXT="138^V3NEWN5,V3NEWN6^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 10 1 a3a(3)b3AAc(3)d(3)#1 0 11 1 11 1 0 0 ab3AAc(3)#11 1 11 1 11 1 0 0 A(""AB"")CB@A@(2.4)Ac(3)#1 0 10 0 11 0 0 0 a1c1#"
 D ^VEXAMINE
 ;
138 S ^ABSN="31045",^ITEM="III-1045  all, selective, exclusive"
 S ^NEXT="^V3NEWN6,V3NEWN7^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="1 0 0 0 10 1 0 0 a3c(3)#11 1 1 0 10 1 0 0 a2@C(""AB"",2.4)b2c(3)#11 1 11 1 11 1 0 0 a2@C(""AB"",2.4)BB(1)CC(1)#1 0 10 0 11 0 0 0 a1c1#"
 D ^VEXAMINE
 ;
END W !!,"End of 126 --- V3NEWN5",!
 K  K ^VV Q
 ;
NEW1 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW
 S A("AB",2.4)="@B(""AB"",2.4)",B("AB",2.4)="@C(""AB"",2.4)",C("AB",2.4)="@^VV(""D"")"
 D NEW1N,CHECK q
 ;
NEW1N NEW:.001 @A("AB",2.4)
 S A="a",A("AB",2.4)="a(2)",B="b",C("AB",2.4)="c(2)",D("AB",2.4)="d(2)"
 D NEW1M,CHECK k B Q
 ;
NEW1M NEW
 S A="a3",B("AB",2.4)="b(3)",C="c3",C("AB",2.4)="c(3)",D="d3"
 D CHECK K B,C Q
 ;
NEW2 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW
 S A="A(""AB"")",A("AB",2.4)="C",B="B",B("AB",2.4)="@A@(2.4)"
 D NEW2N,CHECK q
 ;
NEW2N ;
 s C="A",C("AB",2.4)="C(""AB"",2.4)"
 IF $D(B)  N @@@B("AB",2.4),B ;A,B
 ELSE  K B
 S A="a",B="b",B("AB",2.4)="A",C("AB",2.4)="c(2)"
 D NEW2M D CHECK Q
 ;
NEW2M ;
 N @@("B(""A"_"B"")")@(2.4),D ;A,D
 S A="a3",A("AB",2.4)="a(3)",B="b3",C("AB",2.4)="c(3)",D("AB",2.4)="d(3)"
 D CHECK
 Q
 ;
NEW3 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW
 S A="A",A("AB",2.4)="A(""AB"",2.4)"
 S B="B",B("AB",2.4)="B(1)"
 S C="C",C("AB",2.4)="C(1)"
 D NEW3N,CHECK q
 ;
NEW3N ;
 s ^VV("AB",2.4)="B",^VV("AB",0)="A"
 NEW C,@^(2.4) ;C,B
 S A="a2",A("AB",2.4)="@C(""AB"",2.4)",B="b2",C("AB",2.4)="B"
 s ^VV("AB",2.4)="B"
 D NEW3M,CHECK Q
 ;
NEW3M ;
 N @A("AB",2.4),@^(0) ;B,A
 S A="a3",B="b3",B("AB",2.4)="b(3)",C("AB",2.4)="c(3)",D="d3"
 k (C,A) D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D("AB",2.4))_" "
 I $D(A)#10=1           S ^VCOMP=^VCOMP_A
 I $D(A("AB",2.4))#10=1 S ^VCOMP=^VCOMP_A("AB",2.4)
 I $D(B)#10=1           S ^VCOMP=^VCOMP_B
 I $D(B("AB",2.4))#10=1 S ^VCOMP=^VCOMP_B("AB",2.4)
 I $D(C)#10=1           S ^VCOMP=^VCOMP_C
 I $D(C("AB",2.4))#10=1 S ^VCOMP=^VCOMP_C("AB",2.4)
 I $D(D)#10=1           S ^VCOMP=^VCOMP_D
 I $D(D("AB",2.4))#10=1 S ^VCOMP=^VCOMP_D("AB",2.4)
 S ^VCOMP=^VCOMP_"#"

V3NEWN6
V3NEWN6 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"127---V3NEWN6: NEW -57-"
 ;
139 S ^ABSN="31046",^ITEM="III-1046  all, exclusive, all"
 S ^NEXT="140^V3NEWN6,V3NEWN7^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW1,CHECK
 S ^VCORR="0 0 10 1 11 1 1 0 b(3)c3c(3)d3#1 0 11 1 1 0 11 1 abB(1)cdD(1)#11 1 11 1 11 1 11 1 A1A(1)bB(1)C1C(1)dD(1)#1 0 1 0 1 0 1 0 ABCD#"
 D ^VEXAMINE
 ;
140 S ^ABSN="31047",^ITEM="III-1047  all, exclusive, selective"
 S ^NEXT="141^V3NEWN6,V3NEWN7^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 S ^VVA(11)="B"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(3)D1D(1)#11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(2)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)b3B(1)C1C(1)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)B1B(1)C1C(1)D1D(1)#"
 D ^VEXAMINE
 ;
141 S ^ABSN="31048",^ITEM="III-1048  all, exclusive, exclusive"
 S ^NEXT="^V3NEWN7,V3NEWN8^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 11 1 10 1 10 1 a3a(3)b3B(1)c(3)d(3)#11 1 11 1 10 1 10 1 @$C(66)(@A,D)b3B(1)c(2)d(3)#11 1 11 1 11 1 10 1 (D,B)A(1)b3B(1)C1C(1)d(3)#1 0 10 1 11 1 0 0 ab(0)cc(0)#"
 D ^VEXAMINE
 ;
END W !!,"End of 127 --- V3NEWN6",!
 K  Q
 ;
NEW1 ;
 S A="A",B="B",C="C",D="D"
 NEW
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW1N,^V3NEWCHK Q
 ;
NEW1N ;
 NEW (D,B)
 S A="a",B="b",C="c",D="d"
 D NEW1M D CHECK Q
 ;
NEW1M ;
 NEW
 S B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK Q
 ;
NEW2 ;
 NEW
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW2N,^V3NEWCHK Q
 ;
NEW2N ;
 NEW (D,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D NEW2M D CHECK Q
NEW2M N C S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" D CHECK Q
 ;
NEW3 ;
 S A="a",B(2)="b(0)",C="c",C(2)="c(0)"
 NEW
 S A="A",B="B",C="C",D="D" 
 D NEW3N,CHECK q
 ;
NEW3N ;
 S A="(D,B)",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 NEW @A ;N A,C
 S A="@$C(66)",A(2)="(@A,D)",B="A",C(2)="c(2)"
 D NEW3M,CHECK Q
 ;
NEW3M ;
 N @@B@(2) ;(B,D) A,C
 k D
 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)",D(2)="d(3)"
 g ^V3NEWCHK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWN7
V3NEWN7 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"128---V3NEWN7: NEW -58-"
 ;
142 S ^ABSN="31049",^ITEM="III-1049  selective, all, all"
 S ^NEXT="143^V3NEWN7,V3NEWN8^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#1 0 10 1 11 1 1 0 a2b(2)c2c(2)d2#11 1 1 0 10 1 0 0 a1a(1)b1c(1)#11 1 10 1 10 1 0 0 a1a(1)B(2)c(1)#"
 D ^VEXAMINE
 ;
143 S ^ABSN="31050",^ITEM="III-1050  selective, all, selective"
 S ^NEXT="144^V3NEWN7,V3NEWN8^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s B(2)="B(2)",D="D"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 1 0 a2a(3)b3b(3)c3c(2)d3#11 1 1 0 11 1 0 0 a2a(3)b2c3c(2)#11 1 1 0 10 1 0 0 a1a(1)b1c(1)#0 0 10 1 10 1 1 0 B(2)c(1)D#"
 D ^VEXAMINE
 ;
144 S ^ABSN="31051",^ITEM="III-1051  selective, all, exclusive"
 S ^NEXT="^V3NEWN8,V3NEWN9^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s A="A",D="D"
 D NEW3,CHECK
 S ^VCORR="11 1 0 0 0 0 0 0 a3a(3)#11 1 11 1 1 0 1 0 a3a(3)b3b(3)c3d3#11 1 1 0 10 1 0 0 a3a(3)b3c(3)#11 1 1 0 11 1 0 0 a2a(2)b2Cc(2)#1 0 1 0 11 1 1 0 Ab2Cc(2)D#"
 D ^VEXAMINE
 ;
END W !!,"End of 128 --- V3NEWN7",!
 K  K ^VVA Q
 ;
NEW1 NEW B
 S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW1N,CHECK Q
 ;
NEW1N NEW
 S A="a2",B(2)="b(2)",C="c2",C(2)="c(2)",D="d2"
 D NEW1M,CHECK q
 ;
NEW1M N
 S A="a3",B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK q
 ;
NEW2 ;
 NEW A,B,D K B
 S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW2N,CHECK Q
 ;
NEW2M NEW B,D
 S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3" D CHECK Q
 ;
NEW3 ;
 S A="A",B="B",C="C",D="D"
 NEW D,A K B
 D SET2 D NEW3N,^V3NEWCHK Q
 ;
NEW3N ;
 NEW  K
 d SET3
 D NEW3M,CHECK Q
 ;
NEW3M ;
 NEW (A,D) d CHECK S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3"
 D CHECK^V3NEWCHK k D
 Q
SET2 S A="a2",A(2)="a(2)",B="b2",C(2)="c(2)" q
SET3 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
NEW2N ;
 NEW
 D SET2
 D NEW2M,CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN8
V3NEWN8 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"129---V3NEWN8: NEW -59-"
 ;
145 S ^ABSN="31052",^ITEM="III-1052  selective, selective, all      "
 S ^NEXT="146^V3NEWN8,V3NEWN9^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S ^VV("D")="D"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#11 1 11 1 11 1 10 1 aa(2)b@C(""AB"",2.4)c1c(2)d(2)#11 1 0 0 11 1 0 0 aa(2)c1c(2)#11 1 0 0 11 1 0 0 aa(2)c1c(2)#"
 D ^VEXAMINE K ^VV
 ;
146 S ^ABSN="31053",^ITEM="III-1053  selective, selective, selective"
 S ^NEXT="147^V3NEWN8,V3NEWN9^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 10 1 a3a(3)b3AAc(3)d(3)#1 0 11 1 11 1 0 0 ab3AAc(3)#11 1 11 1 11 1 0 0 A(""AB"")CB@A@(2.4)Ac(3)#11 1 10 0 11 0 0 0 A(""AB"")Cc1#"
 D ^VEXAMINE
 ;
147 S ^ABSN="31054",^ITEM="III-1054  selective, selective, exclusive"
 S ^NEXT="^V3NEWN9,V3NEWN10^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="1 0 0 0 10 1 0 0 a3c(3)#11 1 1 0 10 1 0 0 a2@C(""AB"",2.4)b2c(3)#11 1 11 1 11 1 0 0 a2@C(""AB"",2.4)BB(1)CC(1)#11 1 10 0 11 1 0 0 a2@C(""AB"",2.4)CC(1)#"
 D ^VEXAMINE
 ;
END W !!,"End of 129 --- V3NEWN8",!
 K  K ^VV Q
 ;
NEW1 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW E,F,G
 S A("AB",2.4)="@B(""AB"",2.4)",B("AB",2.4)="@C(""AB"",2.4)",C("AB",2.4)="@^VV(""D"")"
 D NEW1N,CHECK q
 ;
NEW1N NEW:.001 @A("AB",2.4)
 S A="a",A("AB",2.4)="a(2)",B="b",C("AB",2.4)="c(2)",D("AB",2.4)="d(2)"
 D NEW1M,CHECK k B Q
 ;
NEW1M NEW
 S A="a3",B("AB",2.4)="b(3)",C="c3",C("AB",2.4)="c(3)",D="d3"
 D CHECK K B,C Q
 ;
NEW2 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW B,D,C
 S A="A(""AB"")",A("AB",2.4)="C",B="B",B("AB",2.4)="@A@(2.4)"
 D NEW2N,CHECK q
 ;
NEW2N ;
 s C="A",C("AB",2.4)="C(""AB"",2.4)"
 IF $D(B)  N @@@B("AB",2.4),B ;A,B
 ELSE  K B
 S A="a",B="b",B("AB",2.4)="A",C("AB",2.4)="c(2)"
 D NEW2M D CHECK Q
 ;
NEW2M ;
 N @@("B(""A"_"B"")")@(2.4),D ;A,D
 S A="a3",A("AB",2.4)="a(3)",B="b3",C("AB",2.4)="c(3)",D("AB",2.4)="d(3)"
 D CHECK
 Q
 ;
NEW3 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW B,E,F,G
 S A="A",A("AB",2.4)="A(""AB"",2.4)"
 S B="B",B("AB",2.4)="B(1)"
 S C="C",C("AB",2.4)="C(1)"
 D NEW3N,CHECK q
 ;
NEW3N ;
 s ^VV("AB",2.4)="B",^VV("AB",0)="A"
 NEW C,@^(2.4) ;C,B
 S A="a2",A("AB",2.4)="@C(""AB"",2.4)",B="b2",C("AB",2.4)="B"
 s ^VV("AB",2.4)="B"
 D NEW3M,CHECK Q
 ;
NEW3M ;
 N @A("AB",2.4),@^(0) ;B,A
 S A="a3",B="b3",B("AB",2.4)="b(3)",C("AB",2.4)="c(3)",D="d3"
 k (C,A) D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D("AB",2.4))_" "
 I $D(A)#10=1           S ^VCOMP=^VCOMP_A
 I $D(A("AB",2.4))#10=1 S ^VCOMP=^VCOMP_A("AB",2.4)
 I $D(B)#10=1           S ^VCOMP=^VCOMP_B
 I $D(B("AB",2.4))#10=1 S ^VCOMP=^VCOMP_B("AB",2.4)
 I $D(C)#10=1           S ^VCOMP=^VCOMP_C
 I $D(C("AB",2.4))#10=1 S ^VCOMP=^VCOMP_C("AB",2.4)
 I $D(D)#10=1           S ^VCOMP=^VCOMP_D
 I $D(D("AB",2.4))#10=1 S ^VCOMP=^VCOMP_D("AB",2.4)
 S ^VCOMP=^VCOMP_"#"

V3NEWN9
V3NEWN9 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"130---V3NEWN9: NEW -60-"
 ;
148 S ^ABSN="31055",^ITEM="III-1055  selective, exclusive, all"
 S ^NEXT="149^V3NEWN9,V3NEWN10^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW1,CHECK
 S ^VCORR="0 0 10 1 11 1 1 0 b(3)c3c(3)d3#1 0 11 1 1 0 11 1 abB(1)cdD(1)#11 1 11 1 11 1 11 1 A1A(1)bB(1)C1C(1)dD(1)#1 0 1 0 11 1 11 1 ABC1C(1)dD(1)#"
 D ^VEXAMINE
 ;
149 S ^ABSN="31056",^ITEM="III-1056  selective, exclusive, selective"
 S ^NEXT="150^V3NEWN9,V3NEWN10^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 S ^VVA(11)="B"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(3)D1D(1)#11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(2)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)b3B(1)C1C(1)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)B1B(1)C1C(1)D1D(1)#"
 D ^VEXAMINE
 ;
150 S ^ABSN="31057",^ITEM="III-1057  selective, exclusive, exclusive"
 S ^NEXT="^V3NEWN10,V3NEWN11^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 11 1 10 1 10 1 a3a(3)b3B(1)c(3)d(3)#11 1 11 1 10 1 10 1 @$C(66)(@A,D)b3B(1)c(2)d(3)#11 1 11 1 11 1 10 1 (D,B)A(1)b3B(1)C1C(1)d(3)#11 1 11 1 11 1 0 0 (D,B)A(1)b3B(1)cc(0)#"
 D ^VEXAMINE
 ;
END W !!,"End of 130 --- V3NEWN9",!
 K  K ^VVA Q
 ;
NEW1 ;
 S A="A",B="B",C="C",D="D"
 NEW A,B
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW1N,^V3NEWCHK Q
 ;
NEW1N ;
 NEW (D,B)
 S A="a",B="b",C="c",D="d"
 D NEW1M D CHECK Q
 ;
NEW1M ;
 NEW
 S B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK Q
 ;
NEW2 ;
 NEW A,B
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW2N,^V3NEWCHK Q
 ;
NEW2N ;
 NEW (D,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D NEW2M D CHECK Q
NEW2M N C S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" D CHECK Q
 ;
NEW3 ;
 S A="a",B(2)="b(0)",C="c",C(2)="c(0)"
 NEW C,D
 S A="A",B="B",C="C",D="D" 
 D NEW3N,CHECK q
 ;
NEW3N ;
 S A="(D,B)",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 NEW @A ;N A,C
 S A="@$C(66)",A(2)="(@A,D)",B="A",C(2)="c(2)"
 D NEW3M,CHECK Q
 ;
NEW3M ;
 N @@B@(2) ;(B,D) A,C
 k D
 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)",D(2)="d(3)"
 g ^V3NEWCHK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWN10
V3NEWN10 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"131---V3NEWN10: NEW -61-"
 ;
151 S ^ABSN="31058",^ITEM="III-1058  exclusive, all, all"
 S ^NEXT="152^V3NEWN10,V3NEWN11^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A(2)="A(2)",B(2)="B(2)",C(2)="C(2)"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#1 0 10 1 11 1 1 0 a2b(2)c2c(2)d2#11 1 11 1 10 1 0 0 a1a(1)b1B(2)c(1)#10 1 11 1 10 1 0 0 A(2)b1B(2)C(2)#"
 D ^VEXAMINE
 ;
152 S ^ABSN="31059",^ITEM="III-1059  exclusive, all, selective"
 S ^NEXT="153^V3NEWN10,V3NEWN11^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s B(2)="B(2)",D="D"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 1 0 a2a(3)b3b(3)c3c(2)d3#11 1 1 0 11 1 0 0 a2a(3)b2c3c(2)#11 1 1 0 10 1 0 0 a1a(1)b1c(1)#11 1 1 0 0 0 1 0 a1a(1)b1D#"
 D ^VEXAMINE
 ;
153 S ^ABSN="31060",^ITEM="III-1060  exclusive, all, exclusive"
 S ^NEXT="^V3NEWN11,V3NEWN12^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 s A="A",D="D"
 D NEW3,CHECK
 S ^VCORR="11 1 0 0 0 0 0 0 a3a(3)#11 1 11 1 1 0 1 0 a3a(3)b3b(3)c3d3#11 1 1 0 10 1 0 0 a3a(3)b3c(3)#11 1 1 0 10 1 0 0 a2a(2)b2c(2)#11 1 1 0 1 0 1 0 a2a(2)BCD#"
 D ^VEXAMINE
 ;
END W !!,"End of 131 --- V3NEWN10",!
 K  Q
 ;
NEW1 NEW (B)
 S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW1N,CHECK Q
 ;
NEW1N NEW
 S A="a2",B(2)="b(2)",C="c2",C(2)="c(2)",D="d2"
 D NEW1M,CHECK q
 ;
NEW1M N
 S A="a3",B(2)="b(3)",C="c3",C(2)="c(3)",D="d3"
 D CHECK q
 ;
NEW2 ;
 NEW (A,B)
 K B
 S A="a1",A(2)="a(1)",B="b1",C(2)="c(1)"
 D NEW2N,CHECK Q
 ;
NEW2M NEW B,D
 S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3" D CHECK Q
 ;
NEW3 ;
 S A="A",B="B",C="C",D="D"
 NEW (A) K B
 D SET2 D NEW3N,^V3NEWCHK Q
 ;
NEW3N ;
 NEW  K
 d SET3
 D NEW3M,CHECK Q
 ;
NEW3M ;
 NEW (A,D) d CHECK S A(2)="a(3)",B="b3",B(2)="b(3)",C="c3",D="d3"
 D CHECK^V3NEWCHK k D
 Q
SET2 S A="a2",A(2)="a(2)",B="b2",C(2)="c(2)" q
SET3 S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" q
 ;
CHECK S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#" Q
NEW2N ;
 NEW
 D SET2
 D NEW2M,CHECK Q
 ;
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3NEWN11
V3NEWN11 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"132---V3NEWN11: NEW -62-"
 ;
154 S ^ABSN="31061",^ITEM="III-1061  exclusive, selective, all      "
 S ^NEXT="155^V3NEWN11,V3NEWN12^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S ^VV("D")="D"
 D NEW1,CHECK
 S ^VCORR="1 0 10 1 11 1 1 0 a3b(3)c3c(3)d3#11 1 11 1 10 1 10 1 aa(2)b@C(""AB"",2.4)c(2)d(2)#11 1 0 0 10 1 0 0 aa(2)c(2)#1 0 10 0 11 0 0 0 a1c1#"
 D ^VEXAMINE K ^VV
 ;
155 S ^ABSN="31062",^ITEM="III-1062  exclusive, selective, selective"
 S ^NEXT="156^V3NEWN11,V3NEWN12^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 11 1 10 1 a3a(3)b3AAc(3)d(3)#1 0 11 1 11 1 0 0 ab3AAc(3)#11 1 11 1 11 1 0 0 A(""AB"")CB@A@(2.4)Ac(3)#1 0 11 1 11 1 0 0 a1B@A@(2.4)Ac(3)#"
 D ^VEXAMINE
 ;
156 S ^ABSN="31063",^ITEM="III-1063  exclusive, selective, exclusive"
 S ^NEXT="^V3NEWN12,END^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="1 0 0 0 10 1 0 0 a3c(3)#11 1 1 0 10 1 0 0 a2@C(""AB"",2.4)b2c(3)#11 1 11 1 11 1 0 0 a2@C(""AB"",2.4)BB(1)CC(1)#11 1 10 0 11 0 0 0 a2@C(""AB"",2.4)c1#"
 D ^VEXAMINE
 ;
END W !!,"End of 132 --- V3NEWN11",!
 K  K ^VV Q
 ;
NEW1 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW (E,F,G)
 S A("AB",2.4)="@B(""AB"",2.4)",B("AB",2.4)="@C(""AB"",2.4)",C("AB",2.4)="@^VV(""D"")"
 D NEW1N,CHECK q
 ;
NEW1N NEW:.001 @A("AB",2.4)
 S A="a",A("AB",2.4)="a(2)",B="b",C("AB",2.4)="c(2)",D("AB",2.4)="d(2)"
 D NEW1M,CHECK k B Q
 ;
NEW1M NEW
 S A="a3",B("AB",2.4)="b(3)",C="c3",C("AB",2.4)="c(3)",D="d3"
 D CHECK K B,C Q
 ;
NEW2 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW (B,D,C,E,F,G,Q)
 S A="A(""AB"")",A("AB",2.4)="C",B="B",B("AB",2.4)="@A@(2.4)"
 D NEW2N,CHECK q
 ;
NEW2N ;
 s C="A",C("AB",2.4)="C(""AB"",2.4)"
 IF $D(B)  N @@@B("AB",2.4),B ;A,B
 ELSE  K B
 S A="a",B="b",B("AB",2.4)="A",C("AB",2.4)="c(2)"
 D NEW2M D CHECK Q
 ;
NEW2M ;
 N @@("B(""A"_"B"")")@(2.4),D ;A,D
 S A="a3",A("AB",2.4)="a(3)",B="b3",C("AB",2.4)="c(3)",D("AB",2.4)="d(3)"
 D CHECK
 Q
 ;
NEW3 ;
 S A="a1",B(2)="b(1)",C="c1",C(2)="c(1)"
 NEW (E,A,G)
 S A="A",A("AB",2.4)="A(""AB"",2.4)"
 S B="B",B("AB",2.4)="B(1)"
 S C="C",C("AB",2.4)="C(1)"
 D NEW3N,CHECK q
 ;
NEW3N ;
 s ^VV("AB",2.4)="B",^VV("AB",0)="A"
 NEW C,@^(2.4) ;C,B
 S A="a2",A("AB",2.4)="@C(""AB"",2.4)",B="b2",C("AB",2.4)="B"
 s ^VV("AB",2.4)="B"
 D NEW3M,CHECK Q
 ;
NEW3M ;
 N @A("AB",2.4),@^(0) ;B,A
 S A="a3",B="b3",B("AB",2.4)="b(3)",C("AB",2.4)="c(3)",D="d3"
 k (C,A) D CHECK Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C("AB",2.4))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D("AB",2.4))_" "
 I $D(A)#10=1           S ^VCOMP=^VCOMP_A
 I $D(A("AB",2.4))#10=1 S ^VCOMP=^VCOMP_A("AB",2.4)
 I $D(B)#10=1           S ^VCOMP=^VCOMP_B
 I $D(B("AB",2.4))#10=1 S ^VCOMP=^VCOMP_B("AB",2.4)
 I $D(C)#10=1           S ^VCOMP=^VCOMP_C
 I $D(C("AB",2.4))#10=1 S ^VCOMP=^VCOMP_C("AB",2.4)
 I $D(D)#10=1           S ^VCOMP=^VCOMP_D
 I $D(D("AB",2.4))#10=1 S ^VCOMP=^VCOMP_D("AB",2.4)
 S ^VCOMP=^VCOMP_"#"

V3NEWN12
V3NEWN12 ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 W !!,"133---V3NEWN12: NEW -63-"
 ;
157 S ^ABSN="31064",^ITEM="III-1064  exclusive, exclusive, all"
 S ^NEXT="158^V3NEWN12,END^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW1,CHECK
 S ^VCORR="0 0 10 1 11 1 1 0 b(3)c3c(3)d3#1 0 11 1 1 0 11 1 abB(1)cdD(1)#11 1 11 1 11 1 11 1 A1A(1)bB(1)C1C(1)dD(1)#11 1 11 1 11 1 1 0 A1A(1)bB(1)C1C(1)D#"
 D ^VEXAMINE
 ;
158 S ^ABSN="31065",^ITEM="III-1065  exclusive, exclusive, selective"
 S ^NEXT="159^V3NEWN12,END^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 S ^VVA(11)="B"
 D NEW2,CHECK
 S ^VCORR="11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(3)D1D(1)#11 1 11 1 10 1 11 1 a3a(3)b3B(1)c(2)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)b3B(1)C1C(1)D1D(1)#11 1 11 1 11 1 11 1 A1A(1)b3B(1)C1C(1)D1D(1)#"
 D ^VEXAMINE
 ;
159 S ^ABSN="31066",^ITEM="III-1066  exclusive, exclusive, exclusive"
 S ^NEXT="END^V3NEWN12,END^V3NEW,V3ALDO^VV3" D ^V3PRESET K  S ^VCOMP=""
 D NEW3,CHECK
 S ^VCORR="11 1 11 1 10 1 10 1 a3a(3)b3B(1)c(3)d(3)#11 1 11 1 10 1 10 1 @$C(66)(@A,D)b3B(1)c(2)d(3)#11 1 11 1 11 1 10 1 (D,B)A(1)b3B(1)C1C(1)d(3)#1 0 10 1 11 1 10 1 ab(0)C1C(1)d(3)#"
 D ^VEXAMINE
 ;
END W !!,"End of 133 --- V3NEWN12",!
 K  K ^VVA Q
 ;
NEW1 ;
 S A="A",B="B",C="C",D="D"
 NEW (A,B,C)
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW1N,^V3NEWCHK Q
 ;
NEW1N NEW (D,B) S A="a",B="b",C="c",D="d" D NEW1M D CHECK Q
 ;
NEW1M ;
 NEW
 S B(2)="b(3)",C="c3",C(2)="c(3)",D="d3" D CHECK Q
 ;
NEW2 ;
 NEW (A,B)
 S A="A1",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 D NEW2N,^V3NEWCHK Q
 ;
NEW2N ;
 NEW (D,B)
 S A="a",A(2)="a(2)",B="b",C(2)="c(2)"
 D NEW2M D CHECK Q
NEW2M N C S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)" D CHECK Q
 ;
NEW3 ;
 S A="a",B(2)="b(0)",C="c",C(2)="c(0)"
 NEW (C,D)
 S A="A",B="B",C="C",D="D" D NEW3N,CHECK q
 ;
NEW3N ;
 S A="(D,B)",A(2)="A(1)",B="B1",B(2)="B(1)",C="C1",C(2)="C(1)",D="D1",D(2)="D(1)"
 NEW @A ;N A,C
 S A="@$C(66)",A(2)="(@A,D)",B="A",C(2)="c(2)" D NEW3M,CHECK Q
 ;
NEW3M ;
 N @@B@(2) ;(B,D) A,C
 k D S A="a3",A(2)="a(3)",B="b3",C(2)="c(3)",D(2)="d(3)"
 g ^V3NEWCHK
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"

V3NEWCHK
V3NEWCHK ;IW-KO-YS-TS,V3NEW,MVTS V9.10;15/6/96;
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
CHECK ;
 S ^VCOMP=^VCOMP_$D(A)_" "_$D(A(2))_" "
 S ^VCOMP=^VCOMP_$D(B)_" "_$D(B(2))_" "
 S ^VCOMP=^VCOMP_$D(C)_" "_$D(C(2))_" "
 S ^VCOMP=^VCOMP_$D(D)_" "_$D(D(2))_" "
 I $D(A)#10=1    S ^VCOMP=^VCOMP_A
 I $D(A(2))#10=1 S ^VCOMP=^VCOMP_A(2)
 I $D(B)#10=1    S ^VCOMP=^VCOMP_B
 I $D(B(2))#10=1 S ^VCOMP=^VCOMP_B(2)
 I $D(C)#10=1    S ^VCOMP=^VCOMP_C
 I $D(C(2))#10=1 S ^VCOMP=^VCOMP_C(2)
 I $D(D)#10=1    S ^VCOMP=^VCOMP_D
 I $D(D(2))#10=1 S ^VCOMP=^VCOMP_D(2)
 S ^VCOMP=^VCOMP_"#"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3ALDO
V3ALDO ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"Tests of Argumentless DO command",!
V3ALDO1 W !!,"134---V3ALDO1" D ^V3ALDO1
V3ALDO2 W !!,"135---V3ALDO2" D ^V3ALDO2
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3ALDO1
V3ALDO1 ;IW-KO-YS-TS,V3ALDO,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"134---V3ALDO1: Argumentless DO command -1-"
1 S ^ABSN="31067",^ITEM="III-1067  Lines to be are ignored"
 S ^NEXT="2^V3ALDO1,V3ALDO2^V3ALDO,V3FP^VV3" D ^V3PRESET
 S ^VCOMP="OK"
 . S ^VCOMP="ERROR1"
 .. S ^VCOMP="ERROR2"
 . . S ^VCOMP="ERROR3"
 S ^VCORR="OK" D ^VEXAMINE
 ;
2 S ^ABSN="31068",^ITEM="III-1068  $TEST value"
 S ^NEXT="3^V3ALDO1,V3ALDO2^V3ALDO,V3FP^VV3" D ^V3PRESET
 W !,"      (This test III-1068 was withdrawn in 15/2/1994 on X11.1-1990, MSL)"
 S ^VREPORT("Part-90",^ABSN)="*WITHDR*"
 ;
3 S ^ABSN="31069",^ITEM="III-1069  GOTO command in an argumentless DO scope"
 S ^NEXT="4^V3ALDO1,V3ALDO2^V3ALDO,V3FP^VV3" D ^V3PRESET
 S ^VCOMP="",F=0 D
A . S ^VCOMP=^VCOMP_"A" Q:F=1
 . S ^VCOMP=^VCOMP_"B" DO  G ABC
 . . S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"F"
ABC . S ^VCOMP=^VCOMP_"D",F=1 G A
 . S ^VCOMP=^VCOMP_"E"
 S ^VCORR="ABCDA" D ^VEXAMINE
 ;
4 S ^ABSN="31070",^ITEM="III-1070  DO command in an argumentless DO scope"
 S ^NEXT="V3ALDO2^V3ALDO,V3FP^VV3" D ^V3PRESET
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"D"
 . S ^VCOMP=^VCOMP_"A" d A^V3ALDOE S ^VCOMP=^VCOMP_"B"
 . S ^VCOMP=^VCOMP_"C" D
 . . d A^V3ALDOE
 S ^VCOMP=^VCOMP_"E"
 S ^VCORR="AZBCZDE" D ^VEXAMINE
 ;
END W !!,"End of 134 --- V3ALDO1 ",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3ALDO2
V3ALDO2 ;IW-KO-YS-TS,V3ALDO,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"135---V3ALDO2: Argumentless DO command -2-"
1 S ^ABSN="31071",^ITEM="III-1071  QUIT by an implicit QUIT command"
 S ^NEXT="2^V3ALDO2,V3FP^VV3" D ^V3PRESET K
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"B"
 . S ^VCOMP=^VCOMP_"A"
 . . S ^VCOMP=^VCOMP_"ERROR "
 S ^VCOMP=^VCOMP_"C"
 S ^VCORR="ABC" D ^VEXAMINE
 ;
2 S ^ABSN="31072",^ITEM="III-1072  QUIT by an eor"
 S ^NEXT="3^V3ALDO2,V3FP^VV3" D ^V3PRESET K
 S ^VCOMP="" D EOR
 S ^VCORR="AB" D ^VEXAMINE
 ;
3 S ^ABSN="31073",^ITEM="III-1073  FOR command in an argumnetless DO scope"
 S ^NEXT="4^V3ALDO2,V3FP^VV3" D ^V3PRESET K
 S ^VCOMP="" D  S ^VCOMP=^VCOMP_"/"
 . FOR I=1:1:5  D  S ^VCOMP=^VCOMP_" "  G:I=4 ABC
 . . S ^VCOMP=^VCOMP_I
ABC . S ^VCOMP=^VCOMP_"E"
 S ^VCOMP=^VCOMP_"#"
 S ^VCORR="1 2 3 4 E/#" D ^VEXAMINE
 ;
4 S ^ABSN="31074",^ITEM="III-1074  Nesting of argumentless DO"
 S ^NEXT="V3FP^VV3" D ^V3PRESET K
 S ^VCOMP="" D
 . S ^VCOMP=^VCOMP_"A" D  S ^VCOMP=^VCOMP_"A"
 .. S ^VCOMP=^VCOMP_"B" D  S ^VCOMP=^VCOMP_"B"
 ... S ^VCOMP=^VCOMP_"C" D  S ^VCOMP=^VCOMP_"C"
 .... S ^VCOMP=^VCOMP_"D" D  S ^VCOMP=^VCOMP_"D"
 ..... S ^VCOMP=^VCOMP_"E" D  S ^VCOMP=^VCOMP_"E"
 ...... S ^VCOMP=^VCOMP_"F" D  S ^VCOMP=^VCOMP_"F"
 ....... S ^VCOMP=^VCOMP_"G" D  S ^VCOMP=^VCOMP_"G"
 ........ S ^VCOMP=^VCOMP_"H" D  S ^VCOMP=^VCOMP_"H"
 ......... S ^VCOMP=^VCOMP_"I" D  S ^VCOMP=^VCOMP_"I"
 .......... S ^VCOMP=^VCOMP_"J" D  S ^VCOMP=^VCOMP_"J"
 ........... S ^VCOMP=^VCOMP_"K" D  S ^VCOMP=^VCOMP_"K"
 ............ S ^VCOMP=^VCOMP_"L" D  S ^VCOMP=^VCOMP_"L"
 ............. S ^VCOMP=^VCOMP_"M" D  S ^VCOMP=^VCOMP_"M"
 .............. S ^VCOMP=^VCOMP_"N"
 ............. S ^VCOMP=^VCOMP_"M"
 ............ S ^VCOMP=^VCOMP_"L"
 ........... S ^VCOMP=^VCOMP_"K"
 .......... S ^VCOMP=^VCOMP_"J"
 ......... S ^VCOMP=^VCOMP_"I"
 ........ S ^VCOMP=^VCOMP_"H"
 ....... S ^VCOMP=^VCOMP_"G"
 ...... S ^VCOMP=^VCOMP_"F"
 ..... S ^VCOMP=^VCOMP_"E"
 .... S ^VCOMP=^VCOMP_"D"
 ... S ^VCOMP=^VCOMP_"C"
 .. S ^VCOMP=^VCOMP_"B"
 . S ^VCOMP=^VCOMP_"A"
 S ^VCOMP=^VCOMP_"/"
 S ^VCORR="ABCDEFGHIJKLMNMMLLKKJJIIHHGGFFEEDDCCBBAA/" D ^VEXAMINE
 ;
END W !!,"End of 135 --- V3ALDO2 ",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
EOR D  S ^VCOMP=^VCOMP_"B"
 . S ^VCOMP=^VCOMP_"A"

V3ALDOE
V3ALDOE ;IW-KO-YS-TS,V3ALDO,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 Q
B(X,Y) S ^VCOMP=^VCOMP_"Z"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A S ^VCOMP=^VCOMP_"Z"

V3FP
V3FP ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"136---V3FP: Fundamental tests of parameter passing",!
 ;
 S ^ABSN="31075",^ITEM="III-1075  formal list"
 S ^NEXT="2^V3FP,V3DWP^VV3" D ^V3PRESET K  i 1
 S ^VCOMP="" D LABEL(1,2,3)
 S ^VCORR="1 2 3 " D ^VEXAMINE
 ;
2 S ^ABSN="31076",^ITEM="III-1076  call by value"
 S ^NEXT="3^V3FP,V3DWP^VV3" D ^V3PRESET K
 S ^VCOMP="" S A="A",X="X"
 D LABEL("ABC",A,X)
 S ^VCORR="ABC A X " D ^VEXAMINE
 ;
3 S ^ABSN="31077",^ITEM="III-1077  call by reference"
 S ^NEXT="4^V3FP,V3DWP^VV3" D ^V3PRESET K
 S ^VCOMP="" S A(2)="A2",B="B"
 D REF(.A,.123,.B)
 S ^VCORR="A2 .123 B/ " D ^VEXAMINE
 ;
4 S ^ABSN="31078",^ITEM="III-1078  QUIT with argument"
 S ^NEXT=",V3DWP^VV3" D ^V3PRESET K
 S ^VCOMP="",A="-5"
 S ^VCOMP=$$FUNC(2,.A)
 S ^VCORR="-10" D ^VEXAMINE
 ;
END W !!,"End of 136 --- V3FP",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
LABEL(X,Y,Z) ;
 S ^VCOMP=^VCOMP_X_" "_Y_" "_Z_" " Q
FUNC(X,Y) Q X*Y
REF(X,Y,Z,W) ;
 S ^VCOMP=^VCOMP_X(2)_" "_Y_" "_Z_"/"
 S ^VCOMP=^VCOMP_$G(W)_" "

V3DWP
V3DWP ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"137---V3DWP: Tests of DO command with parameter passsing",!
 S ^ABSN="31079",^ITEM="III-1079  DO label(expr)"
 S ^NEXT="2^V3DWP,V3ESV^VV3" D ^V3PRESET K
 S ^VCOMP="",A(12,3)="A",D(1,2,3)="123E1"
 d A0("",0.003,A(12,3),+D(1,2,3))
 S ^VCORR="1 0 1.003 0 1A 0 11230 0 0 0 0/" D ^VEXAMINE
 ;
2 S ^ABSN="31080",^ITEM="III-1080  DO ^routine(expr)"
 S ^NEXT="3^V3DWP,V3ESV^VV3" D ^V3PRESET K  S X="X"
 S ^VCOMP=""
 D ^V3DWPE("a","b")
 S ^VCOMP=^VCOMP_" "_$T_" " ;change test in 15/2/94
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCORR="1a1b 0 1X0" D ^VEXAMINE
 ;
3 S ^ABSN="31081",^ITEM="III-1081  D label^routine(expr,expr)"
 S ^NEXT="4^V3DWP,V3ESV^VV3" D ^V3PRESET K  S W="W"
 S ^VCOMP=""
 D AB^V3DWPE("a","b")
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_$d(Z) I $D(Z)#10=1 S ^VCOMP=^VCOMP_Z
 S ^VCOMP=^VCOMP_$d(W) I $D(W)#10=1 S ^VCOMP=^VCOMP_W
 S ^VCORR="1a1b01W0001w" D ^VEXAMINE
 ;
4 S ^ABSN="31082",^ITEM="III-1082  call by reference"
 S ^NEXT="5^V3DWP,V3ESV^VV3" D ^V3PRESET k
 S ^VCOMP="",X="X",X(1)="X1",Y="Y",Z("A")="ZA",W(1,2,3)="W123",F="F"
 S A="a",D="d",D(1,2,3)="d123",E(1)="e1"
 d A0(.X,.Y,.Z,.W,.P)
 S ^VCORR="11X 1X1 1Y 0 10 1ZA 10 1W123 0 0 0/" D ^VEXAMINE
 ;
5 S ^ABSN="31083",^ITEM="III-1083  indirection"
 S ^NEXT="6^V3DWP,V3ESV^VV3" D ^V3PRESET K
 S ^VCOMP="",X="X",X(1)="X1",Y="Y",Z("A")="ZA",W(1,2,3)="W123",F="F"
 S A="a",D="d",D(1,2,3)="d123",E(1)="e1"
 S IX="X",IY="@IY(1)",IY(1)="Y"
 d A0^V3DWPE(.@IX,.@IY,@IX@(1),.W,@IX,@IY)
 S ^VCORR="11X 1X1 1Y 0 1X1 0 10 1W123 1X 1Y 0/" D ^VEXAMINE
 ;
6 S ^ABSN="31084",^ITEM="III-1084  $TEST value"
 S ^NEXT="V3ESV^VV3" D ^V3PRESET K  S X="X" I 1
 S ^VCOMP=""
 D T^V3DWPE("a","b")
 S ^VCOMP=^VCOMP_" "_$T_" " ;change test in 15/2/94
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCORR="1a1b 0 0 1X0" D ^VEXAMINE
 ;
END W !!,"End of 137 --- V3DWP",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
A0(A,B,C,D,E,F,G) ;
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A(1))   I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B(2,3)) I $D(B(2,3))#10=1 S ^VCOMP=^VCOMP_B(2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C)      I $D(C)#10=1 S ^VCOMP=^VCOMP_C
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C("A")) I $D(C("A"))#10=1 S ^VCOMP=^VCOMP_C("A")
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D)      I $D(D)#10=1 S ^VCOMP=^VCOMP_D
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D(1,2,3)) I $D(D(1,2,3))#10=1 S ^VCOMP=^VCOMP_D(1,2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(E)      I $D(E)#10=1 S ^VCOMP=^VCOMP_E
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(F)      I $D(F)#10=1 S ^VCOMP=^VCOMP_F
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(G)      I $D(G)#10=1 S ^VCOMP=^VCOMP_G
 S ^VCOMP=^VCOMP_"/"
 Q

V3DWPE
V3DWPE(X,Y) ;IW-KO-YS-TS,V3DWP,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 i 0
 K Y
 S X="x",Y="y" Q
AB(X,Y,Z) ;
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_$d(Z) I $D(Z)#10=1 S ^VCOMP=^VCOMP_Z
 S ^VCOMP=^VCOMP_$d(W) I $D(W)#10=1 S ^VCOMP=^VCOMP_W
 K Y
 S X="x",Y="y",W="w"
 Q
A0(A,B,C,D,E,F,G) ;
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A(1))   I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B(2,3)) I $D(B(2,3))#10=1 S ^VCOMP=^VCOMP_B(2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C)      I $D(C)#10=1 S ^VCOMP=^VCOMP_C
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C("A")) I $D(C("A"))#10=1 S ^VCOMP=^VCOMP_C("A")
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D)      I $D(D)#10=1 S ^VCOMP=^VCOMP_D
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D(1,2,3)) I $D(D(1,2,3))#10=1 S ^VCOMP=^VCOMP_D(1,2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(E)      I $D(E)#10=1 S ^VCOMP=^VCOMP_E
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(F)      I $D(F)#10=1 S ^VCOMP=^VCOMP_F
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(G)      I $D(G)#10=1 S ^VCOMP=^VCOMP_G
 S ^VCOMP=^VCOMP_"/"
 Q
T(X,Y) ;
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 i 0
 S ^VCOMP=^VCOMP_" "_$T
 K Y
 S X="x",Y="y"
 Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3ESV
V3ESV ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"138---V3ESV: Tests of extrinsic special variable",!
 S ^ABSN="31085",^ITEM="III-1085  $$label"
 S ^NEXT="2^V3ESV,V3EF^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S ^VCOMP=^VCOMP_$$0000
 S ^VCORR="3.1415" D ^VEXAMINE
 ;
2 S ^ABSN="31086",^ITEM="III-1086  $$^routine"
 S ^NEXT="3^V3ESV,V3EF^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S ^VCOMP=^VCOMP_$$00001^V3ESVE
 S ^VCOMP=^VCOMP_" "_$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)
 S ^VCORR="OK 0 1 1 0" D ^VEXAMINE
 ;
3 S ^ABSN="31087",^ITEM="III-1087  $$label^routine"
 S ^NEXT="4^V3ESV,V3EF^VV3" D ^V3PRESET K  I 0
 S ^VCOMP=""
 S ^VCOMP=^VCOMP_$$000010^V3ESVE_" "_$T_"/"
 S ^VCOMP=^VCOMP_$D(A) I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B) I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C) I $D(C)#10=1 S ^VCOMP=^VCOMP_C
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D) I $D(D)#10=1 S ^VCOMP=^VCOMP_D
 S ^VCORR="OK 0/1a 1b 1C 1D" D ^VEXAMINE
 ;
4 S ^ABSN="31088",^ITEM="III-1088  $TEST value"
 S ^NEXT="V3EF^VV3" D ^V3PRESET K  I 1
 S ^VCOMP=""
 S ^VCOMP=^VCOMP_$$T^V3ESVE
 S ^VCOMP=^VCOMP_" "_$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)_" "_$T
 S ^VCORR="OK 0 1 1 0 1" D ^VEXAMINE
 ;
END W !!,"End of 138 --- V3ESV",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
0000() Q 3.1415

V3ESVE
V3ESVE ;IW-KO-YS-TS,V3ESV,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
00001() S A="A",B="B",C="C" K A N B
 Q "OK"
000010() S A="A",B="B",C="C",D="D" N (A,B) K (B) I 1
 S A="a",B="b",C="c",D="d"
 Q "OK"
T() S A="A",B="B",C="C" K A N B I 0
 Q "OK"

V3EF
V3EF ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"139---V3EF: Tests of extrinsic function",!
 S ^ABSN="31089",^ITEM="III-1089  $$label()"
 S ^NEXT="2^V3EF,V3CBR^VV3" D ^V3PRESET K
 S X(1)="X1",Z(1,2,3)="123E1"
 s ^VCOMP=""
 S ^VCOMP=$$A0^V3EFE()_^VCOMP
 S ^VCORR="Q/0 0 0 0 0 0 0 0 0 0 0/" D ^VEXAMINE
 ;
2 S ^ABSN="31090",^ITEM="III-1090  $$^routine(expr,intexpr)"
 S ^NEXT="3^V3EF,V3CBR^VV3" D ^V3PRESET
 K  S X="X",Y=127,W="A"
 S ^VCOMP=""
 S ^VCOMP=$$^V3EFE(W,255)_^VCOMP
 S A="A" F I=1:1:Y S A=A_"AA"
 S ^VCORR=A D ^VEXAMINE
 ;
3 S ^ABSN="31091",^ITEM="III-1091  $$label^routine(expr,expr)"
 S ^NEXT="4^V3EF,V3CBR^VV3" D ^V3PRESET K  S W="W"
 S ^VCOMP=""
 S ^VCOMP=$$AB^V3EFE("a","b")_^VCOMP
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_$d(Z) I $D(Z)#10=1 S ^VCOMP=^VCOMP_Z
 S ^VCOMP=^VCOMP_$d(W) I $D(W)#10=1 S ^VCOMP=^VCOMP_W
 S ^VCORR="/xyw 1a 1b 0 1W 0001w" D ^VEXAMINE
 ;
4 S ^ABSN="31092",^ITEM="III-1092  call by reference"
 S ^NEXT="5^V3EF,V3CBR^VV3" D ^V3PRESET k
 S ^VCOMP=""
 S X="X",X(1)="X1",Y="Y",Z("A")="ZA",W(1,2,3)="W123",F="F"
 S A="a",D="d",D(1,2,3)="d123",E(1)="e1"
 S ^VCOMP=$$A0^V3EFE2(.X,.Y,.Z,.W,.P)_^VCOMP
 S ^VCORR="11X 1X1 1Y 0 10 1ZA 10 1W123 0 0 0/11X 1X1 1Y 0 10 1ZA 10 1W123 0/" D ^VEXAMINE
 ;
5 S ^ABSN="31093",^ITEM="III-1093  indirection"
 S ^NEXT="6^V3EF,V3CBR^VV3" D ^V3PRESET K
 S ^VCOMP=""
 S X="X",X(1)="X1",Y="Y",Z("A")="ZA",W(1,2,3)="W123",F="F"
 S A="a",D="d",D(1,2,3)="d123",E(1)="e1"
 S IX="X",IY="@IY(1)",IY(1)="Y"
 S ^VCOMP=$$A0^V3EFE(.@IX,.@IY,@IX@(1),.W,@IX,@IY)_^VCOMP
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(X(1))   I $D(X(1))#10=1 S ^VCOMP=^VCOMP_X(1)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A(1))   I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 S ^VCOMP=^VCOMP_" "
 S ^VCORR="QX/11X 1X1 1Y 0 1X1 0 10 1W123 1X 1Y 0/11X 1X1 1a 0 " D ^VEXAMINE
 ;
6 S ^ABSN="31094",^ITEM="III-1094  $TEST value"
 S ^NEXT="V3CBR^VV3" D ^V3PRESET K  I 0
 S W="W"
 S ^VCOMP=""
 S ^VCOMP=^VCOMP_$$T^V3EFE("a","b")
 S ^VCOMP=^VCOMP_" "_$T
 S ^VCORR="1a 1b 0 1W /xyw 1/ 0" D ^VEXAMINE
 ;
END W !!,"End of 139 --- V3EF",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3EFE
V3EFE(X,Y) ;IW-KO-YS-TS,V3EF,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 N I,A
 S A="" F I=1:1:Y S A=A_X
 Q A
 ;
AB(X,Y,Z) ;
 S ^VCOMP=^VCOMP_$d(X) I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$d(Y) I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$d(Z) I $D(Z)#10=1 S ^VCOMP=^VCOMP_Z
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$d(W) I $D(W)#10=1 S ^VCOMP=^VCOMP_W
 S ^VCOMP=^VCOMP_" "
 K Y
 S X="x",Y="y",W="w"
 Q "/"_X_Y_W_" "
A0(A,B,C,D,E,F,G) ;
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A(1))   I $D(A(1))#10=1 S ^VCOMP=^VCOMP_A(1)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B(2,3)) I $D(B(2,3))#10=1 S ^VCOMP=^VCOMP_B(2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C)      I $D(C)#10=1 S ^VCOMP=^VCOMP_C
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(C("A")) I $D(C("A"))#10=1 S ^VCOMP=^VCOMP_C("A")
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D)      I $D(D)#10=1 S ^VCOMP=^VCOMP_D
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(D(1,2,3)) I $D(D(1,2,3))#10=1 S ^VCOMP=^VCOMP_D(1,2,3)
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(E)      I $D(E)#10=1 S ^VCOMP=^VCOMP_E
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(F)      I $D(F)#10=1 S ^VCOMP=^VCOMP_F
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(G)      I $D(G)#10=1 S ^VCOMP=^VCOMP_G
 S ^VCOMP=^VCOMP_"/"
 Q $$ABC($g(A))
 ;
ABC(QQ) ;
 S QQ="Q" Q QQ_$g(A)_"/"
 ;
T(X,Y,Z) ;
 s T=""
 S T=T_$d(X) I $D(X)#10=1 S T=T_X
 S T=T_" "
 S T=T_$d(Y) I $D(Y)#10=1 S T=T_Y
 S T=T_" "
 S T=T_$d(Z) I $D(Z)#10=1 S T=T_Z
 S T=T_" "
 S T=T_$d(W) I $D(W)#10=1 S T=T_W
 S T=T_" "
 I 1 K Y
 S X="x",Y="y",W="w"
 Q T_"/"_X_Y_W_" "_$T_"/"
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3EFE2
V3EFE2(X,Y) ;IW-KO-YS-TS,V3EF,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
A0(A,B,C,D,E,F,G) ;
 S Q=""
 S Q=Q_$D(A)      I $D(A)#10=1 S Q=Q_A
 S Q=Q_" "
 S Q=Q_$D(A(1))   I $D(A(1))#10=1 S Q=Q_A(1)
 S Q=Q_" "
 S Q=Q_$D(B)      I $D(B)#10=1 S Q=Q_B
 S Q=Q_" "
 S Q=Q_$D(B(2,3)) I $D(B(2,3))#10=1 S Q=Q_B(2,3)
 S Q=Q_" "
 S Q=Q_$D(C)      I $D(C)#10=1 S Q=Q_C
 S Q=Q_" "
 S Q=Q_$D(C("A")) I $D(C("A"))#10=1 S Q=Q_C("A")
 S Q=Q_" "
 S Q=Q_$D(D)      I $D(D)#10=1 S Q=Q_D
 S Q=Q_" "
 S Q=Q_$D(D(1,2,3)) I $D(D(1,2,3))#10=1 S Q=Q_D(1,2,3)
 S Q=Q_" "
 S Q=Q_$D(E)      I $D(E)#10=1 S Q=Q_E
 S Q=Q_" "
 S Q=Q_$D(F)      I $D(F)#10=1 S Q=Q_F
 S Q=Q_" "
 S Q=Q_$D(G)      I $D(G)#10=1 S Q=Q_G
 S Q=Q_"/"
 S Q=Q_$D(X)      I $D(X)#10=1 S Q=Q_X
 S Q=Q_" "
 S Q=Q_$D(X(1))   I $D(X(1))#10=1 S Q=Q_X(1)
 S Q=Q_" "
 S Q=Q_$D(Y)      I $D(Y)#10=1 S Q=Q_Y
 S Q=Q_" "
 S Q=Q_$D(Y(2,3)) I $D(Y(2,3))#10=1 S Q=Q_Y(2,3)
 S Q=Q_" "
 S Q=Q_$D(Z)      I $D(Z)#10=1 S Q=Q_Z
 S Q=Q_" "
 S Q=Q_$D(Z("A")) I $D(Z("A"))#10=1 S Q=Q_Z("A")
 S Q=Q_" "
 S Q=Q_$D(W)      I $D(W)#10=1 S Q=Q_W
 S Q=Q_" "
 S Q=Q_$D(W(1,2,3)) I $D(W(1,2,3))#10=1 S Q=Q_W(1,2,3)
 S Q=Q_" "
 S Q=Q_$D(P)      I $D(P)#10=1 S Q=Q_P
 S Q=Q_"/"
 Q Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3CBR
V3CBR ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 W !!,"Tests of call by reference",!
V3CBR1 W !!,"140---V3CBR1" D ^V3CBR1
V3CBR2 W !!,"141---V3CBR2" D ^V3CBR2
V3CBR3 W !!,"142---V3CBR3" D ^V3CBR3
V3CBR4 W !!,"143---V3CBR4" D ^V3CBR4
V3CBR5 W !!,"144---V3CBR5" D ^V3CBR5
END K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3CBR1
V3CBR1 ;IW-KO-YS-TS,V3CBR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"140---V3CBR1: call by reference -1-",!
 S ^ABSN="31095",^ITEM="III-1095  selective KILL command"
 S ^NEXT="2^V3CBR1,V3CBR2^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d A(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 1Y 0 1Y|BC0 1Y 0 0|" D ^VEXAMINE
 ;
2 S ^ABSN="31096",^ITEM="III-1096  KILL all command"
 S ^NEXT="3^V3CBR1,V3CBR2^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d B(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 0 0 0|BC0 0 0 0|" D ^VEXAMINE
 ;
3 S ^ABSN="31097",^ITEM="III-1097  exclusive KILL command"
 S ^NEXT="V3CBR2^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d C(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 0 0 0|BC0 0 0 0|" D ^VEXAMINE
END W !!,"End of 140 --- V3CBR1",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K A
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
 ;
B(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
 ;
C(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K (A)
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
CHK ;
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(Y)      I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"|"
 Q

V3CBR2
V3CBR2 ;IW-KO-YS-TS,V3CBR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"141---V3CBR2: call by reference -2-",!
 S ^ABSN="31098",^ITEM="III-1098  selective NEW command"
 S ^NEXT="2^V3CBR2,V3CBR3^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d A(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 1Y 1X 1Y|BC1X 1Y 0 0|" D ^VEXAMINE
 ;
2 S ^ABSN="31099",^ITEM="III-1099  NEW all command"
 S ^NEXT="3^V3CBR2,V3CBR3^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d B(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 0 0 0|BC1X 1Y 0 0|" D ^VEXAMINE
 ;
3 S ^ABSN="31100",^ITEM="III-1100  exclusive NEW command"
 S ^NEXT="V3CBR3^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d C(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/0 0 1X 0|BC1X 1Y 0 0|" D ^VEXAMINE
END W !!,"End of 141 --- V3CBR2",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n X
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
B(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
C(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n (A)
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
CHK ;
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(Y)      I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"|"
 Q

V3CBR3
V3CBR3 ;IW-KO-YS-TS,V3CBR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"142---V3CBR3: call by reference -3-",!
 S ^ABSN="31101",^ITEM="III-1101  selective KILL command and SET command"
 S ^NEXT="2^V3CBR3,V3CBR4^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d A(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1a 1b 1a 1b|BC1a 1b 0 0|" D ^VEXAMINE
 ;
2 S ^ABSN="31102",^ITEM="III-1102  KILL all command and SET command"
 S ^NEXT="3^V3CBR3,V3CBR4^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d B(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1a 1b 1a 1b|BC1a 1b 0 0|" D ^VEXAMINE
 ;
3 S ^ABSN="31103",^ITEM="III-1103  exclusive KILL command and SET command"
 S ^NEXT="V3CBR4^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d C(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1a 1b 1a 1b|BC1a 1b 0 0|" D ^VEXAMINE
END W !!,"End of 142 --- V3CBR3",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K A
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
 ;
B(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
 ;
C(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 K (A)
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK
 Q
CHK ;
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(Y)      I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"|"
 Q

V3CBR4
V3CBR4 ;IW-KO-YS-TS,V3CBR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"143---V3CBR4: call by reference -4-",!
 S ^ABSN="31104",^ITEM="III-1104  selective NEW command and SET command"
 S ^NEXT="2^V3CBR4,V3CBR5^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d A(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1x 1b 1a 1b|BC1a 1b 0 0|" D ^VEXAMINE
 ;
2 S ^ABSN="31105",^ITEM="III-1105  NEW all command and SET command"
 S ^NEXT="3^V3CBR4,V3CBR5^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d B(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1x 0 1a 1b|BC1X 1Y 0 0|" D ^VEXAMINE
 ;
3 S ^ABSN="31106",^ITEM="III-1106  exclusive NEW command and SET command"
 S ^NEXT="V3CBR5^V3CBR,END^VV3" D ^V3PRESET
 S X="X",Y="Y"
 S ^VCOMP="" d  S ^VCOMP=^VCOMP_"C"
 . S ^VCOMP=^VCOMP_"A" d C(.X,.Y) S ^VCOMP=^VCOMP_"B"
 D CHK
 S ^VCORR="A/1X 1Y 1X 1Y|/1x 0 1a 1b|BC1a 1Y 0 0|" D ^VEXAMINE
END W !!,"End of 143 --- V3CBR4",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n X
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
B(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
C(A,B) S ^VCOMP=^VCOMP_"/" D CHK
 n (A)
 s X="x",B="b",A="a"
 S ^VCOMP=^VCOMP_"/" D CHK Q
 ;
CHK ;
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(Y)      I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"|"
 Q

V3CBR5
V3CBR5 ;IW-KO-YS-TS,V3CBR,MVTS V9.10;15/6/96;PART-90
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
1 W !!,"144---V3CBR5: call by reference -5-",!
 S ^ABSN="31107",^ITEM="III-1107  nesting 1"
 S ^NEXT="2^V3CBR5,END^VV3" D ^V3PRESET
 S ^VCOMP=""
 S X="X",B="B"
 D A(.X,B)
 D CHK
 S ^VCORR="1X 0 1X 1B/1x 0 1x 1b/1x2 0 1x 1b2/1x2 0 1x2 1b/1x2 0 0 1B/" D ^VEXAMINE
 ;
2 S ^ABSN="31108",^ITEM="III-1108  nesting 2"
 S ^NEXT="END^VV3" D ^V3PRESET
 S ^VCOMP=""
 S X="X",B="B"
 D C(.X)
 D CHK
 S ^VCORR="1X 0 1X 1B/1a 0 1a 1a/1a2 0 1a2 1b2/1a2 0 1a2 1b/1a2 0 0 1b/" D ^VEXAMINE
 ;
END W !!,"End of 144 --- V3CBR5",!
 K  Q
 ;
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q
 ;
A(A,B) D CHK   S X="x",B="b"    D B(A,B)   D CHK Q
B(A,B) D CHK   S X="x2",B="b2"  D CHK Q
 ;
C(A) D CHK   S A="a",B="b"    D D(A)     D CHK Q
D(B) D CHK   S A="a2",B="b2"  D CHK Q
 ;
CHK ;
 S ^VCOMP=^VCOMP_$D(X)      I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(Y)      I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(A)      I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_" "
 S ^VCOMP=^VCOMP_$D(B)      I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"/"
 Q

V3PRESET
V3PRESET ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 UTILITY
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 S ^VREPORT("Part-90",^ABSN)="*ABORT*"
 S ^VREPORT("Part-90",^ABSN,"ITEM")=^ITEM
 S ^VREPORT("Part-90",^ABSN,"NEXT")=^NEXT
 Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q

V3
V3 ;IW-KO-YS-TS,VV3,MVTS V9.10;15/6/96;PART-90 UTILITY
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1990-1996
 ;
 I $D(^VENVIRON("OUTPUT OPEN"))=1 O ^VENVIRON("OUTPUT OPEN")
 I $D(^VENVIRON("INPUT OPEN"))=1 O ^VENVIRON("INPUT OPEN")
 I $D(^NEXT)=1 G NEXTNEXT
 I $D(^VREPORT("Part-90"))=0 G ^VV3
 F ABSN=31107:-1:30001 I $D(^VREPORT("Part-90",ABSN,"NEXT"))=1 G NEXT
 K  G ^VV3
NEXT I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 D @^VREPORT("Part-90",ABSN,"NEXT")
 Q
NEXTNEXT I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 D @^NEXT Q
SUM S SUM=0 F I=1:1 S L=$T(+I) Q:L=""  F K=1:1:$L(L) S SUM=SUM+$A(L,K)
 Q