MUMPS Validation Test Suite V9.10  Part-94 Transaction (DO ^VV4TP)
JUL 15, 1996
VV4TP
VV4TP ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-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-94"
 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 W #,"*** Standard MUMPS Validation Test Suite Version 9.10, Part-94 Toransaction (DRIVER) ***"
 W !,"    ( The last Test ID number for Part-94 Transaction is IV-923. )",!!
 ;
V4TP11 W !!,"142---V4TP11" D ^V4TP11
V4TP12 W !!,"143---V4TP12" D ^V4TP12
V4TP13 W !!,"144---V4TP13" D ^V4TP13
V4TP14 W !!,"145---V4TP14" D ^V4TP14
V4TP15 W !!,"146---V4TP15" D ^V4TP15
V4TP16 W !!,"147---V4TP16" D ^V4TP16
V4TP17 W !!,"148---V4TP17" D ^V4TP17
V4TP21 W !!,"149---V4TP21" D ^V4TP21
V4TP22 W !!,"150---V4TP22" D ^V4TP22
V4TP23 W !!,"151---V4TP23" D ^V4TP23
V4TP24 W !!,"152---V4TP24" D ^V4TP24
V4TP31 W !!,"153---V4TP31" D ^V4TP31
V4TP32 W !!,"154---V4TP32" D ^V4TP32
END W !!,"*** Standard MUMPS Validation Test Suite Version 9.10,"
 W !,"    Part-94 Transaction 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

V4TP11
V4TP11 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"1 Transaction tests",!
 ;
 W !!,"142---V4TP11: 1 Transaction tests  -1-"
 ;
1 S ^ABSN="40867",^ITEM="IV-40867  $TLEVEL and $TRESTART"
 S ^NEXT="2^V4TP11,V4TP12^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE11::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="0 0/0 0/0 0/0 0*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
 w !!,"TSTART without argument",!
 ;
2 S ^ABSN="40868",^ITEM="IV-868  TSTART ... TCOMMIT"
 S ^NEXT="3^V4TP11,V4TP12^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE11::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/*11/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40869",^ITEM="IV-869  TSTART ... TROLLBACK"
 S ^NEXT="4^V4TP11,V4TP12^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE11::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VAVB(1)00/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40870",^ITEM="IV-870  TSTART ... HALT"
 S ^NEXT="V4TP12^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE11::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 142 --- V4TP11",!
 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

V4TP12
V4TP12 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"143---V4TP12: 1 Transaction tests  -2-"
 W !!,"TSTART with transparameters",!
 ;
1 S ^ABSN="40871",^ITEM="IV-871  TSTART :SERIAL  ... TCOMMIT"
 S ^NEXT="2^V4TP12,V4TP13^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE12::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40872",^ITEM="IV-872  TSTART lname:S  ... TCOMMIT"
 S ^NEXT="3^V4TP12,V4TP13^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE12::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1^va^vb(1)vavb(1)00/*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40873",^ITEM="IV-873  TSTART (lname,lname,lname):SERIAL  ... TCOMMIT"
 S ^NEXT="4^V4TP12,V4TP13^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE12::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)00/*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40874",^ITEM="IV-874  TSTART *:(S)  ... TCOMMIT"
 S ^NEXT="5^V4TP12,V4TP13^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE12::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)10/#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)00/*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
5 S ^ABSN="40875",^ITEM="IV-875  TSTART ():SERIAL  ... TCOMMIT"
 S ^NEXT="V4TP13^VV4TP" D ^V4PRETP1
 JOB 5^V4TPE12::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)00/*11/"
 D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 143 --- V4TP12",!
 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

V4TP13
V4TP13 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"144---V4TP13: 1 Transaction tests  -3-"
 ;
 W !!,"TSTART without transparameters"
 W !,"   without a restart before TCOMMIT",!
 ;
1 S ^ABSN="40876",^ITEM="IV-876  TSTART lname  ... TCOMMIT"
 S ^NEXT="2^V4TP13,V4TP14^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE13::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/*11/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40877",^ITEM="IV-877  TSTART (lname,lname,lname,lname)  ... TCOMMIT"
 S ^NEXT="3^V4TP13,V4TP14^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE13::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1^va^vb(1)vavb(1)00/*11/#M^va^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40878",^ITEM="IV-878  TSTART *  ... TCOMMIT"
 S ^NEXT="4^V4TP13,V4TP14^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE13::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)00/*11/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40879",^ITEM="IV-879  TSTART ()  ... TCOMMIT"
 S ^NEXT="V4TP14^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE13::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)10/#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)00/*11/#M^va(1)^vb(2)^vc(1,2)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 144 --- V4TP13",!
 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

V4TP14
V4TP14 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"145---V4TP14: 1 Transaction tests  -4-"
 ;
 W !!,"TSTART without transparameters"
 W !,"   without a restart before TROLLBACK",!
 ;
1 S ^ABSN="40880",^ITEM="IV-880  TSTART lname  ... TROLLBACK"
 S ^NEXT="2^V4TP14,V4TP15^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE14::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)10/#1va(1)vb(2)vc(1,2)vd(2)00/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40881",^ITEM="IV-881  TSTART (lname,lname)  ... TROLLBACK"
 S ^NEXT="3^V4TP14,V4TP15^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE14::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1VA(1)VB(1,2)VC(2)VD(1,2)00/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40882",^ITEM="IV-882  TSTART * ... TROLLBACK"
 S ^NEXT="4^V4TP14,V4TP15^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE14::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1vavb(1)00/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40883",^ITEM="IV-883  TSTART ()  ... TROLLBACK"
 S ^NEXT="V4TP15^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE14::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VAVB(1)00/*11/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 145 --- V4TP14",!
 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

V4TP15
V4TP15 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"146---V4TP15: 1 Transaction tests  -5-"
 ;
 W !!,"TSTART without transparameters"
 W !,"   with a restart before TCOMMIT",!
 ;
1 S ^ABSN="40884",^ITEM="IV-884  TSTART lname  ... TRESTART ... TCOMMIT"
 S ^NEXT="2^V4TP15,V4TP16^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE15::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VA11/#1^VA^va^VB(1)^vb(1)VAvavb(1)00/*11/#M^VA^va^VB(1)^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40885",^ITEM="IV-885  TSTART (lname,lname)  ... TRESTART ... TCOMMIT"
 S ^NEXT="3^V4TP15,V4TP16^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE15::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1^va^vb(1)vavb(1)VB(2)11/#1^va^va(1)^vb(1)^vb(2)^vc(1,2)^vd(2)vava(1)vb(1)VB(2)vb(2)vc(1,2)vd(2)00/*11/#M^va^va(1)^vb(1)^vb(2)^vc(1,2)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40886",^ITEM="IV-886  TSTART * ... TRESTART ... TCOMMIT"
 S ^NEXT="4^V4TP15,V4TP16^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE15::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1^va^vb(1)vavb(1)11/#1^va^vb(1)vavb(1)12/#1^va^VA^vb(1)^VB(1)vaVAvb(1)VB(1)00/*11/#M^va^VA^vb(1)^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40887",^ITEM="IV-887  TSTART ()  ... TRESTART ... TCOMMIT"
 S ^NEXT="V4TP16^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE15::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)11/#1^VA(1)^va(1)^VB(1,2)^vb(2)^vc(1,2)^VC(2)^VD(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)00/*11/#M^VA(1)^va(1)^VB(1,2)^vb(2)^vc(1,2)^VC(2)^VD(1,2)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 146 --- V4TP15",!
 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

V4TP16
V4TP16 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"147---V4TP16: 1 Transaction tests  -6-"
 ;
 W !!,"TSTART without transparameters"
 W !,"   with a restart before TROLLBACK",!
 ;
1 S ^ABSN="40888",^ITEM="IV-888  TSTART lname  ... TRESTART ... TROLLBACK"
 S ^NEXT="2^V4TP16,V4TP17^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE16::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VA11/#1^VA^VB(1)VAvavb(1)00/*11/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40889",^ITEM="IV-889  TSTART (lname,lname,lname)  ... TRESTART ... TROLLBACK"
 S ^NEXT="3^V4TP16,V4TP17^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE16::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)vd(1)11/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)va(1)VB(1,2)vb(2)vc(1,2)VC(2)vd(1)vd(2)00/*11/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40890",^ITEM="IV-890  TSTART *  ... TRESTART ... TROLLBACK"
 S ^NEXT="4^V4TP16,V4TP17^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE16::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)11/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)vaVA(1)vb(1)VB(1,2)00/*11/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40891",^ITEM="IV-891  TSTART ()  ... TRESTART ... TROLLBACK"
 S ^NEXT="V4TP17^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE16::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)vb11/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)va(1)vbvb(2)vc(1,2)vd(2)00/*11/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 147 --- V4TP16",!
 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

V4TP17
V4TP17 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"148---V4TP17: 1 Transaction tests  -7-"
 ;
 W !!,"TSTART without transparameters"
 W !,"   2 level nestting",!
 ;
1 S ^ABSN="40892",^ITEM="IV-892  TSTART .. TSTART .. TCOMMIT .. TCOMMIT"
 S ^NEXT="2^V4TP17,V4TP21^VV4TP" D ^V4PRETP1
 JOB 1^V4TPE17::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^va^VB(1)^vb(1)VAvaVB(1)vb(1)20/#1^VA^va^VA^VB(1)^vb(1)^VB(1)VAvaVAVB(1)vb(1)VB(1)10/#1^VA^va^VA^va^VB(1)^vb(1)^VB(1)^vb(1)VAvaVAvaVB(1)vb(1)VB(1)vb(1)00/*11/#M^VA^va^VA^va^VB(1)^vb(1)^VB(1)^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40893",^ITEM="IV-893  TSTART .. TSTART .. TROLLBACK"
 S ^NEXT="3^V4TP17,V4TP21^VV4TP" D ^V4PRETP1
 JOB 2^V4TPE17::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^va^VB(1)^vb(1)VAvaVB(1)vb(1)20/#1^VA^VB(1)VAvaVAVB(1)vb(1)VB(1)00/*11/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40894",^ITEM="IV-894  TSTART .. TSTART .. TRESTART .. TCOMMIT .. TCOMMIT"
 S ^NEXT="4^V4TP17,V4TP21^VV4TP" D ^V4PRETP1
 JOB 3^V4TPE17::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^va^VB(1)^vb(1)VAvaVB(1)vb(1)20/#1^VA^va^VB(1)^vb(1)VAvaVB(1)vb(1)vb(1)21/#1^VA^va^VA^VB(1)^vb(1)^VB(1)VAvaVAVB(1)vb(1)vb(1)VB(1)11/#1^VA^va^VA^va^VB(1)^vb(1)^VB(1)^vb(1)VAvaVAvaVB(1)vb(1)vb(1)VB(1)vb(1)00/*11/#M^VA^va^VA^va^VB(1)^vb(1)^VB(1)^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40895",^ITEM="IV-895  TSTART .. TSTART .. TRESTART .. TROLLBACK"
 S ^NEXT="V4TP21^VV4TP" D ^V4PRETP1
 JOB 4^V4TPE17::1 S WAIT=$T
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^VA(1)^vb(1)^VB(1,2)^VC(2)^VD(1,2)vaVA(1)vb(1)VB(1,2)VC(2)VD(1,2)20/#1^va^VA(1)^vb(1)^VB(1,2)^VC(2)^VD(1,2)vaVA(1)vb(1)VB(1,2)VC(2)VD(1,2)21/#1^va^vb(1)vaVA(1)va(1)vb(1)VB(1,2)vb(2)vc(1,2)VC(2)VD(1,2)vd(2)00/*11/#M^va^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 148 --- V4TP17",!
 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

V4TP21
V4TP21 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 W !!,"2 Transactions tests"
 W !!,"149---V4TP21: 2 Transactions tests  -1-"
 W !!,"2 Transactions tests"
 w !,"    TSTART without argument",!!
 ;
1 S ^ABSN="40896",^ITEM="IV-896  1. TSTART ... TCOMMIT!2. TSTART ... TCOMMIT"
 S ^NEXT="2^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 11^V4TPE21::1 S WAIT=WAIT_$T
 JOB 12^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40897",^ITEM="IV-897  1. TSTART ... TCOMMIT!2. TSTART ... TROLLBACK"
 S ^NEXT="3^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 21^V4TPE21::1 S WAIT=WAIT_$T
 JOB 22^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/#2^VA^VB(1)VCVD(1)00/*111/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40898",^ITEM="IV-898  1. TSTART ... TCOMMIT!2. TSTART ... HALT"
 S ^NEXT="4^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 31^V4TPE21::1 S WAIT=WAIT_$T
 JOB 32^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/*111/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40899",^ITEM="IV-899  1. TSTART ... TCOMMIT!2. non TP"
 S ^NEXT="5^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 41^V4TPE21::1 S WAIT=WAIT_$T
 JOB 42^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)10/#1^VA^VB(1)^VC^VD(1)VAVB(1)00/#2^VC^VD(1)VCVD(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
5 S ^ABSN="40900",^ITEM="IV-900  1. TSTART ... TROLLBACK!2. non TP"
 S ^NEXT="6^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 51^V4TPE21::1 S WAIT=WAIT_$T
 JOB 52^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)10/#1^VC^VD(1)VAVB(1)00/#2^VC^VD(1)VCVD(1)00/*111/#M^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
6 S ^ABSN="40901",^ITEM="IV-901  1. non TP!2. TSTART ... TCOMMIT"
 S ^NEXT="7^V4TP21,V4TP22^VV4TP" D ^V4PRETP2
 JOB 61^V4TPE21::1 S WAIT=WAIT_$T
 JOB 62^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VC^VD(1)VCVD(1)00/#1^VC^VD(1)VCVD(1)00/#2^VA^VB(1)^VC^VD(1)VAVB(1)10/#2^VA^VB(1)^VC^VD(1)VAVB(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
7 S ^ABSN="40902",^ITEM="IV-902  1. non TP!2. TSTART ... TROLLBACK"
 S ^NEXT="V4TP22^VV4TP" D ^V4PRETP2
 JOB 71^V4TPE21::1 S WAIT=WAIT_$T
 JOB 72^V4TPE21::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VC^VD(1)VCVD(1)00/#1^VC^VD(1)VCVD(1)00/#2^VA^VB(1)^VC^VD(1)VAVB(1)10/#2^VC^VD(1)VAVB(1)00/*111/#M^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 149 --- V4TP21",!
 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

V4TP22
V4TP22 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"150---V4TP22: 2 Transactions tests  -2-"
 ;
 W !!,"TSTART with transparameters"
 W !,"   without a restart before TCOMMIT or TROLLBACK",!
 ;
1 S ^ABSN="40903",^ITEM="IV-903  1. TSTART :SERIAL  ... TCOMMIT!2. TSTART :S  ... TCOMMIT"
 S ^NEXT="2^V4TP22,V4TP23^VV4TP" D ^V4PRETP2
 JOB 11^V4TPE22::1 S WAIT=WAIT_$T
 JOB 12^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1^VA^VB(1)VAVB(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40904",^ITEM="IV-904  1. TSTART :SERIAL  ... TROLLBACK!2. TSTART lname:S  ... TCOMMIT"
 S ^NEXT="3^V4TP22,V4TP23^VV4TP" D ^V4PRETP2
 JOB 21^V4TPE22::1 S WAIT=WAIT_$T
 JOB 22^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VAVB(1)00/#2^VC^VD(1)VCVD(1)10/#2^VC^VD(1)VCVD(1)00/*111/#M^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40905",^ITEM="IV-905  1. TSTART (lname,lname,lname):SERIAL  ... TROLLBACK!2. TSTART *:SERIAL  ... TROLLBACK"
 S ^NEXT="4^V4TP22,V4TP23^VV4TP" D ^V4PRETP2
 JOB 31^V4TPE22::1 S WAIT=WAIT_$T
 JOB 32^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VA(1)^VB(1)^VB(1,2)^VC(2)^VD(1,2)VAVA(1)VB(1)VB(1,2)VC(2)VD(1,2)10/#1^VA^VB(1)00/#2^VA^VB(1)10/#2^VA^VB(1)00/*111/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40906",^ITEM="IV-906  1. TSTART ():(SERIAL)  ... HALT!2. TSTART lname:SERIAL  ... TCOMMIT"
 S ^NEXT="5^V4TP22,V4TP23^VV4TP" D ^V4PRETP2
 JOB 41^V4TPE22::1 S WAIT=WAIT_$T
 JOB 42^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^va(1)^VB(1)^vb(2)^vc(1,2)^vd(2)VAva(1)VB(1)vb(2)vc(1,2)vd(2)10/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
5 S ^ABSN="40907",^ITEM="IV-907  1. TSTART ():SERIAL  ... TCOMMIT!2. non TP"
 S ^NEXT="6^V4TP22,V4TP23^VV4TP" D ^V4PRETP2
 JOB 51^V4TPE22::1 S WAIT=WAIT_$T
 JOB 52^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^vb(2)VAVB(1)10/#1^VA^VB(1)^vb(2)VAVB(1)00/#2^vb(2)00/#2^VA^VB(1)^vb(2)00/*111/#M^VA^VB(1)^vb(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
6 S ^ABSN="40908",^ITEM="IV-908  1. TSTART lname:SERIAL  ... TROLLBACK!2. non TP"
 S ^NEXT="V4TP23^VV4TP" D ^V4PRETP2
 JOB 61^V4TPE22::1 S WAIT=WAIT_$T
 JOB 62^V4TPE22::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VA^VB(1)^VB(1)^VC^VD(1)VAVAVB(1)VB(1)10/#1^VA^VB(1)^VC^VD(1)VAVAVB(1)VB(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 150 --- V4TP22",!
 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

V4TP23
V4TP23 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"151---V4TP23: 2 Transactions tests  -3-"
 ;
 W !!,"TSTART with transparameters"
 W !,"   with a restart before TCOMMIT or TROLLBACK",!
 ;
1 S ^ABSN="40909",^ITEM="IV-909  1. TSTART lname:SERIAL  ... TRESTART ... TCOMMIT!2. TSTART lname  ... TCOMMIT"
 S ^NEXT="2^V4TP23,V4TP24^VV4TP" D ^V4PRETP2
 JOB 11^V4TPE23::1 S WAIT=WAIT_$T
 JOB 12^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VA(1,2)^VB(1)^VB(2)VAVB(1)VB(2)VC(1)10/#1^VA^VB(1)VAVB(1)VB(2)VC(1)11/#1^VA^VA^VB(1)^VB(1)VAVAVB(1)VB(1)VB(2)VC(1)00/#2^VA^VA^VA^VB(1)^VB(1)^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#2^VA^VA^VA^VB(1)^VB(1)^VB(1)^VC^VD(1)VAVB(1)VCVD(1)00/*111/#M^VA^VA^VA^VB(1)^VB(1)^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40910",^ITEM="IV-910  1. TSTART (lname,lname):SERIAL  ... TRESTART ... TCOMMIT!2. TSTART *  ... TROLLBACK"
 S ^NEXT="3^V4TP23,V4TP24^VV4TP" D ^V4PRETP2
 JOB 21^V4TPE23::1 S WAIT=WAIT_$T
 JOB 22^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#1^VC^VD(1)VB(1)VCVD(1)11/#1^VA^VB(1)^VC^VD(1)VAVB(1)VB(1)VCVD(1)00/#2^VA^VA(1)^VB(1)^VB(1,2)^VC^VC(2)^VD(1)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#2^VA^VB(1)^VC^VD(1)VA(1)VB(1,2)VC(2)VD(1,2)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40911",^ITEM="IV-911  1. TSTART *:SERIAL  ... TRESTART ... TCOMMIT!2. TSTART ()  ... TROLLBACK"
 S ^NEXT="4^V4TP23,V4TP24^VV4TP" D ^V4PRETP2
 JOB 31^V4TPE23::1 S WAIT=WAIT_$T
 JOB 32^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VA(2)^VC(2)^VD(1,2)10/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)11/#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)00/#2^VA(1)^VB(1,2)^VC^VC(2)^VD(1)^VD(1,2)VCVD(1)10/#2^VA(1)^VB(1,2)^VC(2)^VD(1,2)VCVD(1)00/*111/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40912",^ITEM="IV-912  1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT!2. TSTART (lname,lname) ... TRESTART ... TCOMMIT"
 S ^NEXT="5^V4TP23,V4TP24^VV4TP" D ^V4PRETP2
 JOB 41^V4TPE23::1 S WAIT=WAIT_$T
 JOB 42^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#1VA(1)VB(1,2)VC(2)VD(1,2)11/#1VA(1)VB(1,2)VC(2)VD(1,2)00/#2^VA^VB(1)VAVB(1)10/#2VAVB(1)11/#2^VA^VB(1)VAVAVB(1)VB(1)00/*111/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
5 S ^ABSN="40913",^ITEM="IV-913  1. TSTART *:SERIAL  ... TRESTART ... TCOMMIT!2. TSTART lname:SERIAL  ... TRESTART ... TCOMMIT"
 S ^NEXT="6^V4TP23,V4TP24^VV4TP" D ^V4PRETP2
 JOB 51^V4TPE23::1 S WAIT=WAIT_$T
 JOB 52^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#111/#1^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)00/#2^VA^va(1)^VB(1)^vb(2)^vc(1,2)^vd(2)VAVB(1)10/#2^va(1)^vb(2)^vc(1,2)^vd(2)VA11/#2^va(1)^vb(2)^VC^vc(1,2)^VD(1)^vd(2)VAVCVD(1)00/*111/#M^va(1)^vb(2)^VC^vc(1,2)^VD(1)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
6 S ^ABSN="40914",^ITEM="IV-914  1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT!2. TSTART lname:SERIAL  ... TRESTART ... TROLLBACK"
 S ^NEXT="V4TP24^VV4TP" D ^V4PRETP2
 JOB 61^V4TPE23::1 S WAIT=WAIT_$T
 JOB 62^V4TPE23::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VAVB(1)11/#1^va(1)^vb(2)^vc(1,2)^vd(2)VAva(1)VB(1)vb(2)vc(1,2)vd(2)00/#2^VA^va(1)^VB(1)^vb(2)^vc(1,2)^vd(2)VAVB(1)10/#2^va(1)^vb(2)^vc(1,2)^vd(2)VAVB(1)11/#2^va(1)^vb(2)^vc(1,2)^vd(2)VAVB(1)VCVD(1)00/*111/#M^va(1)^vb(2)^vc(1,2)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 151 --- V4TP23",!
 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

V4TP24
V4TP24 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"152---V4TP24: 2 Transactions tests  -4-"
 ;
 W !!,"TSTART with transparameters"
 W !,"   with a restart before TCOMMIT or TROLLBACK",!
 ;
1 S ^ABSN="40915",^ITEM="IV-915  1. TSTART lname:SERIAL  ... TRESTART ... TROLLBACK!2. TSTART lname:SERIAL  ... TCOMMIT"
 S ^NEXT="2^V4TP24,V4TP31^VV4TP" D ^V4PRETP2
 JOB 11^V4TPE24::1 S WAIT=WAIT_$T
 JOB 12^V4TPE24::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#1^VA^VB(1)VAVB(1)VCVD(1)11/#1^VA^VA^VB(1)^VB(1)VAVAVB(1)VB(1)VCVD(1)11/#1^VA^VB(1)VAVAVB(1)VB(1)VCVD(1)00/#2^VA^VA^VB(1)^VB(1)VAVB(1)10/#2^VA^VA^VB(1)^VB(1)VAVB(1)00/*111/#M^VA^VA^VB(1)^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40916",^ITEM="IV-916  1. TSTART (lname,lname,lname):SERIAL  ... TRESTART ... TROLLBACK!2. TSTART (lname,lname)  ... TROLLBACK"
 S ^NEXT="3^V4TP24,V4TP31^VV4TP" D ^V4PRETP2
 JOB 21^V4TPE24::1 S WAIT=WAIT_$T
 JOB 22^V4TPE24::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#1^VA^VB(1)VAVB(1)VC11/#1^VA^VB(1)VAVB(1)VCVCVD(1)00/#2^VA^VB(1)^VC^VD(1)VCVD(1)10/#2^VA^VB(1)VCVD(1)00/*111/#M^VA^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
3 S ^ABSN="40917",^ITEM="IV-917  1. TSTART *:SERIAL  ... TRESTART ... HALT!2. TSTART ():SERIAL  ... TCOMMIT"
 S ^NEXT="4^V4TP24,V4TP31^VV4TP" D ^V4PRETP2
 JOB 31^V4TPE24::1 S WAIT=WAIT_$T
 JOB 32^V4TPE24::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VC^VD(1)VCVD(1)10/#111/#1^VC^VD(1)VCVD(1)11/#2^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)10/#2^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)00/*111/#M^VA(1)^VB(1,2)^VC(2)^VD(1,2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
4 S ^ABSN="40918",^ITEM="IV-918  1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT!2. TSTART lname  ... TRESTART ... TROLLBACK"
 S ^NEXT="5^V4TP24,V4TP31^VV4TP" D ^V4PRETP2
 JOB 41^V4TPE24::1 S WAIT=WAIT_$T
 JOB 42^V4TPE24::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VAVB(1)11/#1^va(1)^vb(2)^vc(1,2)^vd(2)VAva(1)VB(1)vb(2)vc(1,2)vd(2)00/#2^VA^va(1)^VB(1)^vb(2)^vc(1,2)^vd(2)VAVB(1)10/#2^va(1)^vb(2)^vc(1,2)^vd(2)VA11/#2^va(1)^vb(2)^vc(1,2)^vd(2)VAVCVD(1)00/*111/#M^va(1)^vb(2)^vc(1,2)^vd(2)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
5 S ^ABSN="40919",^ITEM="IV-919  1. TSTART lname:SERIAL  ... TRESTART ... TCOMMIT!2. TSTART lname  ... TRESTART ... TCOMMIT"
 S ^NEXT="V4TP31^VV4TP" D ^V4PRETP2
 JOB 51^V4TPE24::1 S WAIT=WAIT_$T
 JOB 52^V4TPE24::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)VAVB(1)10/#1VB(1)11/#1^VA^VB(1)VAVB(1)VB(1)11/#1^VA^VB(1)VAVB(1)VB(1)00/#2^VA^VA^VB(1)^VB(1)VAVB(1)10/#2^VA^VB(1)VA11/#2^VA^VB(1)^VC^VD(1)VAVCVD(1)00/*111/#M^VA^VB(1)^VC^VD(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 152 --- V4TP24",!
 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

V4TP31
V4TP31 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"3 Transactions tests"
 ;
 W !!,"153---V4TP31: 3 Transactions tests -1-"
 ;
1 S ^ABSN="40920",^ITEM="IV-920  1. TSTART :SERIAL  ... TCOMMIT!2. TSTART *:S  ... TROLLBACK!3. TSTART lname:S  ... TCOMMIT"
 S ^NEXT="2^V4TP31,V4TP32^VV4TP" D ^V4PRETP3
 JOB 11^V4TPE31::1 S WAIT=WAIT_$T
 JOB 12^V4TPE31::1 S WAIT=WAIT_$T
 JOB 13^V4TPE31::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1 LOCK -^V(3) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#1^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)00/#2^VA^VB(1)^VC^VC^VD(1)^VD(1)VCVD(1)10/#2^VA^VB(1)^VC^VD(1)VCVD(1)00/#3^VA^VA^VB(1)^VB(1)10/#3^VA^VA^VB(1)^VB(1)00/*1111/#M^VA^VA^VB(1)^VB(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40921",^ITEM="IV-921  1. TSTART :S  ... TCOMMIT!2. TSTART :SERIAL  ... TCOMMIT!3. TSTART ()  ... TROLLBACK"
 S ^NEXT="V4TP32^VV4TP" D ^V4PRETP3
 JOB 21^V4TPE31::1 S WAIT=WAIT_$T
 JOB 22^V4TPE31::1 S WAIT=WAIT_$T
 JOB 23^V4TPE31::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1 LOCK -^V(3) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^va^vb(1)vavb(1)10/#1^va^vb(1)vavb(1)00/#2va10/#2va00/#3^VA^VB(1)VAVB(1)10/#3VAVB(1)00/*1111/#M00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 153 --- V4TP31",!
 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

V4TP32
V4TP32 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
 W !!,"154---V4TP32: 3 Transactions tests -2-"
 ;
1 S ^ABSN="40922",^ITEM="IV-922  1. TSTART ():SERIAL  ... TCOMMIT!2. TSTART *:S  ... TRESTART ... TCOMMIT!3. TSTART lname:(S)  ... TROLLBACK"
 S ^NEXT="2^V4TP32,END^VV4TP" D ^V4PRETP3
 JOB 11^V4TPE32::1 S WAIT=WAIT_$T
 JOB 12^V4TPE32::1 S WAIT=WAIT_$T
 JOB 13^V4TPE32::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1 LOCK -^V(3) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VC^VD(1)VCVD(1)10/#1^VC^VC(1,2)^VD^VD(1)VA(1)VC00/#2^VA^VB(1)VAVB(1)10/#2^VA^VB(1)VAVB(1)11/#2^VA^va^VB(1)^vb(1)00/#3^VA^va^VA^VB(1)^vb(1)^VB(1)VAVB(1)10/#3^VA^va^VB(1)^vb(1)VAVB(1)00/*1111/#M^VA^va^VB(1)^vb(1)00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
2 S ^ABSN="40923",^ITEM="IV-923  1. TSTART (lname,lname):S  ... TRESTART ... TROLLBACK!2. TSTART (lname,lname):S  ... TROLLBACK!3. TSTART lname:S  ... TRESTART ... TCOMMIT"
 S ^NEXT="END^VV4TP" D ^V4PRETP3
 JOB 21^V4TPE32::1 S WAIT=WAIT_$T
 JOB 22^V4TPE32::1 S WAIT=WAIT_$T
 JOB 23^V4TPE32::1 S WAIT=WAIT_$T
 LOCK -^V(1) HANG 1 LOCK -^V(2) HANG 1 LOCK -^V(3) HANG 1
 L  F K=1:1:30 Q:$$^V4GETSM
 S ^VCORR="#1^VC^VD(1)10/#111/#1^VA11/#1^VA00/#2^VA^VC^VD(1)VCVD(1)10/#2^VAVCVD(1)00/#3^VA^VA^VB(1)^VC^VD(1)VAVB(1)VCVD(1)10/#3^VAVAVCVD(1)11/#3^VA^VC11/#3^VA^VC00/*1111/#M^VA^VC00/"
 D ^V4TPCHKM D ^V4GETCOM D ^VEXAMINE
 ;
END W !!,"End of 154 --- V4TP32",!
 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

V4TPE11
V4TPE11 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---$TLEVEL and $TRESTART
 F  Q:$$^V4GETS1
 S V=""
 S V=V_$TLEVEL_" "_$TL
 S V=V_"/"_$TRESTART_" "_$TR
 S V=V_"/"_$tlevel_" "_$tl
 S V=V_"/"_$trestart_" "_$tr
 JOB ^V4COMP1(V) ;
 L  H
 ;
2 ;---TSTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART
 D ^V4TPS1
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART ... TROLLBACK
 F  Q:$$^V4GETS1
 TSTART
 D ^V4TPS1
 D ^V4TPCHK
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART ... HALT
 F  Q:$$^V4GETS1
 TSTART
 D ^V4TPS1
 D ^V4TPCHK
 L
 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

V4TPE12
V4TPE12 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART :SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART :SERIAL
 D ^V4TPS1
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART lname:S  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART VA:S
 D ^V4TPS2
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART (lname,lname,lname):SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART (VA,VB,VC):SERIAL
 D ^V4TPS3
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART *:S  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART *:(S)
 D ^V4TPS4
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
5 ;---TSTART ():SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART ():SERIAL
 D ^V4TPS3
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  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

V4TPE13
V4TPE13 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART lname ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART VA
 D ^V4TPS1
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART (lname,lname,lname,lname)  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART (VA,VB,VC,VD)
 D ^V4TPS2
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART *  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART *
 D ^V4TPS3
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART ()  ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART ()
 D ^V4TPS4
 D ^V4TPCHK
 TCOMMIT
 D ^V4TPCHK
 L  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

V4TPE14
V4TPE14 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART lname  ... TROLLBACK
 F  Q:$$^V4GETS1
 TSTART VB
 D ^V4TPS4
 D ^V4TPCHK
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART (lname,lname)  ... TROLLBACK
 F  Q:$$^V4GETS1
 TSTART (VA,VB)
 D ^V4TPS3
 D ^V4TPCHK
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART *  ... TROLLBACK
 F  Q:$$^V4GETS1
 TSTART *
 D ^V4TPS2
 D ^V4TPCHK
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART ()  ... TROLLBACK
 F  Q:$$^V4GETS1
 TSTART ()
 D ^V4TPS1
 D ^V4TPCHK
 TROLLBACK
 D ^V4TPCHK
 L  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

V4TPE15
V4TPE15 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART lname  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS1
 TSTART VA
 IF $TRESTART G 151
 D ^V4TPCHK
 K ^VA
 K
 TRESTART
 TCOMMIT
 D ^V4TPCHK
 L  H
151 D ^V4TPCHK
 D ^V4TPS2
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART (lname,lname)  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS2
 TSTART (VA,VC)
 IF $TRESTART G 152
 D ^V4TPCHK
 S ^VA(1,2)=123,^VB(2)=2,VB(2)="VB(2)",VC(1)="VC(1)" K VD
 TRESTART
 TCOMMIT
 D ^V4TPCHK
 L  H
152 D ^V4TPCHK
 D ^V4TPS4
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART * ... TRESTART .. TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS2
 TSTART *
 IF $TRESTART=2 G 153
 D ^V4TPCHK
 S ^VC(1,2)="VC(1,2)",^VD="^VD"
 K  S VA(1)="VA(1)",VC="VC",VD(1)="VD(1)"
 TRESTART
 TCOMMIT
 D ^V4TPCHK
 L  H
153 D ^V4TPCHK
 D ^V4TPS1
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART ()  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS3
 TSTART ()
 IF $TRESTART G 154
 D ^V4TPCHK
 K
 TRESTART
 TCOMMIT
 D ^V4TPCHK
 L  H
154 D ^V4TPCHK
 D ^V4TPS4
 TCOMMIT
 D ^V4TPCHK
 L  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

V4TPE16
V4TPE16 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART lname  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS1
 TSTART VA
 IF $TRESTART G 161
 D ^V4TPCHK
 K
 TRESTART
 TROLLBACK
 D ^V4TPCHK
 L  H
161 D ^V4TPCHK
 D ^V4TPS2
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART (lname,lname,lname)  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS3
 TSTART (VA,VB,VC)
 IF $TRESTART G 162
 D ^V4TPCHK
 K
 S ^VA(1,2)=123,^VB(2)=2,VB(2)="vb(2)",VC(1)="vc(1)",VD(1)="vd(1)"
 TRESTART
 TROLLBACK
 D ^V4TPCHK
 L  H
162 D ^V4TPCHK
 D ^V4TPS4
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART *  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS3
 TSTART *
 IF $TRESTART G 163
 D ^V4TPCHK
 K  K ^VA,^VB,^VC,^VD
 TRESTART
 TROLLBACK
 D ^V4TPCHK
 L  H
163 D ^V4TPCHK
 D ^V4TPS2
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART ()  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS3
 TSTART ()
 IF $TRESTART G 164
 D ^V4TPCHK
 K  K ^VA,^VB,^VC,^VD S ^VA="^va" S VB="vb"
 TRESTART
 TROLLBACK
 D ^V4TPCHK
 L  H
164 D ^V4TPCHK
 D ^V4TPS4
 TROLLBACK
 D ^V4TPCHK
 L  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

V4TPE17
V4TPE17 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
1 ;---TSTART .. TSTART .. TCOMMIT .. TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS1
 TSTART VA
 D ^V4TPCHK
 D ^V4TPS2
 TSTART VB
 D ^V4TPCHK
 D ^V4TPS1
 TCOMMIT
 D ^V4TPCHK
 D ^V4TPS2
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
2 ;---TSTART .. TSTART .. TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS1
 TSTART VA
 D ^V4TPCHK
 D ^V4TPS2
 TSTART VB
 D ^V4TPCHK
 D ^V4TPS1
 TROLLBACK
 D ^V4TPCHK
 L  H
 ;
3 ;---TSTART .. TSTART .. TRESTART .. TCOMMIT .. TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS1
 TSTART VA
 D ^V4TPS2
 TSTART *
 IF $TRESTART G 173
 D ^V4TPCHK
 S ^VC(1,2)="VC(1,2)",^VD="^VD"
 K  S VA(1)="VA(1)",VC="VC",VD(1)="VD(1)"
 TRESTART
 TCOMMIT
 D ^V4TPCHK
 L  H
173 D ^V4TPCHK
 D ^V4TPS1
 TCOMMIT
 D ^V4TPCHK
 D ^V4TPS2
 TCOMMIT
 D ^V4TPCHK
 L  H
 ;
4 ;---TSTART .. TSTART .. TRESTART .. TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS2
 TSTART *
 D ^V4TPS3
 TSTART ()
 IF $TRESTART G 174
 D ^V4TPCHK
 K  K ^VA,^VB,^VC,^VD S ^VA="^va" S VB="vb"
 TRESTART
 TROLLBACK
 D ^V4TPCHK
 L  H
174 D ^V4TPCHK
 D ^V4TPS4
 TROLLBACK
 D ^V4TPCHK
 L  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

V4TPE21
V4TPE21 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
11 ;---1. TSTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART
 F I=1:1:20 L +^VV:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
12 ;---2. TSTART ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART
 F I=1:1:20 L +^VV:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
21 ;---1. TSTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART
 F I=1:1:20 L +^VV:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART
 F I=1:1:20 L +^VV:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
31 ;---1. TSTART ... TCOMMIT
 TSTART
 LOCK +^S1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
32 ;---2. TSTART ... HALT
 TSTART
 LOCK +^S2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 HALT
 HALT
 ;==========================================
41 ;---1. 1. TSTART ... TCOMMIT
 LOCK +^S1
 TSTART
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
42 ;---2. non TP
 LOCK +^S2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 L  H
 ;==========================================
51 ;---1. TSTART ... TROLLBACK
 TSTART
 LOCK +^S1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
52 ;---2. non TP
 LOCK +^S2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 L  H
 ;==========================================
61 ;---1. non TP
 LOCK +^S1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 L  H
62 ;---2. TSTART ... TCOMMIT
 LOCK +^S2
 TSTART
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
71 ;---1. non TP
 LOCK +^S1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 L  H
 ;
72 ;---2. TSTART ... TROLLBACK
 LOCK +^S2
 TSTART
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  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

V4TPE22
V4TPE22 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
11 ;---1. TSTART :SERIAL  ... TCOMMIT
 TSTART VA:SERIAL
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
12 ;---2. TSTART :S  ... TCOMMIT
 TSTART :S
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
21 ;---1. TSTART :SERIAL  ... TROLLBACK
 TSTART :SERIAL
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART lname:S  ... TCOMMIT
 TSTART VA:S
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
31 ;---1. TSTART (lname,lname,lname):SERIAL  ... TROLLBACK
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART (VA,VB,VC):SERIAL
 D ^V4TPS3 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 K  K ^VB S ^VA(2)="^VA(2)"
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
32 ;---2. TSTART *:SERIAL  ... TROLLBACK
 TSTART *:SERIAL
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 K ^VA,^VB,^VC,^VD
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;==========================================
41 ;---1. TSTART ():(SERIAL)  ... HALT
 F  Q:$$^V4GETS1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART ():(SERIAL)
 D ^V4TPS4 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
 D ^V4TPCHK1
 HALT
 L  HALT
 ;
42 ;---2. TSTART lname:(SERIAL)  ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART VA:(SERIAL)
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
51 ;---1. TSTART ():SERIAL  ... TCOMMIT
 LOCK +^S1
 TSTART ():SERIAL
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
52 ;---2. non TP
 LOCK +^S2
 F  Q:$$^V4GETS2
 S ^VB(2)="^vb(2)"
 K ^VA
 K
 D ^V4TPCHK2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
61 ;---1. TSTART lname:SERIAL  ... TROLLBACK
 LOCK +^S1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART VB:SERIAL
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 F  Q:$$^V4GETS1
 F I=1:1:20 L +^S2:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK1
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
62 ;---2. non TP
 LOCK +^S2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 F  Q:$$^V4GETS2
 D ^V4TPCHK2
 LOCK -^S2
 F I=1:1:20 L +^S1:1 Q:$T  H 1 IF $D(^HALT)=1 L  HALT
 D ^V4TPCHK2
 L  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

V4TPE23
V4TPE23 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
11 ;---TSTART lname:SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART VA:SERIAL
 IF $TRESTART G 2311
 S ^VA(1,2)="^VA(1,2)",^VB(2)="^VB(2)",VB(2)="VB(2)",VC(1)="VC(1)" K VD
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2311 D ^V4TPCHK1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
12 ;---TSTART lname  ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART VA
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
21 ;---1. TSTART (lname,lname):SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TSTART (VA,VC):SERIAL
 IF $TRESTART G 2321
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2321 D ^V4TPCHK1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART *  ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART *
 D ^V4TPS3 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;==========================================
31 ;---1. TSTART *:SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 D ^V4TPS3 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
 TSTART *:SERIAL
 IF $TRESTART G 2331
 K  K ^VB S ^VA(2)="^VA(2)"
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2331 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
32 ;---2. TSTART ()  ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART ()
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;==========================================
41 ;---1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART ():SERIAL
 IF $TRESTART G 2341
 D ^V4TPS3 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
 D ^V4TPCHK1
 TRESTART
 D ^V4TPS4 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
 TCOMMIT
 D ^V4TPCHK1
 L  H
2341 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
42 ;---2. TSTART (lname,lname) ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART (AC,AB)
 IF $TRESTART G 2342
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
2342 D ^V4TPCHK2
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
51 ;---1. TSTART *:SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART *:SERIAL
 IF $TRESTART G 2351
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2351 D ^V4TPCHK1
 D ^V4TPS4 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
52 ;---2. TSTART lname:SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART VB:SERIAL
 IF $TRESTART G 2352
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
2352 D ^V4TPCHK2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
 ;==========================================
61 ;---1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART ():SERIAL
 IF $TRESTART G 2361
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2361 D ^V4TPCHK1
 D ^V4TPS4 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
62 ;---2. TSTART lname:SERIAL  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART VC:SERIAL
 IF $TRESTART G 2362
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
2362 D ^V4TPCHK2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TROLLBACK
 D ^V4TPCHK2
 L  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

V4TPE24
V4TPE24 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
11 ;---1. TSTART lname:SERIAL  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART VB:SERIAL
 IF $TRESTART G 2411
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2411 D ^V4TPCHK1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
12 ;---2. TSTART lname:SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART VB:SERIAL
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
21 ;---1. TSTART (lname,lname,lname):SERIAL  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART (VA,VB,VD):SERIAL
 IF $TRESTART G 2421
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK1
 TRESTART
 D ^V4TPCHK1
 L  H
2421 D ^V4TPCHK1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TROLLBACK
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART (lname,lname)  ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART (VA,VC)
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;==========================================
31 ;---1. TSTART *:SERIAL  ... TRESTART ... HALT
 F  Q:$$^V4GETS1
 TSTART *:SERIAL
 IF $TRESTART G 2431
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK1
 TRESTART
 D ^V4TPCHK1
 L  H
2431 D ^V4TPCHK1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK1
 HALT
 HALT
 ;
32 ;---2. TSTART ():SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART ():SERIAL
 D ^V4TPS3 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;==========================================
41 ;---1. TSTART ():SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART ():SERIAL
 IF $TRESTART G 2441
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2441 D ^V4TPCHK1
 D ^V4TPS4 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
42 ;---2. TSTART lname  ... TRESTART ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART VB
 IF $TRESTART G 2442
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
2442 D ^V4TPCHK2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;==========================================
51 ;---1. TSTART lname:SERIAL  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS1
 TSTART VA:SERIAL
 IF $TRESTART G 2451
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
2451 D ^V4TPCHK1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
52 ;---2. TSTART lname  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART VB
 IF $TRESTART G 2452
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK2
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
2452 D ^V4TPCHK2
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TCOMMIT
 D ^V4TPCHK2
 L  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

V4TPE31
V4TPE31 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
11 ;---1. TSTART :SERIAL  ... TCOMMIT
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 TSTART :SERIAL
 F  Q:$$^V4GETS1
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
12 ;---2. TSTART *:S  ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART *:S
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;
13 ;---3. TSTART lname:S  ... TCOMMIT
 F  Q:$$^V4GETS3
 TSTART VB:S
 D ^V4TPS1 ;^VA^VB(1)VAVB(1)
 K
 D ^V4TPCHK3
 TCOMMIT
 D ^V4TPCHK3
 L  H
 ;
 ;==========================================
21 ;---1. TSTART :S  ... TCOMMIT
 TSTART :S
 F  Q:$$^V4GETS1
 D ^V4TPS2 ;^va^vb(1)vavb(1)
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART :SERIAL  ... TCOMMIT
 F  Q:$$^V4GETS2
 TSTART :SERIAL
 K ^VA,^VB,^VC,^VD
 S VA="va"
 D ^V4TPCHK2
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
23 ;---3. TSTART ()  ... TROLLBACK
 F  Q:$$^V4GETS3
 TSTART ()
 D ^V4TPS1 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK3
 TROLLBACK
 D ^V4TPCHK3
 L  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

V4TPE32
V4TPE32 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;
11 ;---1. TSTART ():SERIAL  ... TCOMMIT
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 TSTART ():SERIAL
 F  Q:$$^V4GETS1
 D ^V4TPCHK1
 S ^VC(1,2)="^VC(1,2)",^VD="^VD"
 K  S VA(1)="VA(1)",VC="VC"
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
12 ;---2. TSTART *:S  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS2
 D ^V4TPS1 ;^VA^VB(1)VAVB(1)
 TSTART *:S
 IF $TRESTART G 3212
 D ^V4TPCHK2
 K
 TRESTART
 TCOMMIT
 D ^V4TPCHK2
 L  H
3212 D ^V4TPCHK2
 D ^V4TPS2 ;^va^vb(1)vavb(1)
 K
 TCOMMIT
 D ^V4TPCHK2
 L  H
 ;
13 ;---3. TSTART lname:(S)  ... TROLLBACK
 F  Q:$$^V4GETS3
 TSTART VC:(S)
 D ^V4TPS1 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK3
 TROLLBACK
 D ^V4TPCHK3
 L  H
 ;==========================================
21 ;---1. TSTART (lname,lname):S  ... TRESTART ... TROLLBACK
 TSTART (VC,VB):S
 F  Q:$$^V4GETS1
 IF $TRESTART G 3221
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 K
 D ^V4TPCHK1
 TRESTART
 TCOMMIT
 D ^V4TPCHK1
 L  H
3221 D ^V4TPCHK1
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 KILL  K ^VB
 D ^V4TPCHK1
 TCOMMIT
 D ^V4TPCHK1
 L  H
 ;
22 ;---2. TSTART (lname,lname):S  ... TROLLBACK
 F  Q:$$^V4GETS2
 TSTART (VA,VC):S
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 D ^V4TPCHK2
 TROLLBACK
 D ^V4TPCHK2
 L  H
 ;
23 ;---3. TSTART lname:S  ... TRESTART ... TCOMMIT
 F  Q:$$^V4GETS3
 TSTART VB:S
 D ^V4TPS22 ;^VC^VD(1)VCVD(1)
 IF $TRESTART G 3223
 D ^V4TPS21 ;^VA^VB(1)VAVB(1)
 D ^V4TPCHK3
 TRESTART
 TCOMMIT
 D ^V4TPCHK3
 L  H
3223 D ^V4TPCHK3
 S ^VC="^VC" KILL
 D ^V4TPCHK3
 TCOMMIT
 D ^V4TPCHK3
 L  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

V4TPS21
V4TPS21 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VA=$g(^VA)_"^VA"
 S ^VB(1)=$g(^VB(1))_"^VB(1)"
 S VA=$g(VA)_"VA"
 S VB(1)=$g(VB(1))_"VB(1)"
 Q
 ;^VA^VB(1)VAVB(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

V4TPS22
V4TPS22 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VC=$g(^VC)_"^VC"
 S ^VD(1)=$g(^VD(1))_"^VD(1)"
 S VC=$g(VC)_"VC"
 S VD(1)=$g(VD(1))_"VD(1)"
 Q
 ;^VC^VD(1)VCVD(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

V4TPS1
V4TPS1 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VA=$g(^VA)_"^VA"
 S ^VB(1)=$g(^VB(1))_"^VB(1)"
 K ^VC,^VD
 S VA=$g(VA)_"VA"
 S VB(1)=$g(VB(1))_"VB(1)"
 K VC,VD
 Q
 ;^VA^VB(1)VAVB(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

V4TPS2
V4TPS2 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VA=$g(^VA)_"^va"
 S ^VB(1)=$g(^VB(1))_"^vb(1)"
 K ^VC,^VD
 S VA=$g(VA)_"va"
 S VB(1)=$g(VB(1))_"vb(1)"
 K VC,VD
 Q
 ;^va^vb(1)vavb(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

V4TPS3
V4TPS3 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VA(1)=$g(^VA(1))_"^VA(1)"
 S ^VB(1,2)=$g(^VB(1,2))_"^VB(1,2)"
 S ^VC(2)=$g(^VC(2))_"^VC(2)"
 S ^VD(1,2)=$g(^VD(1,2))_"^VD(1,2)"
 S VA(1)=$g(VA(1))_"VA(1)"
 S VB(1,2)=$g(VB(1,2))_"VB(1,2)"
 S VC(2)=$g(VC(2))_"VC(2)"
 S VD(1,2)=$g(VD(1,2))_"VD(1,2)"
 Q
 ;^VA(1)^VB(1,2)^VC(2)^VD(1,2)VA(1)VB(1,2)VC(2)VD(1,2)
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

V4TPS4
V4TPS4 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S ^VA(1)=$g(^VA(1))_"^va(1)"
 S ^VB(2)=$g(^VB(2))_"^vb(2)"
 S ^VC(1,2)=$g(^VC(1,2))_"^vc(1,2)"
 S ^VD(2)=$g(^VD(2))_"^vd(2)"
 S VA(1)=$g(VA(1))_"va(1)"
 S VB(2)=$g(VB(2))_"vb(2)"
 S VC(1,2)=$g(VC(1,2))_"vc(1,2)"
 S VD(2)=$g(VD(2))_"vd(2)"
 Q
 ;^va(1)^vb(2)^vc(1,2)^vd(2)va(1)vb(2)vc(1,2)vd(2)
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

V4PRETP1
V4PRETP1 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;preset 1 transaction
 S ^VREPORT("Part-94",^ABSN)="*ABORT*"
 S ^VREPORT("Part-94",^ABSN,"ITEM")=^ITEM
 S ^VREPORT("Part-94",^ABSN,"NEXT")=^NEXT
 K ^VA,^VB,^VC,^VD,^VCOMP,^VS
 LOCK
 S ^VCOMP=""
 S ^VS(1)=1
 K
 S WAIT=""
 LOCK +^V(1)
 K ^HALT
TINIT ;------------------------------------------
 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

V4PRETP2
V4PRETP2 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;preset for 2 Transactions test
 S ^VREPORT("Part-94",^ABSN)="*ABORT*"
 S ^VREPORT("Part-94",^ABSN,"ITEM")=^ITEM
 S ^VREPORT("Part-94",^ABSN,"NEXT")=^NEXT
 K ^VA,^VB,^VC,^VD,^VCOMP,^VS
 LOCK
 S ^VCOMP=""
 S ^VS(1)=1,^VS(2)=1
 K
 S WAIT=""
 LOCK +^V(2),+^V(1)
 K ^HALT
TINIT ;------------------------------------------
 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

V4PRETP3
V4PRETP3 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;preset for 3 Transactions test
 S ^VREPORT("Part-94",^ABSN)="*ABORT*"
 S ^VREPORT("Part-94",^ABSN,"ITEM")=^ITEM
 S ^VREPORT("Part-94",^ABSN,"NEXT")=^NEXT
 K ^VA,^VB,^VC,^VD,^VCOMP,^VS
 LOCK
 S ^VCOMP=""
 S ^VS(1)=1,^VS(2)=1,^VS(3)=1
 K
 S WAIT=""
 LOCK +^V(3),+^V(2),+^V(1)
 K ^HALT
TINIT ;------------------------------------------
 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

V4GETS1
V4GETS1() ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 IF $D(^HALT)=1 LOCK  HALT
 IF $D(^VS(1))=0 H 1 Q 0
 LOCK +^V(1):1 ELSE  H 1 Q 0
 K ^VS(1) Q 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

V4GETS2
V4GETS2() ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 IF $D(^HALT)=1 LOCK  HALT
 IF $D(^VS(2))=0 H 1 Q 0
 LOCK +^V(2):1 ELSE  H 1 Q 0
 K ^VS(2) Q 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

V4GETS3
V4GETS3() ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 IF $D(^HALT)=1 LOCK  HALT
 IF $D(^VS(3))=0 H 1 Q 0
 LOCK +^V(3):1 ELSE  H 1 Q 0
 K ^VS(3) Q 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

V4GETSM
V4GETSM() ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;Waitting for end of Transaction test jobs
 IF $D(^HALT)=1 LOCK  Q 0
 IF $D(^VS(1))=1 H 1 Q 0
 IF $D(^VS(2))=1 H 1 Q 0
 IF $D(^VS(3))=1 H 1 Q 0
 LOCK ^V:1 ELSE  H 1 Q 0
 S WAIT=WAIT_$T
 S V="*"_WAIT_"/" D V4COMPM(V) Q 1
 ;
V4COMPM(V) ;
 ;PUT COMPUTEED DATA
 LOCK +^VCOMP
 S I=$O(^VCOMP("M",""))+1
 S ^VCOMP("M",I)=V
 LOCK -^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

V4GETCOM
V4GETCOM ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 D GVCOMP1
 D GVCOMP2
 D GVCOMP3
 D GVCOMPM
 Q
 ;
GVCOMP1 ;
 ;GET ^VCOMP(1,*) DATA
 S V="",N=""
 FOR  S N=$O(^VCOMP(1,N)) Q:N=""  S V=V_^VCOMP(1,N)
 S ^VCOMP=^VCOMP_V
 K ^VCOMP(1)
 Q
 ;
GVCOMP2 ;
 ;GET ^VCOMP(2,*) DATA
 S V="",N=""
 FOR  S N=$O(^VCOMP(2,N)) Q:N=""  S V=V_^VCOMP(2,N)
 S ^VCOMP=^VCOMP_V
 K ^VCOMP(2)
 Q
 ;
GVCOMP3 ;
 ;GET ^VCOMP(3,*) DATA
 S V="",N=""
 FOR  S N=$O(^VCOMP(3,N)) Q:N=""  S V=V_^VCOMP(3,N)
 S ^VCOMP=^VCOMP_V
 K ^VCOMP(3)
 Q
 ;
GVCOMPM ;
 ;GET ^VCOMP("M",*) DATA
 S V="",N=""
 FOR  S N=$O(^VCOMP("M",N)) Q:N=""  S V=V_^VCOMP("M",N)
 S ^VCOMP=^VCOMP_V
 K ^VCOMP("M")
 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

V4COMP1
V4COMP1(V) ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;PUT COMPUTEED DATA
 LOCK ^VCOMP
 S I=$O(^VCOMP(1,""),-1)+1
 S ^VCOMP(1,I)=V
 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

V4COMP2
V4COMP2(V) ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;PUT COMPUTEED DATA
 LOCK ^VCOMP
 S I=$O(^VCOMP(2,""),-1)+1
 S ^VCOMP(2,I)=V
 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

V4COMP3
V4COMP3(V) ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 ;PUT COMPUTEED DATA
 LOCK ^VCOMP
 S I=$O(^VCOMP(3,""),-1)+1
 S ^VCOMP(3,I)=V
 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

V4TPCHK
V4TPCHK ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S V="#1"
 S V=V_$G(^VA)_$g(^VA(1))_$g(^VA(1,2))_$g(^VA(2))
 S V=V_$G(^VB)_$g(^VB(1))_$g(^VB(1,2))_$g(^VB(2))
 S V=V_$G(^VC)_$g(^VC(1))_$g(^VC(1,2))_$g(^VC(2))
 S V=V_$G(^VD)_$g(^VD(1))_$g(^VD(1,2))_$g(^VD(2))
 S V=V_$G(VA)_$g(VA(1))_$g(VA(1,2))_$g(VA(2))
 S V=V_$G(VB)_$g(VB(1))_$g(VB(1,2))_$g(VB(2))
 S V=V_$G(VC)_$g(VC(1))_$g(VC(1,2))_$g(VC(2))
 S V=V_$G(VD)_$g(VD(1))_$g(VD(1,2))_$g(VD(2))
 S V=V_$TLEVEL_$TRESTART_"/"
 ;IF $L(V)>250 HALT
 JOB ^V4COMP1(V)::5 E  HALT  ;
 H 1
 IF $D(^HALT)=1 LOCK  HALT
 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

V4TPCHK1
V4TPCHK1 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S V="#1"
 S V=V_$G(^VA)_$g(^VA(1))_$g(^VA(1,2))_$g(^VA(2))
 S V=V_$G(^VB)_$g(^VB(1))_$g(^VB(1,2))_$g(^VB(2))
 S V=V_$G(^VC)_$g(^VC(1))_$g(^VC(1,2))_$g(^VC(2))
 S V=V_$G(^VD)_$g(^VD(1))_$g(^VD(1,2))_$g(^VD(2))
 S V=V_$G(VA)_$g(VA(1))_$g(VA(1,2))_$g(VA(2))
 S V=V_$G(VB)_$g(VB(1))_$g(VB(1,2))_$g(VB(2))
 S V=V_$G(VC)_$g(VC(1))_$g(VC(1,2))_$g(VC(2))
 S V=V_$G(VD)_$g(VD(1))_$g(VD(1,2))_$g(VD(2))
 S V=V_$TLEVEL_$TRESTART_"/"
 ;IF $L(V)>250 HALT
 JOB ^V4COMP1(V)::5 E  HALT  ;
 H 1
 IF $D(^HALT)=1 LOCK  HALT
 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

V4TPCHK2
V4TPCHK2 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S V="#2"
 S V=V_$G(^VA)_$g(^VA(1))_$g(^VA(1,2))_$g(^VA(2))
 S V=V_$G(^VB)_$g(^VB(1))_$g(^VB(1,2))_$g(^VB(2))
 S V=V_$G(^VC)_$g(^VC(1))_$g(^VC(1,2))_$g(^VC(2))
 S V=V_$G(^VD)_$g(^VD(1))_$g(^VD(1,2))_$g(^VD(2))
 S V=V_$G(VA)_$g(VA(1))_$g(VA(1,2))_$g(VA(2))
 S V=V_$G(VB)_$g(VB(1))_$g(VB(1,2))_$g(VB(2))
 S V=V_$G(VC)_$g(VC(1))_$g(VC(1,2))_$g(VC(2))
 S V=V_$G(VD)_$g(VD(1))_$g(VD(1,2))_$g(VD(2))
 S V=V_$TLEVEL_$TRESTART_"/"
 ;IF $L(V)>250 HALT
 JOB ^V4COMP2(V)::5 E  HALT  ;
 H 1
 IF $D(^HALT)=1 LOCK  HALT
 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

V4TPCHK3
V4TPCHK3 ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S V="#3"
 S V=V_$G(^VA)_$g(^VA(1))_$g(^VA(1,2))_$g(^VA(2))
 S V=V_$G(^VB)_$g(^VB(1))_$g(^VB(1,2))_$g(^VB(2))
 S V=V_$G(^VC)_$g(^VC(1))_$g(^VC(1,2))_$g(^VC(2))
 S V=V_$G(^VD)_$g(^VD(1))_$g(^VD(1,2))_$g(^VD(2))
 S V=V_$G(VA)_$g(VA(1))_$g(VA(1,2))_$g(VA(2))
 S V=V_$G(VB)_$g(VB(1))_$g(VB(1,2))_$g(VB(2))
 S V=V_$G(VC)_$g(VC(1))_$g(VC(1,2))_$g(VC(2))
 S V=V_$G(VD)_$g(VD(1))_$g(VD(1,2))_$g(VD(2))
 S V=V_$TLEVEL_$TRESTART_"/"
 ;IF $L(V)>250 HALT
 JOB ^V4COMP2(V)::5 E  HALT  ;
 H 1
 IF $D(^HALT)=1 L  HALT
 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

V4TPCHKM
V4TPCHKM ;IW-KO-YS-TS,VV4TP,MVTS V9.10;15/7/96;PART-94 Transaction
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1994-1996
 S V="#M"
 S V=V_$G(^VA)_$g(^VA(1))_$g(^VA(1,2))_$g(^VA(2))
 S V=V_$G(^VB)_$g(^VB(1))_$g(^VB(1,2))_$g(^VB(2))
 S V=V_$G(^VC)_$g(^VC(1))_$g(^VC(1,2))_$g(^VC(2))
 S V=V_$G(^VD)_$g(^VD(1))_$g(^VD(1,2))_$g(^VD(2))
 S V=V_$G(VA)_$g(VA(1))_$g(VA(1,2))_$g(VA(2))
 S V=V_$G(VB)_$g(VB(1))_$g(VB(1,2))_$g(VB(2))
 S V=V_$G(VC)_$g(VC(1))_$g(VC(1,2))_$g(VC(2))
 S V=V_$G(VD)_$g(VD(1))_$g(VD(1,2))_$g(VD(2))
 S V=V_$TLEVEL_$TRESTART_"/"
 ;IF $L(V)>250 Q
 D V4COMPM(V) ;
 IF $D(^HALT)=1 LOCK
 Q
 ;
V4COMPM(V) ;
 ;PUT COMPUTEED DATA
 LOCK +^VCOMP
 S I=$O(^VCOMP("M",""))+1
 S ^VCOMP("M",I)=V
 LOCK -^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