MUMPS Validation Test Suite V9.10  Part-77 (DO ^VV1)
JUL 15, 1996
%
% ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 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

%1A
%1A ;IW-DAS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 G AAA
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
AAA S VCOMP=VCOMP_"%1A "

%2345678
%2345678 ;IW-DAS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"%2345678 " 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

%BCDEFGH
%BCDEFGH ;IW-DAS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"%BCDEFGH " 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

VV1
VV1 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;PART-77   MAIN DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-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-77"
 K ^VREPORT("Part-77")
 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 W #,"*** Standard MUMPS Validation Test Suite Version 9.10, Part-77 (DRIVER)***"
 W !,"    ( The last Test ID number for Part-77 is I-855. )",!!
 ;
V1WR W !!,"1---V1WR" D ^V1WR
V1CMT W !!,"2---V1CMT" D ^V1CMT
V1LL0 W !!,"3---V1LL0" D ^V1LL0
V1LL1 W !!,"4---V1LL1" D ^V1LL1
V1LL2 W !!,"5---V1LL2" D ^V1LL2
V1LL3 W !!,"6---V1LL3" D ^V1LL3
V1PRGD W !!,"7---V1PRGD" D ^V1PRGD
V1RN W !!,"8---V1RN" D ^V1RN
V1PRSET W !!,"9---V1PRSET" D ^V1PRSET
V1PRIE W !!,"10---V1PRIE" D ^V1PRIE
V1PRFOR W !!,"11---V1PRFOR" D ^V1PRFOR
V1NUM W !!,"11.1---V1NUM" D ^V1NUM
V1FC W !!,"17.1---V1FC" D ^V1FC
V1UO W !!,"20.1---V1UO" D ^V1UO
V1BOA W !!,"35.1---V1BOA" D ^V1BOA
V1BOR W !!,"47.1---V1BOR" D ^V1BOR ;routine name changed, V7.4;16/9/89
V1BOL W !!,"84.1---V1BOL" D ^V1BOL ;routine name changed, V7.4;16/9/89
V1BOC W !!,"91---V1BOC" D ^V1BOC
V1FN W !!,"91.1---V1FN" D ^V1FN
V1AC W !!,"103.1---V1AC" D ^V1AC
V1LVN W !!,"107---V1LVN" D ^V1LVN
V1GVN W !!,"108---V1GVN" D ^V1GVN
V1DLA W !!,"109---V1DLA" D ^V1DLA
V1DLB W !!,"109.1---V1DLB" D ^V1DLB
V1DLC W !!,"112---V1DLC" D ^V1DLC
V1DGA W !!,"113---V1DGA" D ^V1DGA
V1DGB W !!,"113.1---V1DGB" D ^V1DGB
V1NR W !!,"115.1---V1NR" D ^V1NR
V1NX W !!,"118.1---V1NX" D ^V1NX
V1SET W !!,"120.1---V1SET" D ^V1SET
V1GO W !!,"122.1---V1GO" D ^V1GO
V1OV W !!,"125.1---V1OV" D ^V1OV
V1DO W !!,"127.1---V1DO" D ^V1DO
V1CALL W !!,"131.1---V1CALL" D ^V1CALL
V1IE W !!,"133.1---V1IE" D ^V1IE
V1PC W !!,"135.1---V1PC" D ^V1PC
V1FORA W !!,"138.1---V1FORA" D ^V1FORA
V1FORB W !!,"141.1---V1FORB" D ^V1FORB
V1FORC W !!,"143.1---V1FORC" D ^V1FORC
V1IDNM W !!,"145.1---V1IDNM" D ^V1IDNM
V1IDGO W !!,"149.1---V1IDGO" D ^V1IDGO
V1IDDO W !!,"150.1---V1IDDO" D ^V1IDDO
V1IDARG W !!,"152.1---V1IDARG" D ^V1IDARG
V1XECA W !!,"158.1---V1XECA" D ^V1XECA
V1XECB W !!,"161---V1XECB" D ^V1XECB
V1SEQ W !!,"162---V1SEQ" D ^V1SEQ
V1PAT W !!,"162.1---V1PAT" D ^V1PAT
V1NST1 W !!,"167---V1NST1" D ^V1NST1
V1NST2 W !!,"168---V1NST2" D ^V1NST2
V1NST3 W !!,"169---V1NST3" D ^V1NST3
V1JST W !!,"169.1---V1JST" D ^V1JST
V1SVH W !!,"176---V1SVH" D ^V1SVH
V1SVS W !!,"177---V1SVS" D ^V1SVS
V1MAX W !!,"177.1---V1MAX" D ^V1MAX
V1BR W !!,"181---V1BR" D ^V1BR
V1READA W !!,"181.1---V1READA" D ^V1READA
V1READB W !!,"184.1---V1READB" D ^V1READB
V1HANG W !!,"188.1---V1HANG" D ^V1HANG
V1PO W !!,"191---V1PO" D ^V1PO
V1RANDA W !!,"192---V1RANDA" D ^V1RANDA
V1RANDB W !!,"193---V1RANDB" D ^V1RANDB
V1IO W !!,"194---V1IO" D ^V1IO
V1MJA W !!,"194.1---V1MJA" D ^V1MJA
END W !!,"*** Standard MUMPS Validation Test Suite Version 9.10, Part-77 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

V1WR
V1WR ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;WRITE ALL CHARACTERS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"1---V1WR: Write all characters",!
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (1---V1WR) contains 4 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
802 W !,"I-802  Output of alphabetics"
 W !!,"I-802.1  Output of upper-case alphabetics (by OPERATOR)"
 W !,"         Following two lines should be identical:"
 S ^ABSN="10001",^ITEM="I-802.1  Output of upper-case alphabetics (by OPERATOR)",^NEXT="8022^V1WR,V1CMT^VV1" D ^V1PRESET
 WRITE !,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 W !,"A","B","C","D","E","F","G","H","I","J","K","L","M"
 W "N","O","P","Q","R","S","T","U","V","W","X","Y","Z"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 802
 ;
8022 W !!,"I-802.2  Output of lower-case alphabetics (by OPERATOR)"
 W !,"         Following two lines should be identical:"
 S ^ABSN="10002",^ITEM="I-802.2  Output of lower-case alphabetics (by OPERATOR)",^NEXT="803^V1WR,V1CMT^VV1" D ^V1PRESET
 WRITE !,"abcdefghijklmnopqrstuvwxyz"
 W !,"a","b","c","d","e","f","g","h","i","j","k","l","m"
 W "n","o","p","q","r","s","t","u","v","w","x","y","z"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 8022
 ;
803 W !!,"I-803  Output of digits (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10003",^ITEM="I-803  Output of digits (by OPERATOR)",^NEXT="804^V1WR,V1CMT^VV1" D ^V1PRESET
 WRITE !,"1234567890"
 W !,"1","2","3","4","5","6","7","8","9","0"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 803
 ;
804 W !!,"I-804  Output of punctuation characters (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10004",^ITEM="I-804  Output of punctuation characters (by OPERATOR)",^NEXT="V1CMT^VV1" D ^V1PRESET
 WRITE !," !""#$%&'()+,-./:;<=>?@[\]^_`{|}~"
 W !," ","!","""","#","$","%","&","'","(",")","+",",","-",".","/",":",";"
 W "<","=",">","?","@","[","\","]","^","_","`","{","|","}","~"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 804
 ;
END W !!,"End of 1---V1WR",!
 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

V1CMT
V1CMT ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;STRUCTURE OF COMMENT
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"2---V1CMT: Structure of comment",!
 ;
186 W !,"I-186  Comment coming after ls"
 S ^ABSN="10005",^ITEM="I-186  Comment coming after ls",^NEXT="187^V1CMT,V1LL0^VV1" D ^V1PRESET
 ;(test changed in V7.5;20/8/90)
 W !,"       Following two lines should be identical:"
 S ^VCOMP="   Comment  "
 ;S ^VCOMP="** Comment FAIL  "
 S ^VCORR="   Comment  " D ^VEXAMINE
 ;
187 W !,"I-187  Comment coming after label ls"
 S ^ABSN="10006",^ITEM="I-187  Comment coming after label ls",^NEXT="188^V1CMT,V1LL0^VV1" D ^V1PRESET
 ;(test changed in V7.5;20/8/90)
 S ^VCOMP="PASS1  "
COMMENT ;S ^VCOMP=^VCOMP_"***** FAIL *****"
 S ^VCOMP=^VCOMP_"PASS2  "
 S ^VCORR="PASS1  PASS2  " D ^VEXAMINE
 ;
188 W !,"I-188  Comment coming after command argument"
 S ^ABSN="10007",^ITEM="I-188  Comment coming after command argument",^NEXT="189^V1CMT,V1LL0^VV1" D ^V1PRESET
 ;(test changed in V7.5;20/8/90)
 S ^VCOMP="After" ; S ^VCOMP=^VCOMP_"** FAIL After"
 S ^VCORR="After" D ^VEXAMINE
 ;
189 W !,"I-189  Comment coming after argumentless command with postconditional"
 S ^ABSN="10008",^ITEM="I-189  Comment coming after argumentless command with postconditional",^NEXT="190^V1CMT,V1LL0^VV1" D ^V1PRESET
 ;(test changed in V7.5;20/8/90)
 S ^VCOMP=""
 K:1  ;S ^VCOMP=^VCOMP_"FAIL  "
 S ^VCOMP=^VCOMP_"Argumentless pass"
 S ^VCORR="Argumentless pass" D ^VEXAMINE
 ;
190 W !,"I-190  Comment coming after argumentless command without postconditional"
 S ^ABSN="10009",^ITEM="I-190  Comment coming after argumentless command without postconditional",^NEXT="V1LL0^VV1" D ^V1PRESET
 ;(test changed in V7.5;20/8/90)
 S ^VCOMP="ABC "
 I 1 I  ; S ^VCOMP=^VCOMP_"** FAIL ****"
 S ^VCOMP=^VCOMP_"ABC"
 S ^VCORR="ABC ABC" D ^VEXAMINE
 ;
END W !!,"End of 2---V1CMT",!
 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

V1LL0
V1LL0 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;LABELLESS FIRST LINE
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
609 W !!,"3---V1LL0: The first line is labelless",!
 W:$Y>55 #
 W !,"I-609  The first line is labelless"
 S ^ABSN="10010",^ITEM="I-609  The first line is labelless",^NEXT="V1LL1^VV1" D ^V1PRESET
 S VCOMP=""
 D ^V1LL0FL
 S ^VCOMP=VCOMP,^VCORR="LABELLESS OK" D ^VEXAMINE
 ;
END W !!,"End of 3---V1LL0",!
 K  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

V1LL0FL
 S VCOMP="LABELLESS" ;IW-TS,V1LL0,MVTS V9.10;15/6/96;CALLED BY V1LL0, LABELLESS FIRST LINE
V1LL0FL ;
 S VCOMP=VCOMP_" OK"
 Q
 ;IW-TS,V1LL0,MVTS V9.10;15/6/96;CALLED BY V1LL0, LABELLESS FIRST LINE
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 ;
V1LL0F S VCOMP="LABELLESS FAIL"
 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

V1LL1
V1LL1 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE LINE LABELS -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"4---V1LL1: Acceptable line labels -1-"
 W !,"Regarding label length and character mix."
 W:$Y>55 #
 ;
 ;I-609 TEST MOVE TO V1LL0 ROUTINE (V7.3;20/6/88)
 ;
601 W !,"I-601  Labelless line"
 S ^ABSN="10011",^ITEM="I-601  Labelless line",^NEXT="602^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^VCOMP="LABELLESS LINE"
 S ^VCORR="LABELLESS LINE" D ^VEXAMINE
 ;
602 W !,"I-602  label is ""%"""
 S ^ABSN="10012",^ITEM="I-602  label is ""%""",^NEXT="603^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
% S ^VCOMP="%"
 S ^VCORR="%" D ^VEXAMINE
 ;
603 W !,"I-603  label is ""%"" and alpha"
6031 S ^ABSN="10013",^ITEM="I-603.1  %A",^NEXT="6032^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%A S ^VCOMP="%A"
 S ^VCORR="%A" D ^VEXAMINE
 ;
6032 S ^ABSN="10014",^ITEM="I-603.2  %ABZWQ",^NEXT="6033^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%ABZWQ S ^VCOMP="%ABZWQ"
 S ^VCORR="%ABZWQ" D ^VEXAMINE
 ;
6033 S ^ABSN="10015",^ITEM="I-603.3  %ABCDE",^NEXT="604^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%ABCDE S ^VCOMP="%ABCDE"
 S ^VCORR="%ABCDE" D ^VEXAMINE
 ;
604 W !,"I-604  label is ""%"" and digit"
6041 S ^ABSN="10016",^ITEM="I-604.1  %01",^NEXT="6042^V1LL1,V1LL2^VV1" D ^V1PRESET
 S VCOMP=""
%01 S VCOMP="%01"
 S ^VCOMP=VCOMP,^VCORR="%01" D ^VEXAMINE
 ;
6042 S ^ABSN="10017",^ITEM="I-604.2  %000000",^NEXT="605^V1LL1,V1LL2^VV1" D ^V1PRESET
 S VCOMP=""
%000000 S VCOMP=" %000000"
 S ^VCOMP=VCOMP,^VCORR=" %000000" D ^VEXAMINE
 ;
605 W !,"I-605  label is ""%"" and combination of alpha and digit"
6051 S ^ABSN="10018",^ITEM="I-605.1  %09A",^NEXT="6052^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%09A S ^VCOMP="%09A"
 S ^VCORR="%09A" D ^VEXAMINE
 ;
6052 S ^ABSN="10019",^ITEM="I-605.2  %09AB",^NEXT="6053^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%09AB S ^VCOMP="%09AB"
 S ^VCORR="%09AB" D ^VEXAMINE
 ;
6053 S ^ABSN="10020",^ITEM="I-605.3  %ABC000",^NEXT="6054^V1LL1,V1LL2^VV1" D ^V1PRESET
 S VCOMP=""
%ABC000 S VCOMP="%ABC000"
 S ^VCOMP=VCOMP,^VCORR="%ABC000" D ^VEXAMINE
 ;
6054 S ^ABSN="10021",^ITEM="I-605.4  %ABC0000",^NEXT="6055^V1LL1,V1LL2^VV1" D ^V1PRESET
 S ^VCOMP=""
%ABC0000 S ^VCOMP="%ABC0000"
 S ^VCORR="%ABC0000" D ^VEXAMINE
 ;
 W !!,"According to the portability requirement of MUMPS language standard by ANSI,"
 W !,"no explicit limit on label length is described.  Except minimum "
 W !,"differentiation of 8 chars." W:$Y>55 #
 W !,"For further arbitrary tests for longer labels than 8 chars. "
 W !,"You may exchange the following label into '%234EFGH90KLM45', To make"
 W !,"sure that your MUMPS works well on this point.",!
6055 S ^ABSN="10022",^ITEM="I-605.5  %234EFGH",^NEXT="V1LL2^VV1" D ^V1PRESET
 S VCOMP=""
%234EFGH S VCOMP="%234EFGH"
 S ^VCOMP=VCOMP,^VCORR="%234EFGH" D ^VEXAMINE
 ;
 ;6055 S ^ABSN="10022^ITEM="I-605.5  %234EFGH90KLM45",^NEXT="V1LL2^VV1" D ^V1PRESET
 ; S VCOMP=""
 ;%234EFGH90KLM45 S VCOMP="%234EFGH90KLM45"
 ; S ^VCOMP=VCOMP,^VCORR="%234EFGH90KLM45" D ^VEXAMINE
 ;
END W !!,"End of 4---V1LL1",!
 K  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

V1LL2
V1LL2 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE LINE LABELS -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"5---V1LL2: Acceptable line labels -2-,"
 W !,"regarding label length and character mix.",!
6061 S ^ABSN="10023",^ITEM="I-606.1  A",^NEXT="6062^V1LL2,V1LL3^VV1" D ^V1PRESET
 S VCOMP=""
A S VCOMP="A"
 S ^VCOMP=VCOMP,^VCORR="A" D ^VEXAMINE
 ;
6062 S ^ABSN="10024",^ITEM="I-606.2  AB",^NEXT="6063^V1LL2,V1LL3^VV1" D ^V1PRESET
 S ^VCOMP=""
AB S ^VCOMP="AB"
 S ^VCORR="AB" D ^VEXAMINE
 ;
6063 S ^ABSN="10025",^ITEM="I-606.3  ABC",^NEXT="6064^V1LL2,V1LL3^VV1" D ^V1PRESET
 S ^VCOMP=""
ABC S ^VCOMP="ABC"
 S ^VCORR="ABC" D ^VEXAMINE
 ;
6064 S ^ABSN="10026",^ITEM="I-606.4  ABCD",^NEXT="6065^V1LL2,V1LL3^VV1" D ^V1PRESET
 S VCOMP=""
ABCD S VCOMP="ABCD"
 S ^VCOMP=VCOMP,^VCORR="ABCD" D ^VEXAMINE
 ;
6065 S ^ABSN="10027",^ITEM="I-606.5  ABCDE",^NEXT="6066^V1LL2,V1LL3^VV1" D ^V1PRESET
 S ^VCOMP=""
ABCDE S ^VCOMP="ABCDE"
 S ^VCORR="ABCDE" D ^VEXAMINE
 ;
6066 S ^ABSN="10028",^ITEM="I-606.6  ABCDEF",^NEXT="6067^V1LL2,V1LL3^VV1" D ^V1PRESET
 S ^VCOMP=""
ABCDEF S ^VCOMP="ABCDEF"
 S ^VCORR="ABCDEF" D ^VEXAMINE
 ;
6067 S ^ABSN="10029",^ITEM="I-606.7  ABCDEFG",^NEXT="6068^V1LL2,V1LL3^VV1" D ^V1PRESET
 S VCOMP=""
ABCDEFG S VCOMP="ABCDEFG"
 S ^VCOMP=VCOMP,^VCORR="ABCDEFG" D ^VEXAMINE
 ;
 W !!,"You may exchange the following label into 'ABCDEFGHIJKLMNOPS'"
 W !,"respectively for the same reason as described above.",!
6068 S ^ABSN="10030",^ITEM="I-606.8  ABCDEFGH",^NEXT="V1LL3^VV1" D ^V1PRESET
 S VCOMP=""
ABCDEFGH S VCOMP="ABCDEFGH"
 S ^VCOMP=VCOMP,^VCORR="ABCDEFGH" D ^VEXAMINE
 ;
 ;6068 S ^ABSN="10030",^ITEM="I-606.8  ABCDEFGHIJKLMNOPS",^NEXT="V1LL3^VV1" D ^V1PRESET
 ; S VCOMP=""
 ;ABCDEFGHIJKLMNOPS S VCOMP="ABCDEFGHIJKLMNOPS"
 ; S ^VCOMP=VCOMP,^VCORR="ABCDEFGHIJKLMNOPS" D ^VEXAMINE
 ;
END W !!,"End of 5---V1LL2",!
 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

V1LL3
V1LL3 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE LINE LABELS -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"6---V1LL3: Acceptable line labels -3-,"
 W !,"regarding label length and character mix.",!
 ;
607 W !!,"I-607  label is intlit"
6071 S ^ABSN="10031",^ITEM="I-607.1  3",^NEXT="6072^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
3 S VCOMP="3"
 S ^VCOMP=VCOMP,^VCORR="3" D ^VEXAMINE
 ;
6072 S ^ABSN="10032",^ITEM="I-607.2  00",^NEXT="6073^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
00 S VCOMP="00"
 S ^VCOMP=VCOMP,^VCORR="00" D ^VEXAMINE
 ;
6073 S ^ABSN="10033",^ITEM="I-607.3  123",^NEXT="6074^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S ^VCOMP=""
123 S ^VCOMP="123"
 S ^VCORR="123" D ^VEXAMINE
 ;
6074 S ^ABSN="10034",^ITEM="I-607.4  1234",^NEXT="6075^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
1234 S VCOMP="1234"
 S ^VCOMP=VCOMP,^VCORR="1234" D ^VEXAMINE
 ;
6075 S ^ABSN="10035",^ITEM="I-607.5  12345",^NEXT="6076^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
12345 S VCOMP="12345"
 S ^VCOMP=VCOMP,^VCORR="12345" D ^VEXAMINE
 ;
6076 S ^ABSN="10036",^ITEM="I-607.6  000000",^NEXT="6077^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S ^VCOMP=""
000000 S ^VCOMP="000000"
 S ^VCORR="000000" D ^VEXAMINE
 ;
6077 S ^ABSN="10037",^ITEM="I-607.7  0000001",^NEXT="6078^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
0000001 S VCOMP="0000001"
 S ^VCOMP=VCOMP,^VCORR="0000001" D ^VEXAMINE
 ;
 W !!,"You may exchange the following label to '123456789012345' for"
 W !,"the same reason again.",!
6078 S ^ABSN="10038",^ITEM="I-607.8  12345678",^NEXT="608^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
12345678 S VCOMP="12345678"
 S ^VCOMP=VCOMP,^VCORR="12345678" D ^VEXAMINE
 ;
 ;6078 S ^ABSN="10038",^ITEM="I-607.8  123456789012345",^NEXT="608^V1LL3,V1PRGD^VV1" D ^V1PRESET
 ; S VCOMP=""
 ;123456789012345 S VCOMP="123456789012345"
 ; S ^VCOMP=VCOMP,^VCORR="123456789012345" D ^VEXAMINE
 ;
608 W !!,"I-608  label is combination of alpha and digit"
6081 S ^ABSN="10039",^ITEM="I-608.1  A1B2C3",^NEXT="6082^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
A1B2C3 S VCOMP="A1B2C3"
 S ^VCOMP=VCOMP,^VCORR="A1B2C3" D ^VEXAMINE
 ;
6082 S ^ABSN="10040",^ITEM="I-608.2  A1BCDE",^NEXT="6083^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S ^VCOMP=""
A1BCDE S ^VCOMP="A1BCDE"
 S ^VCORR="A1BCDE" D ^VEXAMINE
 ;
6083 S ^ABSN="10041",^ITEM="I-608.3  A1234B",^NEXT="610^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S ^VCOMP=""
A1234B S ^VCOMP="A1234B"
 S ^VCORR="A1234B" D ^VEXAMINE
 ;
610 W !,"I-610  Maximum length of label"
6101 S ^ABSN="10042",^ITEM="I-610.1  88888888",^NEXT="6102^V1LL3,V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
88888888 S VCOMP="88888888"
 S ^VCOMP=VCOMP,^VCORR="88888888" D ^VEXAMINE
 ;
6102 S ^ABSN="10043",^ITEM="I-610.2  %AB777Z0",^NEXT="V1PRGD^VV1" D ^V1PRESET
 S VCOMP=""
%AB777Z0 S VCOMP="%AB777Z0"
 S ^VCOMP=VCOMP,^VCORR="%AB777Z0" D ^VEXAMINE
 ;
END W !!,"End of 6---V1LL3",!
 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

V1PRGD
V1PRGD ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;PRELIMINARY TEST OF GOTO, DO AND QUIT (EXPLICIT AND IMPLICIT) COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"7---V1PRGD: Preliminary test of GOTO, DO and QUIT (explicit and implicit) commands",!
726 W !,"I-726  GOTO label"
7261 S ^ABSN="10044",^ITEM="I-726.1  ABCD",^NEXT="7262^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-726.1"
 GOTO ABCD S VCOMP=VCOMP_" ERROR"
 S VCOMP=VCOMP_" ERROR NEXT LINE"
 ;
ABCD S ^VCOMP=VCOMP,^VCORR="I-726.1" D ^VEXAMINE
7262 S ^ABSN="10045",^ITEM="I-726.2  3",^NEXT="7263^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-726.2"
 G 3 S VCOMP=VCOMP_" ERROR 3"
 S VCOMP=VCOMP_" ERROR 3 NEXT LINE"
 ;
3 S ^VCOMP=VCOMP,^VCORR="I-726.2" D ^VEXAMINE
7263 S ^ABSN="10046",^ITEM="I-726.3  FOUR4",^NEXT="727^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-726.3"
 GOTO FOUR4 S VCOMP=VCOMP_" ERROR FOUR4"
 S VCOMP=VCOMP_" ERROR FOUR4 next line"
 ;
FOUR4 S ^VCOMP=VCOMP,^VCORR="I-726.3" D ^VEXAMINE
 ;
727 W !,"I-727/729/730  DO label, termination of DO command by explicit and implicit QUITs"
7271 S ^ABSN="10047",^ITEM="I-727/729/730.1  DO 2(label), explicit QUIT",^NEXT="7272^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-727.1 "
 DO 2 S VCOMP=VCOMP_" 2"
 S ^VCOMP=VCOMP,^VCORR="I-727.1 1 2" D ^VEXAMINE
 ;
7272 S ^ABSN="10048",^ITEM="I-727/729/730.2  DO YOU(label), explicit QUIT",^NEXT="7273^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-727.2 "
 D YON S VCOMP=VCOMP_" Q"
 S ^VCOMP=VCOMP,^VCORR="I-727.2 A Q" D ^VEXAMINE
 ;
7273 S ^ABSN="10049",^ITEM="I-727/729/730.3  DO SIX66(label), implicit QUIT",^NEXT="728^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-727.3 "
 DO SIX66 S VCOMP=VCOMP_" QUIT"
 S ^VCOMP=VCOMP,^VCORR="I-727.3 IMPLICIT QUIT" D ^VEXAMINE
 ;
728 W !,"I-728/729/730  DO ^routineref, termination of DO command by explicit and implicit QUITs"
7281 S ^ABSN="10050",^ITEM="I-728/729/730.1  ^V1PRGD1, explicit quit",^NEXT="7282^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-728/729/730.1 "
 DO ^V1PRGD1 S VCOMP=VCOMP_" explicit quit"
 S ^VCOMP=VCOMP,^VCORR="I-728/729/730.1  ^V1PRGD1 explicit quit" D ^VEXAMINE
 ;
7282 S ^ABSN="10051",^ITEM="I-728/729/730.2  ^V1PRGD2, implicit quit",^NEXT="7283^V1PRGD,V1RN^VV1" D ^V1PRESET
 S VCOMP="I-728/729/730.2 "
 D ^V1PRGD2 S VCOMP=VCOMP_" implicit quit"
 S ^VCOMP=VCOMP,^VCORR="I-728/729/730.2  ^V1PRGD2 implicit quit" D ^VEXAMINE
 ;
7283 S ^ABSN="10052",^ITEM="I-728/729/730.3  ^V1PRGD3, implicit quit",^NEXT="V1RN^VV1" D ^V1PRESET
 S VCOMP=""
 D ^V1PRGD3 S VCOMP=VCOMP_"5"
 S ^VCOMP=VCOMP,^VCORR="12345" D ^VEXAMINE
 ;
END W !!,"End of 7---V1PRGD",!
 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
 ;
2 S VCOMP=VCOMP_"1"
 QUIT  S VCOMP=VCOMP_" ER1"
 S VCOMP=VCOMP_" ER2" Q
 Q
YON S VCOMP=VCOMP_"A" Q  ;explicit quit
 S VCOMP=VCOMP_"A NEXT LINE" Q
 QUIT
SIX66 ;
 S VCOMP=VCOMP_"IMPLICIT"
 ;IMPLICIT QUIT

V1PRGD1
V1PRGD1 ;IW-YS-TS,V1PRGD,MVTS V9.10;15/6/96;PRELIMINARY TEST OF GOTO, DO AND QUIT (EXPLICIT AND IMPLICIT) COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
728 S VCOMP=VCOMP_" ^V1PRGD1"
 QUIT  S VCOMP=VCOMP_" ^V1PRGD1-ERROR" QUIT
 S VCOMP=VCOMP_" ^V1PRGD1 next line"
 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

V1PRGD2
V1PRGD2 ;IW-YS-TS,V1PRGD,MVTS V9.10;15/6/96;PRELIMINARY TEST OF GOTO, DO AND QUIT (EXPLICIT AND IMPLICIT) COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_" ^V1PRGD2"
 G AAA
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
AAA ;IMPLICIT QUIT

V1PRGD3
V1PRGD3 ;IW-YS-TS,V1PRGD,MVTS V9.10;15/6/96;PRELIMINARY TEST OF GOTO, DO AND QUIT (EXPLICIT AND IMPLICIT) COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_1 D A
 S VCOMP=VCOMP_3 G B
 S VCOMP=VCOMP_"ERROR2" 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
 ;
A S VCOMP=VCOMP_2 Q
B S VCOMP=VCOMP_4

V1RN
V1RN ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE ROUTINE NAMES
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"8---V1RN: Acceptable routine names",!
776 W !,"I-776  routinename is ""%"""
 S ^ABSN="10053",^ITEM="I-776  routinename is ""%""",^NEXT="777^V1RN,V1PRSET^VV1" D ^V1PRESET
 S VCOMP="" D ^%
 S ^VCOMP=VCOMP,^VCORR="% " D ^VEXAMINE
 ;
777 W !,"I-777  routinename is ""%"" followed by alpha and digit"
 S ^ABSN="10054",^ITEM="I-777  routinename is ""%"" followed by alpha and digit",^NEXT="778^V1RN,V1PRSET^VV1" D ^V1PRESET
 S VCOMP=""
 DO ^%1A
 S ^VCOMP=VCOMP,^VCORR="%1A " D ^VEXAMINE
 ;
778 W !,"I-778  routinename is alphas"
 S ^ABSN="10055",^ITEM="I-778  routinename is alphas",^NEXT="779^V1RN,V1PRSET^VV1" D ^V1PRESET
 S VCOMP="" D ^V
 D ^VA DO ^VAB
 D ^VABC D ^VABCD D ^VABCDE DO ^VABCDEF ;COMMENT
 S ^VCOMP=VCOMP,^VCORR="V VA VAB VABC VABCD VABCDE VABCDEF " D ^VEXAMINE
 ;
779 W !,"I-779  routinename is alpha followed by digits"
 S ^ABSN="10056",^ITEM="I-779  routinename is alpha followed by digits",^NEXT="780^V1RN,V1PRSET^VV1" D ^V1PRESET
 S VCOMP=""
 D ^V0
 D ^V01,^V012
 DO ^V4444,^V12345,^V000006
 SET ^VCOMP=VCOMP,^VCORR="V0 V01 V012 V4444 V12345 V000006 " D ^VEXAMINE
 ;
780 W !,"I-780  Maximum length of routinename"
 S ^ABSN="10057",^ITEM="I-780  Maximum length of routinename",^NEXT="V1PRSET^VV1" D ^V1PRESET
 S VCOMP="" D ^VABCDEFG
 D ^VABCDEFH
 D ^V7777777,^%2345678 D ^%BCDEFGH
 S ^VCOMP=VCOMP,^VCORR="VABCDEFG VABCDEFH V7777777 %2345678 %BCDEFGH " D ^VEXAMINE
 ;
END W !!,"End of 8---V1RN",!
 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

V
V ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V " 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

V0
V0 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V0 " 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

V000006
V000006 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V000006 " 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

V01
V01 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V01 " 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

V012
V012 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V012 " 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

V12345
V12345 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V12345 " 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

V4444
V4444 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V4444 " 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

V7777777
V7777777 ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"V7777777 " 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

VA
VA ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VA " 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

VAB
VAB ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VAB " 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

VABC
VABC ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABC " 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

VABCD
VABCD ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABCD " 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

VABCDE
VABCDE ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABCDE " 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

VABCDEF
VABCDEF ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABCDEF " 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

VABCDEFG
VABCDEFG ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABCDEFG " 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

VABCDEFH
VABCDEFH ;IW-YS-TS,V1RN,MVTS V9.10;15/6/96;CALLED BY <V1RN>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_"VABCDEFH " 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

V1PRSET
V1PRSET ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;PRELIMINARY TEST OF SET AND KILL COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"9---V1PRSET: Preliminary tests of SET and KILL commands",! W:$Y>55 #
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (9---V1PRSET) contains 4 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
734 W !,"I-734  SET local variables without subscript (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10058",^ITEM="I-734  SET local variables without subscript (by OPERATOR)",^NEXT="735^V1PRSET,V1PRIE^VV1" D ^V1PRESET
 W !,"1A"
 S A=1 W !,A
 S X="A" W X
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 734
 ;
735 W !!,"I-735  Setargument list (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10059",^ITEM="I-735  Setargument list (by OPERATOR)",^NEXT="736^V1PRSET,V1PRIE^VV1" D ^V1PRESET
 W !,"234BCD",!
 S A=2,B=3,C=4 W A,B,C
 S Y="B",Z="C",V="D" W Y,Z,V
 D MANPF1^VEXAMINE W:$Y>55 # I $D(RES)=1 I RES="AGAIN" G 735
 ;
736 W !!,"I-736  Reassignment (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10060",^ITEM="I-736  Reassignment (by OPERATOR)",^NEXT="737^V1PRSET,V1PRIE^VV1" D ^V1PRESET
 S A=1,A=2,B=3,C=4,X="A"
 S Y="B",Z="C",V="D"
 S W=A,A=B,B=C,C=X,X=Y,Y=Z,Z=V,V=W
 W !,"34ABCD22"
 W !,A,B,C,X,Y,Z,V,W
 D MANPF1^VEXAMINE W:$Y>55 # I $D(RES)=1 I RES="AGAIN" G 736
 ;
737 W !!,"I-737  KILL local variables all (by OPERATOR)"
 W !,"       Following two lines should be identical:"
 S ^ABSN="10061",^ITEM="I-737  KILL local variables all (by OPERATOR)",^NEXT="V1PRIE^VV1" D ^V1PRESET
 W !,"KILL local variables all is accepted"
KILL KILL  W !,"KILL local variables all is accepted"
 D MANPF1^VEXAMINE W:$Y>55 # I $D(RES)=1 I RES="AGAIN" G 737
 ;
END W !!,"End of 9---V1PRSET",! W:$Y>55 #
 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

V1PRIE
V1PRIE ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;PRELIMINARY TEST OF IF AND ELSE COMMANDS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"10---V1PRIE: Preliminary tests of IF and ELSE commands",!
731 W !,"I-731/733  Interpretation of ifargument and ELSE command"
7311 S ^ABSN="10062",^ITEM="I-731/733.1  ifargument is 0 ",^NEXT="7312^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 IF 0 S VCOMP=VCOMP_"/1" ELSE  S VCOMP=VCOMP_"/2"
 ELSE  S VCOMP=VCOMP_" OK"
 S ^VCOMP=VCOMP,^VCORR=" OK" D ^VEXAMINE
 ;
7312 S ^ABSN="10063",^ITEM="I-731/733.2  ifargument is 1 ",^NEXT="7313^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 1 S VCOMP=VCOMP_"/A" E  S VCOMP=VCOMP_"/3"
 E  S VCOMP=VCOMP_"/4"
 S ^VCOMP=VCOMP,^VCORR="/A" D ^VEXAMINE
 ;
7313 S ^ABSN="10064",^ITEM="I-731/733.3  ifargument is 2 ",^NEXT="7314^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 2 S VCOMP=VCOMP_"/B"
 E  S VCOMP=VCOMP_"/5"
 S ^VCOMP=VCOMP,^VCORR="/B" D ^VEXAMINE
 ;
7314 S ^ABSN="10065",^ITEM="I-731/733.4  ifargument is -1",^NEXT="7315^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I -1 S VCOMP=VCOMP_"/C"
 E  S VCOMP=VCOMP_"/6"
 S ^VCOMP=VCOMP,^VCORR="/C" D ^VEXAMINE
 ;
7315 S ^ABSN="10066",^ITEM="I-731/733.5  ifargument is -0.00000001",^NEXT="7316^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I -0.00000001 S VCOMP=VCOMP_"/D"
 E  S VCOMP=VCOMP_"/7"
 S ^VCOMP=VCOMP,^VCORR="/D" D ^VEXAMINE
 ;
7316 S ^ABSN="10067",^ITEM="I-731/733.6  List of IF command and all ifargument is true",^NEXT="7317^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 1 I 2 I 3 I 4 S VCOMP=VCOMP_"/E"
 E  S VCOMP=VCOMP_"/8"
 S ^VCOMP=VCOMP,^VCORR="/E" D ^VEXAMINE
 ;
7317 S ^ABSN="10068",^ITEM="I-731/733.7  List of IF command and a ifargument is false",^NEXT="732^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 1 I 2 I 0 I 4 S VCOMP=VCOMP_"/9"
 E  S VCOMP=VCOMP_"/F"
 S ^VCOMP=VCOMP,^VCORR="/F" D ^VEXAMINE
 ;
732 W !,"I-732/733  Argument list of IF command and ELSE command"
7321 S ^ABSN="10069",^ITEM="I-732/733.1  All ifargument is true",^NEXT="7322^V1PRIE,V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 1,2,3,-4,5 S VCOMP=VCOMP_"/G"
 E  S VCOMP=VCOMP_"/10"
 S ^VCOMP=VCOMP,^VCORR="/G" D ^VEXAMINE
 ;
7322 S ^ABSN="10070",^ITEM="I-732/733.2  A ifargument is false",^NEXT="V1PRFOR^VV1" D ^V1PRESET
 S VCOMP=""
 I 1,-2,3,0,4 S VCOMP=VCOMP_"/11"
 E  S VCOMP=VCOMP_"/H"
 S ^VCOMP=VCOMP,^VCORR="/H" D ^VEXAMINE
 ;
END W !!,"End of 10---V1PRIE",!
 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

V1PRFOR
V1PRFOR ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;PRELIMINARY TEST OF FOR COMMAND
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"11---V1PRFOR: Preliminary tests of FOR command",!
 W !,"FOR lvn=numexpr1:numexpr2:numexpr3",!
724 W !,"I-724  numexpr1<numexpr3 and numexpr2>0"
7241 S ^ABSN="10071",^ITEM="I-724.1  numexpr2=1",^NEXT="7242^V1PRFOR,V1NUM^VV1" D ^V1PRESET
 S VCOMP=""
 FOR I=1:1:10 SET VCOMP=VCOMP_I
 S ^VCOMP=VCOMP,^VCORR="12345678910" D ^VEXAMINE
 ;
7242 S ^ABSN="10072",^ITEM="I-724.2  numexpr2=3",^NEXT="725^V1PRFOR,V1NUM^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1:3:15 SET ^VCOMP=^VCOMP_I
 S ^VCORR="1471013" D ^VEXAMINE
 ;
725 W !,"I-725  numexpr1>numexpr3 and numexpr2<0"
7251 S ^ABSN="10073",^ITEM="I-725.1  numexpr2=-1",^NEXT="7252^V1PRFOR,V1NUM^VV1" D ^V1PRESET
 S ^VCOMP=""
 FOR J=1:-1:-10 SET ^VCOMP=^VCOMP_J
 S ^VCORR="10-1-2-3-4-5-6-7-8-9-10" D ^VEXAMINE
 ;
7252 S ^ABSN="10074",^ITEM="I-725.2  numexpr2=-3",^NEXT="V1NUM^VV1" D ^V1PRESET
 S VCOMP=""
 F J=1:-3:-15 SET VCOMP=VCOMP_J
 S ^VCOMP=VCOMP,^VCORR="1-2-5-8-11-14" D ^VEXAMINE
 ;
END W !!,"End of 11---V1PRFOR",!
 K  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

V1NUM
V1NUM ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERAL, SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1NUM1 W !!,"12---V1NUM1" D ^V1NUM1
V1NUM2 W !!,"13---V1NUM2" D ^V1NUM2
V1NUM3 W !!,"14---V1NUM3" D ^V1NUM3
V1NUM4 W !!,"15---V1NUM4" D ^V1NUM4
V1NUM5 W !!,"16---V1NUM5" D ^V1NUM5
V1NUM6 W !!,"17---V1NUM6" D ^V1NUM6
 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

V1NUM1
V1NUM1 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERALS -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"12---V1NUM1: Interpretation of expr to numeric literals -1-",!
662 W !,"I-662  Deletion of leading zero, while expr>1"
6621 S ^ABSN="10075",^ITEM="I-662.1  1",^NEXT="6622^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=1,^VCORR=1 D ^VEXAMINE
6622 S ^ABSN="10076",^ITEM="I-662.2  02",^NEXT="6623^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=02,^VCORR=2 D ^VEXAMINE
6623 S ^ABSN="10077",^ITEM="I-662.3  0003",^NEXT="6624^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0003,^VCORR=3 D ^VEXAMINE
6624 S ^ABSN="10078",^ITEM="I-662.4  00004",^NEXT="6625^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=00004,^VCORR=4 D ^VEXAMINE
6625 S ^ABSN="10079",^ITEM="I-662.5  0000050",^NEXT="6626^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000050,^VCORR=50 D ^VEXAMINE
6626 S ^ABSN="10080",^ITEM="I-662.6  0000006",^NEXT="6627^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000006,^VCORR=6 D ^VEXAMINE
6627 S ^ABSN="10081",^ITEM="I-662.7  00000007000",^NEXT="6628^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=00000007000,^VCORR=7000 D ^VEXAMINE
6628 S ^ABSN="10082",^ITEM="I-662.8  000000000000000000",^NEXT="6629^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=000000000000000000,^VCORR=0 D ^VEXAMINE
6629 S ^ABSN="10083",^ITEM="I-662.9  0000000000000000000000000000000000000000000000012300",^NEXT="66210^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000000000000000000000000000000000000000000000012300,^VCORR=12300 D ^VEXAMINE
66210 S ^ABSN="10084",^ITEM="I-662.10  0000050.002",^NEXT="66211^V1NUM1,V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000050.002,^VCORR=50.002 D ^VEXAMINE
66211 S ^ABSN="10085",^ITEM="I-662.11  000000645.23000",^NEXT="V1NUM2^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=000000645.23000,^VCORR=645.23 D ^VEXAMINE
 ;
END W !!,"End of 12---V1NUM1",!
 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

V1NUM2
V1NUM2 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERALS -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"13---V1NUM2: Interpretation of expr to numeric literals -2-",!
 ;
663 W !,"I-663  Deletion of leading zero, while expr<1"
6631 S ^ABSN="10086",^ITEM="I-663.1  -1",^NEXT="6632^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-1,^VCORR=-1 D ^VEXAMINE
6632 S ^ABSN="10087",^ITEM="I-663.2  -02",^NEXT="6633^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-02,^VCORR=-2 D ^VEXAMINE
6633 S ^ABSN="10088",^ITEM="I-663.3  -0003",^NEXT="6634^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0003,^VCORR=-3 D ^VEXAMINE
6634 S ^ABSN="10089",^ITEM="I-663.4  -00004",^NEXT="6635^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00004,^VCORR=-4 D ^VEXAMINE
6635 S ^ABSN="10090",^ITEM="I-663.5  -0000050",^NEXT="6636^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0000050,^VCORR=-50 D ^VEXAMINE
6636 S ^ABSN="10091",^ITEM="I-663.6  -0000006",^NEXT="6637^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0000006,^VCORR=-6 D ^VEXAMINE
6637 S ^ABSN="10092",^ITEM="I-663.7  -00000007000",^NEXT="6638^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000007000,^VCORR=-7000 D ^VEXAMINE
6638 S ^ABSN="10093",^ITEM="I-663.8  -000000000000000000",^NEXT="6639^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-000000000000000000,^VCORR=0 D ^VEXAMINE
6639 S ^ABSN="10094",^ITEM="I-663.9  -0000000000000000000000000000000000000000000000012300",^NEXT="66310^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0000000000000000000000000000000000000000000000012300,^VCORR=-12300 D ^VEXAMINE
66310 S ^ABSN="10095",^ITEM="I-663.10  -0000006.034501",^NEXT="66311^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0000006.034501,^VCORR=-6.034501 D ^VEXAMINE
66311 S ^ABSN="10096",^ITEM="I-663.11  -00000007000.00900000",^NEXT="664^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000007000.00900000,^VCORR=-7000.00900000 D ^VEXAMINE
 ;
664 W !,"I-664  Deletion of trailing zero, while expr is integer"
6641 S ^ABSN="10097",^ITEM="I-664.1  1.0",^NEXT="6642^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=1.0,^VCORR=1 D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
6642 S ^ABSN="10098",^ITEM="I-664.2  2.000000",^NEXT="6643^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=2.000000,^VCORR=2 D ^VEXAMINE
6643 S ^ABSN="10099",^ITEM="I-664.3  3200.0000000000",^NEXT="6644^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=3200.0000000000,^VCORR=3200 D ^VEXAMINE
6644 S ^ABSN="10100",^ITEM="I-664.4  -3.00000000",^NEXT="6645^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-3.00000000,^VCORR=-3 D ^VEXAMINE
6645 S ^ABSN="10101",^ITEM="I-664.5  -300.0000000000",^NEXT="6646^V1NUM2,V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-300.0000000000,^VCORR=-300 D ^VEXAMINE
6646 S ^ABSN="10102",^ITEM="I-664.6  -.0000000000000000000",^NEXT="V1NUM3^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-.0000000000000000000,^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 13---V1NUM2",!
 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

V1NUM3
V1NUM3 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERAL -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"14---V1NUM3: Interpretation of expr to numeric literals -3-",!
665 W !,"I-665  Deletion of trailing zero, while expr is non-integer"
6651 S ^ABSN="10103",^ITEM="I-665.1  1.23",^NEXT="6652^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=1.23,^VCORR=1.23 D ^VEXAMINE
6652 S ^ABSN="10104",^ITEM="I-665.2  456.7890",^NEXT="6653^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=456.7890,^VCORR=456.789 D ^VEXAMINE
6653 S ^ABSN="10105",^ITEM="I-665.3  0.0100",^NEXT="6654^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0.0100,^VCORR=.01 D ^VEXAMINE
6654 S ^ABSN="10106",^ITEM="I-665.4  .020",^NEXT="6655^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=.020,^VCORR=.02 D ^VEXAMINE
6655 S ^ABSN="10107",^ITEM="I-665.5  -.0000500000",^NEXT="6656^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-.0000500000,^VCORR=-.00005 D ^VEXAMINE
6656 S ^ABSN="10108",^ITEM="I-665.6  000001.000100000",^NEXT="6657^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=000001.000100000,^VCORR=1.0001 D ^VEXAMINE
6657 S ^ABSN="10109",^ITEM="I-665.7  -00000.200000",^NEXT="6658^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000.200000,^VCORR=-.2 D ^VEXAMINE
6658 S ^ABSN="10110",^ITEM="I-665.8  00000000.000000",^NEXT="6659^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=00000000.000000,^VCORR=0 D ^VEXAMINE
6659 S ^ABSN="10111",^ITEM="I-665.9  -00000.0000000",^NEXT="666^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000.0000000,^VCORR=0 D ^VEXAMINE
 ;
666 W !,"I-666  Abbreviation of multiple minus sign (-)"
6661 S ^ABSN="10112",^ITEM="I-666.1  -432",^NEXT="6662^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-432,^VCORR=-432 D ^VEXAMINE
6662 S ^ABSN="10113",^ITEM="I-666.2  --06.54",^NEXT="6663^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=--06.54,^VCORR=6.54 D ^VEXAMINE
6663 S ^ABSN="10114",^ITEM="I-666.3  ---432E-001",^NEXT="6664^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=---432E-001,^VCORR=-43.2 D ^VEXAMINE
6664 S ^ABSN="10115",^ITEM="I-666.4  ----6.540E-3",^NEXT="6665^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=----6.540E-3,^VCORR=.00654 D ^VEXAMINE
6665 S ^ABSN="10116",^ITEM="I-666.5  -+--+-000000432.000000",^NEXT="6666^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-+--+-000000432.000000,^VCORR=432 D ^VEXAMINE
6666 S ^ABSN="10117",^ITEM="I-666.6  ---+6.5400E00000003",^NEXT="6667^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=---+6.5400E00000003,^VCORR=-6540 D ^VEXAMINE
6667 S ^ABSN="10118",^ITEM="I-666.7  +---000006.54E+0002",^NEXT="6668^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+---000006.54E+0002,^VCORR=-654 D ^VEXAMINE
6668 S ^ABSN="10119",^ITEM="I-666.8  +---+00006.54E-0003",^NEXT="6669^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+---+00006.54E-0003,^VCORR=-.00654 D ^VEXAMINE
6669 S ^ABSN="10120",^ITEM="I-666.9  +6.540000000000000E-3",^NEXT="66610^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+6.540000000000000E-3,^VCORR=.00654 D ^VEXAMINE
66610 S ^ABSN="10121",^ITEM="I-666.10  ++06.54E-2",^NEXT="66611^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=++06.54E-2,^VCORR=.0654 D ^VEXAMINE
66611 S ^ABSN="10122",^ITEM="I-666.11  -+000.0654E+2",^NEXT="66612^V1NUM3,V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-+000.0654E+2,^VCORR=-6.54 D ^VEXAMINE
66612 S ^ABSN="10123",^ITEM="I-666.12  -0",^NEXT="V1NUM4^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0,^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 14---V1NUM3",!
 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

V1NUM4
V1NUM4 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERAL -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"15---V1NUM4: Interpretation of expr to numeric literals -4-",!
667 W !,"I-667  Location of point (.), when exp exist"
6671 S ^ABSN="10124",^ITEM="I-667.1  0000000432E-1",^NEXT="6672^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000000432E-1,^VCORR=43.2 D ^VEXAMINE
6672 S ^ABSN="10125",^ITEM="I-667.2  6.54000E-3",^NEXT="6673^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=6.54000E-3,^VCORR=.00654 D ^VEXAMINE
6673 S ^ABSN="10126",^ITEM="I-667.3  -0432E-1",^NEXT="6674^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0432E-1,^VCORR=-43.2 D ^VEXAMINE
6674 S ^ABSN="10127",^ITEM="I-667.4  -6.054E-3",^NEXT="6675^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-6.054E-3,^VCORR=-.006054 D ^VEXAMINE
6675 S ^ABSN="10128",^ITEM="I-667.5  432E1",^NEXT="6676^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=432E1,^VCORR=4320 D ^VEXAMINE
6676 S ^ABSN="10129",^ITEM="I-667.6  6.54E3",^NEXT="6677^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=6.54E3,^VCORR=6540 D ^VEXAMINE
6677 S ^ABSN="10130",^ITEM="I-667.7  -432E1",^NEXT="6678^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-432E1,^VCORR=-4320 D ^VEXAMINE
6678 S ^ABSN="10131",^ITEM="I-667.8  -6.54E3",^NEXT="6679^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-6.54E3,^VCORR=-6540 D ^VEXAMINE
6679 S ^ABSN="10132",^ITEM="I-667.9  432E+1",^NEXT="66710^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=432E+1,^VCORR=4320 D ^VEXAMINE
66710 S ^ABSN="10133",^ITEM="I-667.10  6.54E+3",^NEXT="66711^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=6.54E+3,^VCORR=6540 D ^VEXAMINE
66711 S ^ABSN="10134",^ITEM="I-667.11  -432E+1",^NEXT="66712^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-432E+1,^VCORR=-4320 D ^VEXAMINE
66712 S ^ABSN="10135",^ITEM="I-667.12  -6.54E+3",^NEXT="66713^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-6.54E+3,^VCORR=-6540 D ^VEXAMINE
66713 S ^ABSN="10136",^ITEM="I-667.13  0E-0",^NEXT="66714^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0E-0,^VCORR=0 D ^VEXAMINE
66714 S ^ABSN="10137",^ITEM="I-667.14  -0E0",^NEXT="66715^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-0E0,^VCORR=0 D ^VEXAMINE
66715 S ^ABSN="10138",^ITEM="I-667.15  0000E9",^NEXT="66716^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=0000E9,^VCORR=0 D ^VEXAMINE
66716 S ^ABSN="10139",^ITEM="I-667.16  -00000E-9",^NEXT="66717^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000E-9,^VCORR=0 D ^VEXAMINE
66717 S ^ABSN="10140",^ITEM="I-667.17  1E000",^NEXT="66718^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=1E000,^VCORR=1 D ^VEXAMINE
66718 S ^ABSN="10141",^ITEM="I-667.18  -1E-0000",^NEXT="66719^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-1E-0000,^VCORR=-1 D ^VEXAMINE
66719 S ^ABSN="10142",^ITEM="I-667.19  -00000.00000E+000000",^NEXT="66720^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-00000.00000E+000000,^VCORR=0 D ^VEXAMINE
66720 S ^ABSN="10143",^ITEM="I-667.20  000000.000000E+000000",^NEXT="66721^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=000000.000000E+000000,^VCORR=0 D ^VEXAMINE
66721 S ^ABSN="10144",^ITEM="I-667.21  000000.000000E000000",^NEXT="66722^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=000000.000000E000000,^VCORR=0 D ^VEXAMINE
66722 S ^ABSN="10145",^ITEM="I-667.22  .000005E007",^NEXT="66723^V1NUM4,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=.000005E007,^VCORR=50 D ^VEXAMINE
66723 S ^ABSN="10146",^ITEM="I-667.23  00000.123000000000000000000000000000000000000000000000000",^NEXT="V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=00000.123000000000000000000000000000000000000000000000000,^VCORR=.123 D ^VEXAMINE
 ;
END W !!,"End of 15---V1NUM4",!
 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

V1NUM5
V1NUM5 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERAL -5-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"16---V1NUM5: Interpretation of expr to numeric literals -5-",!
668 W !,"I-668  Interpretation of ""head"" of string literal"
6681 S ^ABSN="10147",^ITEM="I-668.1  .$",^NEXT="6682^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+".$",^VCORR=0 D ^VEXAMINE
6682 S ^ABSN="10148",^ITEM="I-668.2  - 1",^NEXT="6683^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"- 1",^VCORR=0 D ^VEXAMINE
6683 S ^ABSN="10149",^ITEM="I-668.3  543.QWERTY",^NEXT="6684^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-"543.QWERTY",^VCORR=-543 D ^VEXAMINE
6684 S ^ABSN="10150",^ITEM="I-668.4  00098765432NUMLIT",^NEXT="6685^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"00098765432NUMLIT",^VCORR=98765432 D ^VEXAMINE
6685 S ^ABSN="10151",^ITEM="I-668.5  987600.0000END",^NEXT="6686^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"987600.0000END",^VCORR=987600 D ^VEXAMINE
6686 S ^ABSN="10152",^ITEM="I-668.6  4560.023000000DOIT",^NEXT="6687^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"4560.023000000DOIT",^VCORR=4560.023 D ^VEXAMINE
6687 S ^ABSN="10153",^ITEM="I-668.7  76540E0000002 999",^NEXT="6688^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"76540E0000002 999",^VCORR=7654000 D ^VEXAMINE
6688 S ^ABSN="10154",^ITEM="I-668.8  000.0056800E4GOLD",^NEXT="6689^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-"000.0056800E4GOLD",^VCORR=-56.8 D ^VEXAMINE
6689 S ^ABSN="10155",^ITEM="I-668.9  00.02350E7SEASON",^NEXT="66810^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"00.02350E7SEASON",^VCORR=235000 D ^VEXAMINE
66810 S ^ABSN="10156",^ITEM="I-668.10  067.8900000E00000ZERO",^NEXT="66811^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"067.8900000E00000ZERO",^VCORR=67.89 D ^VEXAMINE
66811 S ^ABSN="10157",^ITEM="I-668.11  098765E-10""99",^NEXT="66812^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-"098765E-10""99",^VCORR=-.0000098765 D ^VEXAMINE
66812 S ^ABSN="10158",^ITEM="I-668.12  8594E-3",^NEXT="66813^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"8594E-3",^VCORR=8.594 D ^VEXAMINE
66813 S ^ABSN="10159",^ITEM="I-668.13  102.030E+02",^NEXT="66814^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"102.030E+02",^VCORR=10203 D ^VEXAMINE
66814 S ^ABSN="10160",^ITEM="I-668.14  10.20.34",^NEXT="66815^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"10.20.34",^VCORR=10.2 D ^VEXAMINE
66815 S ^ABSN="10161",^ITEM="I-668.15  --234.5",^NEXT="66816^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"--234.5",^VCORR=234.5 D ^VEXAMINE
66816 S ^ABSN="10162",^ITEM="I-668.16  .-23",^NEXT="66817^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+".-23",^VCORR=0 D ^VEXAMINE
66817 S ^ABSN="10163",^ITEM="I-668.17  -.""",^NEXT="66818^V1NUM5,V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"-.""",^VCORR=0 D ^VEXAMINE
66818 S ^ABSN="10164",^ITEM="I-668.18  -1-5",^NEXT="V1NUM5^V1NUM,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"-1-5",^VCORR=-1 D ^VEXAMINE
 ;
END W !!,"End of 16---V1NUM5",!
 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

V1NUM6
V1NUM6 ;IW-YS-TS,V1NUM,MVTS V9.10;15/6/96;INTERPRETATION OF EXPR TO NUMERIC LITERAL -6-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"17---V1NUM6: Interpretation of expr to numeric literals -6-",!
 ;
66819 S ^ABSN="10165",^ITEM="I-668.19  45.6300E-ABV",^NEXT="66820^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"45.6300E-ABV",^VCORR=45.63 D ^VEXAMINE
66820 S ^ABSN="10166",^ITEM="I-668.20  3455E2.4",^NEXT="66821^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"3455E2.4",^VCORR=345500 D ^VEXAMINE
66821 S ^ABSN="10167",^ITEM="I-668.21  234E++2",^NEXT="66822^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-"234E++2",^VCORR=-234 D ^VEXAMINE
66822 S ^ABSN="10168",^ITEM="I-668.22  120.02000E--3",^NEXT="66823^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"120.02000E--3",^VCORR=120.02 D ^VEXAMINE
66823 S ^ABSN="10169",^ITEM="I-668.23  1234e2",^NEXT="66824^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"1234e2",^VCORR=1234 D ^VEXAMINE
66824 S ^ABSN="10170",^ITEM="I-668.24  0000007D2",^NEXT="66825^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=-"0000007D2",^VCORR=-7 D ^VEXAMINE
66825 S ^ABSN="10171",^ITEM="I-668.25  879F+3",^NEXT="66826^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"879F+3",^VCORR=879 D ^VEXAMINE
66826 S ^ABSN="10172",^ITEM="I-668.26  .  23",^NEXT="66827^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+".  23",^VCORR=0 D ^VEXAMINE
66827 S ^ABSN="10173",^ITEM="I-668.27  000087:123",^NEXT="66828^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"000087:123",^VCORR=87 D ^VEXAMINE
66828 S ^ABSN="10174",^ITEM="I-668.28  876,897",^NEXT="66829^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"876,897",^VCORR=876 D ^VEXAMINE
66829 S ^ABSN="10175",^ITEM="I-668.29  """"",^NEXT="66830^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"",^VCORR=0 D ^VEXAMINE
66830 S ^ABSN="10176",^ITEM="I-668.30  ONE",^NEXT="66831^V1NUM6,V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"ONE",^VCORR=0 D ^VEXAMINE
66831 S ^ABSN="10177",^ITEM="I-668.31  $1.502",^NEXT="V1FC^VV1" D ^V1PRESET
 S ^VCOMP=+"$1.502",^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 17---V1NUM6",!
 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

V1FC
V1FC ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FORMAT CONTROL CHARACTERS  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1FC1 W !!,"18---V1FC1" D ^V1FC1
V1FC2 W !!,"19---V1FC2" D ^V1FC2
V1FC3 W !!,"20---V1FC3" D ^V1FC3
 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

V1FC1
V1FC1 ;IW-YS-TS,V1FC,MVTS V9.10;15/6/96;FORMAT CONTROL CHARACTERS -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 I $Y>50 W #
 W !!,"18---V1FC1: Format control characters -1-",!
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (18---V1FC1) contains 6 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
248 I $Y>50 W #
 W !!,"I-248  Parameters occur in a single instance of format (by OPERATOR)"
 S ^ABSN="10178",^ITEM="I-248  Parameters occur in a single instance of format (by OPERATOR)",^NEXT="249^V1FC1,V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"       12345"
 W !
 W ?7
 W 12345
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 248
 ;
249 I $Y>50 W #
 W !!,"I-249  ""New line"" operation by ! (by OPERATOR)"
 S ^ABSN="10179",^ITEM="I-249  ""New line"" operation by ! (by OPERATOR)",^NEXT="250^V1FC1,V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"""New line"" operation by !",!,"""New line"" operation by !"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 249
 ;
250 W !!,"I-250  ""Top of page"" operation by # (by OPERATOR)"
 S ^ABSN="10180",^ITEM="I-250  ""Top of page"" operation by # (by OPERATOR)",^NEXT="251^V1FC1,V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W #,"Top of page operation by #"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 250
 ;
251 I $Y>50 W #
 W !!,"I-251  Effect of comma in WRITE command (by OPERATOR)"
 S ^ABSN="10181",^ITEM="I-251  Effect of comma in WRITE command (by OPERATOR)",^NEXT="252^V1FC1,V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"01 0 000 A",$C(34),"B ABC"
 W !,0,1," ",000," ",0,0,0," ","A""B"," ","A","B","C"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 251
 ;
252 I $Y>50 W #
 W !!,"I-252  Effect of comma between ""new line operator"" (!) (by OPERATOR)"
 S ^ABSN="10182",^ITEM="I-252  Effect of comma between ""new line operator"" (!) (by OPERATOR)",^NEXT="253^V1FC1,V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       CORRECT OUTPUT: 5 ROWS OF ASTERISKS; 1ST AND 2ND ROWS SINGLE"
 W !,"       PACED, 2ND AND 3RD SKIP ONE LINE, 3RD AND 4TH SKIP 2 LINES,"
 W !,"       4TH AND 5TH SKIP 3 LINES",!!
 I $Y>50 W #
 W "*****",!,"*****",!!,"*****",!,!,!,"*****",!!!!,"*****"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 252
 ;
253 I $Y>50 W #
 W !!,"I-253  Effect of comment delimiter on format (by OPERATOR)"
 S ^ABSN="10183",^ITEM="I-253  Effect of comment delimiter on format (by OPERATOR)",^NEXT="V1FC2^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"COMMENT DELIMITERS ;OUTPUT IS ON ONE LINE"
 W !,"COMMENT DELIMITERS ;" ; THIS SHOULD BE IGNORED
 ; IGNORE THIS, TOO
 W "OUTPUT IS ON ONE LINE"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 253
 ;
END W !!!,"End of 18---V1FC1",!
 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

V1FC2
V1FC2 ;IW-YS-TS,V1FC,MVTS V9.10;15/6/96;FORMAT CONTROL CHARACTERS -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 I $Y>50 W #
 W !!,"19---V1FC2: Format control characters -2-",!
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (19---V1FC2) contains 3 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
254 I $Y>50 W #
 W !!!,"Tab operation  ?intexpr"
 I $Y>50 W #
 W !!,"I-254  intexpr is positive integer (by OPERATOR)"
 S ^ABSN="10184",^ITEM="I-254  intexpr is positive integer (by OPERATOR)",^NEXT="255^V1FC2,V1FC3^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical: (five times)"
 I $Y>50 W #
 W !,"          1         2         3         4         5         6"
 W !,?10,1,?20,2,?30,3,?40,4,?50,5,?60,6
 W !,"12345     12345     12345     12345     12345     12345     12345"
 W !,12345,?10,12345,?20,12345,?30,12345,?40,12345,?50,12345
 W ?60,12345
 I $Y>50 W #
 W !,"          A         B         C         D         E         F"
 W !?10,"A",?20,"B",?30,"C",?40,"D",?50,"E",?60,"F"
 W !,"ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH"
 W !,"ABCDEFGH",?10,"ABCDEFGH",?20,"ABCDEFGH",?30,"ABCDEFGH",?40
 W "ABCDEFGH",?50,"ABCDEFGH",?60,"ABCDEFGH"
 W !,"1.23      -1.23     123       123       0         0         10"
 W !,1.23,?10,-1.23,?20,000000123,?30,000000123.00000,?40,-.000000,?50,00000E000,?60,1E1
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 254
 ;
255 I $Y>50 W #
 W !!!,"I-255  intexpr is zero (by OPERATOR)"
 S ^ABSN="10185",^ITEM="I-255  intexpr is zero (by OPERATOR)",^NEXT="256^V1FC2,V1FC3^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following three lines should be identical:"
 W !,"12345     12345     12345     12345     12345     12345     12345"
 W !?00,12345.0,?10,012345,?20,0012345,?30,12345.000,?40,12345,?50,12345,?60,12345
 W !?"ABC",12345,?0,?10,12345,?20,12345,?30.2000,12345,?40.0,12345.00000,?50,12345,?60,123_45
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 255
 ;
256 I $Y>50 W #
 W !!!,"I-256  intexpr less than zero (by OPERATOR)"
 S ^ABSN="10186",^ITEM="I-256  intexpr less than zero (by OPERATOR)",^NEXT="V1FC3^V1FC,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"ABC       ABC       ABC       ABC       ABC       ABC       ABC"
 W !,"ABC       AB",?-10,"C       ABC       A",?-20,"BC",?30,"       A",?-40,"BC",?50,"ABC",?60,"ABC"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 256
 ;
END W !!,"End of 19---V1FC2",!
 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

V1FC3
V1FC3 ;IW-YS-TS,V1FC,MVTS V9.10;15/6/96;FORMAT CONTROL CHARACTERS -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 I $Y>50 W #
 W !!,"20---V1FC3: Format control characters -3-",!
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (20---V1FC3) contains 6 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
257 I $Y>50 W #
 W !!!,"I-257  intexpr is non-integer numeric literal (by OPERATOR)"
 S ^ABSN="10187",^ITEM="I-257  intexpr is non-integer numeric literal (by OPERATOR)",^NEXT="258^V1FC3,V1UO^VV1" D ^V1PRESET
 W !,"       Following three lines should be identical:"
 W !,"          1         2         3         4         5         6"
 W !,?10.0,1,?20.1,2,?30.4,3,?40.550,4,?50.9,5,?60.99999,6
 W !,"  ",?10.00,"1",?2.0E1,1+1,?305E-1,"3",?409E-01
 W "4",?000050.19,"5",?0060.990000,"6"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 257
 ;
258 I $Y>50 W #
 W !!!,"I-258  intexpr contains binary operator (by OPERATOR)"
 S ^ABSN="10188",^ITEM="I-258  intexpr contains binary operator (by OPERATOR)",^NEXT="259^V1FC3,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"-12345    -12345    -12345    -12345    -12345    -12345    -12345"
 W !?-3,-12345,?10.9,-12345,?1='0+19,-12345,?"30A",-12345,?4E1,-12345
 W ?1=1>0*50,-12345,?-40+"100",-12345
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 258
 ;
259 I $Y>50 W #
 W !!!,"I-259  intexpr contains unary operator (by OPERATOR)"
 S ^ABSN="10189",^ITEM="I-259  intexpr contains unary operator (by OPERATOR)",^NEXT="260^V1FC3,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"          A         B         C         D         E         F"
 W !?+10,"A",?++"20","B",?+"30ABC","C",?-"-40QWE","D",?"5E1AKLS"
 W "E",?--"6000E-2 1234","F"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 259
 ;
260 I $Y>50 W #
 W !!!,"I-260  intexpr is a function (by OPERATOR)"
 S ^ABSN="10190",^ITEM="I-260  intexpr is a function (by OPERATOR)",^NEXT="261^V1FC3,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH"
 W !,"ABCDEFGH",?$E(20301040,5,6),"ABCDEFGH",?2_0,"ABCDEFGH"
 W ?$P("10^20^30^40","^",3),"ABCDEFGH",?$F("ABCDEF","C")_0
 W "ABCDEFGH",?50,"ABCDEFGH",?$A("<"),"ABCDEFGH"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 260
 ;
261 I $Y>50 W #
 W !!!,"I-261  intexpr is variable name (by OPERATOR)"
 S ^ABSN="10191",^ITEM="I-261  intexpr is variable name (by OPERATOR)",^NEXT="262^V1FC3,V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"BBBBBBBB  BBBBBBBB  BBBBBBBB  BBBBBBBB  BBBBBBBB  BBBBBBBB  BBBBBBBB"
 S A="#",B="BBBBBBBB",C=10,D=20.5,E="30",A(4)=40
 W !,?A,B,?C,B,?D,B,?E,B,?A(4),B,?A(4)+10,B,?A+A(4)+D,B
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 261
 ;
262 I $Y>50 W #
 W !!!,"I-262  intexpr is greater than $X (by OPERATOR)"
 S ^ABSN="10192",^ITEM="I-262  intexpr is greater than $X (by OPERATOR)",^NEXT="V1UO^VV1" D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"ABC       ABC       ABC       ABC       ABC       ABC       ABC"
 W !,"ABC       AB",?10,"C       ABC       A",?20,"BC",?30,"       A",?40,"BC",?50,"ABC",?60,"ABC"
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 262
 ;
END W !!!,"End of 20---V1FC3",!
 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

V1UO
V1UO ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;UNARY OPERATOR  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1UO1A W !!,"21---V1UO1A" D ^V1UO1A
V1UO1B W !!,"22---V1UO1B" D ^V1UO1B
V1UO1C W !!,"23---V1UO1C" D ^V1UO1C
V1UO2A W !!,"24---V1UO2A" D ^V1UO2A
V1UO2B W !!,"25---V1UO2B" D ^V1UO2B
V1UO2C W !!,"26---V1UO2C" D ^V1UO2C
V1UO3A W !!,"27---V1UO3A" D ^V1UO3A
V1UO3B W !!,"28---V1UO3B" D ^V1UO3B
V1UO3C W !!,"29---V1UO3C" D ^V1UO3C
V1UO4A W !!,"30---V1UO4A" D ^V1UO4A
V1UO4B W !!,"31---V1UO4B" D ^V1UO4B
V1UO4C W !!,"32---V1UO4C" D ^V1UO4C
V1UO5A W !!,"33---V1UO5A" D ^V1UO5A
V1UO5B W !!,"34---V1UO5B" D ^V1UO5B
V1UO5C W !!,"35---V1UO5C" D ^V1UO5C
 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

V1UO1A
V1UO1A ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"21---V1UO1A: Unary operator -1-",!
798 W !,"I-798  Plus unary operator",!
7981 W !,"I-798.1  Plus unary operator and a numlit"
79811 S ^ABSN="10193",^ITEM="I-798.1.1  +0",^NEXT="79812^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+0 S ^VCORR="0" D ^VEXAMINE
79812 S ^ABSN="10194",^ITEM="I-798.1.2  +1",^NEXT="79813^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+1 S ^VCORR="1" D ^VEXAMINE
79813 S ^ABSN="10195",^ITEM="I-798.1.3  +intlit",^NEXT="79814^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+2 S ^VCORR="2" D ^VEXAMINE
79814 S ^ABSN="10196",^ITEM="I-798.1.4  +.intlit",^NEXT="79815^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+.2 S ^VCORR=".2" D ^VEXAMINE
79815 S ^ABSN="10197",^ITEM="I-798.1.5  +intlit.intlit",^NEXT="79816^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+2.2 S ^VCORR="2.2" D ^VEXAMINE
79816 S ^ABSN="10198",^ITEM="I-798.1.6  +mantEintlit",^NEXT="79817^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+2.2E2 S ^VCORR="220" D ^VEXAMINE
79817 S ^ABSN="10199",^ITEM="I-798.1.7  +mantE+intlit",^NEXT="79818^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+2.2E+2 S ^VCORR="220" D ^VEXAMINE
79818 S ^ABSN="10200",^ITEM="I-798.1.8  +mantE-intlit",^NEXT="7982^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+2.2E-2 S ^VCORR=".022" D ^VEXAMINE
 ;
7982 W !,"I-798.2  Plus unary operator and a strlit"
79821 S ^ABSN="10201",^ITEM="I-798.2.1  +""0""",^NEXT="79822^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"0",^VCORR="0" D ^VEXAMINE
79822 S ^ABSN="10202",^ITEM="I-798.2.2  +""1""",^NEXT="79823^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"1",^VCORR="1" D ^VEXAMINE
79823 S ^ABSN="10203",^ITEM="I-798.2.3  +strlit",^NEXT="79824^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2ABCD",^VCORR="2" D ^VEXAMINE
79824 S ^ABSN="10204",^ITEM="I-798.2.4  +.intlit",^NEXT="79825^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+".2EAS",^VCORR=".2" D ^VEXAMINE
79825 S ^ABSN="10205",^ITEM="I-798.2.5  +intlit.intlit",^NEXT="79826^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2.2.2B",^VCORR="2.2" D ^VEXAMINE
79826 S ^ABSN="10206",^ITEM="I-798.2.6  +mantEintlit",^NEXT="79827^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2.2E2",^VCORR="220" D ^VEXAMINE
79827 S ^ABSN="10207",^ITEM="I-798.2.7  +mantE+intlit",^NEXT="79828^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2.2E+2.9000",^VCORR="220" D ^VEXAMINE
79828 S ^ABSN="10208",^ITEM="I-798.2.8  +mantE-intlit",^NEXT="79829^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2.2E-2-1S",^VCORR=".022" D ^VEXAMINE
 ;
79829 S ^ABSN="10209",^ITEM="I-798.2.9  +empty string",^NEXT="798210^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"",^VCORR="0" D ^VEXAMINE
798210 S ^ABSN="10210",^ITEM="I-798.2.10  +""AB2""",^NEXT="798211^V1UO1A,V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"AB2",^VCORR="0" D ^VEXAMINE
798211 S ^ABSN="10211",^ITEM="I-798.2.11  +""2A2B""",^NEXT="V1UO1B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"2A2B",^VCORR="2" D ^VEXAMINE
 ;
END W !!,"End of 21---V1UO1A",!
 K  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

V1UO1B
V1UO1B ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"22---V1UO1B: Unary operator -2-",!
7983 W !,"I-798.3  Plus unary operator and a strlit contains plus operator"
79831 S ^ABSN="10212",^ITEM="I-798.3.1  +""+0""",^NEXT="79832^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+0",^VCORR="0" D ^VEXAMINE
79832 S ^ABSN="10213",^ITEM="I-798.3.2  +""+1""",^NEXT="79833^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+1",^VCORR="1" D ^VEXAMINE
79833 S ^ABSN="10214",^ITEM="I-798.3.3  +strlit",^NEXT="79834^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2ABCD",^VCORR="2" D ^VEXAMINE
79834 S ^ABSN="10215",^ITEM="I-798.3.4  +"".intlit""",^NEXT="79835^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+.2EAS",^VCORR=".2" D ^VEXAMINE
79835 S ^ABSN="10216",^ITEM="I-798.3.5  +""intlit.intlit""",^NEXT="79836^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2.2B",^VCORR="2.2" D ^VEXAMINE
79836 S ^ABSN="10217",^ITEM="I-798.3.6  +""mantEintlit""",^NEXT="79837^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2.2E2",^VCORR="220" D ^VEXAMINE
79837 S ^ABSN="10218",^ITEM="I-798.3.7  +""mantE+intlit""",^NEXT="79838^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2.2E+2.3",^VCORR="220" D ^VEXAMINE
79838 S ^ABSN="10219",^ITEM="I-798.3.8  +""mantE-intlit""",^NEXT="79839^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2.2E-2-1S",^VCORR=".022" D ^VEXAMINE
79839 S ^ABSN="10220",^ITEM="I-798.3.9  +""+AB2""",^NEXT="798310^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+AB2",^VCORR="0" D ^VEXAMINE
798310 S ^ABSN="10221",^ITEM="I-798.3.10  +""+2A2B""",^NEXT="7984^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+"+2A2B",^VCORR="2" D ^VEXAMINE
 ;
7984 W !,"I-798.4  Plus unary operator and a lvn"
 ;
79841 S ^ABSN="10222",^ITEM="I-798.4.1  0",^NEXT="79842^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=0 S ^VCOMP=+A S ^VCORR="0" D ^VEXAMINE
79842 S ^ABSN="10223",^ITEM="I-798.4.2  1",^NEXT="79843^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=1 S ^VCOMP=+A S ^VCORR="1" D ^VEXAMINE
79843 S ^ABSN="10224",^ITEM="I-798.4.3  intlit",^NEXT="79844^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2 S ^VCOMP=+A S ^VCORR="2" D ^VEXAMINE
79844 S ^ABSN="10225",^ITEM="I-798.4.4  .intlit",^NEXT="79845^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=.2 S ^VCOMP=+A S ^VCORR=".2" D ^VEXAMINE
79845 S ^ABSN="10226",^ITEM="I-798.4.5  intlit.intlit",^NEXT="79846^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2 S ^VCOMP=+A S ^VCORR="2.2" D ^VEXAMINE
79846 S ^ABSN="10227",^ITEM="I-798.4.6  mantEintlit",^NEXT="79847^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E2 S ^VCOMP=+A S ^VCORR="220" D ^VEXAMINE
79847 S ^ABSN="10228",^ITEM="I-798.4.7  mantE+intlit",^NEXT="79848^V1UO1B,V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E+2 S ^VCOMP=+A S ^VCORR="220" D ^VEXAMINE
79848 S ^ABSN="10229",^ITEM="I-798.4.8  mantE-intlit",^NEXT="V1UO1C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E-2 S ^VCOMP=+A S ^VCORR=".022" D ^VEXAMINE
 ;
END W !!,"End of 22---V1UO1B",!
 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

V1UO1C
V1UO1C ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"23---V1UO1C: Unary operator -3-",!
 ;
7985 W !,"I-798.5  Plus unary operator and a lvn"
79851 S ^ABSN="10230",^ITEM="I-798.5.1  ""0""",^NEXT="79852^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="0",^VCOMP=+A S ^VCORR="0" D ^VEXAMINE
79852 S ^ABSN="10231",^ITEM="I-798.5.2  ""1""",^NEXT="79853^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="1",^VCOMP=+A S ^VCORR="1" D ^VEXAMINE
79853 S ^ABSN="10232",^ITEM="I-798.5.3  ""intlit""",^NEXT="79854^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2",^VCOMP=+A S ^VCORR="2" D ^VEXAMINE
79854 S ^ABSN="10233",^ITEM="I-798.5.4  "".intlit""",^NEXT="79855^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=".2",^VCOMP=+A S ^VCORR=".2" D ^VEXAMINE
79855 S ^ABSN="10234",^ITEM="I-798.5.5  ""intlit.intlit""",^NEXT="79856^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2",^VCOMP=+A S ^VCORR="2.2" D ^VEXAMINE
79856 S ^ABSN="10235",^ITEM="I-798.5.6  ""mantEintlit""",^NEXT="79857^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E2",^VCOMP=+A S ^VCORR="220" D ^VEXAMINE
79857 S ^ABSN="10236",^ITEM="I-798.5.7  ""mantE+intlit""",^NEXT="79858^V1UO1C,V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E+2",^VCOMP=+A S ^VCORR="220" D ^VEXAMINE
79858 S ^ABSN="10237",^ITEM="I-798.5.8  ""mantE-intlit""",^NEXT="V1UO2A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E-2",^VCOMP=+A S ^VCORR=".022" D ^VEXAMINE
 ;
END W !!,"End of 23---V1UO1C",!
 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

V1UO2A
V1UO2A ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"24---V1UO2A: Unary operator -4-",!
799 W !,"I-799  Negate unary operator",!
7991 W !,"I-799.1  Negate unary operator and a numlit"
79911 S ^ABSN="10238",^ITEM="I-799.1.1  -0",^NEXT="79912^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-0 S ^VCORR="0" D ^VEXAMINE
79912 S ^ABSN="10239",^ITEM="I-799.1.2  -1",^NEXT="79913^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-1 S ^VCORR="-1" D ^VEXAMINE
79913 S ^ABSN="10240",^ITEM="I-799.1.3  -intlit",^NEXT="79914^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-2 S ^VCORR="-2" D ^VEXAMINE
79914 S ^ABSN="10241",^ITEM="I-799.1.4  -.intlit",^NEXT="79915^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-.2 S ^VCORR="-.2" D ^VEXAMINE
79915 S ^ABSN="10242",^ITEM="I-799.1.5  -intlit.intlit",^NEXT="79916^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-2.2 S ^VCORR="-2.2" D ^VEXAMINE
79916 S ^ABSN="10243",^ITEM="I-799.1.6  -mantEintlit",^NEXT="79917^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-2.2E2 S ^VCORR="-220" D ^VEXAMINE
79917 S ^ABSN="10244",^ITEM="I-799.1.7  -mantE+intlit",^NEXT="79918^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-2.2E+2 S ^VCORR="-220" D ^VEXAMINE
79918 S ^ABSN="10245",^ITEM="I-799.1.8  -mantE-intlit",^NEXT="7992^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-2.2E-2 S ^VCORR="-.022" D ^VEXAMINE
 ;
7992 W !,"I-799.2  Negate unary operator and a strlit"
79921 S ^ABSN="10246",^ITEM="I-799.2.1  -""0""",^NEXT="79922^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"0",^VCORR="0" D ^VEXAMINE
79922 S ^ABSN="10247",^ITEM="I-799.2.2  -""1""",^NEXT="79923^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"1",^VCORR="-1" D ^VEXAMINE
79923 S ^ABSN="10248",^ITEM="I-799.2.3  -""intlit""",^NEXT="79924^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2AB",^VCORR="-2" D ^VEXAMINE
79924 S ^ABSN="10249",^ITEM="I-799.2.4  -"".intlit""",^NEXT="79925^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-".2ZZZ",^VCORR="-.2" D ^VEXAMINE
79925 S ^ABSN="10250",^ITEM="I-799.2.5  -""intlit.intlit""",^NEXT="79926^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2.2E+FGH",^VCORR="-2.2" D ^VEXAMINE
79926 S ^ABSN="10251",^ITEM="I-799.2.6  -""mantEintlit""",^NEXT="79927^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2.2E2.24S",^VCORR="-220" D ^VEXAMINE
79927 S ^ABSN="10252",^ITEM="I-799.2.7  -""mantE+intlit""",^NEXT="79928^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2.2E+2E45",^VCORR="-220" D ^VEXAMINE
79928 S ^ABSN="10253",^ITEM="I-799.2.8  -""mantE-intlit""",^NEXT="79929^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2.2E-2,000",^VCORR="-.022" D ^VEXAMINE
79929 S ^ABSN="10254",^ITEM="I-799.2.9  -empty string",^NEXT="799210^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"",^VCORR="0" D ^VEXAMINE
799210 S ^ABSN="10255",^ITEM="I-799.2.10  -""AB2""",^NEXT="799211^V1UO2A,V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"AB2",^VCORR="0" D ^VEXAMINE
799211 S ^ABSN="10256",^ITEM="I-799.2.11  -""2A2B""",^NEXT="V1UO2B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"2A2B",^VCORR="-2" D ^VEXAMINE
 ;
END W !!,"End of 24---V1UO2A",!
 K  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

V1UO2B
V1UO2B ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -5-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"25---V1UO2B: Unary operator -5-",!
7993 W !,"I-799.3  Negate unary operator and a strlit"
79931 S ^ABSN="10257",^ITEM="I-799.3.1  -""-0""",^NEXT="79932^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-0",^VCORR="0" D ^VEXAMINE
79932 S ^ABSN="10258",^ITEM="I-799.3.2  -""-1""",^NEXT="79933^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-1",^VCORR="1" D ^VEXAMINE
79933 S ^ABSN="10259",^ITEM="I-799.3.3  -""+intlit""",^NEXT="79934^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"+2AB",^VCORR="-2" D ^VEXAMINE
79934 S ^ABSN="10260",^ITEM="I-799.3.4  -""-.intlit""",^NEXT="79935^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-.2ZZZ",^VCORR=".2" D ^VEXAMINE
79935 S ^ABSN="10261",^ITEM="I-799.3.5  -""-intlit.intlit""",^NEXT="79936^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-2.2E+FGH",^VCORR="2.2" D ^VEXAMINE
79936 S ^ABSN="10262",^ITEM="I-799.3.6  -""-mantEintlit""",^NEXT="79937^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-2.2E2.24S",^VCORR="220" D ^VEXAMINE
79937 S ^ABSN="10263",^ITEM="I-799.3.7  -""-mantE+intlit""",^NEXT="79938^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-2.2E+2E45",^VCORR="220" D ^VEXAMINE
79938 S ^ABSN="10264",^ITEM="I-799.3.8  -""-mantE-intlit""",^NEXT="79939^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-2.2E-2,000",^VCORR=".022" D ^VEXAMINE
79939 S ^ABSN="10265",^ITEM="I-799.3.9  -""-AB2""",^NEXT="799310^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-AB2",^VCORR="0" D ^VEXAMINE
799310 S ^ABSN="10266",^ITEM="I-799.3.10  -""-2A2B""",^NEXT="7994^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-2A2B",^VCORR="2" D ^VEXAMINE
 ;
7994 W !,"I-799.4  Negate unary operator and a lvn"
79941 S ^ABSN="10267",^ITEM="I-799.4.1  0",^NEXT="79942^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=0 S ^VCOMP=-A S ^VCORR="0" D ^VEXAMINE
79942 S ^ABSN="10268",^ITEM="I-799.4.2  1",^NEXT="79943^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=1 S ^VCOMP=-A S ^VCORR="-1" D ^VEXAMINE
79943 S ^ABSN="10269",^ITEM="I-799.4.3  intlit",^NEXT="79944^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2 S ^VCOMP=-A S ^VCORR="-2" D ^VEXAMINE
79944 S ^ABSN="10270",^ITEM="I-799.4.4  .intlit",^NEXT="79945^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=.2 S ^VCOMP=-A S ^VCORR="-.2" D ^VEXAMINE
79945 S ^ABSN="10271",^ITEM="I-799.4.5  intlit.intlit",^NEXT="79946^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2 S ^VCOMP=-A S ^VCORR="-2.2" D ^VEXAMINE
79946 S ^ABSN="10272",^ITEM="I-799.4.6  mantEintlit",^NEXT="79947^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E2 S ^VCOMP=-A S ^VCORR="-220" D ^VEXAMINE
79947 S ^ABSN="10273",^ITEM="I-799.4.7  mantE+intlit",^NEXT="79948^V1UO2B,V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E+2 S ^VCOMP=-A S ^VCORR="-220" D ^VEXAMINE
79948 S ^ABSN="10274",^ITEM="I-799.4.8  mantE-intlit",^NEXT="V1UO2C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E-2 S ^VCOMP=-A S ^VCORR="-.022" D ^VEXAMINE
 ;
END W !!,"End of 25---V1UO2B",!
 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

V1UO2C
V1UO2C ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -6-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"26---V1UO2C: Unary operator -6-",!
 ;
7995 W !,"I-799.5  Negate unary operator and a lvn"
79951 S ^ABSN="10275",^ITEM="I-799.5.1  ""0""",^NEXT="79952^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="0",^VCOMP=-A S ^VCORR="0" D ^VEXAMINE
79952 S ^ABSN="10276",^ITEM="I-799.5.2  ""1""",^NEXT="79953^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="1",^VCOMP=-A S ^VCORR="-1" D ^VEXAMINE
79953 S ^ABSN="10277",^ITEM="I-799.5.3  ""intlit""",^NEXT="79954^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2",^VCOMP=-A S ^VCORR="-2" D ^VEXAMINE
79954 S ^ABSN="10278",^ITEM="I-799.5.4  "".intlit""",^NEXT="79955^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=".2",^VCOMP=-A S ^VCORR="-.2" D ^VEXAMINE
79955 S ^ABSN="10279",^ITEM="I-799.5.5  ""intlit.intlit""",^NEXT="79956^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2",^VCOMP=-A S ^VCORR="-2.2" D ^VEXAMINE
79956 S ^ABSN="10280",^ITEM="I-799.5.6  ""mantEintlit""",^NEXT="79957^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E2",^VCOMP=-A S ^VCORR="-220" D ^VEXAMINE
79957 S ^ABSN="10281",^ITEM="I-799.5.7  ""mantE+intlit""",^NEXT="79958^V1UO2C,V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E+2",^VCOMP=-A S ^VCORR="-220" D ^VEXAMINE
79958 S ^ABSN="10282",^ITEM="I-799.5.8  ""mantE-intlit""",^NEXT="V1UO3A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E-2",^VCOMP=-A S ^VCORR="-.022" D ^VEXAMINE
 ;
END W !!,"End of 26---V1UO2C",!
 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

V1UO3A
V1UO3A ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -7-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"27---V1UO3A: Unary operator -7-"
800 W !!,"I-800  Not unary operator",!
8001 W !,"I-800.1  Not unary operator and a numlit"
80011 S ^ABSN="10283",^ITEM="I-800.1.1  '0",^NEXT="80012^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='0 S ^VCORR="1" D ^VEXAMINE
80012 S ^ABSN="10284",^ITEM="I-800.1.2  '1",^NEXT="80013^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='1 S ^VCORR="0" D ^VEXAMINE
80013 S ^ABSN="10285",^ITEM="I-800.1.3  'intlit",^NEXT="80014^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='2 S ^VCORR="0" D ^VEXAMINE
80014 S ^ABSN="10286",^ITEM="I-800.1.4  '.intlit",^NEXT="80015^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='.2 S ^VCORR="0" D ^VEXAMINE
80015 S ^ABSN="10287",^ITEM="I-800.1.5  'intlit.intlit",^NEXT="80016^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='2.2 S ^VCORR="0" D ^VEXAMINE
80016 S ^ABSN="10288",^ITEM="I-800.1.6  'mantEintlit",^NEXT="80017^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='2.2E2 S ^VCORR="0" D ^VEXAMINE
80017 S ^ABSN="10289",^ITEM="I-800.1.7  'mantE+intlit",^NEXT="80018^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='2.2E+2 S ^VCORR="0" D ^VEXAMINE
80018 S ^ABSN="10290",^ITEM="I-800.1.8  'mantE-intlit",^NEXT="8002^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='2.2E-2 S ^VCORR="0" D ^VEXAMINE
 ;
8002 W !,"I-800.2  Not unary operator and a strlit"
80021 S ^ABSN="10291",^ITEM="I-800.2.1  '""0""",^NEXT="80022^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"0",^VCORR="1" D ^VEXAMINE
80022 S ^ABSN="10292",^ITEM="I-800.2.2  '""1""",^NEXT="80023^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"1",^VCORR="0" D ^VEXAMINE
80023 S ^ABSN="10293",^ITEM="I-800.2.3  'intlit",^NEXT="80024^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2BCDEAS43",^VCORR="0" D ^VEXAMINE
80024 S ^ABSN="10294",^ITEM="I-800.2.4  '.intlit",^NEXT="80025^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='".2-3",^VCORR="0" D ^VEXAMINE
80025 S ^ABSN="10295",^ITEM="I-800.2.5  'intlit.intlit",^NEXT="80026^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2.2E-E99",^VCORR="0" D ^VEXAMINE
80026 S ^ABSN="10296",^ITEM="I-800.2.6  'mantEintlit",^NEXT="80027^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2.2E2+2",^VCORR="0" D ^VEXAMINE
80027 S ^ABSN="10297",^ITEM="I-800.2.7  'mantE+intlit",^NEXT="80028^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2.2E+2-7",^VCORR="0" D ^VEXAMINE
80028 S ^ABSN="10298",^ITEM="I-800.2.8  'mantE-intlit",^NEXT="80029^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2.2E-2.4",^VCORR="0" D ^VEXAMINE
80029 S ^ABSN="10299",^ITEM="I-800.2.9  'empty string",^NEXT="800210^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"",^VCORR="1" D ^VEXAMINE
800210 S ^ABSN="10300",^ITEM="I-800.2.10  '""AB2""",^NEXT="800211^V1UO3A,V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"AB2",^VCORR="1" D ^VEXAMINE
800211 S ^ABSN="10301",^ITEM="I-800.2.11  '""2A2B""",^NEXT="V1UO3B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"2A2B",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 27---V1UO3A",!
 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

V1UO3B
V1UO3B ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -8-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"28---V1UO3B: Unary operator -8-",!
8003 W !,"I-800.3  Not unary operator and a strlit"
80031 S ^ABSN="10302",^ITEM="I-800.3.1  '""+0""",^NEXT="80032^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+0",^VCORR="1" D ^VEXAMINE
80032 S ^ABSN="10303",^ITEM="I-800.3.2  '""+1""",^NEXT="80033^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+1",^VCORR="0" D ^VEXAMINE
80033 S ^ABSN="10304",^ITEM="I-800.3.3  'intlit",^NEXT="80034^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"'2BCDEAS43",^VCORR="1" D ^VEXAMINE
80034 S ^ABSN="10305",^ITEM="I-800.3.4  '.intlit",^NEXT="80035^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"-.2-3",^VCORR="0" D ^VEXAMINE
80035 S ^ABSN="10306",^ITEM="I-800.3.5  'intlit.intlit",^NEXT="80036^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+2.2E-E99",^VCORR="0" D ^VEXAMINE
80036 S ^ABSN="10307",^ITEM="I-800.3.6  'mantEintlit",^NEXT="80037^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+2.2E2+2",^VCORR="0" D ^VEXAMINE
80037 S ^ABSN="10308",^ITEM="I-800.3.7  'mantE+intlit",^NEXT="80038^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+2.2E+2-7",^VCORR="0" D ^VEXAMINE
80038 S ^ABSN="10309",^ITEM="I-800.3.8  'mantE-intlit",^NEXT="80039^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"-2.2E-2.4",^VCORR="0" D ^VEXAMINE
80039 S ^ABSN="10310",^ITEM="I-800.3.9  '""-AB2""",^NEXT="800310^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"-AB2",^VCORR="1" D ^VEXAMINE
800310 S ^ABSN="10311",^ITEM="I-800.3.10  '""-2A2B""",^NEXT="8004^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"-2A2B",^VCORR="0" D ^VEXAMINE
 ;
8004 W !,"I-800.4  Not unary operator and a lvn"
80041 S ^ABSN="10312",^ITEM="I-800.4.1  '0",^NEXT="80042^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=0 S ^VCOMP='A S ^VCORR="1" D ^VEXAMINE
80042 S ^ABSN="10313",^ITEM="I-800.4.2  '1",^NEXT="80043^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=1 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80043 S ^ABSN="10314",^ITEM="I-800.4.3  'intlit",^NEXT="80044^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80044 S ^ABSN="10315",^ITEM="I-800.4.4  '.intlit",^NEXT="80045^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=.2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80045 S ^ABSN="10316",^ITEM="I-800.4.5  'intlit.intlit",^NEXT="80046^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80046 S ^ABSN="10317",^ITEM="I-800.4.6  'mantEintlit",^NEXT="80047^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80047 S ^ABSN="10318",^ITEM="I-800.4.7  'mantE+intlit",^NEXT="80048^V1UO3B,V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E+2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80048 S ^ABSN="10319",^ITEM="I-800.4.8  'mantE-intlit",^NEXT="V1UO3C^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=2.2E-2 S ^VCOMP='A S ^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 28---V1UO3B",!
 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

V1UO3C
V1UO3C ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -9-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"29---V1UO3C: Unary operator -9-",!
 ;
8005 W !,"I-800.5  Not unary operator and a lvn"
80051 S ^ABSN="10320",^ITEM="I-800.5.1  ""0""",^NEXT="80052^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="0",^VCOMP='A S ^VCORR="1" D ^VEXAMINE
80052 S ^ABSN="10321",^ITEM="I-800.5.2  ""1""",^NEXT="80053^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="1",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80053 S ^ABSN="10322",^ITEM="I-800.5.3  ""intlit""",^NEXT="80054^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80054 S ^ABSN="10323",^ITEM="I-800.5.4  "".intlit""",^NEXT="80055^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A=".2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80055 S ^ABSN="10324",^ITEM="I-800.5.5  ""intlit.intlit""",^NEXT="80056^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80056 S ^ABSN="10325",^ITEM="I-800.5.6  ""mantEintlit""",^NEXT="80057^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80057 S ^ABSN="10326",^ITEM="I-800.5.7  ""mantE+intlit""",^NEXT="80058^V1UO3C,V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E+2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
80058 S ^ABSN="10327",^ITEM="I-800.5.8  ""mantE-intlit""",^NEXT="V1UO4A^V1UO,V1BOA^VV1" D ^V1PRESET
 S A="2.2E-2",^VCOMP='A S ^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 29---V1UO3C",!
 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

V1UO4A
V1UO4A ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -10-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"30---V1UO4A: Unary operator -10-"
801 W !!,"I-801  Multiple unary operators"
8011 W !!,"I-801.1  Duplicate unary operators and a numlit"
80111 S ^ABSN="10328",^ITEM="I-801.1.1  ++0",^NEXT="80112^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++0 S ^VCORR="0" D ^VEXAMINE
80112 S ^ABSN="10329",^ITEM="I-801.1.2  +-0",^NEXT="80113^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-0 S ^VCORR="0" D ^VEXAMINE
80113 S ^ABSN="10330",^ITEM="I-801.1.3  +'0",^NEXT="80114^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'0 S ^VCORR="1" D ^VEXAMINE
80114 S ^ABSN="10331",^ITEM="I-801.1.4  -+0",^NEXT="80115^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+0 S ^VCORR="0" D ^VEXAMINE
80115 S ^ABSN="10332",^ITEM="I-801.1.5  --0",^NEXT="80116^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--0 S ^VCORR="0" D ^VEXAMINE
80116 S ^ABSN="10333",^ITEM="I-801.1.6  -'0",^NEXT="80117^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'0 S ^VCORR="-1" D ^VEXAMINE
80117 S ^ABSN="10334",^ITEM="I-801.1.7  '+0",^NEXT="80118^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+0 S ^VCORR="1" D ^VEXAMINE
80118 S ^ABSN="10335",^ITEM="I-801.1.8  '-0",^NEXT="80119^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-0 S ^VCORR="1" D ^VEXAMINE
80119 S ^ABSN="10336",^ITEM="I-801.1.9  ''0",^NEXT="801110^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''0 S ^VCORR="0" D ^VEXAMINE
 ;
801110 S ^ABSN="10337",^ITEM="I-801.1.10  ++intlit",^NEXT="801111^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++2 S ^VCORR="2" D ^VEXAMINE
801111 S ^ABSN="10338",^ITEM="I-801.1.11  +-intlit",^NEXT="801112^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-2 S ^VCORR="-2" D ^VEXAMINE
801112 S ^ABSN="10339",^ITEM="I-801.1.12  +'intlit",^NEXT="801113^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'2 S ^VCORR="0" D ^VEXAMINE
801113 S ^ABSN="10340",^ITEM="I-801.1.13  -+intlit",^NEXT="801114^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+2 S ^VCORR="-2" D ^VEXAMINE
801114 S ^ABSN="10341",^ITEM="I-801.1.14  --intlit",^NEXT="801115^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--2 S ^VCORR="2" D ^VEXAMINE
801115 S ^ABSN="10342",^ITEM="I-801.1.15  -'intlit",^NEXT="801116^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'2 S ^VCORR="0" D ^VEXAMINE
801116 S ^ABSN="10343",^ITEM="I-801.1.16  '+intlit",^NEXT="801117^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+2 S ^VCORR="0" D ^VEXAMINE
801117 S ^ABSN="10344",^ITEM="I-801.1.17  '-intlit",^NEXT="801118^V1UO4A,V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-2 S ^VCORR="0" D ^VEXAMINE
801118 S ^ABSN="10345",^ITEM="I-801.1.18  ''intlit",^NEXT="V1UO4B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''2 S ^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 30---V1UO4A",!
 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

V1UO4B
V1UO4B ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -11-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"31---V1UO4B: Unary operator -11-",!
8012 W !,"I-801.2  Triplicate unary operators and a numlit"
80121 S ^ABSN="10346",^ITEM="I-801.2.1  +++numlit",^NEXT="80122^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+++000000 S ^VCORR="0" D ^VEXAMINE
80122 S ^ABSN="10347",^ITEM="I-801.2.2  ++-numlit",^NEXT="80123^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++-123 S ^VCORR="-123" D ^VEXAMINE
80123 S ^ABSN="10348",^ITEM="I-801.2.3  ++'numlit",^NEXT="80124^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++'.01290 S ^VCORR="0" D ^VEXAMINE
80124 S ^ABSN="10349",^ITEM="I-801.2.4  +-+numlit",^NEXT="80125^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-+.00003 S ^VCORR="-.00003" D ^VEXAMINE
80125 S ^ABSN="10350",^ITEM="I-801.2.5  +--numlit",^NEXT="80126^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+--.0000 S ^VCORR="0" D ^VEXAMINE
80126 S ^ABSN="10351",^ITEM="I-801.2.6  +-'numlit",^NEXT="80127^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-'0000.000 S ^VCORR="-1" D ^VEXAMINE
80127 S ^ABSN="10352",^ITEM="I-801.2.7  +'+numlit",^NEXT="80128^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'+264.0000 S ^VCORR="0" D ^VEXAMINE
80128 S ^ABSN="10353",^ITEM="I-801.2.8  +'-numlit",^NEXT="80129^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'-000E3 S ^VCORR="1" D ^VEXAMINE
80129 S ^ABSN="10354",^ITEM="I-801.2.9  +''numlit",^NEXT="801210^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+''120E3 S ^VCORR="1" D ^VEXAMINE
 ;
801210 S ^ABSN="10355",^ITEM="I-801.2.10  -++numlit",^NEXT="801211^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-++45E+3 S ^VCORR="-45000" D ^VEXAMINE
801211 S ^ABSN="10356",^ITEM="I-801.2.11  -+-numlit",^NEXT="801212^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+-39E-003 S ^VCORR=".039" D ^VEXAMINE
801212 S ^ABSN="10357",^ITEM="I-801.2.12  -+'numlit",^NEXT="801213^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+'.000E-4 S ^VCORR="-1" D ^VEXAMINE
801213 S ^ABSN="10358",^ITEM="I-801.2.13  --+numlit",^NEXT="801214^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--+.21E3 S ^VCORR="210" D ^VEXAMINE
801214 S ^ABSN="10359",^ITEM="I-801.2.14  ---numlit",^NEXT="801215^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=---.21E-3 S ^VCORR="-.00021" D ^VEXAMINE
801215 S ^ABSN="10360",^ITEM="I-801.2.15  --'numlit",^NEXT="801216^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--'000.00000E+4 S ^VCORR="1" D ^VEXAMINE
801216 S ^ABSN="10361",^ITEM="I-801.2.16  -'+numlit",^NEXT="801217^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'+21.598E2 S ^VCORR="0" D ^VEXAMINE
801217 S ^ABSN="10362",^ITEM="I-801.2.17  -'-numlit",^NEXT="801218^V1UO4B,V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'-06.45E+5 S ^VCORR="0" D ^VEXAMINE
801218 S ^ABSN="10363",^ITEM="I-801.2.18  -''numlit",^NEXT="V1UO4C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-''98.191E-3 S ^VCORR="-1" D ^VEXAMINE
 ;
END W !!,"End of 31---V1UO4B",!
 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

V1UO4C
V1UO4C ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -12-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"32---V1UO4C: Unary operator -12-",!
 ;
801219 S ^ABSN="10364",^ITEM="I-801.2.19  '++numlit",^NEXT="801220^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='++00021.001 S ^VCORR="0" D ^VEXAMINE
801220 S ^ABSN="10365",^ITEM="I-801.2.20  '+-numlit",^NEXT="801221^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+-.00021E-2 S ^VCORR="0" D ^VEXAMINE
801221 S ^ABSN="10366",^ITEM="I-801.2.21  '+'numlit",^NEXT="801222^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+'3.3 S ^VCORR="1" D ^VEXAMINE
801222 S ^ABSN="10367",^ITEM="I-801.2.22  '-+numlit",^NEXT="801223^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-+1.0 S ^VCORR="0" D ^VEXAMINE
801223 S ^ABSN="10368",^ITEM="I-801.2.23  '--numlit",^NEXT="801224^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='--0.00E-2 S ^VCORR="1" D ^VEXAMINE
801224 S ^ABSN="10369",^ITEM="I-801.2.24  '-'numlit",^NEXT="801225^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-'4.50E+1 S ^VCORR="1" D ^VEXAMINE
801225 S ^ABSN="10370",^ITEM="I-801.2.25  ''+numlit",^NEXT="801226^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''+0128.3 S ^VCORR="1" D ^VEXAMINE
801226 S ^ABSN="10371",^ITEM="I-801.2.26  ''-numlit",^NEXT="801227^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''-.00001 S ^VCORR="1" D ^VEXAMINE
801227 S ^ABSN="10372",^ITEM="I-801.2.27  '''numlit",^NEXT="8013^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='''000.0 S ^VCORR="1" D ^VEXAMINE
 ;
8013 W !,"I-801.3  Multiple unary operators and a numlit"
80131 S ^ABSN="10373",^ITEM="I-801.3.1  -'+'-'+'-numlit",^NEXT="80132^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'+'-'+'-4.5 S ^VCORR="-1" D ^VEXAMINE
80132 S ^ABSN="10374",^ITEM="I-801.3.2  +'-'+'-'+numlit",^NEXT="80133^V1UO4C,V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'-'+'-'+4.5 S ^VCORR="1" D ^VEXAMINE
80133 S ^ABSN="10375",^ITEM="I-801.3.3  +--''+'-numlit",^NEXT="V1UO5A^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+--''+'-4.5 S ^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 32---V1UO4C",!
 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

V1UO5A
V1UO5A ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -13-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"33---V1UO5A: Unary operator -13-",!
8014 W !,"I-801.4  Duplicate unary operators and a strlit"
80141 S ^ABSN="10376",^ITEM="I-801.4.1  ++""0""",^NEXT="80142^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++"0",^VCORR="0" D ^VEXAMINE
80142 S ^ABSN="10377",^ITEM="I-801.4.2  +-""0""",^NEXT="80143^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-"0",^VCORR="0" D ^VEXAMINE
80143 S ^ABSN="10378",^ITEM="I-801.4.3  +'""0""",^NEXT="80144^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'"0",^VCORR="1" D ^VEXAMINE
80144 S ^ABSN="10379",^ITEM="I-801.4.4  -+""0""",^NEXT="80145^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+"0",^VCORR="0" D ^VEXAMINE
80145 S ^ABSN="10380",^ITEM="I-801.4.5  --""0""",^NEXT="80146^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--"0",^VCORR="0" D ^VEXAMINE
80146 S ^ABSN="10381",^ITEM="I-801.4.6  -'""0""",^NEXT="80147^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'"0",^VCORR="-1" D ^VEXAMINE
80147 S ^ABSN="10382",^ITEM="I-801.4.7  '+""0""",^NEXT="80148^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+"0",^VCORR="1" D ^VEXAMINE
80148 S ^ABSN="10383",^ITEM="I-801.4.8  '-""0""",^NEXT="80149^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-"0",^VCORR="1" D ^VEXAMINE
80149 S ^ABSN="10384",^ITEM="I-801.4.9  ''""0""",^NEXT="801410^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''"0",^VCORR="0" D ^VEXAMINE
 ;
801410 S ^ABSN="10385",^ITEM="I-801.4.10  ++strlit",^NEXT="801411^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++"2",^VCORR="2" D ^VEXAMINE
801411 S ^ABSN="10386",^ITEM="I-801.4.11  +-strlit",^NEXT="801412^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-"2",^VCORR="-2" D ^VEXAMINE
801412 S ^ABSN="10387",^ITEM="I-801.4.12  +'strlit",^NEXT="801413^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'"2",^VCORR="0" D ^VEXAMINE
801413 S ^ABSN="10388",^ITEM="I-801.4.13  -+strlit",^NEXT="801414^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+"2",^VCORR="-2" D ^VEXAMINE
801414 S ^ABSN="10389",^ITEM="I-801.4.14  --strlit",^NEXT="801415^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--"2",^VCORR="2" D ^VEXAMINE
801415 S ^ABSN="10390",^ITEM="I-801.4.15  -'strlit",^NEXT="801416^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'"2",^VCORR="0" D ^VEXAMINE
801416 S ^ABSN="10391",^ITEM="I-801.4.16  '+strlit",^NEXT="801417^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+"2",^VCORR="0" D ^VEXAMINE
801417 S ^ABSN="10392",^ITEM="I-801.4.17  '-strlit",^NEXT="801418^V1UO5A,V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-"2",^VCORR="0" D ^VEXAMINE
801418 S ^ABSN="10393",^ITEM="I-801.4.18  ''strlit",^NEXT="V1UO5B^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''"2",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 33---V1UO5A",!
 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

V1UO5B
V1UO5B ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -14-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"34---V1UO5B: Unary operator -14-",!
 ;
8015 W !,"I-801.5  Duplicate unary operators and a strlit"
80151 S ^ABSN="10394",^ITEM="I-801.5.1  ++""+0""",^NEXT="80152^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++"+0",^VCORR="0" D ^VEXAMINE
80152 S ^ABSN="10395",^ITEM="I-801.5.2  +-""-0""",^NEXT="80153^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-"-0",^VCORR="0" D ^VEXAMINE
80153 S ^ABSN="10396",^ITEM="I-801.5.3  +'""-0""",^NEXT="80154^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'"-0",^VCORR="1" D ^VEXAMINE
80154 S ^ABSN="10397",^ITEM="I-801.5.4  -+""+0""",^NEXT="80155^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+"+0",^VCORR="0" D ^VEXAMINE
80155 S ^ABSN="10398",^ITEM="I-801.5.5  --""-0""",^NEXT="80156^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--"-0",^VCORR="0" D ^VEXAMINE
80156 S ^ABSN="10399",^ITEM="I-801.5.6  -'""+0""",^NEXT="80157^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'"+0",^VCORR="-1" D ^VEXAMINE
80157 S ^ABSN="10400",^ITEM="I-801.5.7  '+""-0""",^NEXT="80158^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+"-0",^VCORR="1" D ^VEXAMINE
80158 S ^ABSN="10401",^ITEM="I-801.5.8  '-""+0""",^NEXT="80159^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-"+0",^VCORR="1" D ^VEXAMINE
80159 S ^ABSN="10402",^ITEM="I-801.5.9  ''""+0""",^NEXT="801510^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''"+0",^VCORR="0" D ^VEXAMINE
 ;
801510 S ^ABSN="10403",^ITEM="I-801.5.10  ++strlit",^NEXT="801511^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++"+2",^VCORR="2" D ^VEXAMINE
801511 S ^ABSN="10404",^ITEM="I-801.5.11  +-strlit",^NEXT="801512^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+-"+2",^VCORR="-2" D ^VEXAMINE
801512 S ^ABSN="10405",^ITEM="I-801.5.12  +'strlit",^NEXT="801513^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=+'"-2",^VCORR="0" D ^VEXAMINE
801513 S ^ABSN="10406",^ITEM="I-801.5.13  -+strlit",^NEXT="801514^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-+"-2",^VCORR="2" D ^VEXAMINE
801514 S ^ABSN="10407",^ITEM="I-801.5.14  --strlit",^NEXT="801515^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=--"+2",^VCORR="2" D ^VEXAMINE
801515 S ^ABSN="10408",^ITEM="I-801.5.15  -'strlit",^NEXT="801516^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-'"-2",^VCORR="0" D ^VEXAMINE
801516 S ^ABSN="10409",^ITEM="I-801.5.16  '+strlit",^NEXT="801517^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='+"+2",^VCORR="0" D ^VEXAMINE
801517 S ^ABSN="10410",^ITEM="I-801.5.17  '-strlit",^NEXT="801518^V1UO5B,V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='-"-2",^VCORR="0" D ^VEXAMINE
801518 S ^ABSN="10411",^ITEM="I-801.5.18  ''strlit",^NEXT="V1UO5C^V1UO,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=''"+2",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 34---V1UO5B",!
 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

V1UO5C
V1UO5C ;IW-YS-TS,V1UO,MVTS V9.10;15/6/96;UNARY OPERATOR -15-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"35---V1UO5C: Unary operator -15-",!
8016 W !,"I-801.6   Unary operator(s) and a strlit"
80161 S ^ABSN="10412",^ITEM="I-801.6.1  -""+-2""",^NEXT="80162^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"+-2",^VCORR="2" D ^VEXAMINE
80162 S ^ABSN="10413",^ITEM="I-801.6.2  '""+++2""",^NEXT="80163^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP='"+++2",^VCORR="0" D ^VEXAMINE
80163 S ^ABSN="10414",^ITEM="I-801.6.3  -""-+-2""",^NEXT="80164^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=-"-+-2",^VCORR="-2" D ^VEXAMINE
80164 S ^ABSN="10415",^ITEM="I-801.6.4  ++--+-""+-+.20E+01.5""",^NEXT="8017^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S ^VCOMP=++--+-"+-+.20E+01.5",^VCORR="2" D ^VEXAMINE
 ;
8017 W !,"I-801.7  Duplicate unary operators and a lvn"
80171 S ^ABSN="10416",^ITEM="I-801.7.1  ++lvn (lvn=0)",^NEXT="80172^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=++A S ^VCORR="0" D ^VEXAMINE
80172 S ^ABSN="10417",^ITEM="I-801.7.2  +-lvn (lvn=0)",^NEXT="80173^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=+-A S ^VCORR="0" D ^VEXAMINE
80173 S ^ABSN="10418",^ITEM="I-801.7.3  +'lvn (lvn=0)",^NEXT="80174^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=+'A S ^VCORR="1" D ^VEXAMINE
80174 S ^ABSN="10419",^ITEM="I-801.7.4  -+lvn (lvn=0)",^NEXT="80175^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=-+A S ^VCORR="0" D ^VEXAMINE
80175 S ^ABSN="10420",^ITEM="I-801.7.5  --lvn (lvn=0)",^NEXT="80176^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=--A S ^VCORR="0" D ^VEXAMINE
80176 S ^ABSN="10421",^ITEM="I-801.7.6  -'lvn (lvn=0)",^NEXT="80177^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=-'A S ^VCORR="-1" D ^VEXAMINE
80177 S ^ABSN="10422",^ITEM="I-801.7.7  '+lvn (lvn=0)",^NEXT="80178^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP='+A S ^VCORR="1" D ^VEXAMINE
80178 S ^ABSN="10423",^ITEM="I-801.7.8  '-lvn (lvn=0)",^NEXT="80179^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP='-A S ^VCORR="1" D ^VEXAMINE
80179 S ^ABSN="10424",^ITEM="I-801.7.9  ''lvn (lvn=0)",^NEXT="801710^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=0,^VCOMP=''A S ^VCORR="0" D ^VEXAMINE
 ;
801710 S ^ABSN="10425",^ITEM="I-801.7.10  ++lvn",^NEXT="801711^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=++A S ^VCORR="2" D ^VEXAMINE
801711 S ^ABSN="10426",^ITEM="I-801.7.11  +-lvn",^NEXT="801712^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=+-A S ^VCORR="-2" D ^VEXAMINE
801712 S ^ABSN="10427",^ITEM="I-801.7.12  +'lvn",^NEXT="801713^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=+'A S ^VCORR="0" D ^VEXAMINE
801713 S ^ABSN="10428",^ITEM="I-801.7.13  -+lvn",^NEXT="801714^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=-+A S ^VCORR=-2 D ^VEXAMINE
801714 S ^ABSN="10429",^ITEM="I-801.7.14  --lvn",^NEXT="801715^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=--A S ^VCORR=2 D ^VEXAMINE
801715 S ^ABSN="10430",^ITEM="I-801.7.15  -'lvn",^NEXT="801716^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=-'A S ^VCORR=0 D ^VEXAMINE
801716 S ^ABSN="10431",^ITEM="I-801.7.16  '+lvn",^NEXT="801717^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP='+A S ^VCORR="0" D ^VEXAMINE
801717 S ^ABSN="10432",^ITEM="I-801.7.17  '-lvn",^NEXT="801718^V1UO5C,V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP='-A S ^VCORR="0" D ^VEXAMINE
801718 S ^ABSN="10433",^ITEM="I-801.7.18  ''lvn",^NEXT="V1BOA^VV1" D ^V1PRESET
 S A=2,^VCOMP=''A S ^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 35---V1UO5C",!
 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

V1BOA
V1BOA ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;BINARY OPERATORS ARITHMETIC: +, -, *, /, #, \  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1BOA1 W !!,"36---V1BOA1" D ^V1BOA1
V1BOA2 W !!,"37---V1BOA2" D ^V1BOA2
V1BOA3 W !!,"38---V1BOA3" D ^V1BOA3
V1BOA4 W !!,"39---V1BOA4" D ^V1BOA4
V1BOA5 W !!,"40---V1BOA5" D ^V1BOA5
V1BOA6 W !!,"41---V1BOA6" D ^V1BOA6
V1BOA7 W !!,"42---V1BOA7" D ^V1BOA7
V1BOA8 W !!,"43---V1BOA8" D ^V1BOA8
V1BOA9 W !!,"44---V1BOA9" D ^V1BOA9
V1BOA10 W !!,"45---V1BOA10" D ^V1BOA10
V1BOA11 W !!,"46---V1BOA11" D ^V1BOA11
V1BOA12 W !!,"47---V1BOA12" D ^V1BOA12
 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

V1BOA1
V1BOA1 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: +  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"36---V1BOA1: Binary operator  arithmetic: +  -1-"
 W !!,"Algebraic sum",!
22 W !,"I-22  expratom=0"
221 S ^ABSN="10434",^ITEM="I-22.1  0+0",^NEXT="222^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0+0,^VCORR=0 D ^VEXAMINE
222 S ^ABSN="10435",^ITEM="I-22.2  000000+0000",^NEXT="223^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=000000+0000,^VCORR=0 D ^VEXAMINE
223 S ^ABSN="10436",^ITEM="I-22.3  100+0",^NEXT="224^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=100+0,^VCORR=100 D ^VEXAMINE
224 S ^ABSN="10437",^ITEM="I-22.4  0+2.0",^NEXT="225^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0+2.0,^VCORR=2 D ^VEXAMINE
225 S ^ABSN="10438",^ITEM="I-22.5  00+-98.0010",^NEXT="226^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00+-98.0010,^VCORR=-98.001 D ^VEXAMINE
226 S ^ABSN="10439",^ITEM="I-22.6  -0.0980010+0",^NEXT="23^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0.0980010+0,^VCORR=-.098001 D ^VEXAMINE
 ;
23 W !,"I-23  Left expratom>0, right expratom>0"
231 S ^ABSN="10440",^ITEM="I-23.1  2+3",^NEXT="232^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2+3,^VCORR=5 D ^VEXAMINE
232 S ^ABSN="10441",^ITEM="I-23.2  0.5+0.5",^NEXT="233^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.5+0.5,^VCORR=1 D ^VEXAMINE
233 S ^ABSN="10442",^ITEM="I-23.3  0.3+0.300",^NEXT="234^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.3+0.300,^VCORR=.6 D ^VEXAMINE
234 S ^ABSN="10443",^ITEM="I-23.4  0.01000+4",^NEXT="235^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.01000+4,^VCORR=4.01 D ^VEXAMINE
235 S ^ABSN="10444",^ITEM="I-23.5  50.03000+4",^NEXT="24^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=50.03000+4,^VCORR=54.03 D ^VEXAMINE
 ;
24 W !,"I-24  Left expratom>0, right expratom<0"
241 S ^ABSN="10445",^ITEM="I-24.1  5+-2",^NEXT="242^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=5+-2,^VCORR=3 D ^VEXAMINE
242 S ^ABSN="10446",^ITEM="I-24.2  0.3+-0.3",^NEXT="243^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.3+-0.3,^VCORR=0 D ^VEXAMINE
243 S ^ABSN="10447",^ITEM="I-24.3  10.1+-25",^NEXT="244^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=10.1+-25,^VCORR=-14.9 D ^VEXAMINE
244 S ^ABSN="10448",^ITEM="I-24.4  0.99+-0.34",^NEXT="25^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.99+-0.34,^VCORR=.65 D ^VEXAMINE
 ;
25 W !,"I-25  Left expratom<0, right expratom>0"
251 S ^ABSN="10449",^ITEM="I-25.1  -1+5",^NEXT="252^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-1+5,^VCORR=4 D ^VEXAMINE
252 S ^ABSN="10450",^ITEM="I-25.2  -597.2+25",^NEXT="253^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.2+25,^VCORR=-572.2 D ^VEXAMINE
253 S ^ABSN="10451",^ITEM="I-25.3  -0987.34+987.340",^NEXT="254^V1BOA1,V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0987.34+987.340,^VCORR=0 D ^VEXAMINE
254 S ^ABSN="10452",^ITEM="I-25.4  -.345+.344",^NEXT="V1BOA2^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-.345+.344,^VCORR=-.001 D ^VEXAMINE
 ;
END W !!,"End of 36---V1BOA1",!
 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

V1BOA2
V1BOA2 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: +  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"37---V1BOA2: Binary operator  arithmetic: +  -2-",!
 ;
26 W !,"I-26  Left expratom<0, right expratom<0"
261 S ^ABSN="10453",^ITEM="I-26.1  -2+-7",^NEXT="262^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2+-7,^VCORR=-9 D ^VEXAMINE
262 S ^ABSN="10454",^ITEM="I-26.2  -2.0+-50.3",^NEXT="263^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2.0+-50.3,^VCORR=-52.3 D ^VEXAMINE
263 S ^ABSN="10455",^ITEM="I-26.3  -0.567+-.433",^NEXT="264^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0.567+-.433,^VCORR=-1 D ^VEXAMINE
264 S ^ABSN="10456",^ITEM="I-26.4  -0.000345+-00.0000345",^NEXT="27^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0.000345+-00.0000345,^VCORR=-.0003795 D ^VEXAMINE
 ;
27 W !,"I-27  expratoms are numlit"
271 S ^ABSN="10457",^ITEM="I-27.1  1E1+1.10",^NEXT="272^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1+1.10,^VCORR=11.1 D ^VEXAMINE
272 S ^ABSN="10458",^ITEM="I-27.2  92.36E-2+12.36E+1",^NEXT="273^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=92.36E-2+12.36E+1,^VCORR=124.5236 D ^VEXAMINE
273 S ^ABSN="10459",^ITEM="I-27.3  00023.0E3+98.0000E-2",^NEXT="274^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00023.0E3+98.0000E-2,^VCORR=23000.98 D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
274 S ^ABSN="10460",^ITEM="I-27.4  .123E2+12300E-2",^NEXT="28^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.123E2+12300E-2,^VCORR=135.3 D ^VEXAMINE
 ;
28 W !,"I-28  expratoms are strlit"
281 S ^ABSN="10461",^ITEM="I-28.1  ""2A2B""+""2E2B""",^NEXT="282^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"+"2E2B",^VCORR=202 D ^VEXAMINE
282 S ^ABSN="10462",^ITEM="I-28.2  ""234E-1+1AJDB""+""2E+2B""",^NEXT="283^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="234E-1+1AJDB"+"2E+2B",^VCORR=223.4 D ^VEXAMINE
283 S ^ABSN="10463",^ITEM="I-28.3  ""ONE2A2B""+""00002E-2B""",^NEXT="29^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="ONE2A2B"+"00002E-2B",^VCORR=.02 D ^VEXAMINE
 ;
29 W !,"I-29  expratoms are lvn"
291 S ^ABSN="10464",^ITEM="I-29.1  Unsubscripted lvn",^NEXT="292^V1BOA2,V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A+B,^VCORR=-2 D ^VEXAMINE
292 S ^ABSN="10465",^ITEM="I-29.2  Subscripted lvn",^NEXT="V1BOA3^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A(1)="9989E-2",B(2)="3.3002",^VCOMP=A(1)+B(2),^VCORR=103.1902 D ^VEXAMINE
 ;
END W !!,"End of 37---V1BOA2",!
 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

V1BOA3
V1BOA3 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: -  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"38---V1BOA3: Binary operator  arithmetic: -   -1-"
 W !!,"Algebraic difference",!
30 W !,"I-30  expratom=0"
301 S ^ABSN="10466",^ITEM="I-30.1  0-0",^NEXT="302^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0-0,^VCORR=0 D ^VEXAMINE
302 S ^ABSN="10467",^ITEM="I-30.2  1-0",^NEXT="303^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1-0,^VCORR=1 D ^VEXAMINE
303 S ^ABSN="10468",^ITEM="I-30.3  000-2",^NEXT="304^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=000-2,^VCORR=-2 D ^VEXAMINE
304 S ^ABSN="10469",^ITEM="I-30.4  0-+.999",^NEXT="305^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0-+.999,^VCORR=-.999 D ^VEXAMINE
305 S ^ABSN="10470",^ITEM="I-30.5  00000-00000.00000E2",^NEXT="31^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00000-00000.00000E2,^VCORR=0 D ^VEXAMINE
 ;
31 W !,"I-31  Left expratom>0, right expratom>0"
311 S ^ABSN="10471",^ITEM="I-31.1  2-3",^NEXT="312^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2-3,^VCORR=-1 D ^VEXAMINE
312 S ^ABSN="10472",^ITEM="I-31.2  0.5-0.5",^NEXT="313^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.5-0.5,^VCORR=0 D ^VEXAMINE
313 S ^ABSN="10473",^ITEM="I-31.3  0.01-4",^NEXT="32^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.01-4,^VCORR=-3.99 D ^VEXAMINE
 ;
32 W !,"I-32  Left expratom>0, right expratom<0"
321 S ^ABSN="10474",^ITEM="I-32.1  5--2",^NEXT="322^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=5--2,^VCORR=7 D ^VEXAMINE
322 S ^ABSN="10475",^ITEM="I-32.2  .3--0.3",^NEXT="323^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.3--0.3,^VCORR=.6 D ^VEXAMINE
323 S ^ABSN="10476",^ITEM="I-32.3  876.653--5.62",^NEXT="33^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=876.653--5.62,^VCORR=882.273 D ^VEXAMINE
 ;
33 W !,"I-33  Left expratom<0, right expratom>0"
331 S ^ABSN="10477",^ITEM="I-33.1  -1-5",^NEXT="332^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-1-5,^VCORR=-6 D ^VEXAMINE
332 S ^ABSN="10478",^ITEM="I-33.2  -597.2-25",^NEXT="333^V1BOA3,V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.2-25,^VCORR=-622.2 D ^VEXAMINE
333 S ^ABSN="10479",^ITEM="I-33.3  -1176.59-20000",^NEXT="V1BOA4^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-1176.59-20000,^VCORR=-21176.59 D ^VEXAMINE
 ;
END W !!,"End of 38---V1BOA3",!
 K  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

V1BOA4
V1BOA4 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: -   -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"39---V1BOA4: Binary operator  arithmetic: -   -2-",!
 ;
34 W !,"I-34  Left expratom<0, right expratom<0"
341 S ^ABSN="10480",^ITEM="I-34.1  -2--7",^NEXT="342^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2--7,^VCORR=5 D ^VEXAMINE
342 S ^ABSN="10481",^ITEM="I-34.2  -2.000--00050.3",^NEXT="343^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2.000--00050.3,^VCORR=48.3 D ^VEXAMINE
343 S ^ABSN="10482",^ITEM="I-34.3  -4235.786--84.95100",^NEXT="35^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-4235.786--84.95100,^VCORR=-4150.835 D ^VEXAMINE
 ;
35 W !,"I-35  expratoms are numlit"
351 S ^ABSN="10483",^ITEM="I-35.1  1E1-1.10",^NEXT="352^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1-1.10,^VCORR=8.9 D ^VEXAMINE
352 S ^ABSN="10484",^ITEM="I-35.2  92.36E-2-12.36E+1",^NEXT="353^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=92.36E-2-12.36E+1,^VCORR=-122.6764 D ^VEXAMINE
353 S ^ABSN="10485",^ITEM="I-35.3  00023.000E3-98.0000E-2",^NEXT="354^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00023.000E3-98.0000E-2,^VCORR=22999.02 D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
354 S ^ABSN="10486",^ITEM="I-35.4  0.123E2-12300E-2",^NEXT="36^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.123E2-12300E-2,^VCORR=-110.7 D ^VEXAMINE
 ;
36 W !,"I-36  expratoms are strlit"
361 S ^ABSN="10487",^ITEM="I-36.1  ""AB2""-""2AB""",^NEXT="362^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="AB2"-"2AB",^VCORR=-2 D ^VEXAMINE
362 S ^ABSN="10488",^ITEM="I-36.2  ""2A2B""-""2E2B""",^NEXT="363^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"-"2E2B",^VCORR=-198 D ^VEXAMINE
363 S ^ABSN="10489",^ITEM="I-36.3  ""234E-1+1AJDB""-""2.008E+1.B5456""",^NEXT="364^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="234E-1+1AJDB"-"2.008E+1.B5456",^VCORR=3.32 D ^VEXAMINE
364 S ^ABSN="10490",^ITEM="I-36.4  ""ONE2A2B""-""00002E-2B""",^NEXT="37^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="ONE2A2B"-"00002E-2B",^VCORR=-.02 D ^VEXAMINE
 ;
37 W !,"I-37  expratoms are lvn"
371 S ^ABSN="10491",^ITEM="I-37.1  Unsubscripted lvn",^NEXT="372^V1BOA4,V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A-B,^VCORR=2 D ^VEXAMINE
372 S ^ABSN="10492",^ITEM="I-37.2  Subscripted lvn",^NEXT="V1BOA5^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A(2)="09249.000E-2",B(100)="8.7002",^VCOMP=A(2)-B(100),^VCORR=83.7898 D ^VEXAMINE
 ;
END W !!,"End of 39---V1BOA4",!
 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

V1BOA5
V1BOA5 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: *   -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"40---V1BOA5: Binary operator  arithmetic: *   -1-"
 W !!,"Algebraic product",!
38 W !,"I-38  expratom=0"
381 S ^ABSN="10493",^ITEM="I-38.1  0*0",^NEXT="382^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0*0,^VCORR=0 D ^VEXAMINE
382 S ^ABSN="10494",^ITEM="I-38.3  0*1",^NEXT="383^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0*1,^VCORR=0 D ^VEXAMINE
383 S ^ABSN="10495",^ITEM="I-38.3  2*00",^NEXT="384^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2*00,^VCORR=0 D ^VEXAMINE
384 S ^ABSN="10496",^ITEM="I-38.4  -3*0.0E2",^NEXT="385^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-3*0.0E2,^VCORR=0 D ^VEXAMINE
385 S ^ABSN="10497",^ITEM="I-38.5  0.0*-4",^NEXT="39^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.0*-4,^VCORR=0 D ^VEXAMINE
 ;
39 W !,"I-39  Left expratom>0, right expratom>0"
391 S ^ABSN="10498",^ITEM="I-39.1  1*1",^NEXT="392^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1*1,^VCORR=1 D ^VEXAMINE
392 S ^ABSN="10499",^ITEM="I-39.2  2*3",^NEXT="393^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2*3,^VCORR=6 D ^VEXAMINE
393 S ^ABSN="10500",^ITEM="I-39.3  0.5*.5",^NEXT="394^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.5*.5,^VCORR=.25 D ^VEXAMINE
394 S ^ABSN="10501",^ITEM="I-39.4  .01*4.0",^NEXT="40^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.01*4.0,^VCORR=.04 D ^VEXAMINE
 ;
40 W !,"I-40  Left expratom>0, right expratom<0"
401 S ^ABSN="10502",^ITEM="I-40.1  3*-2",^NEXT="402^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3*-2,^VCORR=-6 D ^VEXAMINE
402 S ^ABSN="10503",^ITEM="I-40.2  .3*-0.3",^NEXT="41^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.3*-0.3,^VCORR=-.09 D ^VEXAMINE
 ;
41 W !,"I-41  Left expratom<0, right expratom>0"
411 S ^ABSN="10504",^ITEM="I-41.1  -2*4",^NEXT="412^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2*4,^VCORR=-8 D ^VEXAMINE
412 S ^ABSN="10505",^ITEM="I-41.2  -597.2*25",^NEXT="413^V1BOA5,V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.2*25,^VCORR=-14930 D ^VEXAMINE
413 S ^ABSN="10506",^ITEM="I-41.3  -.023*00.190",^NEXT="V1BOA6^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-.023*00.190,^VCORR=-.00437 D ^VEXAMINE
 ;
END W !!,"End of 40---V1BOA5",!
 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

V1BOA6
V1BOA6 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR ARITHMETIC: *  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"41---V1BOA6: Binary operator  arithmetic: *   -2-",!
 ;
42 W !,"I-42  Left expratom<0, right expratom<0"
421 S ^ABSN="10507",^ITEM="I-42.1  -3*-4",^NEXT="422^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-3*-4,^VCORR=12 D ^VEXAMINE
422 S ^ABSN="10508",^ITEM="I-42.2  -2.0*-50.3",^NEXT="423^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2.0*-50.3,^VCORR=100.6 D ^VEXAMINE
423 S ^ABSN="10509",^ITEM="I-42.3  -.00239*-.092",^NEXT="43^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-.00239*-.092,^VCORR=.00021988 D ^VEXAMINE
 ;
43 W !,"I-43  expratoms are numlit"
431 S ^ABSN="10510",^ITEM="I-43.1  1E1*1.10",^NEXT="432^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1*1.10,^VCORR=11 D ^VEXAMINE
432 S ^ABSN="10511",^ITEM="I-43.2  92.36E-1*12.3E+1",^NEXT="433^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=92.36E-1*12.3E+1,^VCORR=1136.028 D ^VEXAMINE
433 S ^ABSN="10512",^ITEM="I-43.3  09900E-2*000.065432100",^NEXT="434^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=09900E-2*000.065432100,^VCORR="6.4777779" D ^VEXAMINE
434 S ^ABSN="10513",^ITEM="I-43.4  0.123E2*12300E-2",^NEXT="44^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.123E2*12300E-2,^VCORR=1512.9 D ^VEXAMINE
 ;
44 W !,"I-44  expratoms are strlit"
441 S ^ABSN="10514",^ITEM="I-44.1  ""AB2""*""2AB""",^NEXT="442^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="AB2"*"2AB",^VCORR=0 D ^VEXAMINE
442 S ^ABSN="10515",^ITEM="I-44.2  ""2A2B""*""2E2B""",^NEXT="45^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"*"2E2B",^VCORR=400 D ^VEXAMINE
 ;
45 W !,"I-45  expratoms are lvn"
451 S ^ABSN="10516",^ITEM="I-45.1  Unsubscripted lvn",^NEXT="452^V1BOA6,V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A*B,^VCORR=0 D ^VEXAMINE
452 S ^ABSN="10517",^ITEM="I-45.2  Subscripted lvn",^NEXT="V1BOA7^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A(1)="20.0E2DD",B(1,1)="000.0300###",^VCOMP=A(1)*B(1,1),^VCORR=60 D ^VEXAMINE
 ;
END W !!,"End of 41---V1BOA6",!
 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

V1BOA7
V1BOA7 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: /  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"42---V1BOA7: Binary operator  arithmetic: /   -1-"
 W !!,"Algebraic quotient",!
46 W !,"I-46  expratom=0"
461 S ^ABSN="10518",^ITEM="I-46.1  0/1",^NEXT="462^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0/1,^VCORR=0 D ^VEXAMINE
462 S ^ABSN="10519",^ITEM="I-46.2  0/-6",^NEXT="47^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0/-6,^VCORR=0 D ^VEXAMINE
 ;
47 W !,"I-47  Left expratom>0, right expratom>0"
471 S ^ABSN="10520",^ITEM="I-47.1  3/3",^NEXT="472^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3/3,^VCORR=1 D ^VEXAMINE
472 S ^ABSN="10521",^ITEM="I-47.2  8/2",^NEXT="473^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=8/2,^VCORR=4 D ^VEXAMINE
473 S ^ABSN="10522",^ITEM="I-47.3  3/2",^NEXT="474^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3/2,^VCORR=1.5 D ^VEXAMINE
474 S ^ABSN="10523",^ITEM="I-47.4  3/4",^NEXT="475^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3/4,^VCORR=.75 D ^VEXAMINE
475 S ^ABSN="10524",^ITEM="I-47.5  10/4",^NEXT="476^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=10/4,^VCORR=2.5 D ^VEXAMINE
476 S ^ABSN="10525",^ITEM="I-47.6  .5/0.5",^NEXT="477^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.5/0.5,^VCORR=1 D ^VEXAMINE
477 S ^ABSN="10526",^ITEM="I-47.7  4.1/0.01",^NEXT="48^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=4.1/0.01,^VCORR=410 D ^VEXAMINE
 ;
48 W !,"I-48  Left expratom>0, right expratom<0"
481 S ^ABSN="10527",^ITEM="I-48.1  11/-4",^NEXT="482^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=11/-4,^VCORR=-2.75 D ^VEXAMINE
482 S ^ABSN="10528",^ITEM="I-48.2  .3/-0.3",^NEXT="483^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.3/-0.3,^VCORR=-1 D ^VEXAMINE
483 S ^ABSN="10529",^ITEM="I-48.3  016.1370/-01.630",^NEXT="484^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=016.1370/-01.630,^VCORR=-9.9 D ^VEXAMINE
484 S ^ABSN="10530",^ITEM="I-48.4  0.0618700/-026.90",^NEXT="49^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.0618700/-026.90,^VCORR=-.0023 D ^VEXAMINE
 ;
49 W !,"I-49  Left expratom<0, right expratom>0"
491 S ^ABSN="10531",^ITEM="I-49.1  -9/4",^NEXT="492^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-9/4,^VCORR=-2.25 D ^VEXAMINE
492 S ^ABSN="10532",^ITEM="I-49.2  -597.5/25",^NEXT="493^V1BOA7,V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.5/25,^VCORR=-23.9 D ^VEXAMINE
493 S ^ABSN="10533",^ITEM="I-49.3  -0.9191799/999.0",^NEXT="V1BOA8^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0.9191799/999.0,^VCORR=-.0009201 D ^VEXAMINE
 ;
END W !!,"End of 42---V1BOA7",!
 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

V1BOA8
V1BOA8 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: /  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"43---V1BOA8: Binary operator  arithmetic: /   -2-",!
 ;
50 W !,"I-50  Left expratom<0, right expratom<0"
501 S ^ABSN="10534",^ITEM="I-50.1  -12/-4",^NEXT="502^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-12/-4,^VCORR=3 D ^VEXAMINE
502 S ^ABSN="10535",^ITEM="I-50.2  -50.3/-0.25",^NEXT="503^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-50.3/-0.25,^VCORR=201.2 D ^VEXAMINE
503 S ^ABSN="10536",^ITEM="I-50.3  -00.00404/-0.10100",^NEXT="51^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-00.00404/-0.10100,^VCORR=.04 D ^VEXAMINE
 ;
51 W !,"I-51  expratoms are numlit"
511 S ^ABSN="10537",^ITEM="I-51.1  1E1/1.60",^NEXT="512^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1/1.60,^VCORR=6.25 D ^VEXAMINE
512 S ^ABSN="10538",^ITEM="I-51.2  64777779E-07/0.099E+3",^NEXT="513^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=64777779E-07/0.099E+3,^VCORR=.0654321 D ^VEXAMINE
513 S ^ABSN="10539",^ITEM="I-51.3  00023.000E3/11.50000E-2",^NEXT="514^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00023.000E3/11.50000E-2,^VCORR=200000 D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
514 S ^ABSN="10540",^ITEM="I-51.4  .123E2/12300E-2",^NEXT="52^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=.123E2/12300E-2,^VCORR=.1 D ^VEXAMINE
 ;
52 W !,"I-52  expratoms are strlit"
521 S ^ABSN="10541",^ITEM="I-52.1  ""AB2""/""2AB""",^NEXT="522^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="AB2"/"2AB",^VCORR=0 D ^VEXAMINE
522 S ^ABSN="10542",^ITEM="I-52.2  ""2A2B""/""2E2B""",^NEXT="53^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"/"2E2B",^VCORR=.01 D ^VEXAMINE
 ;
53 W !,"I-53  expratoms are lvn"
531 S ^ABSN="10543",^ITEM="I-53.1  Unsubscripted lvn",^NEXT="532^V1BOA8,V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A/B,^VCORR=0 D ^VEXAMINE
532 S ^ABSN="10544",^ITEM="I-53.2  Subscripted lvn",^NEXT="V1BOA9^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A(8)="98.34E+@3",B(9)=0.001,^VCOMP=A(8)/B(9),^VCORR=98340 D ^VEXAMINE
 ;
END W !!,"End of 43---V1BOA8",!
 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

V1BOA9
V1BOA9 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: \   -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"44---V1BOA9: Binary operator  arithmetic: \   -1-"
 W !!,"Integer interpretation of algebraic quotient",!
54 W !,"I-54  expratom=0"
541 S ^ABSN="10545",^ITEM="I-54.1  0\1",^NEXT="542^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0\1,^VCORR=0 D ^VEXAMINE
542 S ^ABSN="10546",^ITEM="I-54.2  0\-8",^NEXT="55^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0\-8,^VCORR=0 D ^VEXAMINE
 ;
55 W !,"I-55  Left expratom>0, right expratom>0"
551 S ^ABSN="10547",^ITEM="I-55.1  3\3",^NEXT="552^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3\3,^VCORR=1 D ^VEXAMINE
552 S ^ABSN="10548",^ITEM="I-55.2  8\2",^NEXT="553^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=8\2,^VCORR=4 D ^VEXAMINE
553 S ^ABSN="10549",^ITEM="I-55.3  3\2",^NEXT="554^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3\2,^VCORR=1 D ^VEXAMINE
554 S ^ABSN="10550",^ITEM="I-55.4  3\4",^NEXT="555^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3\4,^VCORR=0 D ^VEXAMINE
555 S ^ABSN="10551",^ITEM="I-55.5  10\4",^NEXT="556^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=10\4,^VCORR=2 D ^VEXAMINE
556 S ^ABSN="10552",^ITEM="I-55.6  0.5\.5",^NEXT="557^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.5\.5,^VCORR=1 D ^VEXAMINE
557 S ^ABSN="10553",^ITEM="I-55.7  4.1\0.01",^NEXT="56^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=4.1\0.01,^VCORR=410 D ^VEXAMINE
 ;
56 W !,"I-56  Left expratom>0, right expratom<0"
561 S ^ABSN="10554",^ITEM="I-56.1  11\-4",^NEXT="562^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=11\-4,^VCORR=-2 D ^VEXAMINE
562 S ^ABSN="10555",^ITEM="I-56.2  0.3\-.3",^NEXT="563^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.3\-.3,^VCORR=-1 D ^VEXAMINE
563 S ^ABSN="10556",^ITEM="I-56.3  8083.5742\-808.6",^NEXT="57^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=8083.5742\-808.6,^VCORR=-9 D ^VEXAMINE
 ;
57 W !,"I-57  Left expratom<0, right expratom>0"
571 S ^ABSN="10557",^ITEM="I-57.1  -9\4",^NEXT="572^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-9\4,^VCORR=-2 D ^VEXAMINE
572 S ^ABSN="10558",^ITEM="I-57.2  -597.5\25",^NEXT="573^V1BOA9,V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.5\25,^VCORR=-23 D ^VEXAMINE
573 S ^ABSN="10559",^ITEM="I-57.3  -.005468\0.000113",^NEXT="V1BOA10^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-.005468\0.000113,^VCORR=-48 D ^VEXAMINE
 ;
END W !!,"End of 44---V1BOA9",!
 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

V1BOA10
V1BOA10 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: \   -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"45---V1BOA10: Binary operator  arithmetic: \   -2-",!
 ;
58 W !,"I-58  Left expratom<0, right expratom<0"
581 S ^ABSN="10560",^ITEM="I-58.1  -12\-4",^NEXT="582^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-12\-4,^VCORR=3 D ^VEXAMINE
582 S ^ABSN="10561",^ITEM="I-58.3  -50.3\-0.25",^NEXT="583^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-50.3\-0.25,^VCORR=201 D ^VEXAMINE
583 S ^ABSN="10562",^ITEM="I-58.3  -0.90136\-0.0001980",^NEXT="59^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-0.90136\-0.0001980,^VCORR=4552 D ^VEXAMINE
 ;
59 W !,"I-59  expratoms are numlit"
591 S ^ABSN="10563",^ITEM="I-59.1  1E1\1.10",^NEXT="592^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1\1.10,^VCORR=9 D ^VEXAMINE
592 S ^ABSN="10564",^ITEM="I-59.2  92.36E-2\12.36E+1",^NEXT="593^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=92.36E-2\12.36E+1,^VCORR=0 D ^VEXAMINE
593 S ^ABSN="10565",^ITEM="I-59.3  26.29369\2.632",^NEXT="594^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=26.29369\2.632,^VCORR=9 D ^VEXAMINE
594 S ^ABSN="10566",^ITEM="I-59.4  0.123E2\12300E-2",^NEXT="60^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.123E2\12300E-2,^VCORR=0 D ^VEXAMINE
 ;
60 W !,"I-60  expratoms are strlit"
601 S ^ABSN="10567",^ITEM="I-60.1  ""AB2""\""2AB""",^NEXT="602^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="AB2"\"2AB",^VCORR=0 D ^VEXAMINE
602 S ^ABSN="10568",^ITEM="I-60.2  ""2A2B""\""2E2B""",^NEXT="61^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"\"2E2B",^VCORR=0 D ^VEXAMINE
 ;
61 W !,"I-61  expratoms are lvn"
611 S ^ABSN="10569",^ITEM="I-61.1  Unsubscripted lvn",^NEXT="612^V1BOA10,V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A\B,^VCORR=0 D ^VEXAMINE
612 S ^ABSN="10570",^ITEM="I-61.2  Subscripted lvn",^NEXT="V1BOA11^V1BOA,V1BOR^VV1" D ^V1PRESET
 S A(5)=90025E-2,%B(2,2)=154.56E-1,^VCOMP=A(5)\%B(2,2),^VCORR=58 D ^VEXAMINE
 ;
END W !!,"End of 45---V1BOA10",!
 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

V1BOA11
V1BOA11 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: #   -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"46---V1BOA11: Binary operator  arithmetic: #   -1-"
 W !!,"The left argument modulo the right argument",!
62 W !,"I-62  expratom=0"
621 S ^ABSN="10571",^ITEM="I-62.1  0#4",^NEXT="622^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0#4,^VCORR=0 D ^VEXAMINE
622 S ^ABSN="10572",^ITEM="I-62.2  0#-4",^NEXT="63^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0#-4,^VCORR=0 D ^VEXAMINE
 ;
63 W !,"I-63  Left expratom>0, right expratom>0"
631 S ^ABSN="10573",^ITEM="I-63.1  1#4",^NEXT="632^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1#4,^VCORR=1 D ^VEXAMINE
632 S ^ABSN="10574",^ITEM="I-63.2  2#4",^NEXT="633^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2#4,^VCORR=2 D ^VEXAMINE
633 S ^ABSN="10575",^ITEM="I-63.3  3#4",^NEXT="634^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3#4,^VCORR=3 D ^VEXAMINE
634 S ^ABSN="10576",^ITEM="I-63.4  4#4",^NEXT="635^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=4#4,^VCORR=0 D ^VEXAMINE
635 S ^ABSN="10577",^ITEM="I-63.5  5#4",^NEXT="636^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=5#4,^VCORR=1 D ^VEXAMINE
636 S ^ABSN="10578",^ITEM="I-63.6  6#4",^NEXT="637^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=6#4,^VCORR=2 D ^VEXAMINE
637 S ^ABSN="10579",^ITEM="I-63.7  7#4",^NEXT="638^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=7#4,^VCORR=3 D ^VEXAMINE
638 S ^ABSN="10580",^ITEM="I-63.8  8#4",^NEXT="639^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=8#4,^VCORR=0 D ^VEXAMINE
639 S ^ABSN="10581",^ITEM="I-63.9  0.5#.5",^NEXT="6310^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.5#.5,^VCORR=0 D ^VEXAMINE
6310 S ^ABSN="10582",^ITEM="I-63.10  4.1#.01",^NEXT="64^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=4.1#.01,^VCORR=0 D ^VEXAMINE
 ;
64 W !,"I-64  Left expratom>0, right expratom<0"
641 S ^ABSN="10583",^ITEM="I-64.1  1#-4",^NEXT="642^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1#-4,^VCORR=-3 D ^VEXAMINE
642 S ^ABSN="10584",^ITEM="I-64.2  2#-4",^NEXT="643^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=2#-4,^VCORR=-2 D ^VEXAMINE
643 S ^ABSN="10585",^ITEM="I-64.3  3#-4",^NEXT="644^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=3#-4,^VCORR=-1 D ^VEXAMINE
644 S ^ABSN="10586",^ITEM="I-64.4  4#-4",^NEXT="645^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=4#-4,^VCORR=0 D ^VEXAMINE
645 S ^ABSN="10587",^ITEM="I-64.5  5#-4",^NEXT="646^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=5#-4,^VCORR=-3 D ^VEXAMINE
646 S ^ABSN="10588",^ITEM="I-64.6  6#-4",^NEXT="647^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=6#-4,^VCORR=-2 D ^VEXAMINE
647 S ^ABSN="10589",^ITEM="I-64.7  7#-4",^NEXT="648^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=7#-4,^VCORR=-1 D ^VEXAMINE
648 S ^ABSN="10590",^ITEM="I-64.8  8#-4",^NEXT="649^V1BOA11,V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=8#-4,^VCORR=0 D ^VEXAMINE
649 S ^ABSN="10591",^ITEM="I-64.9  0.3#-.3",^NEXT="V1BOA12^V1BOA,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.3#-.3,^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 46---V1BOA11",!
 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

V1BOA12
V1BOA12 ;IW-YS-TS,V1BOA,MVTS V9.10;15/6/96;BINARY OPERATOR  ARITHMETIC: #   -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"47---V1BOA12: Binary operator  arithmetic: #   -2-",!
 ;
65 W !,"I-65  Left expratom<0, right expratom>0"
651 S ^ABSN="10592",^ITEM="I-65.1  -1#4",^NEXT="652^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-1#4,^VCORR=3 D ^VEXAMINE
652 S ^ABSN="10593",^ITEM="I-65.2  -2#4",^NEXT="653^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2#4,^VCORR=2 D ^VEXAMINE
653 S ^ABSN="10594",^ITEM="I-65.3  -3#4",^NEXT="654^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-3#4,^VCORR=1 D ^VEXAMINE
654 S ^ABSN="10595",^ITEM="I-65.4  -4#4",^NEXT="655^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-4#4,^VCORR=0 D ^VEXAMINE
655 S ^ABSN="10596",^ITEM="I-65.5  -5#4",^NEXT="656^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-5#4,^VCORR=3 D ^VEXAMINE
656 S ^ABSN="10597",^ITEM="I-65.6  -6#4",^NEXT="657^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-6#4,^VCORR=2 D ^VEXAMINE
657 S ^ABSN="10598",^ITEM="I-65.7  -7#4",^NEXT="658^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-7#4,^VCORR=1 D ^VEXAMINE
658 S ^ABSN="10599",^ITEM="I-65.8  -8#4",^NEXT="659^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-8#4,^VCORR=0 D ^VEXAMINE
659 S ^ABSN="10600",^ITEM="I-65.9  -597.5#25",^NEXT="66^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-597.5#25,^VCORR=2.5 D ^VEXAMINE
 ;
66 W !,"I-66  Left expratom<0, right expratom<0"
661 S ^ABSN="10601",^ITEM="I-66.1  -1#-4",^NEXT="662^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-1#-4,^VCORR=-1 D ^VEXAMINE
662 S ^ABSN="10602",^ITEM="I-66.2  -2#-4",^NEXT="663^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-2#-4,^VCORR="-2" D ^VEXAMINE
663 S ^ABSN="10603",^ITEM="I-66.3  -3#-4",^NEXT="664^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-3#-4,^VCORR=-3 D ^VEXAMINE
664 S ^ABSN="10604",^ITEM="I-66.4  -4#-4",^NEXT="665^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-4#-4,^VCORR="0" D ^VEXAMINE
665 S ^ABSN="10605",^ITEM="I-66.5  -5#-4",^NEXT="666^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-5#-4,^VCORR=-1 D ^VEXAMINE
666 S ^ABSN="10606",^ITEM="I-66.6  -6#-4",^NEXT="667^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-6#-4,^VCORR="-2" D ^VEXAMINE
667 S ^ABSN="10607",^ITEM="I-66.7  -7#-4",^NEXT="668^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-7#-4,^VCORR=-3 D ^VEXAMINE
668 S ^ABSN="10608",^ITEM="I-66.8  -8#-4",^NEXT="669^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-8#-4,^VCORR=0 D ^VEXAMINE
669 S ^ABSN="10609",^ITEM="I-66.9  -50.3#-0.25",^NEXT="67^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=-50.3#-0.25,^VCORR=-.05 D ^VEXAMINE
 ;
67 W !,"I-67  expratoms are numlit"
671 S ^ABSN="10610",^ITEM="I-67.1  1E1#1.10",^NEXT="672^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=1E1#1.10,^VCORR=.1 D ^VEXAMINE
672 S ^ABSN="10611",^ITEM="I-67.2  923.6E-1#.1236E+1",^NEXT="673^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=923.6E-1#.1236E+1,^VCORR=.896 D ^VEXAMINE
673 S ^ABSN="10612",^ITEM="I-67.3  00023.0000E3#00.980000E+2",^NEXT="674^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=00023.0000E3#00.980000E+2,^VCORR=68 D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
674 S ^ABSN="10613",^ITEM="I-67.4  0.123E2#12300E-2",^NEXT="68^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP=0.123E2#12300E-2,^VCORR=12.3 D ^VEXAMINE
 ;
68 W !,"I-68  expratoms are strlit"
681 S ^ABSN="10614",^ITEM="I-68.1  ""AB2""#""2AB""",^NEXT="682^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="AB2"#"2AB",^VCORR=0 D ^VEXAMINE
682 S ^ABSN="10615",^ITEM="I-68.2  ""2A2B""#""2E2B""",^NEXT="69^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S ^VCOMP="2A2B"#"2E2B",^VCORR=2 D ^VEXAMINE
 ;
69 W !,"I-69  expratoms are lvn"
691 S ^ABSN="10616",^ITEM="I-69.1  Unsubscripted lvn",^NEXT="692^V1BOA12,V1BOR^VV1" D ^V1PRESET
 S A="-.0",B="-00002E",^VCOMP=A#B,^VCORR=0 D ^VEXAMINE
692 S ^ABSN="10617",^ITEM="I-69.2  Subscripted lvn",^NEXT="V1BOR^VV1" D ^V1PRESET
 S A(9)="34096E-3",B(1,2)=.0002E4,^VCOMP=A(9)#B(1,2),^VCORR=.096 D ^VEXAMINE
 ;
END W !!,"End of 47---V1BOA12",!
 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

V1BOR
V1BOR ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;BINARY OPERATORS  RELATIONAL: <, '<, >, '>, =, '=, [, '[, ], ']   SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1BOR1A W !!,"48---V1BOR1A" D ^V1BOR1A
V1BOR1B W !!,"49---V1BOR1B" D ^V1BOR1B
V1BOR2A W !!,"50---V1BOR2A" D ^V1BOR2A
V1BOR2B W !!,"51---V1BOR2B" D ^V1BOR2B
V1BOR2C W !!,"52---V1BOR2C" D ^V1BOR2C
V1BOR2D W !!,"53---V1BOR2D" D ^V1BOR2D
V1BOR2E W !!,"54---V1BOR2E" D ^V1BOR2E
V1BOR2F W !!,"55---V1BOR2F" D ^V1BOR2F
V1BOR3A W !!,"56---V1BOR3A" D ^V1BOR3A
V1BOR3B W !!,"57---V1BOR3B" D ^V1BOR3B
V1BOR4A W !!,"58---V1BOR4A" D ^V1BOR4A
V1BOR4B W !!,"59---V1BOR4B" D ^V1BOR4B
V1BOR4C W !!,"60---V1BOR4C" D ^V1BOR4C
V1BOR4D W !!,"61---V1BOR4D" D ^V1BOR4D
V1BOR5A W !!,"62---V1BOR5A" D ^V1BOR5A
V1BOR5B W !!,"63---V1BOR5B" D ^V1BOR5B
V1BOR5C W !!,"64---V1BOR5C" D ^V1BOR5C
V1BOR6A W !!,"65---V1BOR6A" D ^V1BOR6A
V1BOR6B W !!,"66---V1BOR6B" D ^V1BOR6B
V1BOR6C W !!,"67---V1BOR6C" D ^V1BOR6C
V1BOR6D W !!,"68---V1BOR6D" D ^V1BOR6D
V1BOR6E W !!,"69---V1BOR6E" D ^V1BOR6E
V1BOR6F W !!,"70---V1BOR6F" D ^V1BOR6F
V1BOR7A W !!,"71---V1BOR7A" D ^V1BOR7A
V1BOR7B W !!,"72---V1BOR7B" D ^V1BOR7B
V1BOR8A W !!,"73---V1BOR8A" D ^V1BOR8A
V1BOR8B W !!,"74---V1BOR8B" D ^V1BOR8B
V1BOR8C W !!,"75---V1BOR8C" D ^V1BOR8C
V1BOR8D W !!,"76---V1BOR8D" D ^V1BOR8D
V1BOR9A W !!,"77---V1BOR9A" D ^V1BOR9A
V1BOR9B W !!,"78---V1BOR9B" D ^V1BOR9B
V1BOR10A W !!,"79---V1BOR10A" D ^V1BOR10A
V1BOR10B W !!,"80---V1BOR10B" D ^V1BOR10B
V1BOR10C W !!,"81---V1BOR10C" D ^V1BOR10C
V1BOR10D W !!,"82---V1BOR10D" D ^V1BOR10D
V1BOR10E W !!,"83---V1BOR10E" D ^V1BOR10E
V1BOR10F W !!,"84---V1BOR10F" D ^V1BOR10F
 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

V1BOR1A
V1BOR1A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: < -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"48---V1BOR1A: Binary operator  relational: < -A-",!
 W !,"Numeric less than (<)",!
70 W !,"I-70  expratoms are numlit and numlit"
701 S ^ABSN="10618",^ITEM="I-70.1  0<0",^NEXT="702^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0<0,^VCORR="0" D ^VEXAMINE
702 S ^ABSN="10619",^ITEM="I-70.2  0<3",^NEXT="703^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0<3,^VCORR="1" D ^VEXAMINE
703 S ^ABSN="10620",^ITEM="I-70.3  3<0",^NEXT="704^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3<0,^VCORR="0" D ^VEXAMINE
704 S ^ABSN="10621",^ITEM="I-70.4  3<3",^NEXT="705^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3<3,^VCORR="0" D ^VEXAMINE
705 S ^ABSN="10622",^ITEM="I-70.5  3<4",^NEXT="706^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3<4,^VCORR="1" D ^VEXAMINE
706 S ^ABSN="10623",^ITEM="I-70.6  -3<0",^NEXT="707^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3<0,^VCORR="1" D ^VEXAMINE
707 S ^ABSN="10624",^ITEM="I-70.7  -3<-4",^NEXT="708^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3<-4,^VCORR="0" D ^VEXAMINE
708 S ^ABSN="10625",^ITEM="I-70.8  4<3.0",^NEXT="709^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4<3.0,^VCORR="0" D ^VEXAMINE
709 S ^ABSN="10626",^ITEM="I-70.9  -4.1<3",^NEXT="7010^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-4.1<3,^VCORR="1" D ^VEXAMINE
7010 S ^ABSN="10627",^ITEM="I-70.10  .3E1<00400E-2",^NEXT="7011^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E1<00400E-2,^VCORR="1" D ^VEXAMINE
7011 S ^ABSN="10628",^ITEM="I-70.11  -.3E01<4E0",^NEXT="7012^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-.3E01<4E0,^VCORR="1" D ^VEXAMINE
7012 S ^ABSN="10629",^ITEM="I-70.12  -5<-4",^NEXT="71^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-5<-4,^VCORR="1" D ^VEXAMINE
 ;
71 W !,"I-71  expratoms are numlit and strlit"
711 S ^ABSN="10630",^ITEM="I-71.1  3.1<""3.2""",^NEXT="712^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1<"3.2",^VCORR="1" D ^VEXAMINE
712 S ^ABSN="10631",^ITEM="I-71.2  3.1<""-3.0""",^NEXT="713^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1<"-3.0",^VCORR="0" D ^VEXAMINE
713 S ^ABSN="10632",^ITEM="I-71.3  3.1<""+3.2E+5""",^NEXT="714^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1<"+3.2E+5",^VCORR="1" D ^VEXAMINE
714 S ^ABSN="10633",^ITEM="I-71.4  0010000.000<""00099.2e+10""",^NEXT="715^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0010000.000<"00099.2e+10",^VCORR="0" D ^VEXAMINE ;--(Test chg. V7.5;20/8/90)
715 S ^ABSN="10634",^ITEM="I-71.5  00.01<""00000.1000000000000000""",^NEXT="716^V1BOR1A,V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.01<"00000.1000000000000000",^VCORR="1" D ^VEXAMINE
716 S ^ABSN="10635",^ITEM="I-71.6  3.1<""3.1WQWEQWQWQWQWWQ""",^NEXT="V1BOR1B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1<"3.1WQWEQWQWQWQWWQ",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 48---V1BOR1A",!
 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

V1BOR1B
V1BOR1B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: < -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"49---V1BOR1B: Binary operator  relational: < -B-",!
 ;
72 W !,"I-72  expratoms are strlit and numlit"
721 S ^ABSN="10636",^ITEM="I-72.1  ""3A""<4",^NEXT="722^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"<4,^VCORR="1" D ^VEXAMINE
722 S ^ABSN="10637",^ITEM="I-72.2  ""3.1""<3.2",^NEXT="723^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"<3.2,^VCORR="1" D ^VEXAMINE
723 S ^ABSN="10638",^ITEM="I-72.3  ""3E1""<31",^NEXT="724^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1"<31,^VCORR="1" D ^VEXAMINE
724 S ^ABSN="10639",^ITEM="I-72.4  ""'0""<.023",^NEXT="725^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="'0"<.023,^VCORR="1" D ^VEXAMINE
725 S ^ABSN="10640",^ITEM="I-72.5  ""-10""<-5",^NEXT="726^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-10"<-5,^VCORR="1" D ^VEXAMINE
726 S ^ABSN="10641",^ITEM="I-72.6  ""3.1""<3.1",^NEXT="73^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"<3.1,^VCORR="0" D ^VEXAMINE
 ;
73 W !,"I-73  expratoms are strlit and strlit"
731 S ^ABSN="10642",^ITEM="I-73.1  ""3A""<""4""",^NEXT="732^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"<"4",^VCORR="1" D ^VEXAMINE
732 S ^ABSN="10643",^ITEM="I-73.2  -""3E1A""<+""30.01A""",^NEXT="733^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-"3E1A"<+"30.01A",^VCORR="1" D ^VEXAMINE
733 S ^ABSN="10644",^ITEM="I-73.3  +""3A""<""4""",^NEXT="734^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"<"4",^VCORR="1" D ^VEXAMINE
734 S ^ABSN="10645",^ITEM="I-73.4  ""3E1A""<""30.01E-""",^NEXT="735^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1A"<"30.01E-",^VCORR="1" D ^VEXAMINE
735 S ^ABSN="10646",^ITEM="I-73.5  ""+3A""<""2""",^NEXT="736^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="+3A"<"2",^VCORR="0" D ^VEXAMINE
736 S ^ABSN="10647",^ITEM="I-73.6  ""+30A""<""30""",^NEXT="737^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="+30A"<"30",^VCORR="0" D ^VEXAMINE
737 S ^ABSN="10648",^ITEM="I-73.7  ""QWERTY""<""ZXY30""",^NEXT="74^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="QWERTY"<"ZXY30",^VCORR="0" D ^VEXAMINE
 ;
74 W !,"I-74  Empty string on left side"
741 S ^ABSN="10649",^ITEM="I-74.1  """"<3",^NEXT="742^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""<3,^VCORR="1" D ^VEXAMINE
742 S ^ABSN="10650",^ITEM="I-74.2  """"<0",^NEXT="743^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""<0,^VCORR="0" D ^VEXAMINE
743 S ^ABSN="10651",^ITEM="I-74.3  """"<""-.03""",^NEXT="744^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""<"-.03",^VCORR="0" D ^VEXAMINE
744 S ^ABSN="10652",^ITEM="I-74.4  """"<""+.03""",^NEXT="75^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""<"+.03",^VCORR="1" D ^VEXAMINE
 ;
75 W !,"I-75  Empty string on right side"
751 S ^ABSN="10653",^ITEM="I-75.1  3<""""",^NEXT="752^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3<"",^VCORR="0" D ^VEXAMINE
752 S ^ABSN="10654",^ITEM="I-75.2  0<""""",^NEXT="753^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0<"",^VCORR="0" D ^VEXAMINE
753 S ^ABSN="10655",^ITEM="I-75.3  -3<""""",^NEXT="76^V1BOR1B,V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3<"",^VCORR="1" D ^VEXAMINE
 ;
76 W !,"I-76  Empty string on both sides"
 S ^ABSN="10656",^ITEM="I-76  Empty string on both sides",^NEXT="V1BOR2A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""<"",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 49---V1BOR1B",!
 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

V1BOR2A
V1BOR2A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<  -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"50---V1BOR2A: Binary operator  relational: '<  -A-",!
 W !,"Numeric not less than ('<)",!
77 W !,"I-77  expratoms are numlit and numlit"
771 S ^ABSN="10657",^ITEM="I-77.1  0'<0",^NEXT="7711^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'<0,^VCORR="1" D ^VEXAMINE
7711 S ^ABSN="10658",^ITEM="I-77.1.1  '(0<0)",^NEXT="772^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0<0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
772 S ^ABSN="10659",^ITEM="I-77.2  0'<3",^NEXT="7721^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'<3,^VCORR="0" D ^VEXAMINE
7721 S ^ABSN="10660",^ITEM="I-77.2.1  '(0<3)",^NEXT="773^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0<3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
773 S ^ABSN="10661",^ITEM="I-77.3  3'<0",^NEXT="7731^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'<0,^VCORR="1" D ^VEXAMINE
7731 S ^ABSN="10662",^ITEM="I-77.3.1  '(3<0)",^NEXT="774^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3<0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
774 S ^ABSN="10663",^ITEM="I-77.4  3'<3",^NEXT="7741^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'<3,^VCORR="1" D ^VEXAMINE
7741 S ^ABSN="10664",^ITEM="I-77.4.1  '(3<3)",^NEXT="775^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3<3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
775 S ^ABSN="10665",^ITEM="I-77.5  3'<4",^NEXT="7751^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'<4,^VCORR="0" D ^VEXAMINE
7751 S ^ABSN="10666",^ITEM="I-77.5.1  '(3<4)",^NEXT="776^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3<4),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
776 S ^ABSN="10667",^ITEM="I-77.6  -3'<0",^NEXT="7761^V1BOR2A,V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'<0,^VCORR="0" D ^VEXAMINE
7761 S ^ABSN="10668",^ITEM="I-77.6.1  '(-3<0)",^NEXT="V1BOR2B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3<0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 50---V1BOR2A",!
 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

V1BOR2B
V1BOR2B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<  -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"51---V1BOR2B: Binary operator  relational: '<  -B-",!
777 S ^ABSN="10669",^ITEM="I-77.7  -3'<-4",^NEXT="7771^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'<-4,^VCORR="1" D ^VEXAMINE
7771 S ^ABSN="10670",^ITEM="I-77.7.1  '(-3<-4)",^NEXT="778^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3<-4),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
778 S ^ABSN="10671",^ITEM="I-77.8  4'<3.0",^NEXT="7781^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4'<3.0,^VCORR="1" D ^VEXAMINE
7781 S ^ABSN="10672",^ITEM="I-77.8.1  '(4<3.0)",^NEXT="779^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(4<3.0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
779 S ^ABSN="10673",^ITEM="I-77.9  -4.1'<3",^NEXT="7791^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-4.1'<3,^VCORR="0" D ^VEXAMINE
7791 S ^ABSN="10674",^ITEM="I-77.9.1  '(-4.1<3)",^NEXT="7710^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-4.1<3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
7710 S ^ABSN="10675",^ITEM="I-77.10  .3E1'<00400E-2",^NEXT="77101^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E1'<00400E-2,^VCORR="0" D ^VEXAMINE
77101 S ^ABSN="10676",^ITEM="I-77.10.1  '(.3E1<00400E-2)",^NEXT="7711^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(.3E1<00400E-2),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
7711 S ^ABSN="10677",^ITEM="I-77.11  -.3E01'<4E0",^NEXT="77111^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-.3E01'<4E0,^VCORR="0" D ^VEXAMINE
77111 S ^ABSN="10678",^ITEM="I-77.11.1  '(-.3E01<4E0)",^NEXT="7712^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-.3E01<4E0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
7712 S ^ABSN="10679",^ITEM="I-77.12  -5'<-4",^NEXT="77121^V1BOR2B,V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-5'<-4,^VCORR="0" D ^VEXAMINE
77121 S ^ABSN="10680",^ITEM="I-77.12.1  '(-5<-4)",^NEXT="V1BOR2C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-5<-4),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 51---V1BOR2B",!
 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

V1BOR2C
V1BOR2C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<   -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"52---V1BOR2C: Binary operator  relational: '<   -C-",!
78 W !,"I-78  expratoms are numlit and strlit"
781 S ^ABSN="10681",^ITEM="I-78.1  0'<""0""",^NEXT="7811^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'<"0",^VCORR="1" D ^VEXAMINE
7811 S ^ABSN="10682",^ITEM="I-78.1.1  '(0<""0"")",^NEXT="782^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0<"0"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
782 S ^ABSN="10683",^ITEM="I-78.2  0'<""00""",^NEXT="7821^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'<"00",^VCORR="1" D ^VEXAMINE
7821 S ^ABSN="10684",^ITEM="I-78.2.1  '(0<""00"")",^NEXT="783^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0<"00"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
783 S ^ABSN="10685",^ITEM="I-78.3  3.1'<""3.2""",^NEXT="7831^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1'<"3.2",^VCORR="0" D ^VEXAMINE
7831 S ^ABSN="10686",^ITEM="I-78.3.1  '(3.1<""3.2"")",^NEXT="784^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.1<"3.2"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
784 S ^ABSN="10687",^ITEM="I-78.4  3.1'<""-3.0""",^NEXT="7841^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1'<"-3.0",^VCORR="1" D ^VEXAMINE
7841 S ^ABSN="10688",^ITEM="I-78.4.1  '(3.1<""-3.0"")",^NEXT="785^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.1<"-3.0"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
785 S ^ABSN="10689",^ITEM="I-78.5  3.1'<""+3.2E+5""",^NEXT="7851^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1'<"+3.2E+5",^VCORR="0" D ^VEXAMINE
7851 S ^ABSN="10690",^ITEM="I-78.5.1  '(3.1<""+3.2E+5"")",^NEXT="786^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.1<"+3.2E+5"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
786 S ^ABSN="10691",^ITEM="I-78.6  0010000.000'<""00099.2e+10""",^NEXT="7861^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0010000.000'<"00099.2e+10",^VCORR="1" D ^VEXAMINE ;--(Test chg. V7.5;20/8/90)
7861 S ^ABSN="10692",^ITEM="I-78.6.1  '(0010000.000<""00099.2e+10"")",^NEXT="787^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0010000.000<"00099.2e+10"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89 ;--(Test chg. V7.5;20/8/90)
787 S ^ABSN="10693",^ITEM="I-78.7  00.01'<""00000.100000000000000""",^NEXT="7871^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.01'<"00000.100000000000000",^VCORR="0" D ^VEXAMINE
7871 S ^ABSN="10694",^ITEM="I-78.7.1  '(00.01<""00000.100000000000000"")",^NEXT="788^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00.01<"00000.100000000000000"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
788 S ^ABSN="10695",^ITEM="I-78.8  30.10'<""30.1""",^NEXT="7881^V1BOR2C,V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.10'<"30.1",^VCORR="1" D ^VEXAMINE
7881 S ^ABSN="10696",^ITEM="I-78.8.1  '(30.10<""30.1"")",^NEXT="V1BOR2D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(30.10<"30.1"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 52---V1BOR2C",!
 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

V1BOR2D
V1BOR2D ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<   -D-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"53---V1BOR2D: Binary operator  relational: '<   -D-",!
 ;
79 W !,"I-79  expratoms are strlit and numlit"
791 S ^ABSN="10697",^ITEM="I-79.1  ""3A""'<4",^NEXT="7911^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"'<4,^VCORR="0" D ^VEXAMINE
7911 S ^ABSN="10698",^ITEM="I-79.1.1  '(""3A""<4)",^NEXT="792^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A"<4),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
792 S ^ABSN="10699",^ITEM="I-79.2  ""3.1""'<3.2",^NEXT="7921^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"'<3.2,^VCORR="0" D ^VEXAMINE
7921 S ^ABSN="10700",^ITEM="I-79.2.1  '(""3.1""<3.2)",^NEXT="793^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3.1"<3.2),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
793 S ^ABSN="10701",^ITEM="I-79.3  ""3E1""'<31",^NEXT="7931^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1"'<31,^VCORR="0" D ^VEXAMINE
7931 S ^ABSN="10702",^ITEM="I-79.3.1  '(""3E1""<31)",^NEXT="794^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3E1"<31),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
794 S ^ABSN="10703",^ITEM="I-79.4  ""'0""'<.023",^NEXT="7941^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="'0"'<.023,^VCORR="0" D ^VEXAMINE
7941 S ^ABSN="10704",^ITEM="I-79.4.1  '(""'0""<.023)",^NEXT="795^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("'0"<.023),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
795 S ^ABSN="10705",^ITEM="I-79.5  ""-10""'<-5",^NEXT="7951^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-10"'<-5,^VCORR="0" D ^VEXAMINE
7951 S ^ABSN="10706",^ITEM="I-79.5.1  '(""-10""<-5)",^NEXT="796^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("-10"<-5),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
796 S ^ABSN="10707",^ITEM="I-79.6  ""3.1""'<3.1",^NEXT="7961^V1BOR2D,V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"'<3.1,^VCORR="1" D ^VEXAMINE
7961 S ^ABSN="10708",^ITEM="I-79.6.1  '(""3.1""<3.1)",^NEXT="V1BOR2E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3.1"<3.1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 53---V1BOR2D",!
 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

V1BOR2E
V1BOR2E ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<   -E-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"54---V1BOR2E: Binary operator  relational: '<   -E-",!
 ;
80 W !,"I-80  expratoms are strlit and strlit"
801 S ^ABSN="10709",^ITEM="I-80.1  ""3A""'<""4""",^NEXT="8011^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"'<"4",^VCORR="0" D ^VEXAMINE
8011 S ^ABSN="10710",^ITEM="I-80.1.1  '(""3A""<""4"")",^NEXT="802^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A"<"4"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
802 S ^ABSN="10711",^ITEM="I-80.2  -""3E1A""'<+""30.01A""",^NEXT="8021^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-"3E1A"'<+"30.01A",^VCORR="0" D ^VEXAMINE
8021 S ^ABSN="10712",^ITEM="I-80.2.1  '(-""3E1A""<+""30.01A"")",^NEXT="803^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-"3E1A"<+"30.01A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
803 S ^ABSN="10713",^ITEM="I-80.3  +""3A""'<""4""",^NEXT="8031^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"'<"4",^VCORR="0" D ^VEXAMINE
8031 S ^ABSN="10714",^ITEM="I-80.3.1  '(+""3A""<""4"")",^NEXT="804^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(+"3A"<"4"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
804 S ^ABSN="10715",^ITEM="I-80.4  ""3E1A""'<""30.01E-""",^NEXT="8041^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1A"'<"30.01E-",^VCORR="0" D ^VEXAMINE
8041 S ^ABSN="10716",^ITEM="I-80.4.1  '(""3E1A""<""30.01E-"")",^NEXT="805^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3E1A"<"30.01E-"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
805 S ^ABSN="10717",^ITEM="I-80.5  ""+3A""'<""2""",^NEXT="8051^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="+3A"'<"2",^VCORR="1" D ^VEXAMINE
8051 S ^ABSN="10718",^ITEM="I-80.5.1  '(""+3A""<""2"")",^NEXT="806^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("+3A"<"2"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
806 S ^ABSN="10719",^ITEM="I-80.6  ""987654A""'<""987654E""",^NEXT="8061^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="987654A"'<"987654E",^VCORR="1" D ^VEXAMINE
8061 S ^ABSN="10720",^ITEM="I-80.6.1  '(""987654A""<""987654E"")",^NEXT="807^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("987654A"<"987654E"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
807 S ^ABSN="10721",^ITEM="I-80.7  ""QWERTY""'<""ZXY30""",^NEXT="8071^V1BOR2E,V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="QWERTY"'<"ZXY30",^VCORR="1" D ^VEXAMINE
8071 S ^ABSN="10722",^ITEM="I-80.7.1  '(""QWERTY""<""ZXY30"")",^NEXT="V1BOR2F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("QWERTY"<"ZXY30"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 54---V1BOR2E",!
 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

V1BOR2F
V1BOR2F ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '<   -F-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"55---V1BOR2F: Binary operator  relational: '<   -F-",!
 ;
81 W !,"I-81  Empty string on left side"
811 S ^ABSN="10723",^ITEM="I-81.1  """"'<3",^NEXT="8111^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'<3,^VCORR="0" D ^VEXAMINE
8111 S ^ABSN="10724",^ITEM="I-81.1.1  '(""""<3)",^NEXT="812^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""<3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
812 S ^ABSN="10725",^ITEM="I-81.2  """"'<0",^NEXT="8121^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'<0,^VCORR="1" D ^VEXAMINE
8121 S ^ABSN="10726",^ITEM="I-81.2.1  '(""""<0)",^NEXT="813^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""<0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
813 S ^ABSN="10727",^ITEM="I-81.3  """"'<""-.03""",^NEXT="8131^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'<"-.03",^VCORR="1" D ^VEXAMINE
8131 S ^ABSN="10728",^ITEM="I-81.3.1  '(""""<""-.03"")",^NEXT="814^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""<"-.03"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
814 S ^ABSN="10729",^ITEM="I-81.4  """"'<""+.03""",^NEXT="8141^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'<"+.03",^VCORR="0" D ^VEXAMINE
8141 S ^ABSN="10730",^ITEM="I-81.4.1  '(""""<""+.03"")",^NEXT="82^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""<"+.03"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
82 W !,"I-82  Empty string on right side"
821 S ^ABSN="10731",^ITEM="I-82.1  3'<""""",^NEXT="8211^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'<"",^VCORR="1" D ^VEXAMINE
8211 S ^ABSN="10732",^ITEM="I-82.1.1  '(3<"""")",^NEXT="822^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3<""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
822 S ^ABSN="10733",^ITEM="I-82.2  0'<""""",^NEXT="8221^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'<"",^VCORR="1" D ^VEXAMINE
8221 S ^ABSN="10734",^ITEM="I-82.2.1  '(0<"""")",^NEXT="823^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0<""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
823 S ^ABSN="10735",^ITEM="I-82.3  -3'<""""",^NEXT="8231^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'<"",^VCORR="0" D ^VEXAMINE
8231 S ^ABSN="10736",^ITEM="I-82.3.1  '(-3<"""")",^NEXT="83^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3<""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
83 W !,"I-83  Empty string on both sides"
831 S ^ABSN="10737",^ITEM="I-83.1  """"'<""""",^NEXT="8311^V1BOR2F,V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'<"",^VCORR="1" D ^VEXAMINE ;Number changed in V7.4;16/9/89
8311 S ^ABSN="10738",^ITEM="I-83.1.1  '(""""<""""",^NEXT="V1BOR3A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""<""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 55---V1BOR2F",!
 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

V1BOR3A
V1BOR3A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: >  -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"56---V1BOR3A: Binary operator  relational: >  -A-",!
 W !,"Numeric greater than (>)",!
84 W !,"I-84  expratoms are numlit and numlit"
 ;
841 S ^ABSN="10739",^ITEM="I-84.1  0>0",^NEXT="842^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0>0,^VCORR="0" D ^VEXAMINE
842 S ^ABSN="10740",^ITEM="I-84.2  0>3",^NEXT="843^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0>3,^VCORR="0" D ^VEXAMINE
843 S ^ABSN="10741",^ITEM="I-84.3  3>0",^NEXT="844^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3>0,^VCORR="1" D ^VEXAMINE
844 S ^ABSN="10742",^ITEM="I-84.4  3>3",^NEXT="845^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3>3,^VCORR="0" D ^VEXAMINE
845 S ^ABSN="10743",^ITEM="I-84.5  4>3",^NEXT="846^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4>3,^VCORR="1" D ^VEXAMINE
846 S ^ABSN="10744",^ITEM="I-84.6  -3>0",^NEXT="847^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3>0,^VCORR="0" D ^VEXAMINE
847 S ^ABSN="10745",^ITEM="I-84.7  -3>-4",^NEXT="848^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3>-4,^VCORR="1" D ^VEXAMINE
848 S ^ABSN="10746",^ITEM="I-84.8  4>3.0",^NEXT="849^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4>3.0,^VCORR="1" D ^VEXAMINE
849 S ^ABSN="10747",^ITEM="I-84.9  -4.1>3",^NEXT="8410^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-4.1>3,^VCORR="0" D ^VEXAMINE
8410 S ^ABSN="10748",^ITEM="I-84.10  .3E1>00400E-2",^NEXT="8411^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E1>00400E-2,^VCORR="0" D ^VEXAMINE
8411 S ^ABSN="10749",^ITEM="I-84.11  .3E01>-4E0",^NEXT="8412^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E01>-4E0,^VCORR="1" D ^VEXAMINE
8412 S ^ABSN="10750",^ITEM="I-84.12  -95.00001>-95",^NEXT="85^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-95.00001>-95,^VCORR="0" D ^VEXAMINE
 ;
85 W !,"I-85  expratoms are numlit and strlit"
851 S ^ABSN="10751",^ITEM="I-85.1  2>""9Q""",^NEXT="852^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=2>"9Q",^VCORR="0" D ^VEXAMINE
852 S ^ABSN="10752",^ITEM="I-85.2  30.1>""3E+1""",^NEXT="853^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1>"3E+1",^VCORR="1" D ^VEXAMINE
853 S ^ABSN="10753",^ITEM="I-85.3  30.1>""30.+999DG""",^NEXT="854^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1>"30.+999DG",^VCORR="1" D ^VEXAMINE
854 S ^ABSN="10754",^ITEM="I-85.4  30.1>""20+589""",^NEXT="855^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1>"20+589",^VCORR="1" D ^VEXAMINE
855 S ^ABSN="10755",^ITEM="I-85.5  20>""-3E+1""",^NEXT="856^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=20>"-3E+1",^VCORR="1" D ^VEXAMINE
856 S ^ABSN="10756",^ITEM="I-85.6  30.1>""30.1""",^NEXT="857^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1>"30.1",^VCORR="0" D ^VEXAMINE
857 S ^ABSN="10757",^ITEM="I-85.7  -30.1>""-30.1""",^NEXT="858^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-30.1>"-30.1",^VCORR="0" D ^VEXAMINE
858 S ^ABSN="10758",^ITEM="I-85.8  -987.0456>""-87.56""",^NEXT="859^V1BOR3A,V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-987.0456>"-87.56",^VCORR="0" D ^VEXAMINE
859 S ^ABSN="10759",^ITEM="I-85.9  -987.0456>""-8787.56""",^NEXT="V1BOR3B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-987.0456>"-8787.56",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 56---V1BOR3A",!
 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

V1BOR3B
V1BOR3B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: > -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"57---V1BOR3B: Binary operator  relational: >  -B-",!
 ;
86 W !,"I-86  expratoms are strlit and numlit"
861 S ^ABSN="10760",^ITEM="I-86.1  ""3A"">2",^NEXT="862^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A">2,^VCORR="1" D ^VEXAMINE
862 S ^ABSN="10761",^ITEM="I-86.2  ""3E1"">29",^NEXT="863^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1">29,^VCORR="1" D ^VEXAMINE
863 S ^ABSN="10762",^ITEM="I-86.3  ""3.1"">3.0",^NEXT="864^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1">3.0,^VCORR="1" D ^VEXAMINE
864 S ^ABSN="10763",^ITEM="I-86.4  ""2.99"">3.0",^NEXT="865^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="2.99">3.0,^VCORR="0" D ^VEXAMINE
865 S ^ABSN="10764",^ITEM="I-86.5  ""-87.01E-1"">-98710",^NEXT="87^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-87.01E-1">-98710,^VCORR="1" D ^VEXAMINE
 ;
87 W !,"I-87  expratoms are strlit and strlit"
871 S ^ABSN="10765",^ITEM="I-87.1  ""3A"">""2""",^NEXT="872^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A">"2",^VCORR="1" D ^VEXAMINE
872 S ^ABSN="10766",^ITEM="I-87.2  +""3E1A"">""029.9A""",^NEXT="873^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3E1A">"029.9A",^VCORR="1" D ^VEXAMINE
873 S ^ABSN="10767",^ITEM="I-87.3  ""-23ENGLISH"">""-22.00e-9"" ",^NEXT="88^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-23ENGLISH">"-22.00e-9",^VCORR="0" D ^VEXAMINE
 ;
88 W !,"I-88  Empty string on left side"
881 S ^ABSN="10768",^ITEM="I-88.1  """">9",^NEXT="882^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="">9,^VCORR="0" D ^VEXAMINE
882 S ^ABSN="10769",^ITEM="I-88.2  """">0",^NEXT="883^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="">0,^VCORR="0" D ^VEXAMINE
883 S ^ABSN="10770",^ITEM="I-88.3  """">-9",^NEXT="884^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="">-9,^VCORR="1" D ^VEXAMINE
884 S ^ABSN="10771",^ITEM="I-88.4  """">""-9FIND""",^NEXT="89^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="">"-9FIND",^VCORR="1" D ^VEXAMINE
 ;
89 W !,"I-89  Empty string on right side"
891 S ^ABSN="10772",^ITEM="I-89.1  2>""""",^NEXT="892^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=2>"",^VCORR="1" D ^VEXAMINE
892 S ^ABSN="10773",^ITEM="I-89.2  0>""""",^NEXT="893^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0>"",^VCORR="0" D ^VEXAMINE
893 S ^ABSN="10774",^ITEM="I-89.3  -2.2>""""",^NEXT="90^V1BOR3B,V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-2.2>"",^VCORR="0" D ^VEXAMINE
 ;
90 W !,"I-90  Empty string on both sides"
 S ^ABSN="10775",^ITEM="I-90  Empty string on both sides",^NEXT="V1BOR4A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="">"",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 57---V1BOR3B",!
 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

V1BOR4A
V1BOR4A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '>   -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"58---V1BOR4A: Binary operator  relational: '>   -A-",!
 W !,"Numeric not greater than ('>)",!
91 W !,"I-91  expratoms are numlit and numlit"
911 S ^ABSN="10776",^ITEM="I-91.1  3'>3",^NEXT="91011^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'>3,^VCORR="1" D ^VEXAMINE
91011 S ^ABSN="10777",^ITEM="I-91.1.1  '(3>3)",^NEXT="912^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3>3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
912 S ^ABSN="10778",^ITEM="I-91.2  4'>3",^NEXT="9121^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4'>3,^VCORR="0" D ^VEXAMINE
9121 S ^ABSN="10779",^ITEM="I-91.2.1  '(4>3)",^NEXT="913^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(4>3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
913 S ^ABSN="10780",^ITEM="I-91.3  0'>0",^NEXT="9131^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'>0,^VCORR="1" D ^VEXAMINE
9131 S ^ABSN="10781",^ITEM="I-91.3.1  '(0>0)",^NEXT="914^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0>0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
914 S ^ABSN="10782",^ITEM="I-91.4  0'>3",^NEXT="9141^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'>3,^VCORR="1" D ^VEXAMINE
9141 S ^ABSN="10783",^ITEM="I-91.4.1  '(0>3)",^NEXT="915^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0>3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
915 S ^ABSN="10784",^ITEM="I-91.5  3'>0",^NEXT="9151^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'>0,^VCORR="0" D ^VEXAMINE
9151 S ^ABSN="10785",^ITEM="I-91.5.1  '(3>0)",^NEXT="916^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3>0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
916 S ^ABSN="10786",^ITEM="I-91.6  -3'>0",^NEXT="9161^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'>0,^VCORR="1" D ^VEXAMINE
9161 S ^ABSN="10787",^ITEM="I-91.6.1  '(-3>0)",^NEXT="917^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3>0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
917 S ^ABSN="10788",^ITEM="I-91.7  -3'>-4",^NEXT="9171^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'>-4,^VCORR="0" D ^VEXAMINE
9171 S ^ABSN="10789",^ITEM="I-91.7.1  '(-3>-4)",^NEXT="918^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3>-4),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
918 S ^ABSN="10790",^ITEM="I-91.8  4'>3.0",^NEXT="9181^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=4'>3.0,^VCORR="0" D ^VEXAMINE
9181 S ^ABSN="10791",^ITEM="I-91.8.1  '(4>3.0)",^NEXT="919^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(4>3.0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
919 S ^ABSN="10792",^ITEM="I-91.9  -4.1'>3",^NEXT="9191^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-4.1'>3,^VCORR="1" D ^VEXAMINE
9191 S ^ABSN="10793",^ITEM="I-91.9.1  '(-4.1>3)",^NEXT="9110^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-4.1>3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
9110 S ^ABSN="10794",^ITEM="I-91.10  .3E1'>00400E-2",^NEXT="91101^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E1'>00400E-2,^VCORR="1" D ^VEXAMINE
91101 S ^ABSN="10795",^ITEM="I-91.10.1  '(.3E1>00400E-2)",^NEXT="9111^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(.3E1>00400E-2),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
9111 S ^ABSN="10796",^ITEM="I-91.11  .3E01'>-4E0",^NEXT="91111^V1BOR4A,V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.3E01'>-4E0,^VCORR="0" D ^VEXAMINE
91111 S ^ABSN="10797",^ITEM="I-91.11.1  '(.3E01>-4E0)",^NEXT="V1BOR4B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(.3E01>-4E0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 58---V1BOR4A",!
 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

V1BOR4B
V1BOR4B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '>   -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"59---V1BOR4B: Binary operator  relational: '>   -B-",!
 ;
92 W !,"I-92  expratoms are numlit and strlit"
921 S ^ABSN="10798",^ITEM="I-92.1  2'>""9Q""",^NEXT="9211^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=2'>"9Q",^VCORR="1" D ^VEXAMINE
9211 S ^ABSN="10799",^ITEM="I-92.1.1  '(2>""9Q"")",^NEXT="922^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(2>"9Q"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
922 S ^ABSN="10800",^ITEM="I-92.2  30.1'>""3E+1""",^NEXT="9221^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1'>"3E+1",^VCORR="0" D ^VEXAMINE
9221 S ^ABSN="10801",^ITEM="I-92.2.1  '(30.1>""3E+1"")",^NEXT="923^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(30.1>"3E+1"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
923 S ^ABSN="10802",^ITEM="I-92.3  30.1'>""30.+999DG""",^NEXT="9231^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1'>"30.+999DG",^VCORR="0" D ^VEXAMINE
9231 S ^ABSN="10803",^ITEM="I-92.3.1  '(30.1>""30.+999DG"")",^NEXT="924^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(30.1>"30.+999DG"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
924 S ^ABSN="10804",^ITEM="I-92.4  30.1'>""20+589""",^NEXT="9241^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30.1'>"20+589",^VCORR="0" D ^VEXAMINE
9241 S ^ABSN="10805",^ITEM="I-92.4.1  '(30.1>""20+589"")",^NEXT="925^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(30.1>"20+589"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
925 S ^ABSN="10806",^ITEM="I-92.5  20'>""-3E+1""",^NEXT="9251^V1BOR4B,V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=20'>"-3E+1",^VCORR="0" D ^VEXAMINE
9251 S ^ABSN="10807",^ITEM="I-92.5.1  '(20>""-3E+1"")",^NEXT="V1BOR4C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(20>"-3E+1"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 59---V1BOR4B",!
 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

V1BOR4C
V1BOR4C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '>   -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"60---V1BOR4C: Binary operator  relational: '>   -C-",!
 W !,"Numeric not greater than ('>)",!
 ;
93 W !,"I-93  expratoms are strlit and numlit"
931 S ^ABSN="10808",^ITEM="I-93.1  ""3A""'>2",^NEXT="9311^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"'>2,^VCORR="0" D ^VEXAMINE
9311 S ^ABSN="10809",^ITEM="I-93.1.1  '(""3A"">2)",^NEXT="932^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A">2),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
932 S ^ABSN="10810",^ITEM="I-93.2  ""3E1""'>29",^NEXT="9321^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1"'>29,^VCORR="0" D ^VEXAMINE
9321 S ^ABSN="10811",^ITEM="I-93.2.1  '(""3E1"">29)",^NEXT="933^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3E1">29),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
933 S ^ABSN="10812",^ITEM="I-93.3  ""3.1""'>3.0",^NEXT="9331^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"'>3.0,^VCORR="0" D ^VEXAMINE
9331 S ^ABSN="10813",^ITEM="I-93.3.1  '(""3.1"">3.0)",^NEXT="934^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3.1">3.0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
934 S ^ABSN="10814",^ITEM="I-93.4  ""2.99""'>3.0",^NEXT="9341^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="2.99"'>3.0,^VCORR="1" D ^VEXAMINE
9341 S ^ABSN="10815",^ITEM="I-93.4.1  '(""2.99"">3.0)",^NEXT="935^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("2.99">3.0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
935 S ^ABSN="10816",^ITEM="I-93.5  ""-87.01E-1""'>-98710",^NEXT="9351^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-87.01E-1"'>-98710,^VCORR="0" D ^VEXAMINE
9351 S ^ABSN="10817",^ITEM="I-93.5.1  '(""-87.01E-1"">-98710)",^NEXT="94^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("-87.01E-1">-98710),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
94 W !,"I-94  expratoms are strlit and strlit"
941 S ^ABSN="10818",^ITEM="I-94.1  ""3A""'>""2""",^NEXT="9411^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"'>"2",^VCORR="0" D ^VEXAMINE
9411 S ^ABSN="10819",^ITEM="I-94.1.1  '(""3A"">""2"")",^NEXT="942^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A">"2"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
942 S ^ABSN="10820",^ITEM="I-94.2  ""3E1A""'>""029.9A""",^NEXT="9421^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1A"'>"029.9A",^VCORR="0" D ^VEXAMINE
9421 S ^ABSN="10821",^ITEM="I-94.2.1  '(""3E1A"">""029.9A"")",^NEXT="943^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3E1A">"029.9A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
943 S ^ABSN="10822",^ITEM="I-94.3  ""-23ENGLISH""'>""-22.00e-9""",^NEXT="9431^V1BOR4C,V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-23ENGLISH"'>"-22.00e-9",^VCORR="1" D ^VEXAMINE
9431 S ^ABSN="10823",^ITEM="I-94.3.1  '(""-23ENGLISH"">""-22.00e-9"")",^NEXT="V1BOR4D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("-23ENGLISH">"-22.00e-9"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 60---V1BOR4C",!
 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

V1BOR4D
V1BOR4D ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '>   -D-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"61---V1BOR4D: Binary operator  relational: '>   -D-",!
 ;
95 W !,"I-95  Empty string on left side"
951 S ^ABSN="10824",^ITEM="I-95.1  """"'>9",^NEXT="9511^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'>9,^VCORR="1" D ^VEXAMINE
9511 S ^ABSN="10825",^ITEM="I-95.1.1  '("""">9)",^NEXT="952^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("">9),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
952 S ^ABSN="10826",^ITEM="I-95.2  """"'>0",^NEXT="9521^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'>0,^VCORR="1" D ^VEXAMINE
9521 S ^ABSN="10827",^ITEM="I-95.2.1  '("""">0)",^NEXT="953^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("">0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
953 S ^ABSN="10828",^ITEM="I-95.3  """"'>-9",^NEXT="9531^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'>-9,^VCORR="0" D ^VEXAMINE
9531 S ^ABSN="10829",^ITEM="I-95.3.1  '("""">-9)",^NEXT="954^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("">-9),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
954 S ^ABSN="10830",^ITEM="I-95.4  """"'>""-9FIND""",^NEXT="9541^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'>"-9FIND",^VCORR="0" D ^VEXAMINE
9541 S ^ABSN="10831",^ITEM="I-95.4.1  '("""">""-9FIND"")",^NEXT="96^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("">"-9FIND"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
96 W !,"I-96  Empty string on right side"
961 S ^ABSN="10832",^ITEM="I-96.1  2'>""""",^NEXT="9611^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=2'>"",^VCORR="0" D ^VEXAMINE
9611 S ^ABSN="10833",^ITEM="I-96.1.1  '(2>"""")",^NEXT="962^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(2>""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
962 S ^ABSN="10834",^ITEM="I-96.2  0'>""""",^NEXT="9621^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'>"",^VCORR="1" D ^VEXAMINE
9621 S ^ABSN="10835",^ITEM="I-96.2.1  '(0>"""")",^NEXT="963^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0>""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
963 S ^ABSN="10836",^ITEM="I-96.3  -2.2'>""""",^NEXT="9631^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-2.2'>"",^VCORR="1" D ^VEXAMINE
9631 S ^ABSN="10837",^ITEM="I-96.3.1  '(-2.2>"""")",^NEXT="97^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-2.2>""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
97 W !,"I-97  Empty string on both sides"
971 S ^ABSN="10838",^ITEM="I-97.1  """"'>""""",^NEXT="9711^V1BOR4D,V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'>"",^VCORR="1" D ^VEXAMINE ;Number changed in V7.4;16/9/89
9711 S ^ABSN="10839",^ITEM="I-97.1.1  '("""">"""")",^NEXT="V1BOR5A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("">""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 61---V1BOR4D",!
 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

V1BOR5A
V1BOR5A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: =  -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"62---V1BOR5A: Binary operator  relational: =  -A-",!
 W !,"String identity (=)",!
98 W !,"I-98  expratoms are numlit and numlit"
981 S ^ABSN="10840",^ITEM="I-98.1  30=30",^NEXT="982^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30=30,^VCORR="1" D ^VEXAMINE
982 S ^ABSN="10841",^ITEM="I-98.2  3E2=300",^NEXT="983^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3E2=300,^VCORR="1" D ^VEXAMINE
983 S ^ABSN="10842",^ITEM="I-98.3  3.000=0003",^NEXT="984^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.000=0003,^VCORR=1 D ^VEXAMINE
984 S ^ABSN="10843",^ITEM="I-98.4  -0.1=-.1",^NEXT="985^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.1=-.1,^VCORR="1" D ^VEXAMINE
985 S ^ABSN="10844",^ITEM="I-98.5  9E-3=.009",^NEXT="986^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=9E-3=.009,^VCORR="1" D ^VEXAMINE
986 S ^ABSN="10845",^ITEM="I-98.6  222.21=222.201",^NEXT="987^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=222.21=222.201,^VCORR=0 D ^VEXAMINE
987 S ^ABSN="10846",^ITEM="I-98.7  00.03000E+3=30",^NEXT="988^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.03000E+3=30,^VCORR="1" D ^VEXAMINE
988 S ^ABSN="10847",^ITEM="I-98.8  -0=0.00000E+3",^NEXT="989^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0=0.00000E+3,^VCORR="1" D ^VEXAMINE
989 S ^ABSN="10848",^ITEM="I-98.9  0=00000",^NEXT="9810^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0=00000,^VCORR="1" D ^VEXAMINE
9810 S ^ABSN="10849",^ITEM="I-98.10  30=000020",^NEXT="99^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30=000020,^VCORR="0" D ^VEXAMINE
 ;
99 W !,"I-99  expratoms are numlit and strlit"
991 S ^ABSN="10850",^ITEM="I-99.1  3=""3""",^NEXT="992^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3="3",^VCORR="1" D ^VEXAMINE
992 S ^ABSN="10851",^ITEM="I-99.2  98765=""98765.0""",^NEXT="993^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98765="98765.0",^VCORR="0" D ^VEXAMINE
993 S ^ABSN="10852",^ITEM="I-99.3  .1=""0.1""",^NEXT="994^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.1="0.1",^VCORR=0 D ^VEXAMINE
994 S ^ABSN="10853",^ITEM="I-99.4  0.1=""0.1""",^NEXT="995^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0.1="0.1",^VCORR="0" D ^VEXAMINE
995 S ^ABSN="10854",^ITEM="I-99.5  0.1="".1""",^NEXT="996^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0.1=".1",^VCORR=1 D ^VEXAMINE
996 S ^ABSN="10855",^ITEM="I-99.6  98765=-""-98765.0""",^NEXT="997^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98765=-"-98765.0",^VCORR="1" D ^VEXAMINE
997 S ^ABSN="10856",^ITEM="I-99.7  00=""00""",^NEXT="998^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00="00",^VCORR="0" D ^VEXAMINE
998 S ^ABSN="10857",^ITEM="I-99.8  3.10=""3.1E-00""",^NEXT="999^V1BOR5A,V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.10="3.1E-00",^VCORR="0" D ^VEXAMINE
999 S ^ABSN="10858",^ITEM="I-99.9  3100=""000003.1000E+003""",^NEXT="V1BOR5B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3100="000003.1000E+003",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 62---V1BOR5A",!
 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

V1BOR5B
V1BOR5B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: =  -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"63---V1BOR5B: Binary operator  relational: =  -B-",!
 ;
100 W !,"I-100  expratoms are strlit and numlit"
1001 S ^ABSN="10859",^ITEM="I-100.1  ""3A""=3",^NEXT="1002^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"=3,^VCORR="0" D ^VEXAMINE
1002 S ^ABSN="10860",^ITEM="I-100.2  ""0.1""=.1",^NEXT="1003^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0.1"=.1,^VCORR="0" D ^VEXAMINE
1003 S ^ABSN="10861",^ITEM="I-100.3  ""0.1""=0.1",^NEXT="1004^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0.1"=0.1,^VCORR=0 D ^VEXAMINE
1004 S ^ABSN="10862",^ITEM="I-100.4  "".1""=0.1",^NEXT="1005^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=".1"=0.1,^VCORR="1" D ^VEXAMINE
1005 S ^ABSN="10863",^ITEM="I-100.5  "".1""=.1",^NEXT="1006^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=".1"=.1,^VCORR=1 D ^VEXAMINE
1006 S ^ABSN="10864",^ITEM="I-100.6  ""-3.1""=-3.1",^NEXT="1007^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="-3.1"=-3.1,^VCORR="1" D ^VEXAMINE
1007 S ^ABSN="10865",^ITEM="I-100.7  ""3E1""=30",^NEXT="1008^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1"=30,^VCORR="0" D ^VEXAMINE
1008 S ^ABSN="10866",^ITEM="I-100.8  +""3A""=3",^NEXT="1009^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"=3,^VCORR="1" D ^VEXAMINE
1009 S ^ABSN="10867",^ITEM="I-100.9  +-+-++""3E1A""=30",^NEXT="10010^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+-+-++"3E1A"=30,^VCORR="1" D ^VEXAMINE
10010 S ^ABSN="10868",^ITEM="I-100.10  ""00""=00",^NEXT="10011^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00"=00,^VCORR="0" D ^VEXAMINE
10011 S ^ABSN="10869",^ITEM="I-100.11  ""3.1E-00""=3.1",^NEXT="10012^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1E-00"=3.1,^VCORR="0" D ^VEXAMINE
10012 S ^ABSN="10870",^ITEM="I-100.12  ""3.1E-003""=.0031",^NEXT="10013^V1BOR5B,V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1E-003"=.0031,^VCORR="0" D ^VEXAMINE
10013 S ^ABSN="10871",^ITEM="I-100.13  -""3A""=-3",^NEXT="V1BOR5C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-"3A"=-3,^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 63---V1BOR5B",!
 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

V1BOR5C
V1BOR5C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: =   -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"64---V1BOR5C: Binary operator  relational: =  -C-",!
101 W !,"I-101  expratoms are strlit and strlit"
1011 S ^ABSN="10872",^ITEM="I-101.1  ""A""=""A""",^NEXT="1012^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"="A",^VCORR="1" D ^VEXAMINE
1012 S ^ABSN="10873",^ITEM="I-101.2  ""A""=""B""",^NEXT="1013^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"="B",^VCORR="0" D ^VEXAMINE
1013 S ^ABSN="10874",^ITEM="I-101.3  ""ABCDE""=""ABCDZ""",^NEXT="1014^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDE"="ABCDZ",^VCORR="0" D ^VEXAMINE
1014 S ^ABSN="10875",^ITEM="I-101.4  ""+23.0""=""23""",^NEXT="1015^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="+23.0"="23",^VCORR="0" D ^VEXAMINE
1015 S ^ABSN="10876",^ITEM="I-101.5  ""ABCDEFG""=""ABCDEFG""",^NEXT="1016^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDEFG"="ABCDEFG",^VCORR="1" D ^VEXAMINE
1016 S ^ABSN="10877",^ITEM="I-101.6  ""ABCDEFGHIJKL""=""ABCDEFGHIJL""",^NEXT="1017^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDEFGHIJKL"="ABCDEFGHIJL",^VCORR="0" D ^VEXAMINE
1017 S ^ABSN="10878",^ITEM="I-101.7  ""987654321098765432109876543210""=""98765432109876543210987654321""",^NEXT="1018^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="987654321098765432109876543210"="98765432109876543210987654321",^VCORR="0" D ^VEXAMINE
1018 S ^ABSN="10879",^ITEM="I-101.8  ""0987654321098765432109876543210""=""987654321098765432109876543210""",^NEXT="1019^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0987654321098765432109876543210"="987654321098765432109876543210",^VCORR="0" D ^VEXAMINE
1019 S ^ABSN="10880",^ITEM="I-101.9  ""987654321098765432109876543210""=""987654321098765432109876543210""",^NEXT="102^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="987654321098765432109876543210"="987654321098765432109876543210",^VCORR="1" D ^VEXAMINE
 ;
102 W !,"I-102  Empty string on left side"
1021 S ^ABSN="10881",^ITEM="I-102.1  """"=""A""",^NEXT="1022^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""="A",^VCORR="0" D ^VEXAMINE
1022 S ^ABSN="10882",^ITEM="I-102.2  """"=0",^NEXT="1023^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""=0,^VCORR="0" D ^VEXAMINE
1023 S ^ABSN="10883",^ITEM="I-102.3  """"=1",^NEXT="1024^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""=1,^VCORR="0" D ^VEXAMINE
1024 S ^ABSN="10884",^ITEM="I-102.4  """"=""#$%&""",^NEXT="103^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""="#$%&",^VCORR="0" D ^VEXAMINE
 ;
103 W !,"I-103  Empty string on right side"
1031 S ^ABSN="10885",^ITEM="I-103.1  ""Z""=""""",^NEXT="1032^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="Z"="",^VCORR="0" D ^VEXAMINE
1032 S ^ABSN="10886",^ITEM="I-103.2  0=""""",^NEXT="1033^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0="",^VCORR="0" D ^VEXAMINE
1033 S ^ABSN="10887",^ITEM="I-103.3  .1=""""",^NEXT="1034^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.1="",^VCORR="0" D ^VEXAMINE
1034 S ^ABSN="10888",^ITEM="I-103.4  +""^^^^""=""""",^NEXT="104^V1BOR5C,V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"^^^^"="",^VCORR="0" D ^VEXAMINE
 ;
104 W !,"I-104  Empty string on both sides"
 S ^ABSN="10889",^ITEM="I-104  Empty string on both sides",^NEXT="V1BOR6A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""="",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 64---V1BOR5C",!
 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

V1BOR6A
V1BOR6A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"65---V1BOR6A: Binary operator  relational: '=  -A-",!
 W !,"String not identical ('=)",!
105 W !,"I-105  expratoms are numlit and numlit"
1051 S ^ABSN="10890",^ITEM="I-105.1  30'=30",^NEXT="10511^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=30'=30,^VCORR="0" D ^VEXAMINE
10511 S ^ABSN="10891",^ITEM="I-105.1.1  '(30=30)",^NEXT="1052^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(30=30),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1052 S ^ABSN="10892",^ITEM="I-105.2  3E2'=300",^NEXT="10521^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3E2'=300,^VCORR="0" D ^VEXAMINE
10521 S ^ABSN="10893",^ITEM="I-105.2.1  '(3E2=300)",^NEXT="1053^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3E2=300),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1053 S ^ABSN="10894",^ITEM="I-105.3  3.000'=0003",^NEXT="10531^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.000'=0003,^VCORR="0" D ^VEXAMINE
10531 S ^ABSN="10895",^ITEM="I-105.3.1  '(3.000=0003)",^NEXT="1054^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.000=0003),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1054 S ^ABSN="10896",^ITEM="I-105.4  00000.100000'=.1",^NEXT="10541^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00000.100000'=.1,^VCORR="0" D ^VEXAMINE
10541 S ^ABSN="10897",^ITEM="I-105.4.1  '(00000.100000=.1)",^NEXT="1055^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00000.100000=.1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1055 S ^ABSN="10898",^ITEM="I-105.5  0009E-3'=0.00900000",^NEXT="10551^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0009E-3'=0.00900000,^VCORR="0" D ^VEXAMINE
10551 S ^ABSN="10899",^ITEM="I-105.5.1  '(0009E-3=0.00900000)",^NEXT="1056^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0009E-3=0.00900000),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1056 S ^ABSN="10900",^ITEM="I-105.6  222.21'=222.201",^NEXT="10561^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=222.21'=222.201,^VCORR="1" D ^VEXAMINE
10561 S ^ABSN="10901",^ITEM="I-105.6.1  '(222.21=222.201)",^NEXT="1057^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(222.21=222.201),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1057 S ^ABSN="10902",^ITEM="I-105.7  00.03000E+000003'=30",^NEXT="10571^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.03000E+000003'=30,^VCORR="0" D ^VEXAMINE
10571 S ^ABSN="10903",^ITEM="I-105.7.1  '(00.03000E+000003=30)",^NEXT="1058^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00.03000E+000003=30),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1058 S ^ABSN="10904",^ITEM="I-105.8  0'=000.00000E-03",^NEXT="10581^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'=000.00000E-03,^VCORR="0" D ^VEXAMINE
10581 S ^ABSN="10905",^ITEM="I-105.8.1  '(0=000.00000E-03)",^NEXT="1059^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0=000.00000E-03),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1059 S ^ABSN="10906",^ITEM="I-105.9  0'=00000",^NEXT="10591^V1BOR6A,V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'=00000,^VCORR="0" D ^VEXAMINE
10591 S ^ABSN="10907",^ITEM="I-105.9.1  '(0=00000)",^NEXT="V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0=00000),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 65---V1BOR6A",!
 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

V1BOR6B
V1BOR6B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"66---V1BOR6B: Binary operator  relational: '=  -B-",!
 ;
106 W !,"I-106  expratoms are numlit and strlit"
1061 S ^ABSN="10908",^ITEM="I-106.1  3'=""3""",^NEXT="10611^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3'="3",^VCORR="0" D ^VEXAMINE
10611 S ^ABSN="10909",^ITEM="I-106.1.1  '(3=""3"")",^NEXT="1062^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3="3"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1062 S ^ABSN="10910",^ITEM="I-106.2  98765'=""98765.0""",^NEXT="10621^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98765'="98765.0",^VCORR="1" D ^VEXAMINE
10621 S ^ABSN="10911",^ITEM="I-106.2.1  '(98765=""98765.0"")",^NEXT="1063^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(98765="98765.0"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1063 S ^ABSN="10912",^ITEM="I-106.3  .1'=""0.1""",^NEXT="10631^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=.1'="0.1",^VCORR="1" D ^VEXAMINE
10631 S ^ABSN="10913",^ITEM="I-106.3.1  '(.1=""0.1"")",^NEXT="1064^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(.1="0.1"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1064 S ^ABSN="10914",^ITEM="I-106.4  0.1'=""0.1""",^NEXT="10641^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0.1'="0.1",^VCORR="1" D ^VEXAMINE
10641 S ^ABSN="10915",^ITEM="I-106.4.1  '(0.1=""0.1"")",^NEXT="1065^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0.1="0.1"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1065 S ^ABSN="10916",^ITEM="I-106.5  0.1'="".1""",^NEXT="10651^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0.1'=".1",^VCORR="0" D ^VEXAMINE
10651 S ^ABSN="10917",^ITEM="I-106.5.1  '(0.1="".1"")",^NEXT="1066^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0.1=".1"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1066 S ^ABSN="10918",^ITEM="I-106.6  98765'=-""-98765.0""",^NEXT="10661^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98765'=-"-98765.0",^VCORR="0" D ^VEXAMINE
10661 S ^ABSN="10919",^ITEM="I-106.6.1  '(98765=-""-98765.0"")",^NEXT="1067^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(98765=-"-98765.0"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1067 S ^ABSN="10920",^ITEM="I-106.7  00'=""00""",^NEXT="10671^V1BOR6B,V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00'="00",^VCORR="1" D ^VEXAMINE
10671 S ^ABSN="10921",^ITEM="I-106.7.1  '(00=""00"")",^NEXT="V1BOR6C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00="00"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 66---V1BOR6B",!
 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

V1BOR6C
V1BOR6C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"67---V1BOR6C: Binary operator  relational: '=  -C-",!
 ;
107 W !,"I-107  expratoms are strlit and numlit"
1071 S ^ABSN="10922",^ITEM="I-107.1  ""3A""'=3",^NEXT="10711^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"'=3,^VCORR="1" D ^VEXAMINE
10711 S ^ABSN="10923",^ITEM="I-107.1.1  '(""3A""=3)",^NEXT="1072^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A"=3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1072 S ^ABSN="10924",^ITEM="I-107.2  ""0.1""'=.1",^NEXT="10721^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0.1"'=.1,^VCORR="1" D ^VEXAMINE
10721 S ^ABSN="10925",^ITEM="I-107.2.1  '(""0.1""=.1)",^NEXT="1073^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("0.1"=.1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1073 S ^ABSN="10926",^ITEM="I-107.3  ""0.1""'=0.1",^NEXT="10731^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0.1"'=0.1,^VCORR="1" D ^VEXAMINE
10731 S ^ABSN="10927",^ITEM="I-107.3.1  '(""0.1""=0.1)",^NEXT="1074^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("0.1"=0.1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1074 S ^ABSN="10928",^ITEM="I-107.4  "".1""'=0.1",^NEXT="10741^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=".1"'=0.1,^VCORR="0" D ^VEXAMINE
10741 S ^ABSN="10929",^ITEM="I-107.4.1  '("".1""=0.1)",^NEXT="1075^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(".1"=0.1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1075 S ^ABSN="10930",^ITEM="I-107.5  "".1""'=.1",^NEXT="10751^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=".1"'=.1,^VCORR="0" D ^VEXAMINE
10751 S ^ABSN="10931",^ITEM="I-107.5.1  '("".1""=.1)",^NEXT="1076^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(".1"=.1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1076 S ^ABSN="10932",^ITEM="I-107.6  ""3.1""'=3.1",^NEXT="10761^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3.1"'=3.1,^VCORR="0" D ^VEXAMINE
10761 S ^ABSN="10933",^ITEM="I-107.6.1  '(""3.1""=3.1)",^NEXT="1077^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3.1"=3.1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1077 S ^ABSN="10934",^ITEM="I-107.7  ""3E1""'=30",^NEXT="10771^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3E1"'=30,^VCORR="1" D ^VEXAMINE
10771 S ^ABSN="10935",^ITEM="I-107.7.1  '(""3E1""=30)",^NEXT="1078^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3E1"=30),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1078 S ^ABSN="10936",^ITEM="I-107.8  +""3A""'=3",^NEXT="10781^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"'=3,^VCORR="0" D ^VEXAMINE
10781 S ^ABSN="10937",^ITEM="I-107.8.1  '(+""3A""=3)",^NEXT="1079^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(+"3A"=3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1079 S ^ABSN="10938",^ITEM="I-107.9  +-+-++""3E1A""'=30",^NEXT="10791^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+-+-++"3E1A"'=30,^VCORR="0" D ^VEXAMINE
10791 S ^ABSN="10939",^ITEM="I-107.9.1  '(+-+-++""3E1A""=30)",^NEXT="10710^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(+-+-++"3E1A"=30),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
10710 S ^ABSN="10940",^ITEM="I-107.10  ""00""'=00",^NEXT="107101^V1BOR6C,V1BOR6D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00"'=00,^VCORR="1" D ^VEXAMINE
107101 S ^ABSN="10941",^ITEM="I-107.10.1  '(""00""=00)",^NEXT="V1BOR6B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("00"=00),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 67---V1BOR6C",!
 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

V1BOR6D
V1BOR6D ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -D-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"68---V1BOR6D: Binary operator  relational: '=   -D-",!
108 W !,"I-108  expratoms are strlit and strlit"
1081 S ^ABSN="10942",^ITEM="I-108.1  ""AB""'=""AB""",^NEXT="10811^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AB"'="AB",^VCORR="0" D ^VEXAMINE
10811 S ^ABSN="10943",^ITEM="I-108.1.1  '(""AB""=""AB"")",^NEXT="1082^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AB"="AB"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1082 S ^ABSN="10944",^ITEM="I-108.2  ""AB""'=""ABV""",^NEXT="10821^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AB"'="ABV",^VCORR="1" D ^VEXAMINE
10821 S ^ABSN="10945",^ITEM="I-108.2.1  '(""AB""=""ABV"")",^NEXT="1083^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AB"="ABV"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1083 S ^ABSN="10946",^ITEM="I-108.3  ""ABCDE""'=""ABCDZ""",^NEXT="10831^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDE"'="ABCDZ",^VCORR="1" D ^VEXAMINE
10831 S ^ABSN="10947",^ITEM="I-108.3.1  '(""ABCDE""=""ABCDZ"")",^NEXT="1084^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABCDE"="ABCDZ"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1084 S ^ABSN="10948",^ITEM="I-108.4  ""+23.0""'=""23""",^NEXT="10841^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="+23.0"'="23",^VCORR="1" D ^VEXAMINE
10841 S ^ABSN="10949",^ITEM="I-108.4.1  '(""+23.0""=""23"")",^NEXT="1085^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("+23.0"="23"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1085 S ^ABSN="10950",^ITEM="I-108.5  ""ABCDEFG""'=""ABCDEFG""",^NEXT="10851^V1BOR6D,V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDEFG"'="ABCDEFG",^VCORR="0" D ^VEXAMINE
10851 S ^ABSN="10951",^ITEM="I-108.5.1  '(""ABCDEFG""=""ABCDEFG"")",^NEXT="V1BOR6E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABCDEFG"="ABCDEFG"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 68---V1BOR6D",!
 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

V1BOR6E
V1BOR6E ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -E-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"69---V1BOR6E: Binary operator  relational: '=   -E-",!
 ;
1086 S ^ABSN="10952",^ITEM="I-108.6  ""ABCDEFGHIJKL""'=""ABCDEFGHIJL""",^NEXT="10861^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCDEFGHIJKL"'="ABCDEFGHIJL",^VCORR="1" D ^VEXAMINE
10861 S ^ABSN="10953",^ITEM="I-108.6.1  '(""ABCDEFGHIJKL""=""ABCDEFGHIJL"")",^NEXT="1087^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABCDEFGHIJKL"="ABCDEFGHIJL"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1087 S ^ABSN="10954",^ITEM="I-108.7  ""987654321098765432109876543210""'=""98765432109876543210987654321""",^NEXT="10871^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="987654321098765432109876543210"'="98765432109876543210987654321",^VCORR="1" D ^VEXAMINE
10871 S ^ABSN="10955",^ITEM="I-108.7.1  '(""987654321098765432109876543210""=""98765432109876543210987654321"")",^NEXT="1088^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("987654321098765432109876543210"="98765432109876543210987654321"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1088 S ^ABSN="10956",^ITEM="I-108.8  ""0987654321098765432109876543210""'=""987654321098765432109876543210""",^NEXT="10881^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="0987654321098765432109876543210"'="987654321098765432109876543210",^VCORR="1" D ^VEXAMINE
10881 S ^ABSN="10957",^ITEM="I-108.8.1  '(""0987654321098765432109876543210""=""987654321098765432109876543210"")",^NEXT="1089^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("0987654321098765432109876543210"="987654321098765432109876543210"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1089 S ^ABSN="10958",^ITEM="I-108.9  ""987654321098765432109876543210""'=""987654321098765432109876543210""",^NEXT="10891^V1BOR6E,V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="987654321098765432109876543210"'="987654321098765432109876543210",^VCORR="0" D ^VEXAMINE
10891 S ^ABSN="10959",^ITEM="I-108.9.1  '(""987654321098765432109876543210""=""987654321098765432109876543210"")",^NEXT="V1BOR6F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("987654321098765432109876543210"="987654321098765432109876543210"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 69---V1BOR6E",!
 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

V1BOR6F
V1BOR6F ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '=  -F-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"70---V1BOR6F: Binary operator  relational: '=   -F-",!
 ;
109 W !,"I-109  Empty string on left side"
1091 S ^ABSN="10960",^ITEM="I-109.1  """"'=1",^NEXT="10911^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'=1,^VCORR="1" D ^VEXAMINE
10911 S ^ABSN="10961",^ITEM="I-109.1.1  '(""""=1)",^NEXT="1092^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""=1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1092 S ^ABSN="10962",^ITEM="I-109.2  """"'=0",^NEXT="10921^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'=0,^VCORR="1" D ^VEXAMINE
10921 S ^ABSN="10963",^ITEM="I-109.2.1  '(""""=0)",^NEXT="1093^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""=0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1093 S ^ABSN="10964",^ITEM="I-109.3  """"'=""****""",^NEXT="10931^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'="****",^VCORR="1" D ^VEXAMINE
10931 S ^ABSN="10965",^ITEM="I-109.3.1  '(""""=""****"")",^NEXT="110^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""="****"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
110 W !,"I-110  Empty string on right side"
1101 S ^ABSN="10966",^ITEM="I-110.1  1'=""""",^NEXT="11011^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=1'="",^VCORR="1" D ^VEXAMINE
11011 S ^ABSN="10967",^ITEM="I-110.1.1  '(1="""")",^NEXT="1102^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(1=""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1102 S ^ABSN="10968",^ITEM="I-110.2  0'=""""",^NEXT="11021^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=0'="",^VCORR="1" D ^VEXAMINE
11021 S ^ABSN="10969",^ITEM="I-110.2.1  '(0="""")",^NEXT="1103^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(0=""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1103 S ^ABSN="10970",^ITEM="I-110.3  ""@#$""'=""""",^NEXT="11031^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="@#$"'="",^VCORR="1" D ^VEXAMINE
11031 S ^ABSN="10971",^ITEM="I-110.3.1  '(""@#$""="""")",^NEXT="111^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("@#$"=""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
111 W !,"I-111  Empty string on both sides"
1111 S ^ABSN="10972",^ITEM="I-111.1  """"'=""""",^NEXT="11111^V1BOR6F,V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'="",^VCORR="0" D ^VEXAMINE ;Number changed in V7.4;16/9/89
11111 S ^ABSN="10973",^ITEM="I-111.1.1  '(""""="""")",^NEXT="V1BOR7A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""=""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 70---V1BOR6F",!
 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

V1BOR7A
V1BOR7A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: [ -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"71---V1BOR7A: Binary operator  relational: [ -A-",!
 W !,"String contains ([)",!
112 W !,"I-112  expratoms are numlit and numlit"
1121 S ^ABSN="10974",^ITEM="I-112.1  123[2",^NEXT="1122^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=123[2,^VCORR="1" D ^VEXAMINE
1122 S ^ABSN="10975",^ITEM="I-112.2  00123[0",^NEXT="1123^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00123[0,^VCORR="0" D ^VEXAMINE
1123 S ^ABSN="10976",^ITEM="I-112.3  3.0[3",^NEXT="1124^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0[3,^VCORR="1" D ^VEXAMINE
1124 S ^ABSN="10977",^ITEM="I-112.4  23.456[0.4",^NEXT="1125^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=23.456[0.4,^VCORR="1" D ^VEXAMINE
1125 S ^ABSN="10978",^ITEM="I-112.5  28.4536[03.0",^NEXT="1126^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=28.4536[03.0,^VCORR="1" D ^VEXAMINE
1126 S ^ABSN="10979",^ITEM="I-112.6  23.459876[0.45980",^NEXT="1127^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=23.459876[0.45980,^VCORR="1" D ^VEXAMINE
1127 S ^ABSN="10980",^ITEM="I-112.7  -0.456[-0.00",^NEXT="113^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456[-0.00,^VCORR="0" D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
 ;
113 W !,"I-113  expratoms are numlit and strlit"
1131 S ^ABSN="10981",^ITEM="I-113.1  3.0["".""",^NEXT="1132^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0[".",^VCORR="0" D ^VEXAMINE
1132 S ^ABSN="10982",^ITEM="I-113.2  3.0[""0""",^NEXT="1133^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0["0",^VCORR="0" D ^VEXAMINE
1133 S ^ABSN="10983",^ITEM="I-113.3  -3[""-""",^NEXT="1134^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3["-",^VCORR="1" D ^VEXAMINE
1134 S ^ABSN="10984",^ITEM="I-113.4  3E1[""E""",^NEXT="1135^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3E1["E",^VCORR="0" D ^VEXAMINE
1135 S ^ABSN="10985",^ITEM="I-113.5  -0.456[""-.""",^NEXT="1136^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456["-.",^VCORR="1" D ^VEXAMINE
1136 S ^ABSN="10986",^ITEM="I-113.6  -0.456E+2[""+""",^NEXT="1137^V1BOR7A,V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456E+2["+",^VCORR="0" D ^VEXAMINE
1137 S ^ABSN="10987",^ITEM="I-113.7  456E-5["".""",^NEXT="V1BOR7B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=456E-5[".",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 71---V1BOR7A",!
 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

V1BOR7B
V1BOR7B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: [  -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"72---V1BOR7B: Binary operator  relational: [  -B-",!
 ;
114 W !,"I-114  expratoms are strlit and numlit"
1141 S ^ABSN="10988",^ITEM="I-114.1  ""00123""[0",^NEXT="1142^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"[0,^VCORR="1" D ^VEXAMINE
1142 S ^ABSN="10989",^ITEM="I-114.2  ""00123""[13",^NEXT="1143^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"[13,^VCORR="0" D ^VEXAMINE
1143 S ^ABSN="10990",^ITEM="I-114.3  ""T-114 ""[0114.0",^NEXT="1144^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="T-114 "[0114.0,^VCORR="1" D ^VEXAMINE
1144 S ^ABSN="10991",^ITEM="I-114.4  ""HELP2191-1101191HELP""[1191",^NEXT="1145^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="HELP2191-1101191HELP"[1191,^VCORR="1" D ^VEXAMINE
1145 S ^ABSN="10992",^ITEM="I-114.5  ""2//211001021202003""[2E2",^NEXT="115^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="2//211001021202003"[2E2,^VCORR="1" D ^VEXAMINE
 ;
115 W !,"I-115  expratoms are strlit and strlit"
1151 S ^ABSN="10993",^ITEM="I-115.1  ""A""[""A""",^NEXT="1152^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"["A",^VCORR="1" D ^VEXAMINE
1152 S ^ABSN="10994",^ITEM="I-115.2  ""A""[""AB""",^NEXT="1153^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"["AB",^VCORR="0" D ^VEXAMINE
1153 S ^ABSN="10995",^ITEM="I-115.3  ""BA""[""A""",^NEXT="1154^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="BA"["A",^VCORR="1" D ^VEXAMINE
1154 S ^ABSN="10996",^ITEM="I-115.4  ""ABC""[""AB""",^NEXT="1155^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABC"["AB",^VCORR="1" D ^VEXAMINE
1155 S ^ABSN="10997",^ITEM="I-115.5  +""3A""[""A""",^NEXT="1156^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"["A",^VCORR="0" D ^VEXAMINE
1156 S ^ABSN="10998",^ITEM="I-115.6  ""00123E-5""["".""",^NEXT="116^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123E-5"[".",^VCORR="0" D ^VEXAMINE
 ;
116 W !,"I-116  Empty string on left side"
1161 S ^ABSN="10999",^ITEM="I-116.1  """"[""A""",^NEXT="1162^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""["A",^VCORR="0" D ^VEXAMINE
1162 S ^ABSN="11000",^ITEM="I-116.2  """"[""123456""",^NEXT="117^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""["123456",^VCORR="0" D ^VEXAMINE
 ;
117 W !,"I-117  Empty string on right side"
1171 S ^ABSN="11001",^ITEM="I-117.1  ""A""[""""",^NEXT="1172^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"["",^VCORR="1" D ^VEXAMINE
1172 S ^ABSN="11002",^ITEM="I-117.2  ""ABC""[""""",^NEXT="118^V1BOR7B,V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABC"["",^VCORR="1" D ^VEXAMINE
 ;
118 W !,"I-118  Empty string on both sides"
 S ^ABSN="11003",^ITEM="I-118  Empty string on both sides",^NEXT="V1BOR8A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""["",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 72---V1BOR7B",!
 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

V1BOR8A
V1BOR8A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '[   -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"73---V1BOR8A: Binary operator  relational: '[   -A-",!
 W !,"String not contains ('[)",!
119 W !,"I-119  expratoms are numlit and numlit"
1191 S ^ABSN="11004",^ITEM="I-119.1  123'[2",^NEXT="11911^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=123'[2,^VCORR="0" D ^VEXAMINE
11911 S ^ABSN="11005",^ITEM="I-119.1.1  '(123[2)",^NEXT="1192^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(123[2),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1192 S ^ABSN="11006",^ITEM="I-119.2  00123'[0",^NEXT="11921^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00123'[0,^VCORR="1" D ^VEXAMINE
11921 S ^ABSN="11007",^ITEM="I-119.2.1  '(00123[0)",^NEXT="1193^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00123[0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1193 S ^ABSN="11008",^ITEM="I-119.3  3.0[3",^NEXT="11931^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0'[3,^VCORR="0" D ^VEXAMINE
11931 S ^ABSN="11009",^ITEM="I-119.3.1  '(3.0[3)",^NEXT="1194^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.0[3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1194 S ^ABSN="11010",^ITEM="I-119.4  23.456'[0.4",^NEXT="11941^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=23.456'[0.4,^VCORR="0" D ^VEXAMINE
11941 S ^ABSN="11011",^ITEM="I-119.4.1  '(23.456[0.4)",^NEXT="1195^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(23.456[0.4),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1195 S ^ABSN="11012",^ITEM="I-119.5  28.4536'[03.0",^NEXT="11951^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=28.4536'[03.0,^VCORR="0" D ^VEXAMINE
11951 S ^ABSN="11013",^ITEM="I-119.5.1  '(28.4536[03.0)",^NEXT="1196^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(28.4536[03.0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1196 S ^ABSN="11014",^ITEM="I-119.6  23.459876'[0.45980",^NEXT="11961^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=23.459876'[0.45980,^VCORR="0" D ^VEXAMINE
11961 S ^ABSN="11015",^ITEM="I-119.6.1  '(23.459876[0.45980)",^NEXT="1197^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(23.459876[0.45980),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1197 S ^ABSN="11016",^ITEM="I-119.7  -0.456'[-0.0",^NEXT="11971^V1BOR8A,V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456'[-0.0,^VCORR="1" D ^VEXAMINE ;(test corrected in V7.5;20/8/90)
11971 S ^ABSN="11017",^ITEM="I-119.7.1  '(-0.456[-0.00)",^NEXT="V1BOR8B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-0.456[-0.00),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;(test corrected in V7.5;20/8/90)
 ;
END W !!,"End of 73---V1BOR8A",!
 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

V1BOR8B
V1BOR8B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '[   -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"74---V1BOR8B: Binary operator  relational: '[   -B-",!
 ;
120 W !,"I-120  expratoms are numlit and strlit"
1201 S ^ABSN="11018",^ITEM="I-120.1  3.0'["".""",^NEXT="12011^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0'[".",^VCORR="1" D ^VEXAMINE
12011 S ^ABSN="11019",^ITEM="I-120.1.1  '(3.0[""."")",^NEXT="1202^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.0["."),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1202 S ^ABSN="11020",^ITEM="I-120.2  3.0'[""0""",^NEXT="12021^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0'["0",^VCORR="1" D ^VEXAMINE
12021 S ^ABSN="11021",^ITEM="I-120.2.1  '(3.0[""0"")",^NEXT="1203^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.0["0"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1203 S ^ABSN="11022",^ITEM="I-120.3  -3'[""-""",^NEXT="12031^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-3'["-",^VCORR="0" D ^VEXAMINE
12031 S ^ABSN="11023",^ITEM="I-120.3.1  '(-3[""-"")",^NEXT="1204^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-3["-"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1204 S ^ABSN="11024",^ITEM="I-120.4  3E1'[""E""",^NEXT="12041^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3E1'["E",^VCORR="1" D ^VEXAMINE
12041 S ^ABSN="11025",^ITEM="I-120.4.1  '(3E1[""E"")",^NEXT="1205^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3E1["E"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1205 S ^ABSN="11026",^ITEM="I-120.5  -0.456'[""-.""",^NEXT="12051^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456'["-.",^VCORR="0" D ^VEXAMINE
12051 S ^ABSN="11027",^ITEM="I-120.5.1  '(-0.456[""-."")",^NEXT="1206^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-0.456["-."),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1206 S ^ABSN="11028",^ITEM="I-120.6  -0.456E+2'[""+""",^NEXT="12061^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-0.456E+2'["+",^VCORR="1" D ^VEXAMINE
12061 S ^ABSN="11029",^ITEM="I-120.6.1  '(-0.456E+2[""+"")",^NEXT="1207^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-0.456E+2["+"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1207 S ^ABSN="11030",^ITEM="I-120.7  456E-5'["".""",^NEXT="12071^V1BOR8B,V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=456E-5'[".",^VCORR="0" D ^VEXAMINE
12071 S ^ABSN="11031",^ITEM="I-120.7.1  '(456E-5[""."")",^NEXT="V1BOR8C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(456E-5["."),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 74---V1BOR8B",!
 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

V1BOR8C
V1BOR8C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR RELATIONAL: '[  -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"75---V1BOR8C: Binary operator  relational: '[  -C-",!
 ;
121 W !,"I-121  expratoms are strlit and numlit"
 S ^ABSN="11032",^ITEM="I-121.1  ""00123""'[0",^NEXT="12111^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"'[0,^VCORR="0" D ^VEXAMINE
12111 S ^ABSN="11033",^ITEM="I-121.1.1  '(""00123""[0)",^NEXT="1212^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("00123"[0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1212 S ^ABSN="11034",^ITEM="I-121.2  ""00123""'[13",^NEXT="12121^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"'[13,^VCORR="1" D ^VEXAMINE
12121 S ^ABSN="11035",^ITEM="I-121.2.1  '(""00123""[13)",^NEXT="1213^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("00123"[13),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1213 S ^ABSN="11036",^ITEM="I-121.3  ""T-114 ""'[0114.0",^NEXT="12131^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="T-114 "'[0114.0,^VCORR="0" D ^VEXAMINE
12131 S ^ABSN="11037",^ITEM="I-121.3.1  '(""T-114 ""[0114.0)",^NEXT="1214^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("T-114 "[0114.0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1214 S ^ABSN="11038",^ITEM="I-121.4  ""HELP2191-1101191HELP""'[1191",^NEXT="12141^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="HELP2191-1101191HELP"'[1191,^VCORR="0" D ^VEXAMINE
12141 S ^ABSN="11039",^ITEM="I-121.4.1  '(""HELP2191-1101191HELP""[1191)",^NEXT="1215^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("HELP2191-1101191HELP"[1191),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1215 S ^ABSN="11040",^ITEM="I-121.5  ""2//211001021202003""'[2E2",^NEXT="12151^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="2//211001021202003"'[2E2,^VCORR="0" D ^VEXAMINE
12151 S ^ABSN="11041",^ITEM="I-121.5.1  '(""2//211001021202003""[2E2)",^NEXT="122^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("2//211001021202003"[2E2),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
122 W !,"I-122  expratoms are strlit and strlit"
 S ^ABSN="11042",^ITEM="I-122.1  ""A""'[""A""",^NEXT="12211^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"'["A",^VCORR="0" D ^VEXAMINE
12211 S ^ABSN="11043",^ITEM="I-122.1.1  '(""A""[""A"")",^NEXT="1222^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("A"["A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1222 S ^ABSN="11044",^ITEM="I-122.2  ""AB""'[""A""",^NEXT="12221^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AB"'["A",^VCORR="0" D ^VEXAMINE
12221 S ^ABSN="11045",^ITEM="I-122.2.1  '(""AB""[""A"")",^NEXT="1223^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AB"["A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1223 S ^ABSN="11046",^ITEM="I-122.3  ""A""'[""BA""",^NEXT="12231^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"'["BA",^VCORR="1" D ^VEXAMINE
12231 S ^ABSN="11047",^ITEM="I-122.3.1  '(""A""[""BA"")",^NEXT="1224^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("A"["BA"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1224 S ^ABSN="11048",^ITEM="I-122.4  +""3A""'[""A""",^NEXT="12241^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3A"'["A",^VCORR="1" D ^VEXAMINE
12241 S ^ABSN="11049",^ITEM="I-122.4.1  '(+""3A""[""A"")",^NEXT="1225^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(+"3A"["A"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1225 S ^ABSN="11050",^ITEM="I-122.5  ""00123E-5""'["".""",^NEXT="12251^V1BOR8C,V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123E-5"'[".",^VCORR="1" D ^VEXAMINE
12251 S ^ABSN="11051",^ITEM="I-122.5.1  '(""00123E-5""[""."")",^NEXT="V1BOR8D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("00123E-5"["."),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 75---V1BOR8C",!
 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

V1BOR8D
V1BOR8D ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: '[   -D-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"76---V1BOR8D: Binary operator  relational: '[   -D-",!
 ;
123 W !,"I-123  Empty string on left side"
1231 S ^ABSN="11052",^ITEM="I-123.1  """"'[""A""",^NEXT="12311^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'["A",^VCORR="1" D ^VEXAMINE
12311 S ^ABSN="11053",^ITEM="I-123.1.1  '(""""[""A"")",^NEXT="1232^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""["A"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1232 S ^ABSN="11054",^ITEM="I-123.2  """"'[""123456""",^NEXT="12321^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'["123456",^VCORR="1" D ^VEXAMINE
12321 S ^ABSN="11055",^ITEM="I-123.2.1  '(""""[""123456"")",^NEXT="124^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""["123456"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
124 W !,"I-124  Empty string on right side"
1241 S ^ABSN="11056",^ITEM="I-124.1  ""A""'[""""",^NEXT="12411^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"'["",^VCORR="0" D ^VEXAMINE
12411 S ^ABSN="11057",^ITEM="I-124.1.1  '(""A""["""")",^NEXT="1242^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("A"[""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1242 S ^ABSN="11058",^ITEM="I-124.2  ""ABC""'[""""",^NEXT="12421^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABC"'["",^VCORR="0" D ^VEXAMINE
12421 S ^ABSN="11059",^ITEM="I-124.2.1  '(""ABC""["""")",^NEXT="125^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABC"[""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
125 W !,"I-125  Empty string on both sides"
1251 S ^ABSN="11060",^ITEM="I-125.1  """"'[""""",^NEXT="12511^V1BOR8D,V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""'["",^VCORR="0" D ^VEXAMINE ;Number changed in V7.4;16/9/89
12511 S ^ABSN="11061",^ITEM="I-125.1.1  '(""""["""")",^NEXT="V1BOR9A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""[""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 76---V1BOR8D",!
 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

V1BOR9A
V1BOR9A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ] -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"77---V1BOR9A: Binary operator  relational: ] -A-",!
 W !,"String follows (])",!
126 W !,"I-126  expratoms are numlit and numlit"
1261 S ^ABSN="11062",^ITEM="I-126.1  123]1",^NEXT="1262^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=123]1,^VCORR="1" D ^VEXAMINE
1262 S ^ABSN="11063",^ITEM="I-126.2  3.0]3",^NEXT="1263^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0]3,^VCORR="0" D ^VEXAMINE
1263 S ^ABSN="11064",^ITEM="I-126.3  00123]1",^NEXT="1264^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00123]1,^VCORR="1" D ^VEXAMINE
1264 S ^ABSN="11065",^ITEM="I-126.4  00.34]0",^NEXT="1265^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.34]0,^VCORR="0" D ^VEXAMINE
1265 S ^ABSN="11066",^ITEM="I-126.5  1234]124",^NEXT="1266^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=1234]124,^VCORR="0" D ^VEXAMINE
1266 S ^ABSN="11067",^ITEM="I-126.6  98788.34]987880",^NEXT="1267^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98788.34]987880,^VCORR="0" D ^VEXAMINE
1267 S ^ABSN="11068",^ITEM="I-126.7  98788.34]987",^NEXT="127^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98788.34]987,^VCORR="1" D ^VEXAMINE
 ;
127 W !,"I-127  expratoms are numlit and strlit"
1271 S ^ABSN="11069",^ITEM="I-127.1  987]""987""",^NEXT="1272^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=987]"987",^VCORR="0" D ^VEXAMINE
1272 S ^ABSN="11070",^ITEM="I-127.2  3.1]""3.1ABD""",^NEXT="1273^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1]"3.1ABD",^VCORR="0" D ^VEXAMINE
1273 S ^ABSN="11071",^ITEM="I-127.3  22.56]""22$56""",^NEXT="1274^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=22.56]"22$56",^VCORR="1" D ^VEXAMINE
1274 S ^ABSN="11072",^ITEM="I-127.4  99.2]"" ! """,^NEXT="1275^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=99.2]" ! ",^VCORR="1" D ^VEXAMINE
1275 S ^ABSN="11073",^ITEM="I-127.5  -099.2]""-9 ! """,^NEXT="128^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-099.2]"-9 ! ",^VCORR="1" D ^VEXAMINE
 ;
128 W !,"I-128  expratoms are strlit and numlit"
1281 S ^ABSN="11074",^ITEM="I-128.1  ""3""]3",^NEXT="1282^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3"]3,^VCORR="0" D ^VEXAMINE
1282 S ^ABSN="11075",^ITEM="I-128.2  ""3A""]3",^NEXT="1283^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"]3,^VCORR="1" D ^VEXAMINE
1283 S ^ABSN="11076",^ITEM="I-128.3  ""00123""]1",^NEXT="1284^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"]1,^VCORR="0" D ^VEXAMINE
1284 S ^ABSN="11077",^ITEM="I-128.4  ""ABCD""]1",^NEXT="1285^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCD"]1,^VCORR="1" D ^VEXAMINE
1285 S ^ABSN="11078",^ITEM="I-128.5  ""!""""""]0231",^NEXT="1286^V1BOR9A,V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="!"""]0231,^VCORR="0" D ^VEXAMINE
1286 S ^ABSN="11079",^ITEM="I-128.6  +""3E-2A""]-3",^NEXT="V1BOR9B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3E-2A"]-3,^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 77---V1BOR9A",!
 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

V1BOR9B
V1BOR9B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ] -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"78---V1BOR9B: Binary operator  relational: ] -B-",!
 ;
129 W !,"I-129  expratoms are strlit and strlit"
1291 S ^ABSN="11080",^ITEM="I-129.1  ""A""]""A""",^NEXT="1292^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"]"A",^VCORR="0" D ^VEXAMINE
1292 S ^ABSN="11081",^ITEM="I-129.2  ""AB""]""A""",^NEXT="1293^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AB"]"A",^VCORR="1" D ^VEXAMINE
1293 S ^ABSN="11082",^ITEM="I-129.3  ""ABC""]""ABC""",^NEXT="1294^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABC"]"ABC",^VCORR="0" D ^VEXAMINE
1294 S ^ABSN="11083",^ITEM="I-129.4  ""AAA""]""AA""",^NEXT="1295^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AAA"]"AA",^VCORR="1" D ^VEXAMINE
1295 S ^ABSN="11084",^ITEM="I-129.5  -""3A""]""-""",^NEXT="1296^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-"3A"]"-",^VCORR="1" D ^VEXAMINE
1296 S ^ABSN="11085",^ITEM="I-129.6  ""AA""]""AAA""",^NEXT="1297^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AA"]"AAA",^VCORR="0" D ^VEXAMINE
1297 S ^ABSN="11086",^ITEM="I-129.7  ""AAA""]""aaa""",^NEXT="1298^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AAA"]"aaa",^VCORR="0" D ^VEXAMINE
1298 S ^ABSN="11087",^ITEM="I-129.8  ""aaa""]""AAA""",^NEXT="130^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="aaa"]"AAA",^VCORR="1" D ^VEXAMINE
 ;
130 W !,"I-130  Empty string on left side"
1301 S ^ABSN="11088",^ITEM="I-130.1  """"]""A""",^NEXT="1302^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""]"A",^VCORR="0" D ^VEXAMINE
1302 S ^ABSN="11089",^ITEM="I-130.2  """"]"".1234""",^NEXT="131^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""]".1234",^VCORR="0" D ^VEXAMINE
 ;
131 W !,"I-131  Empty string on right side"
1311 S ^ABSN="11090",^ITEM="I-131.1  ""A""]""""",^NEXT="1312^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"]"",^VCORR="1" D ^VEXAMINE
1312 S ^ABSN="11091",^ITEM="I-131.2  ""%AND""]""""",^NEXT="132^V1BOR9B,V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="%AND"]"",^VCORR="1" D ^VEXAMINE
 ;
132 W !,"I-132  Empty string on both sides"
 S ^ABSN="11092",^ITEM="I-132  Empty string on both sides",^NEXT="V1BOR10A^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""]"",^VCORR="0" D ^VEXAMINE
 ;
END W !!,"End of 78---V1BOR9B",!
 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

V1BOR10A
V1BOR10A ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -A-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"79---V1BOR10A: Binary operator  relational: ']   -A-",!
 W !,"String not follows ('])",!
133 W !,"I-133  expratoms are numlit and numlit"
1331 S ^ABSN="11093",^ITEM="I-133.1  123']1",^NEXT="13311^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=123']1,^VCORR="0" D ^VEXAMINE
13311 S ^ABSN="11094",^ITEM="I-133.1.1  '(123]1)",^NEXT="1332^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(123]1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1332 S ^ABSN="11095",^ITEM="I-133.2  3.0']3",^NEXT="13321^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.0']3,^VCORR="1" D ^VEXAMINE
13321 S ^ABSN="11096",^ITEM="I-133.2.1  '(3.0]3)",^NEXT="1333^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.0]3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1333 S ^ABSN="11097",^ITEM="I-133.3  00123']1",^NEXT="13331^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00123']1,^VCORR="0" D ^VEXAMINE
13331 S ^ABSN="11098",^ITEM="I-133.3.1  '(00123]1)",^NEXT="1334^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00123]1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1334 S ^ABSN="11099",^ITEM="I-133.4  00.34']0",^NEXT="13341^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=00.34']0,^VCORR="1" D ^VEXAMINE
13341 S ^ABSN="11100",^ITEM="I-133.4.1  '(00.34]0)",^NEXT="1335^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(00.34]0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1335 S ^ABSN="11101",^ITEM="I-133.5  1234']124",^NEXT="13351^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=1234']124,^VCORR="1" D ^VEXAMINE
13351 S ^ABSN="11102",^ITEM="I-133.5.1  '(1234]124)",^NEXT="1336^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(1234]124),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1336 S ^ABSN="11103",^ITEM="I-133.6  98788.34']987880",^NEXT="13361^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98788.34']987880,^VCORR="1" D ^VEXAMINE
13361 S ^ABSN="11104",^ITEM="I-133.6.1  '(98788.34]987880)",^NEXT="1337^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(98788.34]987880),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1337 S ^ABSN="11105",^ITEM="I-133.7  98788.34']987",^NEXT="13371^V1BOR10A,V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=98788.34']987,^VCORR="0" D ^VEXAMINE
13371 S ^ABSN="11106",^ITEM="I-133.7.1  '(98788.34]987)",^NEXT="V1BOR10B^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(98788.34]987),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 79---V1BOR10A",!
 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

V1BOR10B
V1BOR10B ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -B-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"80---V1BOR10B: Binary operator  relational: ']   -B-",!
 ;
134 W !,"I-134  expratoms are numlit and strlit"
1341 S ^ABSN="11107",^ITEM="I-134.1  987']""987""",^NEXT="13411^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=987']"987",^VCORR="1" D ^VEXAMINE
13411 S ^ABSN="11108",^ITEM="I-134.1.1  '(987]""987"")",^NEXT="1342^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(987]"987"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1342 S ^ABSN="11109",^ITEM="I-134.2  3.1']""3.1ABD""",^NEXT="13421^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=3.1']"3.1ABD",^VCORR="1" D ^VEXAMINE
13421 S ^ABSN="11110",^ITEM="I-134.2.1  '(3.1]""3.1ABD"")",^NEXT="1343^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(3.1]"3.1ABD"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1343 S ^ABSN="11111",^ITEM="I-134.3  22.56']""22$56""",^NEXT="13431^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=22.56']"22$56",^VCORR="0" D ^VEXAMINE
13431 S ^ABSN="11112",^ITEM="I-134.3.1  '(22.56]""22$56"")",^NEXT="1344^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(22.56]"22$56"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1344 S ^ABSN="11113",^ITEM="I-134.4  99.2']"" ! """,^NEXT="13441^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=99.2']" ! ",^VCORR="0" D ^VEXAMINE
13441 S ^ABSN="11114",^ITEM="I-134.4.1  '(99.2]"" ! "")",^NEXT="1345^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(99.2]" ! "),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1345 S ^ABSN="11115",^ITEM="I-134.5  -099.2']""-9 ! """,^NEXT="13451^V1BOR10B,V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-099.2']"-9 ! ",^VCORR="0" D ^VEXAMINE
13451 S ^ABSN="11116",^ITEM="I-134.5.1  '(-099.2]""-9 ! "")",^NEXT="V1BOR10C^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-099.2]"-9 ! "),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 80---V1BOR10B",!
 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

V1BOR10C
V1BOR10C ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -C-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"81---V1BOR10C: Binary operator  relational: ']   -C-",!
 ;
135 W !,"I-135  expratoms are strlit and numlit"
1351 S ^ABSN="11117",^ITEM="I-135.1  ""3""']3",^NEXT="13511^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3"']3,^VCORR="1" D ^VEXAMINE
13511 S ^ABSN="11118",^ITEM="I-135.1.1  '(""3""]3)",^NEXT="1352^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3"]3),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1352 S ^ABSN="11119",^ITEM="I-135.2  ""3A""']3",^NEXT="13521^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="3A"']3,^VCORR="0" D ^VEXAMINE
13521 S ^ABSN="11120",^ITEM="I-135.2.1  '(""3A""]3)",^NEXT="1353^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("3A"]3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1353 S ^ABSN="11121",^ITEM="I-135.3  ""00123""']1",^NEXT="13531^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="00123"']1,^VCORR="1" D ^VEXAMINE
13531 S ^ABSN="11122",^ITEM="I-135.3.1  '(""00123""]1)",^NEXT="1354^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("00123"]1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1354 S ^ABSN="11123",^ITEM="I-135.4  ""ABCD""']1",^NEXT="13541^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABCD"']1,^VCORR="0" D ^VEXAMINE
13541 S ^ABSN="11124",^ITEM="I-135.4.1  '(""ABCD""]1)",^NEXT="1355^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABCD"]1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1355 S ^ABSN="11125",^ITEM="I-135.5  ""!""""""']0231",^NEXT="13551^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="!"""']0231,^VCORR="1" D ^VEXAMINE
13551 S ^ABSN="11126",^ITEM="I-135.5.1  '(""!""""""]0231)",^NEXT="1356^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("!"""]0231),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1356 S ^ABSN="11127",^ITEM="I-135.6  +""3E-2A""']-3",^NEXT="13561^V1BOR10C,V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=+"3E-2A"']-3,^VCORR="0" D ^VEXAMINE
13561 S ^ABSN="11128",^ITEM="I-135.6.1  '(+""3E-2A""]-3)",^NEXT="V1BOR10D^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(+"3E-2A"]-3),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 81---V1BOR10C",!
 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

V1BOR10D
V1BOR10D ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -D-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"82---V1BOR10D: Binary operator  relational: ']   -D-",!
 ;
136 W !,"I-136  expratoms are strlit and strlit"
1361 S ^ABSN="11129",^ITEM="I-136.1  ""B""']""A""",^NEXT="136011^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="B"']"A",^VCORR="0" D ^VEXAMINE
136011 S ^ABSN="11130",^ITEM="I-136.1.1  '(""B""]""A"")",^NEXT="1362^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("B"]"A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1362 S ^ABSN="11131",^ITEM="I-136.2  "")""']""(""",^NEXT="13621^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=")"']"(",^VCORR="0" D ^VEXAMINE
13621 S ^ABSN="11132",^ITEM="I-136.2.1  '("")""]""("")",^NEXT="1363^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(")"]"("),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1363 S ^ABSN="11133",^ITEM="I-136.3  ""#""']""A""",^NEXT="13631^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="#"']"A",^VCORR="1" D ^VEXAMINE
13631 S ^ABSN="11134",^ITEM="I-136.3.1  '(""#""]""A"")",^NEXT="1364^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("#"]"A"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1364 S ^ABSN="11135",^ITEM="I-136.4  ""A""']""A""",^NEXT="13641^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"']"A",^VCORR="1" D ^VEXAMINE
13641 S ^ABSN="11136",^ITEM="I-136.4.1  '(""A""]""A"")",^NEXT="1365^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("A"]"A"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1365 S ^ABSN="11137",^ITEM="I-136.5  ""AB""']""A""",^NEXT="13651^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AB"']"A",^VCORR="0" D ^VEXAMINE
13651 S ^ABSN="11138",^ITEM="I-136.5.1  '(""AB""]""A"")",^NEXT="1366^V1BOR10D,V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AB"]"A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1366 S ^ABSN="11139",^ITEM="I-136.6  ""ABC""']""ABC""",^NEXT="V1BOR10E^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="ABC"']"ABC",^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 82---V1BOR10D",!
 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

V1BOR10E
V1BOR10E ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -E-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"83---V1BOR10E: Binary operator  relational: ']   -E-",!
 ;
13661 S ^ABSN="11140",^ITEM="I-136.6.1  '(""ABC""]""ABC"")",^NEXT="1367^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("ABC"]"ABC"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1367 S ^ABSN="11141",^ITEM="I-136.7  ""AAA""']""AA""",^NEXT="13671^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AAA"']"AA",^VCORR="0" D ^VEXAMINE
13671 S ^ABSN="11142",^ITEM="I-136.7.1  '(""AAA""]""AA"")",^NEXT="1368^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AAA"]"AA"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1368 S ^ABSN="11143",^ITEM="I-136.8  -""3A""']""-""",^NEXT="13681^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=-"3A"']"-",^VCORR="0" D ^VEXAMINE
13681 S ^ABSN="11144",^ITEM="I-136.8.1  '(-""3A""]""-"")",^NEXT="1369^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(-"3A"]"-"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1369 S ^ABSN="11145",^ITEM="I-136.9  ""AA""']""AAA""",^NEXT="13691^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AA"']"AAA",^VCORR="1" D ^VEXAMINE
13691 S ^ABSN="11146",^ITEM="I-136.9.1  '(""AA""]""AAA"")",^NEXT="13610^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AA"]"AAA"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
13610 S ^ABSN="11147",^ITEM="I-136.10  ""AAA""']""aaa""",^NEXT="136101^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="AAA"']"aaa",^VCORR="1" D ^VEXAMINE
136101 S ^ABSN="11148",^ITEM="I-136.10.1  '(""AAA""]""aaa"")",^NEXT="13611^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("AAA"]"aaa"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
13611 S ^ABSN="11149",^ITEM="I-136.11  ""aaa""']""AAA""",^NEXT="136111^V1BOR10E,V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="aaa"']"AAA",^VCORR="0" D ^VEXAMINE
136111 S ^ABSN="11150",^ITEM="I-136.11.1  '(""aaa""]""AAA"")",^NEXT="V1BOR10F^V1BOR,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("aaa"]"AAA"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 83---V1BOR10E",!
 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

V1BOR10F
V1BOR10F ;IW-YS-TS,V1BOR,MVTS V9.10;15/6/96;BINARY OPERATOR  RELATIONAL: ']   -F-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"84---V1BOR10F: Binary operator  relational: ']   -F-",!
 ;
137 W !,"I-137  Empty string on left side"
1371 S ^ABSN="11151",^ITEM="I-137.1  """"']""A""",^NEXT="13711^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""']"A",^VCORR="1" D ^VEXAMINE
13711 S ^ABSN="11152",^ITEM="I-137.1.1  '(""""]""A"")",^NEXT="1372^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""]"A"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1372 S ^ABSN="11153",^ITEM="I-137.2  """"']"".1234""",^NEXT="13721^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""']".1234",^VCORR="1" D ^VEXAMINE
13721 S ^ABSN="11154",^ITEM="I-137.2.1  '(""""]"".1234"")",^NEXT="138^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""]".1234"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
138 W !,"I-138  Empty string on right side"
1381 S ^ABSN="11155",^ITEM="I-138.1  ""A""']""""",^NEXT="13811^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="A"']"",^VCORR="0" D ^VEXAMINE
13811 S ^ABSN="11156",^ITEM="I-138.1.1  '(""A""]"""")",^NEXT="1382^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("A"]""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1382 S ^ABSN="11157",^ITEM="I-138.2  ""%AND""']""""",^NEXT="13821^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP="%AND"']"",^VCORR="0" D ^VEXAMINE
13821 S ^ABSN="11158",^ITEM="I-138.2.1  '(""%AND""]"""")",^NEXT="139^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='("%AND"]""),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
139 W !,"I-139  Empty string on both sides"
1391 S ^ABSN="11159",^ITEM="I-139.1  """"']""""",^NEXT="13911^V1BOR10F,V1BOL^VV1" D ^V1PRESET
 S ^VCOMP=""']"",^VCORR="1" D ^VEXAMINE ;Number changed in V7.4;16/9/89
13911 S ^ABSN="11160",^ITEM="I-139.1.1  '(""""]"""")",^NEXT="V1BOL^VV1" D ^V1PRESET
 S ^VCOMP='(""]""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 84---V1BOR10F",!
 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

V1BOL
V1BOL ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;BINARY OPERATORS LOGICAL: &, '&, !, '!   SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1BOL1A W !!,"85---V1BOL1A" D ^V1BOL1A
V1BOL1B1 W !!,"86---V1BOL1B1" D ^V1BOL1B1
V1BOL1B2 W !!,"87---V1BOL1B2" D ^V1BOL1B2
V1BOL2A W !!,"88---V1BOL2A" D ^V1BOL2A
V1BOL2B1 W !!,"89---V1BOL2B1" D ^V1BOL2B1
V1BOL2B2 W !!,"90---V1BOL2B2" D ^V1BOL2B2
 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

V1BOL1A
V1BOL1A ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS LOGICAL: &
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"85---V1BOL1A: Binary operators  logical: &"
 W !!,"And (&)",!
140 W !,"I-140  expratoms are 0 or 1"
1401 S ^ABSN="11161",^ITEM="I-140.1  1&1",^NEXT="1402^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1&1,^VCORR="1" D ^VEXAMINE
1402 S ^ABSN="11162",^ITEM="I-140.2  1&0",^NEXT="1403^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1&0,^VCORR="0" D ^VEXAMINE
1403 S ^ABSN="11163",^ITEM="I-140.3  0&1",^NEXT="1404^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0&1,^VCORR="0" D ^VEXAMINE
1404 S ^ABSN="11164",^ITEM="I-140.4  0&0",^NEXT="141^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0&0,^VCORR="0" D ^VEXAMINE
 ;
141 W !,"I-141  expratoms are numlit"
1411 S ^ABSN="11165",^ITEM="I-141.1  2&3",^NEXT="1412^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=2&3,^VCORR="1" D ^VEXAMINE
1412 S ^ABSN="11166",^ITEM="I-141.2  4&0",^NEXT="1413^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=4&0,^VCORR="0" D ^VEXAMINE
1413 S ^ABSN="11167",^ITEM="I-141.3  0&-5",^NEXT="1414^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0&-5,^VCORR="0" D ^VEXAMINE
1414 S ^ABSN="11168",^ITEM="I-141.4  0.06&-0.007",^NEXT="142^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0.06&-0.007,^VCORR="1" D ^VEXAMINE
 ;
142 W !,"I-142  expratoms are strlit"
1421 S ^ABSN="11169",^ITEM="I-142.1  ""A""&""B""",^NEXT="1422^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="A"&"B",^VCORR="0" D ^VEXAMINE
1422 S ^ABSN="11170",^ITEM="I-142.2  ""-0.0A""&""2B""",^NEXT="143^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="-0.0A"&"2B",^VCORR="0" D ^VEXAMINE
 ;
143 W !,"I-143  expratoms are empty strings"
 S ^ABSN="11171",^ITEM="I-143  expratoms are empty strings",^NEXT="144^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=""&"" S C="0" D ^VEXAMINE
 ;
144 W !,"I-144  expratoms are lvn"
1441 S ^ABSN="11172",^ITEM="I-144.1  A&B",^NEXT="1142^V1BOL1A,V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3Z"
 S ^VCOMP=A&B,^VCORR="0" D ^VEXAMINE
1142 S ^ABSN="11173",^ITEM="I-144.2  C&%D",^NEXT="V1BOL1B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3Z"
 S ^VCOMP=C&%D,^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 85---V1BOL1A",!
 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

V1BOL1B1
V1BOL1B1 ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS LOGICAL: '& -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"86---V1BOL1B1: Binary operators  logical: '&  -1-"
145 W !!,"Nand ('&)",!
 W !,"I-145  expratoms are 0 or 1"
1451 S ^ABSN="11174",^ITEM="I-145.1  1'&1",^NEXT="14511^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1'&1,^VCORR="0" D ^VEXAMINE
14511 S ^ABSN="11175",^ITEM="I-145.1.1  '(1&1)",^NEXT="1452^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(1&1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1452 S ^ABSN="11176",^ITEM="I-145.2  1'&0",^NEXT="14521^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1'&0,^VCORR="1" D ^VEXAMINE
14521 S ^ABSN="11177",^ITEM="I-145.2.1  '(1&0)",^NEXT="1453^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(1&0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1453 S ^ABSN="11178",^ITEM="I-145.3  0'&1",^NEXT="14531^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0'&1,^VCORR="1" D ^VEXAMINE
14531 S ^ABSN="11179",^ITEM="I-145.3.1  '(0&1)",^NEXT="1454^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(0&1),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1454 S ^ABSN="11180",^ITEM="I-145.4  0'&0",^NEXT="14541^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0'&0,^VCORR="1" D ^VEXAMINE
14541 S ^ABSN="11181",^ITEM="I-145.4.1  '(0&0)",^NEXT="146^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(0&0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
146 W !,"I-146  expratoms are numlit"
1461 S ^ABSN="11182",^ITEM="I-146.1  2'&30000",^NEXT="14611^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=2'&30000,^VCORR="0" D ^VEXAMINE
14611 S ^ABSN="11183",^ITEM="I-146.1.1  '(2&30000)",^NEXT="1462^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(2&30000),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1462 S ^ABSN="11184",^ITEM="I-146.2  40'&0",^NEXT="14621^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=40'&0,^VCORR="1" D ^VEXAMINE
14621 S ^ABSN="11185",^ITEM="I-146.2.1  '(40&0)",^NEXT="1463^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(40&0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1463 S ^ABSN="11186",^ITEM="I-146.3  2E-10'&0",^NEXT="14631^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=2E-10'&0,^VCORR="1" D ^VEXAMINE
14631 S ^ABSN="11187",^ITEM="I-146.3.1  '(2E-10&0)",^NEXT="1464^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(2E-10&0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1464 S ^ABSN="11188",^ITEM="I-146.4  00.0300'&4E10",^NEXT="14641^V1BOL1B1,V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=00.0300'&4E10,^VCORR="0" D ^VEXAMINE
14641 S ^ABSN="11189",^ITEM="I-146.4.1  '(00.0300&4E10)",^NEXT="V1BOL1B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(00.0300&4E10),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 86---V1BOL1B1",!
 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

V1BOL1B2
V1BOL1B2 ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS LOGICAL: '& -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"87---V1BOL1B2: Binary operators  logical: '& -2-",!
147 W !,"I-147  expratoms are strlit"
1471 S ^ABSN="11190",^ITEM="I-147.1  ""A""'&""B""",^NEXT="14711^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="A"'&"B",^VCORR="1" D ^VEXAMINE
14711 S ^ABSN="11191",^ITEM="I-147.1.1  '(""A""&""B"")",^NEXT="1472^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='("A"&"B"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1472 S ^ABSN="11192",^ITEM="I-147.2  ""-0.0A""'&""2B""",^NEXT="14721^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="-0.0A"'&"2B",^VCORR="1" D ^VEXAMINE
14721 S ^ABSN="11193",^ITEM="I-147.2.1  '(""-0.0A""&""2B"")",^NEXT="148^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='("-0.0A"&"2B"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
148 W !,"I-148  expratoms are empty strings"
1481 S ^ABSN="11194",^ITEM="I-148.1  """"'&""""",^NEXT="14811^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=""'&"" S C="1" D ^VEXAMINE ;Number changed in V7.4;16/9/89
14811 S ^ABSN="11195",^ITEM="I-148.1.1  '(""""&"""")",^NEXT="149^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(""&"") S C="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
149 W !,"I-149  expratoms are lvn"
1491 S ^ABSN="11196",^ITEM="I-149.1  C'&D",^NEXT="14911^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S %A=0,B="B",C=2,D="3Z"
 S ^VCOMP=C'&D,^VCORR="0" D ^VEXAMINE
14911 S ^ABSN="11197",^ITEM="I-149.1.1  '(C&D)",^NEXT="1492^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S %A=0,B="B",C=2,D="3Z"
 S ^VCOMP='(C&D),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1492 S ^ABSN="11198",^ITEM="I-149.2  D'&%A",^NEXT="14921^V1BOL1B2,V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S %A=0,B="B",C=2,D="3Z"
 S ^VCOMP=D'&%A,^VCORR="1" D ^VEXAMINE
14921 S ^ABSN="11199",^ITEM="I-149.2.1  '(D&%A)",^NEXT="V1BOL2A^V1BOL,V1BOC^VV1" D ^V1PRESET
 S %A=0,B="B",C=2,D="3Z"
 S ^VCOMP='(D&%A),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 87---V1BOL1B2",!
 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

V1BOL2A
V1BOL2A ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS  LOGICAL: !
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"88---V1BOL2A: Binary operators  logical: !" W:$Y>55 #
 W !!,"Or (!)",!
150 W !,"I-150  expratoms are 0 or 1"
1501 S ^ABSN="11200",^ITEM="I-150.1  1!1",^NEXT="1502^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1!1,^VCORR="1" D ^VEXAMINE
1502 S ^ABSN="11201",^ITEM="I-150.2  1!0",^NEXT="1503^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1!0,^VCORR="1" D ^VEXAMINE
1503 S ^ABSN="11202",^ITEM="I-150.3  0!1",^NEXT="1504^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0!1,^VCORR="1" D ^VEXAMINE
1504 S ^ABSN="11203",^ITEM="I-150.4  0!0",^NEXT="151^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0!0,^VCORR="0" D ^VEXAMINE
 ;
151 W !,"I-151  expratoms are numlit"
1511 S ^ABSN="11204",^ITEM="I-151.1  2!1000",^NEXT="1512^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=2!1000,^VCORR="1" D ^VEXAMINE
1512 S ^ABSN="11205",^ITEM="I-151.2  -8E-10!0.00E-3",^NEXT="1513^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=-8E-10!0.00E-3,^VCORR=1 D ^VEXAMINE
1513 S ^ABSN="11206",^ITEM="I-151.3  0!9E-12",^NEXT="1514^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0!9E-12,^VCORR="1" D ^VEXAMINE
1514 S ^ABSN="11207",^ITEM="I-151.4  0.06E+12!-0.007",^NEXT="152^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0.06E+12!-0.007,^VCORR="1" D ^VEXAMINE
 ;
152 W !,"I-152  expratoms are strlit"
1521 S ^ABSN="11208",^ITEM="I-152.1  ""A3B3""!""ABC""",^NEXT="1522^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="A3B3"!"ABC",^VCORR="0" D ^VEXAMINE
1522 S ^ABSN="11209",^ITEM="I-152.2  ""2E2A""!""2B2A""",^NEXT="153^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="2E2A"!"2B2A",^VCORR="1" D ^VEXAMINE
 ;
153 W !,"I-153  expratoms are empty strings"
 S ^ABSN="11210",^ITEM="I-153  expratoms are empty strings",^NEXT="154^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=""!"",^VCORR="0" D ^VEXAMINE
 ;
154 W !,"I-154  expratoms are lvn"
1541 S ^ABSN="11211",^ITEM="I-154.1  A!C",^NEXT="1542^V1BOL2A,V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP=A!C,^VCORR="1" D ^VEXAMINE
1542 S ^ABSN="11212",^ITEM="I-154.2  B!%D",^NEXT="V1BOL2B1^V1BOL,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP=B!%D,^VCORR="1" D ^VEXAMINE
 ;
END W !!,"End of 88---V1BOL2A",!
 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

V1BOL2B1
V1BOL2B1 ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS  LOGICAL: '! -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"89---V1BOL2B1: Binary operators  logical: '! -1-" W:$Y>55 #
155 W !!,"Nor ('!)",!
 W !,"I-155  expratoms are 0 or 1"
1551 S ^ABSN="11213",^ITEM="I-155.1  1'!1",^NEXT="15511^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1'!1,^VCORR="0" D ^VEXAMINE
15511 S ^ABSN="11214",^ITEM="I-155.1.1  '(1!1)",^NEXT="1552^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(1!1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1552 S ^ABSN="11215",^ITEM="I-155.2  1'!0",^NEXT="15521^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=1'!0,^VCORR="0" D ^VEXAMINE
15521 S ^ABSN="11216",^ITEM="I-155.2.1  '(1!0)",^NEXT="1553^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(1!0),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1553 S ^ABSN="11217",^ITEM="I-155.3  0'!1",^NEXT="15531^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0'!1,^VCORR="0" D ^VEXAMINE
15531 S ^ABSN="11218",^ITEM="I-155.3.1  '(0!1)",^NEXT="1554^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(0!1),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1554 S ^ABSN="11219",^ITEM="I-155.4  0'!0",^NEXT="15541^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0'!0,^VCORR="1" D ^VEXAMINE
15541 S ^ABSN="11220",^ITEM="I-155.4.1  '(0!0)",^NEXT="156^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(0!0),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
156 W !,"I-156  expratoms are numlit"
1561 S ^ABSN="11221",^ITEM="I-156.1  2'!1000",^NEXT="15611^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=2'!1000,^VCORR="0" D ^VEXAMINE
15611 S ^ABSN="11222",^ITEM="I-156.1.1  '(2!1000)",^NEXT="1562^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(2!1000),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1562 S ^ABSN="11223",^ITEM="I-156.2  -8E-10'!0.00E+6",^NEXT="15621^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=-8E-10'!0.00E+6,^VCORR="0" D ^VEXAMINE
15621 S ^ABSN="11224",^ITEM="I-156.2.1  '(-8E-10!0.00E+6)",^NEXT="1563^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(-8E-10!0.00E+6),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1563 S ^ABSN="11225",^ITEM="I-156.3  000000'!9E-12",^NEXT="15631^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=000000'!9E-12,^VCORR="0" D ^VEXAMINE
15631 S ^ABSN="11226",^ITEM="I-156.3.1  '(000000!9E-12)",^NEXT="1564^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(000000!9E-12),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
1564 S ^ABSN="11227",^ITEM="I-156.4  0.06E+12'!-0.007",^NEXT="15641^V1BOL2B1,V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=0.06E+12'!-0.007,^VCORR=0 D ^VEXAMINE
15641 S ^ABSN="11228",^ITEM="I-156.4.1  '(0.06E+12!-0.007)",^NEXT="V1BOL2B2^V1BOL,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(0.06E+12!-0.007),^VCORR=0 D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 89---V1BOL2B1",!
 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

V1BOL2B2
V1BOL2B2 ;IW-YS-TS,V1BOL,MVTS V9.10;15/6/96;BINARY OPERATORS  LOGICAL: '! -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"90---V1BOL2B2: Binary operators  logical: '! -2-" W:$Y>55 #
157 W !!,"I-157  expratoms are strlit"
1571 S ^ABSN="11229",^ITEM="I-157.1  ""A3B3""'!""ABC""",^NEXT="15711^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="A3B3"'!"ABC",^VCORR="1" D ^VEXAMINE
15711 S ^ABSN="11230",^ITEM="I-157.1.1  '(""A3B3""!""ABC"")",^NEXT="1572^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='("A3B3"!"ABC"),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1572 S ^ABSN="11231",^ITEM="I-157.2  ""2E2A""'!""2B2A""",^NEXT="15721^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP="2E2A"'!"2B2A",^VCORR="0" D ^VEXAMINE
15721 S ^ABSN="11232",^ITEM="I-157.2.1  '(""2E2A""!""2B2A"")",^NEXT="158^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='("2E2A"!"2B2A"),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
158 W !,"I-158  expratoms are empty strings"
1581 S ^ABSN="11233",^ITEM="I-158.1  """"'!""""",^NEXT="15811^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP=""'!"",^VCORR="1" D ^VEXAMINE ;Number changed in V7.4;16/9/89
15811 S ^ABSN="11234",^ITEM="I-158.1.1  '(""""!"""")",^NEXT="159^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S ^VCOMP='(""!""),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
159 W !,"I-159  expratoms are lvn"
1591 S ^ABSN="11235",^ITEM="I-159.1  A'!B",^NEXT="15911^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP=A'!B,^VCORR="1" D ^VEXAMINE
15911 S ^ABSN="11236",^ITEM="I-159.1.1  '(A!B)",^NEXT="1592^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP='(A!B),^VCORR="1" D ^VEXAMINE ;Test added in V7.4;16/9/89
1592 S ^ABSN="11237",^ITEM="I-159.2  B'!%D",^NEXT="15921^V1BOL2B2,V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP=B'!%D,^VCORR="0" D ^VEXAMINE
15921 S ^ABSN="11238",^ITEM="I-159.2.1  '(B!%D)",^NEXT="V1BOC^VV1" D ^V1PRESET
 S A=0,B="B",C=2,%D="3E-2Z"
 S ^VCOMP='(B!%D),^VCORR="0" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
END W !!,"End of 90---V1BOL2B2",!
 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

V1BOC
V1BOC ;IW-YS-TS,V1BOC,MVTS V9.10;15/6/96;BINARY OPERATOR  CONCATENATION
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"91---V1BOC: Binary operator  concatenation" W:$Y>55 #
 W !!,"Concatenation (_)",!
160 W !,"I-160  expratoms are strlit"
1601 S ^ABSN="11239",^ITEM="I-160.1  ""A""_""B""",^NEXT="1602^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP="A"_"B",^VCORR="AB" D ^VEXAMINE
1602 S ^ABSN="11240",^ITEM="I-160.2  ""#""_""%""",^NEXT="1603^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP="#"_"%",^VCORR="#%" D ^VEXAMINE
1603 S ^ABSN="11241",^ITEM="I-160.3  ""000""_""010""",^NEXT="1604^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP="000"_"010",^VCORR="000010" D ^VEXAMINE
1604 S ^ABSN="11242",^ITEM="I-160.4  ""_""""_""_""zxcv""",^NEXT="161^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP="_""_"_"zxcv",^VCORR="_""_zxcv" D ^VEXAMINE
 ;
161 W !,"I-161  expratoms are numlit"
1611 S ^ABSN="11243",^ITEM="I-161.1  2_3",^NEXT="1612^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP=2_3,^VCORR="23" D ^VEXAMINE
1612 S ^ABSN="11244",^ITEM="I-161.2  000.000_3.4",^NEXT="1613^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP=000.000_3.4,^VCORR="03.4" D ^VEXAMINE
1613 S ^ABSN="11245",^ITEM="I-161.3  3E1_-.5E1",^NEXT="162^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP=3E1_-.5E1,^VCORR="30-5" D ^VEXAMINE
 ;
162 W !,"I-162  Relation with unary operator"
1621 S ^ABSN="11246",^ITEM="I-162.1  '0_''0",^NEXT="1622^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP='0_''0,^VCORR="10" D ^VEXAMINE
1622 S ^ABSN="11247",^ITEM="I-162.2  000.000_+""3.4E2""",^NEXT="163^V1BOC,V1FN^VV1" D ^V1PRESET
 S ^VCOMP=000.000_+"3.4E2",^VCORR="0340" D ^VEXAMINE
 ;
163 W !,"I-163  More than one concatenation in one expr"
 S ^ABSN="11248",^ITEM="I-163  More than one concatenation in one expr",^NEXT="164^V1BOC,V1FN^VV1" D ^V1PRESET
 S V=""
 S ^VCOMP="THES"_"E TWO "_""""_"L"_"INES SH"_"OULD BE E"_""_"XACT"_"LY IDE"_"NTICAL."
 S ^VCORR="THESE TWO ""LINES SHOULD BE EXACTLY IDENTICAL." D ^VEXAMINE
 ;
164 W !,"I-164  expratoms are lvn"
1641 S ^ABSN="11249",^ITEM="I-164.1  A_B",^NEXT="1642^V1BOC,V1FN^VV1" D ^V1PRESET
 S A="A",B=2,C=03.40,D="2A",A(29)=029,B(0,20)="020ZX"
 S ^VCOMP=A_B,^VCORR="A2" D ^VEXAMINE
1642 S ^ABSN="11250",^ITEM="I-164.2  B_C_""ABD""_D",^NEXT="1643^V1BOC,V1FN^VV1" D ^V1PRESET
 S A="A",B=2,C=03.40,D="2A",A(29)=029,B(0,20)="020ZX"
 S ^VCOMP=B_C_"ABD"_D,^VCORR="23.4ABD2A" D ^VEXAMINE
1643 S ^ABSN="11251",^ITEM="I-164.3  C_D",^NEXT="1644^V1BOC,V1FN^VV1" D ^V1PRESET
 S A="A",B=2,C=03.40,D="2A",A(29)=029,B(0,20)="020ZX"
 S ^VCOMP=C_D,^VCORR="3.42A" D ^VEXAMINE
1644 S ^ABSN="11252",^ITEM="I-164.4  A_-D",^NEXT="1645^V1BOC,V1FN^VV1" D ^V1PRESET
 S A="A",B=2,C=03.40,D="2A",A(29)=029,B(0,20)="020ZX"
 S ^VCOMP=A_-D,^VCORR="A-2" D ^VEXAMINE
1645 S ^ABSN="11253",^ITEM="I-164.5  A(29)_B(0,20)",^NEXT="V1FN^VV1" D ^V1PRESET
 S A="A",B=2,C=03.40,D="2A",A(29)=029,B(0,20)="020ZX"
 S ^VCOMP=A(29)_B(0,20),^VCORR="29020ZX" D ^VEXAMINE
 ;
END W !!,"End of 91---V1BOC",!
 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

V1FN
V1FN ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FUNCTION  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1FNE1 W !!,"92---V1FNE1" D ^V1FNE1
V1FNE2 W !!,"93---V1FNE2" D ^V1FNE2
V1FNE3 W !!,"94---V1FNE3" D ^V1FNE3
V1FNE4 W !!,"95---V1FNE4" D ^V1FNE4
V1FNF1 W !!,"96---V1FNF1" D ^V1FNF1
V1FNF2 W !!,"97---V1FNF2" D ^V1FNF2
V1FNF3 W !!,"98---V1FNF3" D ^V1FNF3
V1FNL1 W !!,"99---V1FNL1" D ^V1FNL1
V1FNL2 W !!,"100---V1FNL2" D ^V1FNL2
V1FNP1 W !!,"101---V1FNP1" D ^V1FNP1
V1FNP2 W !!,"102---V1FNP2" D ^V1FNP2
V1FNP3 W !!,"103---V1FNP3" D ^V1FNP3
 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

V1FNE1
V1FNE1 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $EXTRACT -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"92---V1FNE1: $EXTRACT function -1-" W:$Y>55 #
 W !!,"$EXTRACT(expr1,intexpr2)",! W:$Y>55 #
263 W !,"I-263  expr1 is string literal"
 S ^ABSN="11254",^ITEM="I-263  expr1 is string literal",^NEXT="264^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",26) S ^VCORR="Z" D ^VEXAMINE
 ;
264 W !,"I-264  expr1 is positive integer"
 S ^ABSN="11255",^ITEM="I-264  expr1 is positive integer",^NEXT="265^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(000789400,3) S ^VCORR="9" D ^VEXAMINE
 ;
265 W !,"I-265  expr1 is negative integer"
2651 S ^ABSN="11256",^ITEM="I-265.1  -000789400",^NEXT="2652^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-000789400,3) S ^VCORR="8" D ^VEXAMINE
2652 S ^ABSN="11257",^ITEM="I-265.2  -00789400",^NEXT="266^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-00789400,1) S ^VCORR="-" D ^VEXAMINE
 ;
266 W !,"I-266  expr1 is non-integer numeric literal"
2661 S ^ABSN="11258",^ITEM="I-266.1  0007.89400",^NEXT="2662^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(0007.89400,3) S ^VCORR="8" D ^VEXAMINE
2662 S ^ABSN="11259",^ITEM="I-266.2  -000723.89400E-01",^NEXT="2663^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-000723.89400E-01,4) S ^VCORR="." D ^VEXAMINE
2663 S ^ABSN="11260",^ITEM="I-266.3  0000723.8900E04",^NEXT="2664^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(0000723.8900E04,5) S ^VCORR="9" D ^VEXAMINE
2664 S ^ABSN="11261",^ITEM="I-266.4  -0000.00E04",^NEXT="267^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E(-0000.00E04,2) S ^VCORR="" D ^VEXAMINE
 ;
267 W !,"I-267  expr1 is function"
2671 S ^ABSN="11262",^ITEM="I-267.1  $EXTRACT(expr1,intexpr2)",^NEXT="2672^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E($EXTRACT(07564.56,2),1) S ^VCORR="5" D ^VEXAMINE
2672 S ^ABSN="11263",^ITEM="I-267.2  $E(expr1,intexpr2,intexpr3)",^NEXT="268^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E($E(07564.56,2,5),4) S ^VCORR="." D ^VEXAMINE
 ;
268 W !,"I-268  expr1 contains unary operator"
2681 S ^ABSN="11264",^ITEM="I-268.1  + unary operator",^NEXT="2682^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(+"003.56E3",3) S ^VCORR="6" D ^VEXAMINE
2682 S ^ABSN="11265",^ITEM="I-268.2  expr1 is + lvn",^NEXT="269^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S A="38E4",^VCOMP=$E(+A,6) S ^VCORR="0" D ^VEXAMINE
 ;
269 W !,"I-269  expr1 contains binary operator"
2691 S ^ABSN="11266",^ITEM="I-269.1  + binary operator",^NEXT="2692^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(1234.56+95.45,6) S ^VCORR="0" D ^VEXAMINE
2692 S ^ABSN="11267",^ITEM="I-269.2  - binary operator",^NEXT="2693^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(34.56-45.453,5) S ^VCORR="8" D ^VEXAMINE
2693 S ^ABSN="11268",^ITEM="I-269.3  + and / binary operators",^NEXT="270^V1FNE1,V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(.8+10/3,3) S ^VCORR="6" D ^VEXAMINE
 ;
270 W !,"I-270  expr1 an empty string"
 S ^ABSN="11269",^ITEM="I-270  expr1 an empty string",^NEXT="V1FNE2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("",1) S ^VCORR="" D ^VEXAMINE
 ;
END W !!,"End of 92---V1FNE1",!
 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

V1FNE2
V1FNE2 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $EXTRACT -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"93---V1FNE2: $EXTRACT function -2-",! W:$Y>55 #
 ;
271 W !,"I-271  intexpr2 is string literal"
2711 S ^ABSN="11270",^ITEM="I-271.1  intexpr2=""A3BCD""",^NEXT="2712^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E(-456789.0,"A3BCD") S ^VCORR="" D ^VEXAMINE
2712 S ^ABSN="11271",^ITEM="I-271.2  intexpr2=""3.6BCD""",^NEXT="272^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-456789.0,"3.6BCD") S ^VCORR="5" D ^VEXAMINE
 ;
272 W !,"I-272  intexpr2 is positive integer"
 S ^ABSN="11272",^ITEM="I-272  intexpr2 is positive integer",^NEXT="273^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ",0.1E+2) S ^VCORR="J" D ^VEXAMINE
 ;
273 W !,"I-273  intexpr2 is negative integer"
 S ^ABSN="11273",^ITEM="I-273  intexpr2 is negative integer",^NEXT="274^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E(-456789.0,-1) S ^VCORR="" D ^VEXAMINE
 ;
274 W !,"I-274  intexpr2 is zero"
 S ^ABSN="11274",^ITEM="I-274  intexpr2 is zero",^NEXT="275^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E(456789.0,00) S ^VCORR="" D ^VEXAMINE
 ;
275 W !,"I-275  intexpr2>$L(expr1)"
2751 S ^ABSN="11275",^ITEM="I-275.1  (intexpr2+1)=$L(expr1)",^NEXT="2752^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("-457.90E8",10) S ^VCORR="" D ^VEXAMINE
2752 S ^ABSN="11276",^ITEM="I-275.2  intexpr2>255",^NEXT="276^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("-4567.890",999) S ^VCORR="" D ^VEXAMINE
 ;
276 W !,"I-276  intexpr2 is non-integer numeric literal"
 S ^ABSN="11277",^ITEM="I-276  intexpr2 is non-integer numeric literal",^NEXT="277^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("-457.90E8",3.9999) S ^VCORR="5" D ^VEXAMINE
 ;
277 W !,"I-277  intexpr2 is function"
 S ^ABSN="11278",^ITEM="I-277  intexpr2 is function",^NEXT="278^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("-457.90E8",$E("897647375475758",4)) S ^VCORR="9" D ^VEXAMINE
 ;
278 W !,"I-278  intexpr2 is a lvn"
 S ^ABSN="11279",^ITEM="I-278  intexpr2 is a lvn",^NEXT="279^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:4:36 S ^VCOMP=^VCOMP_$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",I)
 S ^VCORR="DHLPTX260" D ^VEXAMINE
 ;
279 W !,"I-279  intexpr2 contains unary operator"
 S ^ABSN="11280",^ITEM="I-279  intexpr2 contains unary operator",^NEXT="280^V1FNE2,V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("987654321987654321",+"3.999 9") S ^VCORR="7" D ^VEXAMINE
 ;
280 W !,"I-280  intexpr2 contains binary operator"
 S ^ABSN="11281",^ITEM="I-280  intexpr2 contains binary operator",^NEXT="V1FNE3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("987654321987654321",.8+10/3) S ^VCORR="7" D ^VEXAMINE
 ;
END W !!,"End of 93---V1FNE2",!
 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

V1FNE3
V1FNE3 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $EXTRACT -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"94---V1FNE3: $EXTRACT function -3-" W:$Y>55 #
 ;
 W !!,"$EXTRACT(expr1,intexpr2,intexpr3)",! W:$Y>55 #
281 W !,"I-281  intexpr2<intexpr3"
2811 S ^ABSN="11282",^ITEM="I-281.1  intexpr3<$L(expr1)",^NEXT="2812^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",26,28) S ^VCORR="Z12" D ^VEXAMINE
 ;
2812 S ^ABSN="11283",^ITEM="I-281.2  intexpr contains lvn",^NEXT="2813^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S VCOMP="" F I=1:4:36 S VCOMP=VCOMP_$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",I,I+1)
 S ^VCOMP=VCOMP,^VCORR="ABEFIJMNQRUVYZ3478" D ^VEXAMINE
 ;
2813 S ^ABSN="11284",^ITEM="I-281.3  intexpr3>$L(expr1)",^NEXT="2814^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",1,256)
 S ^VCORR="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" D ^VEXAMINE
 ;
2814 S ^ABSN="11285",^ITEM="I-281.4  intexpr2<0",^NEXT="2815^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S A="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",^VCOMP=$E(A,-5,"5E.AC"),^VCORR="ABCDE" D ^VEXAMINE
 ;
2815 S ^ABSN="11286",^ITEM="I-281.5  intexpr2<0 and intexpr3>$L(expr1)",^NEXT="2816^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJ",-1,"12.99ABC") S ^VCORR="ABCDEFGHIJ" D ^VEXAMINE
 ;
2816 S ^ABSN="11287",^ITEM="I-281.6  expr1 is function",^NEXT="282^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E($EXTRACT("ABCDEFGHIJ",3,8),-1,"3.99ABC") S ^VCORR="CDE" D ^VEXAMINE
 ;
282 W !,"I-282  intexpr2=intexpr3"
2821 S ^ABSN="11288",^ITEM="I-282.1  intexpr=1",^NEXT="2822^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("PQRSTUVWXYZ1234567890",1,1) S ^VCORR="P" D ^VEXAMINE
2822 S ^ABSN="11289",^ITEM="I-282.2  1<intexpr<$L(expr1)",^NEXT="2823^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-000723.89400E-01,3,3) S ^VCORR="2" D ^VEXAMINE
2823 S ^ABSN="11290",^ITEM="I-282.3  intexpr=$L(expr1)",^NEXT="2824^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890",36,36),^VCORR="0" D ^VEXAMINE
2824 S ^ABSN="11291",^ITEM="I-282.4  intexpr=0",^NEXT="2825^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("ABCDEFGIJKL567890",0,0) S ^VCORR="" D ^VEXAMINE
2825 S ^ABSN="11292",^ITEM="I-282.5  intexpr<-1",^NEXT="2826^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("ABC90",-1,-1) S ^VCORR="" D ^VEXAMINE
2826 S ^ABSN="11293",^ITEM="I-282.6  intexpr>$L(expr1)",^NEXT="2827^V1FNE3,V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("ABC90",77,77) S ^VCORR="" D ^VEXAMINE
2827 S ^ABSN="11294",^ITEM="I-282.7  expr1 is an empty string and intexpr=1",^NEXT="V1FNE4^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("",1,1) S ^VCORR="" D ^VEXAMINE
 ;
END W !!,"End of 94---V1FNE3",!
 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

V1FNE4
V1FNE4 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $EXTRACT -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"95---V1FNE4: $EXTRACT function -4-" W:$Y>55 #
 ;
283 W !!,"I-283  intexpr2>intexpr3"
2831 S ^ABSN="11295",^ITEM="I-283.1  intexpr3>0",^NEXT="2832^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("PQRSTUVWXYZ1234567890",2,1) S ^VCORR="" D ^VEXAMINE
2832 S ^ABSN="11296",^ITEM="I-283.2  intexpr2>1 and intexpr3<-1",^NEXT="284^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123",^VCOMP=$EXTRACT("PQRSTUVWXYZ1234567890",+3,-4) S ^VCORR="" D ^VEXAMINE
 ;
284 W !,"I-284  intexpr3>$LENGTH(expr1)"
2841 S ^ABSN="11297",^ITEM="I-284.1  intexpr2=1",^NEXT="2842^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("PQRST",1,10) S ^VCORR="PQRST" D ^VEXAMINE
2842 S ^ABSN="11298",^ITEM="I-284.2  1<intexpr2<$L(expr1)",^NEXT="2843^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("PQRST",3,10) S ^VCORR="RST" D ^VEXAMINE
2843 S ^ABSN="11299",^ITEM="I-284.3  expr1 contains unary operator",^NEXT="2844^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E(-"0.38FHF","ABCD",10) S ^VCORR="-.38" D ^VEXAMINE
2844 S ^ABSN="11300",^ITEM="I-284.4  intexpr2<-1",^NEXT="285^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$E("PQRST",-23,10),^VCORR="PQRST" D ^VEXAMINE
 ;
285 W !,"I-285  intexpr3>intexpr2>$LENGTH(expr1)"
 S ^ABSN="11301",^ITEM="I-285  intexpr3>intexpr2>$LENGTH(expr1)",^NEXT="286^V1FNE4,V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E(12+34,6,10) S ^VCORR="" D ^VEXAMINE
 ;
286 W !,"I-286  intexpr2>$LENGTH(expr1) and intexpr3<0"
 S ^ABSN="11302",^ITEM="I-286  intexpr2>$LENGTH(expr1) and intexpr3<0",^NEXT="V1FNF1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$E("PQRST",8,-10) S ^VCORR="" D ^VEXAMINE
 ;
END W !!,"End of 95---V1FNE4",!
 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

V1FNF1
V1FNF1 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $FIND -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"96---V1FNF1: $FIND function -1-"
 W !!,"$FIND(expr1,expr2)",!
287 W !,"I-287  expr1 is string literal and contains expr2"
2871 S ^ABSN="11303",^ITEM="I-287.1  $L(expr2)=1",^NEXT="2872^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABC","B") S ^VCORR=3 D ^VEXAMINE
 ;
2872 S ^ABSN="11304",^ITEM="I-287.2  $L(expr2)=2",^NEXT="2873^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABCD","BC") S ^VCORR=4 D ^VEXAMINE
 ;
2873 S ^ABSN="11305",^ITEM="I-287.3  expr1=expr2",^NEXT="2874^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890","ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890")
 S ^VCORR=37 D ^VEXAMINE
 ;
2874 S ^ABSN="11306",^ITEM="I-287.4  $L(expr1,expr2)=2 and $E(expr1,1,$L(expr2))=expr2",^NEXT="2875^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCEFGHABCEFGHAB","ABCEFGHA") S ^VCORR=9 D ^VEXAMINE
 ;
2875 S ^ABSN="11307",^ITEM="I-287.5  $L(expr1,expr2)>2 and $E(expr1,1,$L(expr2))=expr2",^NEXT="2876^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("@@@@@@@@ASCII","@@") S ^VCORR=3 D ^VEXAMINE
 ;
2876 S ^ABSN="11308",^ITEM="I-287.6  $E(expr1,$L(expr1)-$L(expr2)+1,$L(expr1))=expr2",^NEXT="2877^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCEFGHABCEFGHA^^","ABCEFGHA^^") S ^VCORR=18 D ^VEXAMINE
 ;
2877 S ^ABSN="11309",^ITEM="I-287.7  $L(expr1,expr2)=2 and $E(expr1,1,$L(expr2))'=expr2",^NEXT="2878^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("^A^B^C^D^E^F^G^","^C^") S ^VCORR=8 D ^VEXAMINE
 ;
2878 S ^ABSN="11310",^ITEM="I-287.8  $L(expr1,expr2)>2 and $E(expr1,1,$L(expr2))'=expr2",^NEXT="2879^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("^A^C^C^D^C^F^G^","^C^") S ^VCORR=6 D ^VEXAMINE
 ;
2879 S ^ABSN="11311",^ITEM="I-287.9  expr2 is "".""",^NEXT="288^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("123.456000E+2","."),^VCORR=5 D ^VEXAMINE
 ;
288 W !,"I-288  expr1 is a numeric literal and contains expr2 value"
2881 S ^ABSN="11312",^ITEM="I-288.1  expr1 is a numlit",^NEXT="2882^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(3E1,3E0) S ^VCORR=2 D ^VEXAMINE
2882 S ^ABSN="11313",^ITEM="I-288.2  expr1 is another numlit",^NEXT="289^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(-0045.94E-02,"59") S ^VCORR=6 D ^VEXAMINE
 ;
289 W !,"I-289  expr1 is string literal and does not contains expr2"
2891 S ^ABSN="11314",^ITEM="I-289.1  expr1 does not contains expr2 character",^NEXT="2892^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABC","E") S ^VCORR=0 D ^VEXAMINE
 ;
2892 S ^ABSN="11315",^ITEM="I-289.2  expr2 is a lvn",^NEXT="2893^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S A="TAYBZD",^VCOMP=$F("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A) S ^VCORR=0 D ^VEXAMINE
 ;
2893 S ^ABSN="11316",^ITEM="I-289.3  $L(expr1)=$L(expr2) and expr1'=expr2",^NEXT="2894^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABC","AB3") S ^VCORR=0 D ^VEXAMINE
 ;
2894 S ^ABSN="11317",^ITEM="I-289.4  $L(expr1)<$L(expr2)",^NEXT="2895^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABCDEFGHIJKLMNOPQRSTUVWXY","ABCDEFGHIJKLMNOPQRSTUVWXYZ") S ^VCORR=0 D ^VEXAMINE
 ;
2895 S ^ABSN="11318",^ITEM="I-289.5  $L(expr1,$E(expr2,1,$L(expr2)-1))>1",^NEXT="2896^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCDEFABCDEFABCDEFABCDEFABCDEF"," ABCDEF"),^VCORR=0 D ^VEXAMINE
 ;
2896 S ^ABSN="11319",^ITEM="I-289.6  $L(expr1,$E(expr2,2,$L(expr2)))>1",^NEXT="2897^V1FNF1,V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCDEFABCDEFABCDEFABCDEFABCDEF","ABCDEFG") S ^VCORR=0 D ^VEXAMINE
 ;
2897 S ^ABSN="11320",^ITEM="I-289.7  $L(expr1,$E(expr2,2,$L(expr2)-1))>1",^NEXT="V1FNF2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCDEFABCDEFABCDEFABCDEFABCDEF","@ABCDEFG") S ^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 96---V1FNF1",!
 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

V1FNF2
V1FNF2 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $FIND -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"97---V1FNF2: $FIND function -2-",!
290 W !,"I-290  expr1 is a numeric literal and does not contains expr2 value"
2901 S ^ABSN="11321",^ITEM="I-290.1  expr1 is a numlit",^NEXT="2902^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(123.000,0),^VCORR=0 D ^VEXAMINE
2902 S ^ABSN="11322",^ITEM="I-290.2  expr1 is another numlit",^NEXT="291^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(001234.000,"0123"),^VCORR=0 D ^VEXAMINE
 ;
291 W !,"I-291  expr1 is non-integer numeric literal"
2911 S ^ABSN="11323",^ITEM="I-291.1  expr1 is a numlit",^NEXT="2912^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(00123.45000,03.40),^VCORR=6 D ^VEXAMINE
2912 S ^ABSN="11324",^ITEM="I-291.2  expr1 is another numlit",^NEXT="292^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(00123.456000E2,"34") S ^VCORR=5 D ^VEXAMINE
 ;
292 W !,"I-292  expr1 contains more than one expr2's"
2921 S ^ABSN="11325",^ITEM="I-292.1  $L(expr2)>1",^NEXT="2922^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCBC","BC") S ^VCORR=4 D ^VEXAMINE
2922 S ^ABSN="11326",^ITEM="I-292.2  Another",^NEXT="2923^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABACDbcBBCDBCD","BC") S ^VCORR=11 D ^VEXAMINE
2923 S ^ABSN="11327",^ITEM="I-292.3  $L(expr2)=1",^NEXT="293^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("bABCBC","B") S ^VCORR=4 D ^VEXAMINE
 ;
293 W !,"I-293  expr1 is non-integer numeric and expr is ""."" or ""-"""
2931 S ^ABSN="11328",^ITEM="I-293.1  expr1 is mant",^NEXT="2932^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(00123.123000,".") S ^VCORR=5 D ^VEXAMINE
2932 S ^ABSN="11329",^ITEM="I-293.2  expr1 is mant exp",^NEXT="2933^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(123.456000E-1,".") S ^VCORR=4 D ^VEXAMINE
2933 S ^ABSN="11330",^ITEM="I-293.3  expr1 is negative non-integer numlit",^NEXT="294^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(-00123.45000E-3,"-") S ^VCORR=2 D ^VEXAMINE
 ;
294 W !,"I-294.1  expr1 is an empty string"
2941 S ^ABSN="11331",^ITEM="I-294.1  expr1 is a strlit",^NEXT="2942^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("","E") S ^VCORR=0 D ^VEXAMINE
2942 S ^ABSN="11332",^ITEM="I-294.2  expr1 is a lvn",^NEXT="295^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S A="",^VCOMP=$F(A,0.0001) S ^VCORR=0 D ^VEXAMINE
 ;
295 W !,"I-295  expr2 is an empty string"
2951 S ^ABSN="11333",^ITEM="I-295.1  expr2 is a strlit",^NEXT="2952^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(9876,"") S ^VCORR=1 D ^VEXAMINE
2952 S ^ABSN="11334",^ITEM="I-295.2  expr2 is a lvn",^NEXT="296^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S A="A",B="",^VCOMP=$F(A,B) S ^VCORR=1 D ^VEXAMINE
 ;
296 W !,"I-296  Both expr1 and expr2 are empty strings"
2961 S ^ABSN="11335",^ITEM="I-296.1  Both expr1 and expr2 are strlit",^NEXT="2962^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("","") S ^VCORR=1 D ^VEXAMINE
2962 S ^ABSN="11336",^ITEM="I-296.2  Both expr1 and expr2 are lvn",^NEXT="847^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S A="",^VCOMP=$F(A,A) S ^VCORR=1 D ^VEXAMINE
 ;
847 W !,"I-847 $F(expr1,expr2)=256  ;boundary"
8471 S A="" F I=1:1:250 S A=A_"A"
 S A=A_"BBBBB"
 S ^ABSN="11337",^ITEM="I-847.1  $F=255",^NEXT="8472^V1FNF2,V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(A,"BBBB"),^VCORR=255 D ^VEXAMINE
 ;
8472 S A="" F I=1:1:250 S A=A_"A"
 S A=A_"BBBBB"
 S ^ABSN="11338",^ITEM="I-847.2  $F=256",^NEXT="V1FNF3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F(A,"BBBBB"),^VCORR=256 D ^VEXAMINE
 ;
END W !!,"End of 97---V1FNF2",!
 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

V1FNF3
V1FNF3 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $FIND -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"98---V1FNF3: $FIND function -3-"
 W !!,"$FIND(expr1,expr2,intexpr3)",!
297 W !,"I-297  intexpr3<0"
2971 S ^ABSN="11339",^ITEM="I-297.1  expr1 contains expr2",^NEXT="2972^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABCBC","BC",-2) S ^VCORR=4 D ^VEXAMINE
2972 S ^ABSN="11340",^ITEM="I-297.2  expr2 is an empty string",^NEXT="2973^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$FIND("ABCBC","",-12) S ^VCORR=1 D ^VEXAMINE
2973 S ^ABSN="11341",^ITEM="I-297.3  expr1 and expr2 are empty string",^NEXT="2974^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("","",-10.2) S ^VCORR=1 D ^VEXAMINE
2974 S ^ABSN="11342",^ITEM="I-297.4  expr1 is an empty string",^NEXT="298^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("","power",-10.2),^VCORR=0 D ^VEXAMINE
 ;
298 W !,"I-298  intexpr3=0"
2981 S ^ABSN="11343",^ITEM="I-298.1  $L(expr1)>$L(expr2)",^NEXT="2982^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("abcdefghijkl","cdef",0) S ^VCORR=7 D ^VEXAMINE
2982 S ^ABSN="11344",^ITEM="I-298.2  $L(expr1)<$L(expr2)",^NEXT="2983^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","ABCD",0) S ^VCORR=0 D ^VEXAMINE
2983 S ^ABSN="11345",^ITEM="I-298.3  expr2 is an empty string",^NEXT="2984^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","",0) S ^VCORR=1 D ^VEXAMINE
2984 S ^ABSN="11346",^ITEM="I-298.4  expr1 and expr2 are empty strings",^NEXT="2985^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("","",0),^VCORR=1 D ^VEXAMINE
2985 S ^ABSN="11347",^ITEM="I-298.5  expr1 is an empty string",^NEXT="299^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("",1232,0) S ^VCORR=0 D ^VEXAMINE
 ;
299 W !,"I-299  0<intexpr3 and intexpr3'>$L(expr1)"
2991 S ^ABSN="11348",^ITEM="I-299.1  intexpr3=1",^NEXT="2992^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","BC",1) S ^VCORR=4 D ^VEXAMINE
2992 S ^ABSN="11349",^ITEM="I-299.2  $E(expr1,intexpr3,intexpr3+$L(expr2)-1)=expr2",^NEXT="2993^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCdef","BCd",2),^VCORR=5 D ^VEXAMINE
2993 S ^ABSN="11350",^ITEM="I-299.3  intexpr3=$L(expr1)",^NEXT="2994^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","BC",3),^VCORR=0 D ^VEXAMINE
2994 S ^ABSN="11351",^ITEM="I-299.4  expr2 is an empty string",^NEXT="300^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","",2),^VCORR=2 D ^VEXAMINE
 ;
300 W !,"I-300  intexpr3>$LENGTH(expr1)"
3001 S ^ABSN="11352",^ITEM="I-300.1  $L(expr1)>$L(expr2)>1",^NEXT="3002^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCBC","BC",6) S ^VCORR=0 D ^VEXAMINE
3002 S ^ABSN="11353",^ITEM="I-300.2  expr2 is an empty string",^NEXT="3003^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","",8.1),^VCORR=8 D ^VEXAMINE
3003 S ^ABSN="11354",^ITEM="I-300.3  expr2 is an empty string and intexpr3>255",^NEXT="3004^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABC","",900.5) S ^VCORR=900 D ^VEXAMINE
3004 S ^ABSN="11355",^ITEM="I-300.4  expr1 and expr2 are empty strings",^NEXT="301^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("","",8.1) S ^VCORR=8 D ^VEXAMINE
 ;
301 W !,"I-301  expr1 contains more than one expr2's and intexpr3'>$F(expr1,expr2)"
 S ^ABSN="11356",^ITEM="I-301  expr1 contains more than one expr2's and intexpr3'>$F(expr1,expr2)",^NEXT="302^V1FNF3,V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCBC","BC",3),^VCORR=6 D ^VEXAMINE
 ;
302 W !,"I-302  expr1 contains more than one expr2's and intexpr3>$F(expr1,expr2)"
 S ^ABSN="11357",^ITEM="I-302  expr1 contains more than one expr2's and intexpr3>$F(expr1,expr2)",^NEXT="V1FNL1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$F("ABCBC","BC",12),^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 98---V1FNF3",!
 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

V1FNL1
V1FNL1 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $LENGTH  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"99---V1FNL1: $LENGTH function; $LENGTH(expr)  -1-",!
303 W !,"I-303  expr is string literal"
3031 S ^ABSN="11358",^ITEM="I-303.1  All 95 ASCII printable character, including SP",^NEXT="3032^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$LENGTH("ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890abcdefghijklmnopqrstuvwxyz !""#$%&'()*+,-./:;<=>?@[\]^_`{|}~")
 S ^VCORR=95 D ^VEXAMINE
 ;
3032 S ^ABSN="11359",^ITEM="I-303.2  ""002""",^NEXT="3033^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L("002"),^VCORR=3 D ^VEXAMINE
 ;
3033 S ^ABSN="11360",^ITEM="I-303.3  strlit contains "" character",^NEXT="3034^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(""" "" """" """""" """) S ^VCORR=12 D ^VEXAMINE
 ;
3034 S ^ABSN="11361",^ITEM="I-303.4  $L(expr)=255",^NEXT="304^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S X="" F I=1:1:254 S X=X_"1" ;(title corrected in V7.3;20/6/88)
 S ^VCOMP=$L(X)_" "_$L(X_"2"),^VCORR="254 255" D ^VEXAMINE
 ;
304 W !,"I-304  expr is an empty string"
 S ^ABSN="11362",^ITEM="I-304  expr is an empty string",^NEXT="305^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L("") S ^VCORR=0 D ^VEXAMINE
 ;
305 W !,"I-305  expr contains control character"
3051 S ^ABSN="11363",^ITEM="I-305.1  One control character",^NEXT="3052^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S A=$C(0),^VCOMP=$L(A),^VCORR=1 D ^VEXAMINE
 ;
3052 S ^ABSN="11364",^ITEM="I-305.2  All control characters",^NEXT="306^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S A=$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,127)
 SET ^VCOMP=$L(A),^VCORR=33 D ^VEXAMINE
 ;
306 W !,"I-306  expr contains operator"
3061 S ^ABSN="11365",^ITEM="I-306.1  + unary operator",^NEXT="3062^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(+"-123E") S ^VCORR=4 D ^VEXAMINE
3062 S ^ABSN="11366",^ITEM="I-306.2  + binary operator",^NEXT="3063^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(123.45+"-12E+1") S ^VCORR=4 D ^VEXAMINE
3063 S ^ABSN="11367",^ITEM="I-306.3  _ binary operator",^NEXT="307^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(123.45_"-12E+1") S ^VCORR=12 D ^VEXAMINE
 ;
307 W !,"I-307  expr contains function"
 S ^ABSN="11368",^ITEM="I-307  expr contains function",^NEXT="308^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L($L(000.11)+9) S ^VCORR=2 D ^VEXAMINE
 ;
308 W !,"I-308  expr is integer"
3081 S ^ABSN="11369",^ITEM="I-308.1  123",^NEXT="3082^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(123) S ^VCORR=3 D ^VEXAMINE
3082 S ^ABSN="11370",^ITEM="I-308.2  0",^NEXT="3083^V1FNL1,V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(0) S ^VCORR=1 D ^VEXAMINE
3083 S ^ABSN="11371",^ITEM="I-308.3  -0.0",^NEXT="V1FNL2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-0.0) S ^VCORR=1 D ^VEXAMINE
 ;
END W !!,"End of 99---V1FNL1",!
 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

V1FNL2
V1FNL2 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $LENGTH  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"100---V1FNL2: $LENGTH function; $LENGTH(expr)   -2-",!
 ;
309 W !,"I-309  expr is non-integer"
3091 S ^ABSN="11372",^ITEM="I-309.1  3000.11",^NEXT="3092^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(3000.11),^VCORR=7 D ^VEXAMINE
3092 S ^ABSN="11373",^ITEM="I-309.2  00030.011000",^NEXT="310^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(00030.011000),^VCORR=6 D ^VEXAMINE
 ;
310 W !,"I-310  expr is negative numeric"
3101 S ^ABSN="11374",^ITEM="I-310.1  -123",^NEXT="3102^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-123) S ^VCORR=4 D ^VEXAMINE
3102 S ^ABSN="11375",^ITEM="I-310.2  -123000",^NEXT="3103^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-123000) S ^VCORR=7 D ^VEXAMINE
3103 S ^ABSN="11376",^ITEM="I-310.3  -9.86056000",^NEXT="3104^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-9.86056000) S ^VCORR=8 D ^VEXAMINE
3104 S ^ABSN="11377",^ITEM="I-310.4  -000.0110",^NEXT="311^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-000.0110),^VCORR=5 D ^VEXAMINE
 ;
311 W !,"I-311  0<expr<1"
 S ^ABSN="11378",^ITEM="I-311  000.1100",^NEXT="312^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(000.1100) S ^VCORR=3 D ^VEXAMINE
 ;
312 W !,"I-312  expr is numeric represented by scientific notation"
3121 S ^ABSN="11379",^ITEM="I-312.1  -1E3",^NEXT="3122^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-1E3) S ^VCORR=5 D ^VEXAMINE
3122 S ^ABSN="11380",^ITEM="I-312.2  000001.0000E-6",^NEXT="3123^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(000001.0000E-6) S ^VCORR=7 D ^VEXAMINE
3123 S ^ABSN="11381",^ITEM="I-312.3  98765E-3",^NEXT="313^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(98765E-3) S ^VCORR=6 D ^VEXAMINE
 ;
313 W !,"I-313  expr is numeric literal with leading zero"
3131 S ^ABSN="11382",^ITEM="I-313.1  002",^NEXT="3132^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(002) S ^VCORR=1 D ^VEXAMINE
3132 S ^ABSN="11383",^ITEM="I-313.2  0000000000000099.12",^NEXT="314^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(0000000000000099.12) S ^VCORR=5 D ^VEXAMINE
 ;
314 W !,"I-314  expr is decimal with following zero"
3141 S ^ABSN="11384",^ITEM="I-314.1  3.110000000000000000",^NEXT="3142^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(3.110000000000000000) S ^VCORR=4 D ^VEXAMINE
3142 S ^ABSN="11385",^ITEM="I-314.2  3.1100000000000E-00002",^NEXT="3143^V1FNL2,V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(3.1100000000000E-00002),^VCORR=5 D ^VEXAMINE
3143 S ^ABSN="11386",^ITEM="I-314.3  -00000000000000.0000000000000",^NEXT="V1FNP1^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$L(-00000000000000.0000000000000),^VCORR=1 D ^VEXAMINE
 ;
END W !!,"End of 100---V1FNL2",!
 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

V1FNP1
V1FNP1 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $PIECE -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"101---V1FNP1: $PIECE function -1-",! W:$Y>55 #
 W !,"$PIECE(expr1,expr2,intexpr3)",! W:$Y>55 #
315 W !,"I-315  substring specified by intexpr3 exist intexpr1"
3151 S ^ABSN="11387",^ITEM="I-315.1  intexpr3=1",^NEXT="3152^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$PIECE("ABCBD","B",1) S ^VCORR="A" D ^VEXAMINE
3152 S ^ABSN="11388",^ITEM="I-315.2  intexpr3=2",^NEXT="3153^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","B",2) S ^VCORR="C" D ^VEXAMINE
3153 S ^ABSN="11389",^ITEM="I-315.3  intexpr3=3",^NEXT="3154^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","B",3) S ^VCORR="D" D ^VEXAMINE
3154 S ^ABSN="11390",^ITEM="I-315.4  intexpr3=4",^NEXT="3155^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","B",4) S ^VCORR="" D ^VEXAMINE
3155 S ^ABSN="11391",^ITEM="I-315.5  expr1 contains unary operator",^NEXT="316^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(+"-1.5E",".",2) S ^VCORR="5" D ^VEXAMINE
 ;
316 W !,"I-316  substring specified by intexpr3 does not exist intexpr1"
3161 S ^ABSN="11392",^ITEM="I-316.1  intexpr3=1",^NEXT="3162^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","F",1) S ^VCORR="ABCBD" D ^VEXAMINE
3162 S ^ABSN="11393",^ITEM="I-316.2  intexpr3>$L(expr1)",^NEXT="317^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","bc",8) S ^VCORR="" D ^VEXAMINE
 ;
317 W !,"I-317  intexpr3<0"
 S ^ABSN="11394",^ITEM="I-317  intexpr3<0",^NEXT="318^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","B",-4) S ^VCORR="" D ^VEXAMINE
 ;
318 W !,"I-318  intexpr3=0"
 S ^ABSN="11395",^ITEM="I-318  intexpr3=0",^NEXT="319^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","B",0) S ^VCORR="" D ^VEXAMINE
 ;
319 W !,"I-319  intexpr3>$LENGTH(expr1)"
 S ^ABSN="11396",^ITEM="I-319  intexpr3>$LENGTH(expr1)",^NEXT="320^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("A""B""C""D""E","""",10) S ^VCORR="" D ^VEXAMINE
 ;
320 W !,"I-320  $LENGTH(expr1)<$LENGTH(expr2)"
3201 S ^ABSN="11397",^ITEM="I-320.1  intexpr3=1",^NEXT="3202^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("@@@@","@@@@@",1) S ^VCORR="@@@@" D ^VEXAMINE
3202 S ^ABSN="11398",^ITEM="I-320.2  intexpr3=2",^NEXT="321^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("@@@@","@@@@@",2) S ^VCORR="" D ^VEXAMINE
 ;
321 W !,"I-321  expr1=expr2"
 S ^ABSN="11399",^ITEM="I-321  expr1=expr2",^NEXT="322^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("789","789",1) S ^VCORR="" D ^VEXAMINE
 ;
322 W !,"I-322  intexpr3>255"
 S ^ABSN="11400",^ITEM="I-322  intexpr3>255",^NEXT="323^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P(1111,1,99999999) S ^VCORR="" D ^VEXAMINE
 ;
323 W !,"I-323  intexpr3 is non-intexpr numeric"
3231 S ^ABSN="11401",^ITEM="I-323.1  3.9999",^NEXT="3232^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(112131419,"1",3.9999) S ^VCORR="2" D ^VEXAMINE
3232 S ^ABSN="11402",^ITEM="I-323.2  3.49999",^NEXT="324^V1FNP1,V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(0112118114,11,3.49999) S ^VCORR="8" D ^VEXAMINE
 ;
324 W !,"I-324  Control characters are used as delimiters (expr2)"
 S ^ABSN="11403",^ITEM="I-324  Control characters are used as delimiters (expr2)",^NEXT="V1FNP2^V1FN,V1AC^VV1" D ^V1PRESET
 S X="A"_$C(9)_"B"_$C(9)_"C",Y=$C(9) S ^VCOMP=$P(X,Y,2) S ^VCORR="B" D ^VEXAMINE
 ;
END W !!,"End of 101---V1FNP1",!
 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

V1FNP2
V1FNP2 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $PIECE -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"102---V1FNP2: $PIECE function -2-",!
325 W !,"I-325  expr1 is non-intexpr numeric literal"
 S ^ABSN="11404",^ITEM="I-325  expr1 is non-intexpr numeric literal",^NEXT="326^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(123.5,3,1) S ^VCORR=12 D ^VEXAMINE
 ;
326 W !,"I-326  expr1 is an empty string"
 S ^ABSN="11405",^ITEM="I-326  expr1 is an empty string",^NEXT="327^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("","B",2) S ^VCORR="" D ^VEXAMINE
 ;
327 W !,"I-327  expr2 is an empty string"
 S ^ABSN="11406",^ITEM="I-327  expr2 is an empty string",^NEXT="328^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","",2) S ^VCORR="" D ^VEXAMINE
 ;
328 W !,"I-328  expr1 are expr2 are empty strings"
 S ^ABSN="11407",^ITEM="I-328  expr1 are expr2 are empty strings",^NEXT="329^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("","",2) S ^VCORR="" D ^VEXAMINE
 ;
329 W !,"I-329  expr2 is numeric literal"
 S ^ABSN="11408",^ITEM="I-329  expr2 is numeric literal",^NEXT="330^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("12.34.56.78.89.90",-000.1,3.1) S ^VCORR="" D ^VEXAMINE
 ;
330 W !,"I-330  expr2 contains operators"
3301 S ^ABSN="11409",^ITEM="I-330.1  Concatenation operator",^NEXT="3302^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123",^VCOMP=$P("ABCBCDBC","B"_"C",2),^VCORR="" D ^VEXAMINE
3302 S ^ABSN="11410",^ITEM="I-330.2  Another concatenation operator",^NEXT="3303^V1FNP2,V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("AB CBbcBBC    BC DBC","B"_"C",2),^VCORR="    " D ^VEXAMINE
3303 S ^ABSN="11411",^ITEM="I-330.3  + binary operators",^NEXT="V1FNP3^V1FN,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(9139191,80+9+2,2.2),^VCORR="3" D ^VEXAMINE
 ;
END W !!,"End of 102---V1FNP2",!
 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

V1FNP3
V1FNP3 ;IW-YS-TS,V1FN,MVTS V9.10;15/6/96;FUNCTION $PIECE -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"103---V1FNP3: $PIECE function -3-",!
 ;
331 W !!,"$PIECE(expr1,expr2,intexpr3,intexpr4)",!
 W !,"I-331  intexpr4 is positive integer"
3311 S ^ABSN="11412",^ITEM="I-331.1  intexpr3<intexpr4",^NEXT="3312^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","B",2,3) S ^VCORR="CBD" D ^VEXAMINE
3312 S ^ABSN="11413",^ITEM="I-331.2  expr1 is intlit",^NEXT="3313^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(0002304501,00,002,03),^VCORR="4501" D ^VEXAMINE
3313 S ^ABSN="11414",^ITEM="I-331.3  intexpr3<-1",^NEXT="3314^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","B",-3,2) S ^VCORR="ABC" D ^VEXAMINE
3314 S ^ABSN="11415",^ITEM="I-331.4  intexpr4>$L(expr1)",^NEXT="3315^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("ABCBD","B",2,100) S ^VCORR="CBD" D ^VEXAMINE
3315 S ^ABSN="11416",^ITEM="I-331.5  $F(expr1,expr2)=0",^NEXT="3316^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCDE",3,4,5) S ^VCORR="" D ^VEXAMINE
3316 S ^ABSN="11417",^ITEM="I-331.6  expr1 contains _ binary operator",^NEXT="3317^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("AB"_2_"BD","B",2,2) S ^VCORR=2 D ^VEXAMINE
3317 S ^ABSN="11418",^ITEM="I-331.7  expr1 is an empty string",^NEXT="3318^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("","B",2,5) S ^VCORR="" D ^VEXAMINE
3318 S ^ABSN="11419",^ITEM="I-331.8  expr2 is an empty string",^NEXT="3319^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","",2,5) S ^VCORR="" D ^VEXAMINE
3319 S ^ABSN="11420",^ITEM="I-331.9  expr1 and expr2 are empty strings",^NEXT="332^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123",^VCOMP=$P("","",2,5),^VCORR="" D ^VEXAMINE
 ;
332 W !,"I-332  intexpr4 is non-integer"
3321 S ^ABSN="11421",^ITEM="I-332.1  2.5",^NEXT="3322^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(10.05,0.0,1.99999,2.5) S ^VCORR="10." D ^VEXAMINE
3322 S ^ABSN="11422",^ITEM="I-332.2  02.4560000",^NEXT="333^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P(12.324E2,2.00,1.0,02.4560000),^VCORR="123" D ^VEXAMINE
 ;
333 W !,"I-333  intexpr3>intexpr4"
 S ^ABSN="11423",^ITEM="I-333  intexpr3>intexpr4",^NEXT="334^V1FNP3,V1AC^VV1" D ^V1PRESET
 S ^VCOMP="123" S ^VCOMP=$P("ABCBD","B",3,2) S ^VCORR="" D ^VEXAMINE
 ;
334 W !,"I-334  intexpr4>255"
 S ^ABSN="11424",^ITEM="I-334  intexpr4>255",^NEXT="V1AC^VV1" D ^V1PRESET
 S ^VCOMP=$P("A B C D E F G "," ",3,9876545) S ^VCORR="C D E F G " D ^VEXAMINE
 ;
END W !!,"End of 103---V1FNP3",!
 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

V1AC
V1AC ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$ASCII AND $CHAR FUNCTIONS  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1AC1 W !!,"104---V1AC1" D ^V1AC1
V1AC2 W !!,"105---V1AC2" D ^V1AC2
V1AC3 W !!,"106---V1AC3" D ^V1AC3
 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

V1AC1
V1AC1 ;IW-YS-TS,V1AC,MVTS V9.10;15/6/96;$ASCII AND $CHAR FUNCTIONS -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"104---V1AC1: $CHAR and $CHAR functions -1-",!
 W !,"$CHAR(L intexpr)",!
1 W !,"I-1  intexpr is checked for 32-126"
 S ^ABSN="11425",^ITEM="I-1  intexpr is checked for 32-126",^NEXT="2^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S VCOMP=""
 F I=32:1:126 SET VCOMP=VCOMP_$CHAR(I)
 S ^VCOMP=VCOMP,^VCORR=" !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~" D ^VEXAMINE
 ;
2 W !,"I-2  L intexpr is checked for 32-126"
 S ^ABSN="11426",^ITEM="I-2  L intexpr is checked for 32-126",^NEXT="3^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="" F I=32:8:112 S ^VCOMP=^VCOMP_$C(I,I+1,I+2,I+3,I+4,I+5,I+6,I+7)
 S I=120,^VCOMP=^VCOMP_$C(I,I+1,I+2,I+3,I+4,I+5,I+6)
 S ^VCORR=" !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~" D ^VEXAMINE
 ;
3 W !,"I-3  Integer interpretation of intexpr, while intexpr is string literal"
 S ^ABSN="11427",^ITEM="I-3  Integer interpretation of intexpr, while intexpr is string literal",^NEXT="4^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S VCOMP=$C("65A","+66ABC",-"-67.3G1","68000E-3","71+10")
 S ^VCOMP=VCOMP,^VCORR="ABCDG" D ^VEXAMINE
 ;
4 W !,"I-4  Integer interpretation of intexpr, while intexpr is numeric literal"
 S ^ABSN="11428",^ITEM="I-4  Integer interpretation of intexpr, while intexpr is numeric literal",^NEXT="5^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$CHAR(0.0069E+4,35.2*2.001),^VCORR="EF" D ^VEXAMINE
 ;
5 W !,"I-5  Integer interpretation of intexpr, while intexpr contains binaryop"
 S ^ABSN="11429",^ITEM="I-5  Integer interpretation of intexpr, while intexpr contains binaryop",^NEXT="6^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$C(15+15+2,+"66ABC"--2-3,"6"_"6"),^VCORR=" AB" D ^VEXAMINE
 ;
6 W !,"I-6  intexpr<0"
 S ^ABSN="11430",^ITEM="I-6  intexpr<0",^NEXT="7^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 K ^VCOMP S ^VCOMP=$C(-1),A=-48
 S ^VCOMP=^VCOMP_$C(-1.00002,-100,-255,-78.9,"-66",A),^VCORR="" D ^VEXAMINE
 ;
7 W !,"I-7  The difference between $CHAR(0) and empty string"
71 S ^ABSN="11431",^ITEM="I-7.1  Empty string",^NEXT="72^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S X="",VCOMP="" S X=$C(0) ;test change in V7.4;16/9/89
 I X="" S VCOMP="EMPTY"
 I X'="" S VCOMP="OK"
 S ^VCOMP=VCOMP,^VCORR="OK" D ^VEXAMINE
72 S ^ABSN="11432",^ITEM="I-7.2  $LENGTH",^NEXT="73^V1AC1,V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S X="" S X=$C(0)
 S ^VCOMP=$L(X),^VCORR=1 D ^VEXAMINE
73 S ^ABSN="11433",^ITEM="I-7.3  Value of $A",^NEXT="V1AC2^V1AC,V1LVN^VV1" D ^V1PRESET
 S X="" S X=$C(0)
 S ^VCOMP=$A(X),^VCORR=0 D ^VEXAMINE
 ;
END W !!,"End of 104---V1AC1",!
 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

V1AC2
V1AC2 ;IW-YS-TS,V1AC,MVTS V9.10;15/6/96;$ASCII AND $CHAR FUNCTIONS -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"105---V1AC2: $ASCII and $CHAR functions -2-",!
 W !,"$ASCII(expr)",!
8 W !,"I-8  expr is string literal, and $L(expr)=0  i.e. expr is empty string"
 S ^ABSN="11434",^ITEM="I-8  expr is string literal, and $L(expr)=0  i.e. expr is empty string",^NEXT="9^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="" S ^VCOMP=$A(""),^VCORR="-1" D ^VEXAMINE
 ;
9 W !,"I-9  expr is string literal, and $L(expr)=1"
 S ^ABSN="11435",^ITEM="I-9  expr is string literal, and $L(expr)=1",^NEXT="10^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S VCOMP=""
 S VCOMP=$ASCII(" ")_$A("!")_$A("""")_$A("#")_$A("$")_$A("%")_$A("&")_$A("'")
 S VCOMP=VCOMP_$A("(")_$A(")")_$A("*")_$A("+")_$A(",")_$A("-")_$A(".")
 S VCOMP=VCOMP_$A("/")_$A("0")_$A("1")_$A("2")_$A("3")_$A("4")_$A("5")_$A("6")
 S VCOMP=VCOMP_$A("7")_$A("8")_$A("9")_$A(":")_$A(";")_$A("<")_$A("=")_$A(">")_$A("?")_$A("@")
 S ^VCOMP=VCOMP,^VCORR="323334353637383940414243444546474849505152535455565758596061626364"
 D ^VEXAMINE
 ;
10 W !,"I-10  expr is string literal, and $L(expr)>0"
 S ^ABSN="11436",^ITEM="I-10  expr is string literal, and $L(expr)>0",^NEXT="11^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S X="*|^=09876",^VCOMP=$A(X),^VCORR=42 D ^VEXAMINE
 ;
11 W !,"I-11  expr is numeric literal, and $L(expr)=1  i.e. expr is a digit"
 S ^ABSN="11437",^ITEM="I-11  expr is numeric literal, and $L(expr)=1  i.e. expr is a digit",^NEXT="12^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(02),^VCORR=50 D ^VEXAMINE
 ;
12 W !,"I-12  expr is numeric literal, and $L(expr)>1,expr<0"
 S ^ABSN="11438",^ITEM="I-12  expr is numeric literal, and $L(expr)>1,expr<0",^NEXT="13^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(-0.30) S ^VCORR=45 D ^VEXAMINE
 ;
13 W !,"I-13  expr is numeric literal, and $L(expr)>1,expr<=0"
 S ^ABSN="11439",^ITEM="I-13  expr is numeric literal, and $L(expr)>1,expr<=0",^NEXT="14^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(.00E3),^VCORR=48 D ^VEXAMINE
 ;
14 W !,"I-14  expr is $CHAR corresponding to ASCII code 0-127"
141 S ^ABSN="11440",^ITEM="I-14.1  0-31",^NEXT="142^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:31 S ^VCOMP=^VCOMP_$A($C(I))
 S ^VCORR="012345678910111213141516171819202122232425262728293031" D ^VEXAMINE
 ;
142 S ^ABSN="11441",^ITEM="I-14.2  32-94",^NEXT="143^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S VCOMP="" F I=32:1:94 S VCOMP=VCOMP_$A($C(I))
 S ^VCOMP=VCOMP,^VCORR="323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394" D ^VEXAMINE
 ;
143 S ^ABSN="11442",^ITEM="I-14.3  95-127",^NEXT="144^V1AC2,V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S VCOMP="" F I=95:1:127 S VCOMP=VCOMP_$A($C(I))
 S ^VCOMP=VCOMP,^VCORR="9596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127" D ^VEXAMINE
 ;
144 S ^ABSN="11443",^ITEM="I-14.4  expr is a lvn",^NEXT="V1AC3^V1AC,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="",X=1,Y=$C($A(X),$A(X,2))
 S ^VCOMP=$L(Y)_" "_Y S ^VCORR="1 1" D ^VEXAMINE
 ;
END W !!,"End of 105---V1AC2",!
 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

V1AC3
V1AC3 ;IW-YS-TS,V1AC,MVTS V9.10;15/6/96;$ASCII AND $CHAR FUNCTIONS -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"106---V1AC3: $ASCII and $CHAR functions -3-"
 ;
15 W !!,"$A(expr1,intexpr2)",!
 W !,"I-15  expr1 is string literal"
 S ^ABSN="11444",^ITEM="I-15  expr1 is string literal",^NEXT="16^V1AC3,V1LVN^VV1" D ^V1PRESET
 S VCOMP="" F I=1:1:30 S VCOMP=VCOMP_$A(">?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[",I)
 S ^VCOMP=VCOMP,^VCORR="626364656667686970717273747576777879808182838485868788899091" D ^VEXAMINE
 ;
16 W !,"I-16  expr1 is non-integer numeric literal, and greater than zero"
 S ^ABSN="11445",^ITEM="I-16  expr1 is non-integer numeric literal, and greater than zero",^NEXT="17^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(034.95165E2,00.04000E+2),^VCORR=53 D ^VEXAMINE
 ;
17 W !,"I-17  expr1 is non-integer numeric literal, and less than zero"
 S ^ABSN="11446",^ITEM="I-17  expr1 is non-integer numeric literal, and less than zero",^NEXT="18^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(-00.000034567000E+008,6000E-3),^VCORR=46 D ^VEXAMINE
 ;
18 W !,"I-18  expr1 is integer numeric literal, and greater than zero"
 S ^ABSN="11447",^ITEM="I-18  expr1 is integer numeric literal, and greater than zero",^NEXT="19^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(00000234650.0000,2+1),^VCORR="52" D ^VEXAMINE
 ;
19 W !,"I-19  expr1 is integer numeric literal, and less than zero"
 S ^ABSN="11448",^ITEM="I-19  expr1 is integer numeric literal, and less than zero",^NEXT="21^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="" S ^VCOMP=$A(-0059.34E3,04) S ^VCORR=51 D ^VEXAMINE
 ;
20 ;
21 W !,"I-20/21  intexpr2 is less than zero or greater than $L(expr1)"
201 S ^ABSN="11449",^ITEM="I-20/21.1  intexpr2 is less than zero",^NEXT="202^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP="" S ^VCOMP=$A("Q",-2),^VCORR="-1" D ^VEXAMINE
202 S ^ABSN="11450",^ITEM="I-20/21.2  intexpr2 is greater than $L(expr1)",^NEXT="203^V1AC3,V1LVN^VV1" D ^V1PRESET
 S ^VCOMP=$A(1,2),^VCORR="-1" D ^VEXAMINE
203 S ^ABSN="11451",^ITEM="I-20/21.3  expr1 is a strlit",^NEXT="204^V1AC3,V1LVN^VV1" D ^V1PRESET
 S VCOMP="" F I=-3:1:8 S VCOMP=VCOMP_$A("\]^_",I)
 S ^VCOMP=VCOMP,^VCORR="-1-1-1-192939495-1-1-1-1" D ^VEXAMINE
 ;
204 S ^ABSN="11452",^ITEM="I-20/21.4  expr1 is non-integer literal",^NEXT="V1LVN^VV1" D ^V1PRESET
 S VCOMP="" F I=-1:1:9 S VCOMP=VCOMP_$A(12345.6,I)
 S ^VCOMP=VCOMP,^VCORR="-1-149505152534654-1-1" D ^VEXAMINE
 ;
END W !!,"End of 106---V1AC3",!
 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

V1LVN
V1LVN ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE LOCAL VARIABLE NAME
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"107---V1LVN: Acceptable local variable names",!
611 W !,"I-611  lvn is ""%"""
 S ^ABSN="11453",^ITEM="I-611  lvn is ""%""",^NEXT="612^V1LVN,V1GVN^VV1" D ^V1PRESET
 S %="%" S ^VCOMP=% S ^VCORR="%" D ^VEXAMINE
 ;
612 W !,"I-612  lvn is ""%"" and alphas"
 S ^ABSN="11454",^ITEM="I-612  lvn is ""%"" and alphas",^NEXT="613^V1LVN,V1GVN^VV1" D ^V1PRESET
 S %ABCDEF="%ABCDEF" S ^VCOMP=%ABCDEF S ^VCORR="%ABCDEF" D ^VEXAMINE
 ;
613 W !,"I-613  lvn is ""%"" and digits"
 S ^ABSN="11455",^ITEM="I-613  lvn is ""%"" and digits",^NEXT="614^V1LVN,V1GVN^VV1" D ^V1PRESET
 S %1234="%1234" S ^VCOMP=%1234 S ^VCORR="%1234" D ^VEXAMINE
 ;
614 W !,"I-614  lvn is ""%"" followed by an alpha and a digit"
 S ^ABSN="11456",^ITEM="I-614  lvn is ""%"" followed by an alpha and a digit",^NEXT="615^V1LVN,V1GVN^VV1" D ^V1PRESET
 S %A1="%A1" S ^VCOMP=%A1 S ^VCORR="%A1" D ^VEXAMINE
 ;
615 W !,"I-615  lvn is alpha"
6151 S ^ABSN="11457",^ITEM="I-615.1  A",^NEXT="6152^V1LVN,V1GVN^VV1" D ^V1PRESET
 S A="A" S ^VCOMP=A S ^VCORR="A" D ^VEXAMINE
 ;
6152 S ^ABSN="11458",^ITEM="I-615.2  AB",^NEXT="6153^V1LVN,V1GVN^VV1" D ^V1PRESET
 S AB="AB" S ^VCOMP=AB S ^VCORR="AB" D ^VEXAMINE
 ;
6153 S ^ABSN="11459",^ITEM="I-615.3  ABCD",^NEXT="6154^V1LVN,V1GVN^VV1" D ^V1PRESET
 S ABCD="ABCD" S ^VCOMP=ABCD S ^VCORR="ABCD" D ^VEXAMINE
 ;
6154 S ^ABSN="11460",^ITEM="I-615.4  ABCDEF",^NEXT="6155^V1LVN,V1GVN^VV1" D ^V1PRESET
 S ABCDEF="ABCDEF" S ^VCOMP=ABCDEF S ^VCORR="ABCDEF" D ^VEXAMINE
 ;
6155 S ^ABSN="11461",^ITEM="I-615.5  ABCDEFG",^NEXT="616^V1LVN,V1GVN^VV1" D ^V1PRESET
 S ABCDEFG="ABCDEFG" S ^VCOMP=ABCDEFG S ^VCORR="ABCDEFG" D ^VEXAMINE
 ;
616 W !,"I-616  lvn is combination of alpha and digit"
6161 S ^ABSN="11462",^ITEM="I-616.1  Q00",^NEXT="6162^V1LVN,V1GVN^VV1" D ^V1PRESET
 S Q00="Q00" S ^VCOMP=Q00 S ^VCORR="Q00" D ^VEXAMINE
 ;
6162 S ^ABSN="11463",^ITEM="I-616.2  Z1Y2X3",^NEXT="6163^V1LVN,V1GVN^VV1" D ^V1PRESET
 S Z1Y2X3="Z1Y2X3" S ^VCOMP=Z1Y2X3 S ^VCORR="Z1Y2X3" D ^VEXAMINE
 ;
6163 S ^ABSN="11464",^ITEM="I-616.3  Q000000A",^NEXT="617^V1LVN,V1GVN^VV1" D ^V1PRESET
 S Q000000A="Q000000A" S ^VCOMP=Q000000A S ^VCORR="Q000000A" D ^VEXAMINE
 ;
617 W !,"I-617  Maximum length of lvn"
 S ^ABSN="11465",^ITEM="I-617  %ABC456G",^NEXT="618^V1LVN,V1GVN^VV1" D ^V1PRESET
 S %ABC456G="%ABC456G" S ^VCOMP=%ABC456G S ^VCORR="%ABC456G" D ^VEXAMINE
 ;
618 W !,"I-618  8 levels depth of subscript"
6181 S ^ABSN="11466",^ITEM="I-618.1  1 level depth of subscript",^NEXT="6182^V1LVN,V1GVN^VV1" D ^V1PRESET
 S A(1)="A(1)" S ^VCOMP=A(1) S ^VCORR="A(1)" D ^VEXAMINE
 ;
6182 S ^ABSN="11467",^ITEM="I-618.2  ABCDEFGH(1,2,3,4,5,6,7,8)",^NEXT="6183^V1LVN,V1GVN^VV1" D ^V1PRESET
 S ABCDEFGH(1,2,3,4,5,6,7,8)="ABCDEFGH(1,2,3,4,5,6,7,8)" S ^VCOMP=ABCDEFGH(1,2,3,4,5,6,7,8)
 S ^VCORR="ABCDEFGH(1,2,3,4,5,6,7,8)" D ^VEXAMINE
 ;
6183 S ^ABSN="11468",^ITEM="I-618.3  %1X2Y3Z(1,10,100,12,123,2,01)",^NEXT="V1GVN^VV1" D ^V1PRESET
 S %1X2Y3Z(1,10,100,12,123,2,01)="%1X2Y3Z(1,10,100,12,123,2,01)" S ^VCOMP=%1X2Y3Z(1,10,100,12,123,2,01)
 S ^VCORR="%1X2Y3Z(1,10,100,12,123,2,01)" D ^VEXAMINE
 ;
END W !!,"End of 107---V1LVN",!
 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

V1GVN
V1GVN ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;ACCEPTABLE GLOBAL VARIABLE NAME
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"108---V1GVN: Acceptable global variable names",!
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !!,"This test uses globals as ^%, ^%A1, ^%1234, ^%ABCDEF, ^%ABC45678, "
 W !,"^%1X2Y3Z. Watch out! This test will kill the indicated globals below:",!!
 K EXIST S EXIST=0
 IF $D(^%) W "^%" S EXIST=1,EXIST(1)="^%"
 IF $D(^%A1) W:EXIST ", " W "^%A1" S EXIST=1,EXIST(2)="^%A1"
 IF $D(^%1234) W:EXIST ", " W "^%1234" S EXIST=1,EXIST(3)="^%1234"
 IF $D(^%ABCDEF) W:EXIST ", " W "^%ABCDEF" S EXIST=1,EXIST(4)="^%ABCDEF"
 IF $D(^%ABC456GH) W:EXIST ", " W "^%ABC456GH" S EXIST=1,EXIST(5)="^%ABC456GH"
 IF $D(^%1X2Y3Z) W:EXIST ", " W "^%1X2Y3Z" S EXIST=EXIST+1,EXIST(6)="^%1X2Y3Z"
 IF EXIST=0 W "NONE" W !! G 393
 W !!
 F I=1:1:6 I $D(EXIST(I)) D YN I YN="N" K EXIST(I)
 ;
393 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 IF $D(EXIST(1)) G 394
 S ^ABSN="11469",^ITEM="I-393  gvn is ""%""",^NEXT="394^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^%="^%" S ^VCOMP=^% ;SYSTEM ERROR MAY RESULT
 S ^VCORR="^%" D ^VEXAMINE
 ;
394 IF $D(EXIST(4)) G 395
 S ^ABSN="11470",^ITEM="I-394  gvn is % followed by alphas",^NEXT="395^V1GVN,V1DLA^VV1" D ^V1PRESET
 S VCOMP="",^%ABCDEF="^%ABCDEF" S VCOMP=^%ABCDEF
 S ^VCOMP=VCOMP,^VCORR="^%ABCDEF" D ^VEXAMINE
 ;
395 IF $D(EXIST(3)) G 396
 S ^ABSN="11471",^ITEM="I-395  gvn is % followed by digits",^NEXT="396^V1GVN,V1DLA^VV1" D ^V1PRESET
 S VCOMP="",^%1234="^%1234" S VCOMP=^%1234
 S ^VCOMP=VCOMP,^VCORR="^%1234" D ^VEXAMINE
 ;
396 W !,"I-396  gvn is % followed by alpha and digit"
 IF $D(EXIST(2)) G 3962
 S ^ABSN="11472",^ITEM="I-396.1  gvn is % followed by an alpha and a digit",^NEXT="3962^V1GVN,V1DLA^VV1" D ^V1PRESET
 S VCOMP="",^%A1="^%A1" S VCOMP=^%A1
 S ^VCOMP=VCOMP,^VCORR="^%A1" D ^VEXAMINE
 ;
3962 IF $D(EXIST(5)) G 397
 S ^ABSN="11473",^ITEM="I-396.2  gvn is % followed by alphas and digits",^NEXT="397^V1GVN,V1DLA^VV1" D ^V1PRESET
 S VCOMP="",^%ABC456GH="^%ABC456GH",VCOMP=^%ABC456GH
 S ^VCOMP=VCOMP,^VCORR="^%ABC456GH" D ^VEXAMINE
 ;
397 W !,"I-397  gvn is an alpha"
 S ^ABSN="11474",^ITEM="I-397  ^V",^NEXT="398^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V="^V",^VCOMP=^V,^VCORR="^V" D ^VEXAMINE
 ;
398 W !,"I-398  gvn is alpha and digit"
3981 S ^ABSN="11475",^ITEM="I-398.1  ^V1",^NEXT="3982^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1="^V1",^VCOMP=^V1,^VCORR="^V1" D ^VEXAMINE
3982 S ^ABSN="11476",^ITEM="I-398.2  ^V1A",^NEXT="3983^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1A="^V1A",^VCOMP=^V1A,^VCORR="^V1A" D ^VEXAMINE
3983 S ^ABSN="11477",^ITEM="I-398.3  ^V100",^NEXT="3984^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V100="^V100",^VCOMP=^V100,^VCORR="^V100" D ^VEXAMINE
3984 S ^ABSN="11478",^ITEM="I-398.4  ^V1AB",^NEXT="3985^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1AB="^V1AB",^VCOMP=^V1AB,^VCORR="^V1AB" D ^VEXAMINE
3985 S ^ABSN="11479",^ITEM="I-398.5  ^V1Z1Y2X",^NEXT="3986^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1Z1Y2X="^V1Z1Y2X",^VCOMP=^V1Z1Y2X,^VCORR="^V1Z1Y2X" D ^VEXAMINE
3986 S ^ABSN="11480",^ITEM="I-398.6  ^V1ABCDE",^NEXT="399^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1ABCDE="^V1ABCDE",^VCOMP=^V1ABCDE,^VCORR="^V1ABCDE" D ^VEXAMINE
 ;
399 W !,"I-399  Maximum length of gvn"
3991 S ^ABSN="11481",^ITEM="I-399.1  gvn is ^V1ABCDEF",^NEXT="3992^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1ABCDEF="^V1ABCDEF" S ^VCOMP=^V1ABCDEF
 S ^VCORR="^V1ABCDEF" D ^VEXAMINE
 ;
3992 S ^ABSN="11482",^ITEM="I-399.2  ^V100000A",^NEXT="400^V1GVN,V1DLA^VV1" D ^V1PRESET
 S VCOMP="",^V100000A="^V100000A" S VCOMP=^V100000A
 S ^VCOMP=VCOMP,^VCORR="^V100000A" D ^VEXAMINE
 ;
400 W !,"I-400  8 levels depth subscript"
4001 S ^ABSN="11483",^ITEM="I-400.1  1 level depth subscript",^NEXT="4002^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1(1)="^V1(1)" S ^VCOMP=^V1(1)
 S ^VCORR="^V1(1)" D ^VEXAMINE
 ;
4002 S ^ABSN="11484",^ITEM="I-400.2  8 levels depth subscript",^NEXT="4003^V1GVN,V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1ABCDEF(1,2,3,4,5,6,7,8)="^V1ABCDEF(1,2,3,4,5,6,7,8)" S ^VCOMP=^V1ABCDEF(1,2,3,4,5,6,7,8)
 S ^VCORR="^V1ABCDEF(1,2,3,4,5,6,7,8)" D ^VEXAMINE
 ;
4003 IF $D(EXIST(6)) G END
 S ^ABSN="11485",^ITEM="I-400.3  gvn is ^%1X2Y3Z(1,1,1,1,1,1,1,1)",^NEXT="V1DLA^VV1" D ^V1PRESET
 S ^VCOMP="",^%1X2Y3Z(1,1,1,1,1,1,1,1)="^%1X2Y3Z(1,1,1,1,1,1,1,1)" S ^VCOMP=^%1X2Y3Z(1,1,1,1,1,1,1,1)
 S ^VCORR="^%1X2Y3Z(1,1,1,1,1,1,1,1)" D ^VEXAMINE
 ;
END W !!,"End of 108---V1GVN",!
 I $D(EXIST(1))=0 K ^%
 I $D(EXIST(2))=0 K ^%A1
 I $D(EXIST(3))=0 K ^%1234
 I $D(EXIST(4))=0 K ^%ABCDEF
 I $D(EXIST(5))=0 K ^%ABC456GH
 I $D(EXIST(6))=0 K ^%1X2Y3Z
 K ^V,^V1,^V1A,^V100,^V1AB,^V1Z1Y2X,^V1ABCDE,^V1ABCDEF,^V100000A
 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
YN W !,"DO YOU MIND IF GLOBAL ",EXIST(I)," IS KILLD (Y/N)? "
 READ YN
 I YN="Y" Q
 I YN="N" Q
 G YN

V1DLA
V1DLA ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING UNSUBSCRIPT LVN
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"109---V1DLA: $DATA after SETting and KILLing unsubscript lvn",!
824 W !,"I-824  KILLing undefined unsubscripted local variables"
 S ^ABSN="11486",^ITEM="I-824  KILLing undefined unsubscripted local variables",^NEXT="211^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S ^VCOMP="" D DATA K A K A,B,C D DATA
 S ^VCORR="0 0 0 0 0 0 0 ********/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
211 W !,"I-211/212  SETting unsubscripted local variable and its $DATA value"
 S ^ABSN="11487",^ITEM="I-211/212  SETting unsubscripted local variable and its $DATA value",^NEXT="213^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S A=1,F="F" S ^VCOMP="" D DATA
 S ^VCORR="1 0 0 0 0 1 0 *1*****F**/" D ^VEXAMINE
 ;
213 W !,"I-213/214  KILLing unsubscripted local variable and its $DATA value"
 S ^ABSN="11488",^ITEM="I-213/214  KILLing unsubscripted local variable and its $DATA value",^NEXT="215^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S A=100,G="GGG" S ^VCOMP="" D DATA K A,B,C,D,E,F,G,H,I,J,K D DATA
 S ^VCORR="1 0 0 0 0 0 1 *100******GGG*/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
215 W !,"I-215  Assign string literal to unsubscripted local variables"
 S ^ABSN="11489",^ITEM="I-215  Assign string literal to unsubscripted local variables",^NEXT="216^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S A="ABC",D="DDD",C="C" S ^VCOMP="" D DATA K A,B,C D DATA
 S ^VCORR="1 0 1 1 0 0 0 *ABC**C*DDD****/0 0 0 1 0 0 0 ****DDD****/" D ^VEXAMINE
 ;
216 W !,"I-216  Assign numeric literal to unsubscripted local variables"
 S ^ABSN="11490",^ITEM="I-216  Assign numeric literal to unsubscripted local variables",^NEXT="217^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S C=333,D=0020.030,G=0.020,^VCOMP="" D DATA K D,G,A D DATA
 S ^VCORR="0 0 1 1 0 0 1 ***333*20.03***.02*/0 0 1 0 0 0 0 ***333*****/" D ^VEXAMINE
 ;
217 W !,"I-217  KILL all local variable"
 S ^ABSN="11491",^ITEM="I-217  KILL all local variable",^NEXT="218^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S B=2,C="CCC",A=1,E=5,F="FFF",D="DDD",^VCOMP="" D DATA
 K  D DATA
 S ^VCORR="1 1 1 1 1 1 0 *1*2*CCC*DDD*5*FFF**/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
218 W !,"I-218  Exclusive KILL"
 S ^ABSN="11492",^ITEM="I-218  Exclusive KILL",^NEXT="219^V1DLA,V1DLB^VV1" D ^V1PRESET
 K  S B=2,C="CCC",A=1,E=5,F="FFF" S ^VCOMP="" D DATA
 K (E,F,G) D DATA
 S ^VCORR="1 1 1 0 1 1 0 *1*2*CCC**5*FFF**/0 0 0 0 1 1 0 *****5*FFF**/" D ^VEXAMINE
 ;
219 W !,"I-219  $DATA for allowed local variable name"
 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="11493",^ITEM="I-219  $DATA for allowed local variable name",^NEXT="V1DLB^VV1" D ^V1PRESET
 K  S %1234567=" %1234567 ",ABC123DE=" ABC123DE "
 S ^VCOMP=$D(%1234567)_%1234567_$D(ABC123DE)_ABC123DE
 S ^VCORR="1 %1234567 1 ABC123DE " D ^VEXAMINE
 ;
END W !!,"End of 109---V1DLA",!
 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
 ;
DATA S ^VCOMP=^VCOMP_$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)_" "_$D(E)_" "_$D(F)_" "_$D(G)_" "
 S ^VCOMP=^VCOMP_"*" I $D(A)#10=1 S ^VCOMP=^VCOMP_A
 S ^VCOMP=^VCOMP_"*" I $D(B)#10=1 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_"*" I $D(C)#10=1 S ^VCOMP=^VCOMP_C
 S ^VCOMP=^VCOMP_"*" I $D(D)#10=1 S ^VCOMP=^VCOMP_D
 S ^VCOMP=^VCOMP_"*" I $D(E)#10=1 S ^VCOMP=^VCOMP_E
 S ^VCOMP=^VCOMP_"*" I $D(F)#10=1 S ^VCOMP=^VCOMP_F
 S ^VCOMP=^VCOMP_"*" I $D(G)#10=1 S ^VCOMP=^VCOMP_G
 S ^VCOMP=^VCOMP_"*/" Q

V1DLB
V1DLB ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT LVN   SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1DLB1 W !!,"110---V1DLB1" D ^V1DLB1
V1DLB2 W !!,"111---V1DLB2" D ^V1DLB2
 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

V1DLB1
V1DLB1 ;IW-YS-TS,V1DLB,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT LVN -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"110---V1DLB1: $DATA after SETting and KILLing subscript lvn -1-",!
220 W !,"I-220  $DATA of undefined node which has immediate descendants"
 S ^ABSN="11494",^ITEM="I-220  $DATA of undefined node which has immediate descendants",^NEXT="221^V1DLB1,V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX S XX(2,1)=210 D DATA K XX(2) D DATA
 S ^VCORR="10 0 10 1 0 0 0 ****210****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
221 W !,"I-221  $DATA of undefined node which has descendants 2 levels below"
 S ^ABSN="11495",^ITEM="I-221  $DATA of undefined node which has descendants 2 levels below",^NEXT="222^V1DLB1,V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX S XX(2,1,1)=2110 D DATA K XX(2) D DATA
 S ^VCORR="10 0 10 10 1 0 0 *****2110***/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
222 W !,"I-222  $DATA of undefined node whose immediate descendants are killed"
 S ^ABSN="11496",^ITEM="I-222  $DATA of undefined node whose immediate descendants are killed",^NEXT="223^V1DLB1,V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(2,1)="DEF" D DATA K XX(2,1) D DATA
 S ^VCORR="10 0 10 1 0 0 0 ****DEF****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
223 W !,"I-223  $DATA of undefined node whose descendants 2 levels below are killed"
 S ^ABSN="11497",^ITEM="I-223  $DATA of undefined node whose descendants 2 levels below are killed",^NEXT="224^V1DLB1,V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX S XX(2,1,1)=2110 D DATA K XX(2,1,1) D DATA
 S ^VCORR="10 0 10 10 1 0 0 *****2110***/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
224 W !,"I-224  $DATA of defined node which has immediate descendants"
 S ^ABSN="11498",^ITEM="I-224  $DATA of defined node which has immediate descendants",^NEXT="225^V1DLB1,V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(2)=2000,XX(2,1)="210QWE" D DATA K XX(2) D DATA
 S ^VCORR="10 0 11 1 0 0 0 ***2000*210QWE****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
225 W !,"I-225  $DATA of defined node which has descendants 2 levels below"
 S ^ABSN="11499",^ITEM="I-225  $DATA of defined node which has descendants 2 levels below",^NEXT="V1DLB2^V1DLB,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(2)=200,XX(2,1,1)=21100 D DATA K XX(2) D DATA
 S ^VCORR="10 0 11 10 1 0 0 ***200**21100***/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
END W !!,"End of 110---V1DLB1",!
 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
 ;
DATA S ^VCOMP=^VCOMP_$D(XX)_" "_$D(XX(1))_" "_$D(XX(2))_" "_$D(XX(2,1))_" "
 S ^VCOMP=^VCOMP_$D(XX(2,1,1))_" "_$D(XX(2,2))_" "_$D(XX(3))_" "
 S ^VCOMP=^VCOMP_"*" I $D(XX)#10=1 S ^VCOMP=^VCOMP_XX
 S ^VCOMP=^VCOMP_"*" I $D(XX(1))#10=1 S ^VCOMP=^VCOMP_XX(1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2))#10=1 S ^VCOMP=^VCOMP_XX(2)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,1))#10=1 S ^VCOMP=^VCOMP_XX(2,1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,1,1))#10=1 S ^VCOMP=^VCOMP_XX(2,1,1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,2))#10=1 S ^VCOMP=^VCOMP_XX(2,2)
 S ^VCOMP=^VCOMP_"*" I $D(XX(3))#10=1 S ^VCOMP=^VCOMP_XX(3)
 S ^VCOMP=^VCOMP_"*/" Q

V1DLB2
V1DLB2 ;IW-YS-TS,V1DLB,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT LVN -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"111---V1DLB2: $DATA after SETting and KILLing subscript lvn -2-",!
226 W !,"I-226  $DATA of defined node whose immediate descendants are killed"
 S ^ABSN="11500",^ITEM="I-226  $DATA of defined node whose immediate descendants are killed",^NEXT="227^V1DLB2,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(2,1)=210 D DATA S XX(2)=200 D DATA K XX(2,1) D DATA
 S ^VCORR="10 0 10 1 0 0 0 ****210****/10 0 11 1 0 0 0 ***200*210****/10 0 1 0 0 0 0 ***200*****/" D ^VEXAMINE
 ;
227 W !,"I-227  $DATA of defined node whose descendants 2 levels below are killed"
 S ^ABSN="11501",^ITEM="I-227  $DATA of defined node whose descendants 2 levels below are killed",^NEXT="228^V1DLB2,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(2)=200 D DATA S XX(2,1,1)="#2110" D DATA K XX(2,1,1) D DATA
 S ^VCORR="10 0 1 0 0 0 0 ***200*****/10 0 11 10 1 0 0 ***200**#2110***/10 0 1 0 0 0 0 ***200*****/" D ^VEXAMINE
 ;
228 W !,"I-228  $DATA of defined node whose parent is killed"
 S ^ABSN="11502",^ITEM="I-228  $DATA of defined node whose parent is killed",^NEXT="229^V1DLB2,V1DLC^VV1" D ^V1PRESET
 K XX S XX=0,XX(1)=100,XX(3)=300,XX(2,1,1)="^211",^VCOMP=""
 D DATA K XX D DATA
 S ^VCORR="11 1 10 10 1 0 1 *0*100***^211**300*/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
229 W !,"I-229  $DATA of defined node whose neighboring node is killed"
 S ^ABSN="11503",^ITEM="I-229  $DATA of defined node whose neighboring node is killed",^NEXT="230^V1DLB2,V1DLC^VV1" D ^V1PRESET
 K  S XX="ROOT",XX(2,1,1)="211GGG",XX(3)="3000",^VCOMP="" D DATA
 K A,Y,XX(50),XX(0),XX(2,1,1,1)
 K XX(2,1,1) D DATA K XX(3) D DATA
 S ^VCORR="11 0 10 10 1 0 1 *ROOT****211GGG**3000*/11 0 0 0 0 0 1 *ROOT******3000*/1 0 0 0 0 0 0 *ROOT*******/" D ^VEXAMINE
 ;
230 W !,"I-230  KILLing undefined subscripted local variables"
 S ^ABSN="11504",^ITEM="I-230  KILLing undefined subscripted local variables",^NEXT="852^V1DLB2,V1DLC^VV1" D ^V1PRESET
 K  S XX="ROOT",XX(1)=10,XX(3)=30,XX(2,1,1)=2110,^VCOMP="" D DATA
 K XX(2) D DATA K XX(2) D DATA
 S ^VCORR="11 1 10 10 1 0 1 *ROOT*10***2110**30*/11 1 0 0 0 0 1 *ROOT*10*****30*/11 1 0 0 0 0 1 *ROOT*10*****30*/" D ^VEXAMINE
 ;
852 W !,"I-852  Transition of $DATA from 11 to 1 after KILLing the only descendent"
 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
8521 S ^ABSN="12151",^ITEM="I-852.1  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="8522^V1DLB2,V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(1)=1,XX(2)=2,XX(2,2)=22,XX(3)=3000 D DATA
 K XX(2,2) D DATA
 S ^VCORR="10 1 11 0 0 1 1 **1*2***22*3000*/10 1 1 0 0 0 1 **1*2****3000*/" D ^VEXAMINE
 ;
8522 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
 S ^ABSN="12152",^ITEM="I-852.2  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="V1DLC^VV1" D ^V1PRESET
 S ^VCOMP="" K XX
 S XX(1)=1,XX(2)=2,XX(2,1,1)=211,XX(3)=3000 D DATA
 K XX(2,1,1) D DATA
 S ^VCORR="10 1 11 10 1 0 1 **1*2**211**3000*/10 1 1 0 0 0 1 **1*2****3000*/" D ^VEXAMINE
 ;
END W !!,"End of 111---V1DLB2",!
 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
 ;
DATA S ^VCOMP=^VCOMP_$D(XX)_" "_$D(XX(1))_" "_$D(XX(2))_" "_$D(XX(2,1))_" "
 S ^VCOMP=^VCOMP_$D(XX(2,1,1))_" "_$D(XX(2,2))_" "_$D(XX(3))_" "
 S ^VCOMP=^VCOMP_"*" I $D(XX)#10=1 S ^VCOMP=^VCOMP_XX
 S ^VCOMP=^VCOMP_"*" I $D(XX(1))#10=1 S ^VCOMP=^VCOMP_XX(1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2))#10=1 S ^VCOMP=^VCOMP_XX(2)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,1))#10=1 S ^VCOMP=^VCOMP_XX(2,1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,1,1))#10=1 S ^VCOMP=^VCOMP_XX(2,1,1)
 S ^VCOMP=^VCOMP_"*" I $D(XX(2,2))#10=1 S ^VCOMP=^VCOMP_XX(2,2)
 S ^VCOMP=^VCOMP_"*" I $D(XX(3))#10=1 S ^VCOMP=^VCOMP_XX(3)
 S ^VCOMP=^VCOMP_"*/" Q

V1DLC
V1DLC ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;SELECTION AND EXCLUSIVE KILL OF SUBSCRIPTED LVN
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"112---V1DLC: Selection and exclusive KILL of subscripted lvn",!
231 W !,"I-231  Selective KILL"
 S ^ABSN="11505",^ITEM="I-231  Selective KILL",^NEXT="232^V1DLC,V1DGA^VV1" D ^V1PRESET
 K  S X(1,2)="X12",Y(3)="Y3",Z="Z",Z(0)="Z0",W="W",^VCOMP="" D DATA
 K Y D DATA S Y="Y" D DATA
 S ^VCORR="10 10 1 10 1 11 1 1 ***X12**Y3*Z*Z0*W*/10 10 1 0 0 11 1 1 ***X12***Z*Z0*W*/10 10 1 1 0 11 1 1 ***X12*Y**Z*Z0*W*/" D ^VEXAMINE
 ;
232 W !,"I-232  Exclusive KILL with argument list"
 S ^ABSN="11506",^ITEM="I-232  Exclusive KILL with argument list",^NEXT="233^V1DLC,V1DGA^VV1" D ^V1PRESET
 K  S X(1,2)="X12",Y(3)="Y3",Z="Z",Z(0)="Z0",W="W",^VCOMP="" D DATA
 K (X,Y,Z),(X,W) D DATA
 S ^VCORR="10 10 1 10 1 11 1 1 ***X12**Y3*Z*Z0*W*/10 10 1 0 0 0 0 0 ***X12******/" D ^VEXAMINE
 ;
233 W !,"I-233  Exclusive KILL with one argument"
 S ^ABSN="11507",^ITEM="I-233  Exclusive KILL with one argument",^NEXT="234^V1DLC,V1DGA^VV1" D ^V1PRESET
 K  S X(1,2)="X12",Y(3)="Y3",Z="Z",Z(0)="Z0",W="W",^VCOMP="" D DATA
 K (X,Y,Z) D DATA
 S ^VCORR="10 10 1 10 1 11 1 1 ***X12**Y3*Z*Z0*W*/10 10 1 10 1 11 1 0 ***X12**Y3*Z*Z0**/" D ^VEXAMINE
 ;
234 W !,"I-234  Exclusive KILL, which lvn is not defined"
 S ^ABSN="11508",^ITEM="I-234  Exclusive KILL, which lvn is not defined",^NEXT="235^V1DLC,V1DGA^VV1" D ^V1PRESET
 K  S X(1,2)="X12",Y(3)="Y3",Z="Z",Z(0)="Z0",W="W",^VCOMP="" D DATA
 K (A,B,C) D DATA
 S ^VCORR="10 10 1 10 1 11 1 1 ***X12**Y3*Z*Z0*W*/0 0 0 0 0 0 0 0 *********/" D ^VEXAMINE
 ;
235 W !,"I-235  Mixture of selective KILL and exclusive KILL in one argument"
 S ^ABSN="11509",^ITEM="I-235  Mixture of selective KILL and exclusive KILL in one argument",^NEXT="V1DGA^VV1" D ^V1PRESET
 K  S X(1,2)="X12",Y(3)="Y3",Z="Z",Z(0)="Z0",W="W",^VCOMP="" D DATA
 K (X,W),Z D DATA
 S ^VCORR="10 10 1 10 1 11 1 1 ***X12**Y3*Z*Z0*W*/10 10 1 0 0 0 0 1 ***X12*****W*/" D ^VEXAMINE
 ;
END W !!,"End of 112---V1DLC",!
 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
 ;
DATA S ^VCOMP=^VCOMP_$D(X)_" "_$D(X(1))_" "_$D(X(1,2))_" "_$D(Y)_" "
 S ^VCOMP=^VCOMP_$D(Y(3))_" "_$D(Z)_" "_$D(Z(0))_" "_$D(W)_" "
 S ^VCOMP=^VCOMP_"*" I $D(X)#10=1 S ^VCOMP=^VCOMP_X
 S ^VCOMP=^VCOMP_"*" I $D(X(1))#10=1 S ^VCOMP=^VCOMP_X(1)
 S ^VCOMP=^VCOMP_"*" I $D(X(1,2))#10=1 S ^VCOMP=^VCOMP_X(1,2)
 S ^VCOMP=^VCOMP_"*" I $D(Y)#10=1 S ^VCOMP=^VCOMP_Y
 S ^VCOMP=^VCOMP_"*" I $D(Y(3))#10=1 S ^VCOMP=^VCOMP_Y(3)
 S ^VCOMP=^VCOMP_"*" I $D(Z)#10=1 S ^VCOMP=^VCOMP_Z
 S ^VCOMP=^VCOMP_"*" I $D(Z(0))#10=1 S ^VCOMP=^VCOMP_Z(0)
 S ^VCOMP=^VCOMP_"*" I $D(W)#10=1 S ^VCOMP=^VCOMP_W
 S ^VCOMP=^VCOMP_"*/" Q

V1DGA
V1DGA ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING UNSUBSCRIPT GVN
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"113---V1DGA: $DATA after SETting and KILLing unsubscript gvn",!
822 S ^ABSN="11510",^ITEM="I-822  KILLing undefined unsubscripted global variables",^NEXT="192^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" KILL ^V1A,^V1B,^V1C,^V1D,^V1E,^V1F,^V1G D DATA
 K ^V1A D DATA K ^V1A,^V1B,^V1C,^V1D,^V1E,^V1F,^V1G D DATA
 S ^VCOMP=VCOMP,^VCORR="0 0 0 0 0 0 0 ********/0 0 0 0 0 0 0 ********/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
192 S ^ABSN="11511",^ITEM="I-191/192  The value of $DATA of SET unsubscripted global variables",^NEXT="193^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 K ^V1A,^V1B,^V1C,^V1D,^V1E,^V1F,^V1G
 S VCOMP="" S ^V1A=1 D DATA S ^V1A=1,^V1D="A",^V1B=2 D DATA
 S ^VCOMP=VCOMP,^VCORR="1 0 0 0 0 0 0 *1*******/1 1 0 1 0 0 0 *1*2**A****/" D ^VEXAMINE
 ;
193 S ^ABSN="11512",^ITEM="I-193/194  The value of $DATA of KILLing unsubscripted global variables",^NEXT="195^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" K ^V1A D DATA K ^V1B,^V1D D DATA
 S ^VCOMP=VCOMP,^VCORR="0 1 0 1 0 0 0 **2**A****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
195 S ^ABSN="11513",^ITEM="I-195  Assign numeric literal to unsubscripted global variables",^NEXT="196^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP=""
 S ^V1A=111,^V1D=0009800,^V1B=12345678,^V1C=987.654,^V1F=0.00,^V1E=000.8900 D DATA
 K ^V1A,^V1B,^V1C D DATA
 S ^VCOMP=VCOMP,^VCORR="1 1 1 1 1 1 0 *111*12345678*987.654*9800*.89*0**/0 0 0 1 1 1 0 ****9800*.89*0**/"
 D ^VEXAMINE
 ;
196 S ^ABSN="11514",^ITEM="I-196  Assign string literal to unsubscripted global variables",^NEXT="197^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" S ^V1A="ABC",^V1D="  ",^V1B="",^V1C="00234.00" D DATA
 K ^V1B,^V1E,^V1F D DATA
 S ^VCOMP=VCOMP,^VCORR="1 1 1 1 1 1 0 *ABC**00234.00*  *.89*0**/1 0 1 1 0 0 0 *ABC**00234.00*  ****/" D ^VEXAMINE
 ;
197 S ^ABSN="11515",^ITEM="I-197  Effect on global variables by killing local variables",^NEXT="198^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" K A,B,C,D,E,F,G K V1A,V1B,V1C,V1D,V1E,V1F,V1G D DATA
 S ^VCOMP=VCOMP,^VCORR="1 0 1 1 0 0 0 *ABC**00234.00*  ****/" D ^VEXAMINE
 ;
198 S ^ABSN="11516",^ITEM="I-198  Effect on global variables by executing exclusive kill",^NEXT="199^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 K (X,Y,Z,V1A,V1B) S VCOMP="" D DATA
 S ^VCOMP=VCOMP S ^VCORR="1 0 1 1 0 0 0 *ABC**00234.00*  ****/"
 D ^VEXAMINE
 ;
199 S ^ABSN="11517",^ITEM="I-199  Effect on global variables by executing kill all local variable",^NEXT="200^V1DGA,V1DGB^VV1" W !,^ITEM D ^V1PRESET
 K  ;kill all local variable
 S VCOMP="" D DATA
 S ^VCOMP=VCOMP,^VCORR="1 0 1 1 0 0 0 *ABC**00234.00*  ****/" D ^VEXAMINE
 ;
200 ;(title corrected in V7.4;16/9/89)
 S ^ABSN="11518",^ITEM="I-200  $DATA for allowed global variable name",^NEXT="V1DGB^VV1" W !,^ITEM D ^V1PRESET
 S ^GLOBAL00=" ^GLOBAL00 ",^Z0000000=" ^Z0000000 "
 S ^VCOMP=$D(^GLOBAL00)_^GLOBAL00_$D(^Z0000000)_^Z0000000
 KILL ^GLOBAL00,^Z0000000
 S ^VCORR="1 ^GLOBAL00 1 ^Z0000000 " D ^VEXAMINE
 ;
END W !!,"End of 113---V1DGA",!
 K  K ^V1A,^V1B,^V1C,^V1D,^V1E,^V1F,^V1G
 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
DATA S VCOMP=VCOMP_$D(^V1A)_" "_$D(^V1B)_" "_$D(^V1C)_" "_$D(^V1D)_" "_$D(^V1E)_" "_$D(^V1F)_" "_$D(^V1G)_" "
 S VCOMP=VCOMP_"*" I $D(^V1A)#10=1 S VCOMP=VCOMP_^V1A
 S VCOMP=VCOMP_"*" I $D(^V1B)#10=1 S VCOMP=VCOMP_^V1B
 S VCOMP=VCOMP_"*" I $D(^V1C)#10=1 S VCOMP=VCOMP_^V1C
 S VCOMP=VCOMP_"*" I $D(^V1D)#10=1 S VCOMP=VCOMP_^V1D
 S VCOMP=VCOMP_"*" I $D(^V1E)#10=1 S VCOMP=VCOMP_^V1E
 S VCOMP=VCOMP_"*" I $D(^V1F)#10=1 S VCOMP=VCOMP_^V1F
 S VCOMP=VCOMP_"*" I $D(^V1G)#10=1 S VCOMP=VCOMP_^V1G
 S VCOMP=VCOMP_"*/" Q

V1DGB
V1DGB ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT GVN  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1DGB1 W !!,"114---V1DGB1" D ^V1DGB1
V1DGB2 W !!,"115---V1DGB2" D ^V1DGB2
 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

V1DGB1
V1DGB1 ;IW-YS-TS,V1DGB,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT GVN -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"114---V1DGB1: $DATA after SETting and KILLing subscript gvn -1-",!
823 W !,"I-823  KILLing undefined subscripted global variables"
 S ^ABSN="11519",^ITEM="I-823  KILLing undefined subscripted global variables",^NEXT="201^V1DGB1,V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" KILL ^V1 DO DATA K ^V1(2) D DATA
 S ^VCOMP=VCOMP,^VCORR="0 0 0 0 0 0 0 ********/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
201 W !,"I-201  $DATA of undefined node which has immediate descendants"
 S ^ABSN="11520",^ITEM="I-201  $DATA of undefined node which has immediate descendants",^NEXT="202^V1DGB1,V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(2,1)=200 D DATA K ^V1(2) D DATA
 S ^VCOMP=VCOMP,^VCORR="10 0 10 1 0 0 0 ****200****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
202 W !,"I-202  $DATA of undefined node which has descendants 2 levels below"
 S ^ABSN="11521",^ITEM="I-202  $DATA of undefined node which has descendants 2 levels below",^NEXT="203^V1DGB1,V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(2,2)=220,^V1(3)=300,^V1(2,1,1)=211 D DATA K ^V1(2) D DATA
 S ^VCOMP=VCOMP,^VCORR="10 0 10 10 1 1 1 *****211*220*300*/10 0 0 0 0 0 1 *******300*/" D ^VEXAMINE
 ;
203 W !,"I-203  $DATA of undefined node whose immediate descendants are killed"
 S ^ABSN="11522",^ITEM="I-203  $DATA of undefined node whose immediate descendants are killed",^NEXT="204^V1DGB1,V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(2,1)=200 D DATA K ^V1(2,1) D DATA
 S ^VCOMP=VCOMP,^VCORR="10 0 10 1 0 0 0 ****200****/0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
204 W !,"I-204  $DATA of undefined node whose descendants 2 levels below are killed"
 S ^ABSN="11523",^ITEM="I-204  $DATA of undefined node whose descendants 2 levels below are killed",^NEXT="205^V1DGB1,V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(3)=300,^V1(2,1,1)=211 D DATA K ^V1(2,1,1) D DATA
 S ^VCOMP=VCOMP,^VCORR="10 0 10 10 1 0 1 *****211**300*/10 0 0 0 0 0 1 *******300*/" D ^VEXAMINE
 ;
205 W !,"I-205  $DATA of defined node which has immediate descendants"
 S ^ABSN="11524",^ITEM="I-205  $DATA of defined node which has immediate descendants",^NEXT="V1DGB2^V1DGB,V1NR^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(1)=100,^V1(2)=2,^V1(2,1)=21,^V1(2,1,1)=211,^V1(2,2)=22,^V1(3)=300 D DATA
 K ^V1(2) D DATA
 S ^VCOMP=VCOMP,^VCORR="10 1 11 11 1 1 1 **100*2*21*211*22*300*/10 1 0 0 0 0 1 **100*****300*/" D ^VEXAMINE
 ;
END W !!,"End of 114---V1DGB1",!
 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
DATA S VCOMP=VCOMP_$D(^V1)_" "_$D(^V1(1))_" "_$D(^V1(2))_" "_$D(^V1(2,1))_" "
 S VCOMP=VCOMP_$D(^V1(2,1,1))_" "_$D(^V1(2,2))_" "_$D(^V1(3))_" "
 S VCOMP=VCOMP_"*" I $D(^V1)#10=1 S VCOMP=VCOMP_^V1
 S VCOMP=VCOMP_"*" I $D(^V1(1))#10=1 S VCOMP=VCOMP_^V1(1)
 S VCOMP=VCOMP_"*" I $D(^V1(2))#10=1 S VCOMP=VCOMP_^V1(2)
 S VCOMP=VCOMP_"*" I $D(^V1(2,1))#10=1 S VCOMP=VCOMP_^V1(2,1)
 S VCOMP=VCOMP_"*" I $D(^V1(2,1,1))#10=1 S VCOMP=VCOMP_^V1(2,1,1)
 S VCOMP=VCOMP_"*" I $D(^V1(2,2))#10=1 S VCOMP=VCOMP_^V1(2,2)
 S VCOMP=VCOMP_"*" I $D(^V1(3))#10=1 S VCOMP=VCOMP_^V1(3)
 S VCOMP=VCOMP_"*/" Q

V1DGB2
V1DGB2 ;IW-YS-TS,V1DGB,MVTS V9.10;15/6/96;$DATA AFTER SETTING AND KILLING SUBSCRIPT GVN -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"115---V1DGB2: $DATA after SETting and KILLing subscript gvn -2-",!
206 W !,"I-206  $DATA of defined node which has descendants 2 levels below"
 S ^ABSN="11525",^ITEM="I-206  $DATA of defined node which has descendants 2 levels below",^NEXT="207^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1 S ^V1=000
 S ^V1(1)=1,^V1(2)=2,^V1(2,1)=21,^V1(2,1,1)=211,^V1(2,2)=22,^V1(3)=3 D DATA
 K ^V1(2) D DATA
 S ^VCORR="11 1 11 11 1 1 1 *0*1*2*21*211*22*3*/11 1 0 0 0 0 1 *0*1*****3*/" D ^VEXAMINE
 ;
207 W !,"I-207  $DATA of defined node whose immediate descendants are killed"
 S ^ABSN="11526",^ITEM="I-207  $DATA of defined node whose immediate descendants are killed",^NEXT="208^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1
 S ^V1(1)=1,^V1(2)=2,^V1(2,1)=21,^V1(2,1,1)=211,^V1(2,2)=22,^V1(3)=300 D DATA
 K ^V1(2) D DATA
 S ^VCORR="10 1 11 11 1 1 1 **1*2*21*211*22*300*/10 1 0 0 0 0 1 **1*****300*/" D ^VEXAMINE
 ;
208 W !,"I-208  $DATA of defined node whose descendants 2 levels below are killed"
 S ^ABSN="11527",^ITEM="I-208  $DATA of defined node whose descendants 2 levels below are killed",^NEXT="209^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1
 S ^V1(1)=1,^V1(2)=2,^V1(2,1,1)=211,^V1(2,2)=22,^V1(3)=3000 D DATA
 K ^V1(2,1,1) D DATA
 S ^VCORR="10 1 11 10 1 1 1 **1*2**211*22*3000*/10 1 11 0 0 1 1 **1*2***22*3000*/" D ^VEXAMINE
 ;
209 W !,"I-209  $DATA of defined node whose parent is killed"
 S ^ABSN="11528",^ITEM="I-209  $DATA of defined node whose parent is killed",^NEXT="210^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1=0,^V1(1)="1 HAPPY",^V1(2)=2,^V1(2,1)=21,^V1(2,1,1)=211.1,^V1(3)=3
 K ^V1 D DATA
 S ^VCORR="0 0 0 0 0 0 0 ********/" D ^VEXAMINE
 ;
210 W !,"I-210  $DATA of defined node whose neighboring node is killed"
 S ^ABSN="11529",^ITEM="I-210  $DATA of defined node whose neighboring node is killed",^NEXT="853^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1
 S ^V1="ROOT",^V1(2,1,1)=2110,^V1(3)=3000 D DATA
 K ^V1A(1,2,3,4),^V1ZZZ(9,9,9) K A,B,C,V1,^V10,^V11,^V1(0)
 K ^V1(2,1,1) D DATA K ^V1(3) D DATA
 S ^VCORR="11 0 10 10 1 0 1 *ROOT****2110**3000*/11 0 0 0 0 0 1 *ROOT******3000*/1 0 0 0 0 0 0 *ROOT*******/" D ^VEXAMINE
 ;
853 W !,"I-853  Transition of $DATA from 11 to 1 after KILLing the only descendent"
 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
8531 S ^ABSN="12153",^ITEM="I-853.1  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="8532^V1DGB2,V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1
 S ^V1(1)=1,^V1(2)=2,^V1(2,2)=22,^V1(3)=3000 D DATA
 K ^V1(2,2) D DATA
 S ^VCORR="10 1 11 0 0 1 1 **1*2***22*3000*/10 1 1 0 0 0 1 **1*2****3000*/" D ^VEXAMINE
 ;
8532 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
 S ^ABSN="12154",^ITEM="I-853.2  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="V1NR^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1
 S ^V1(1)=1,^V1(2)=2,^V1(2,1,1)=211,^V1(3)=3000 D DATA
 K ^V1(2,1,1) D DATA
 S ^VCORR="10 1 11 10 1 0 1 **1*2**211**3000*/10 1 1 0 0 0 1 **1*2****3000*/" D ^VEXAMINE
 ;
END W !!,"End of 115---V1DGB2",!
 K  K ^V1,^V1A,^V1ZZZ,^V10,^V11 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
DATA S ^VCOMP=^VCOMP_$D(^V1)_" "_$D(^V1(1))_" "_$D(^V1(2))_" "_$D(^V1(2,1))_" "
 S ^VCOMP=^VCOMP_$D(^V1(2,1,1))_" "_$D(^V1(2,2))_" "_$D(^V1(3))_" "
 S ^VCOMP=^VCOMP_"*" I $D(^V1)#10=1 S ^VCOMP=^VCOMP_^V1
 S ^VCOMP=^VCOMP_"*" I $D(^V1(1))#10=1 S ^VCOMP=^VCOMP_^V1(1)
 S ^VCOMP=^VCOMP_"*" I $D(^V1(2))#10=1 S ^VCOMP=^VCOMP_^V1(2)
 S ^VCOMP=^VCOMP_"*" I $D(^V1(2,1))#10=1 S ^VCOMP=^VCOMP_^V1(2,1)
 S ^VCOMP=^VCOMP_"*" I $D(^V1(2,1,1))#10=1 S ^VCOMP=^VCOMP_^V1(2,1,1)
 S ^VCOMP=^VCOMP_"*" I $D(^V1(2,2))#10=1 S ^VCOMP=^VCOMP_^V1(2,2)
 S ^VCOMP=^VCOMP_"*" I $D(^V1(3))#10=1 S ^VCOMP=^VCOMP_^V1(3)
 S ^VCOMP=^VCOMP_"*/" Q

V1NR
V1NR ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;NAKED REFERENCE  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1NR1 W !!,"116---V1NR1" D ^V1NR1
V1NR2 W !!,"117---V1NR2" D ^V1NR2
V1NR3 W !!,"118---V1NR3" D ^V1NR3
 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

V1NR1
V1NR1 ;IW-YS-TS,V1NR,MVTS V9.10;15/6/96;NAKED REFERENCE -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"116---V1NR1: Naked references on gvn -1-",!
648 W !,"I-648  Interpretation sequence of SET command"
 S ^ABSN="11530",^ITEM="I-648  Interpretation sequence of SET command",^NEXT="649^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1B
 S ^V1A(1)=100,^(2)=^(1)+100,^(2,3)=^(1)+130,^(4)=^(3)+10
 S VCOMP=^V1A(1)_" "_^V1A(2)_" "_^V1A(2,3)_" "_^V1A(2,4)_" "
 S ^V1B(1)=10000,^(1,2)=^(1)+2000,^(2,3)=^(2)+300,^(3,4)=^(3)+40
 S VCOMP=VCOMP_^V1B(1)_" "_^V1B(1,2)_" "_^V1B(1,2,3)_" "_^V1B(1,2,3,4)
 S ^VCOMP=VCOMP,^VCORR="100 200 230 240 10000 12000 12300 12340" D ^VEXAMINE
 ;
649 W !,"I-649  Interpretation sequence of subscripted variable"
6491 S ^ABSN="11531",^ITEM="I-649.1  Local variable's subscript",^NEXT="6492^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1B
 S ^V1A(1)=100,^V1B(1,200)=12000,^V1A(2)=200
 S ^(3)=^V1A(2)+100 S X(^(1))=^V1B(1,^(2))
 S ^VCOMP=^V1A(3)_" "_X(100),^VCORR="300 12000" D ^VEXAMINE
 ;
6492 S ^ABSN="11532",^ITEM="I-649.2  glvn is naked reference",^NEXT="6493^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1C
 S ^V1C(1)=2,^(1,2)=3,^(2,3)=4,^VCOMP=^V1C(1,2,3)_" "_^V1C(1,2)_" "_^V1C(1)
 S ^VCORR="4 3 2" D ^VEXAMINE
 ;
6493 S ^ABSN="11533",^ITEM="I-649.3  Subscripts are naked reference",^NEXT="6494^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1CC K ^V1C S ^V1C(1,2)=3,^V1C(1,2,3)=4,^V1C(1)=2
 S ^V1CC(1)=^(^(1),^(1,2)) S ^VCOMP=^V1CC(1),^VCORR="4" D ^VEXAMINE
 ;
6494 S ^ABSN="11534",^ITEM="I-649.4  Nesting naked reference",^NEXT="6495^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1C,^V1CC S ^V1C(1)=2,^(1,2)=3,^(2,3)=4,^(4,1)=10 S ^(3,4)=^(2,^(1,^V1C(1)))+^(4,1)
 S ^VCOMP=^V1C(1,2,4,3,4)_" "
 S ^V1CC(1)=4,^V1C(1)=2 S ^V1CC(2)="TWO",^V1C(2)="ONE" S ^(^(1))=^V1CC(1)
 S ^VCOMP=^VCOMP_^V1CC(2) S ^VCORR="14 4" D ^VEXAMINE
 ;
6495 S ^ABSN="11535",^ITEM="I-649.5  6 level subscripts",^NEXT="650^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A S ^V1A(1)=1,^(2,3)=23,^(1,2,3,4,5)=^(3)
 S ^VCOMP=^V1A(1)_" "_^V1A(2,3)_" "_^V1A(2,1,2,3,4,5)
 S ^VCORR="1 23 23" D ^VEXAMINE
 ;
650 W !,"I-650  Effect of global reference in $DATA on naked indicator"
6501 S ^ABSN="11536",^ITEM="I-650.1  2 level subscripts",^NEXT="6502^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 S VCOMP=""
 K ^V1A S ^V1A(1,1)=2 S VCOMP=VCOMP_$D(^V1A(1,2)) S ^(3)="B" S VCOMP=VCOMP_^V1A(1,3)
 K ^V1A S ^V1A(1,1)=1 S VCOMP=VCOMP_$D(^(2)) S ^(3)="A" S VCOMP=VCOMP_^V1A(1,3)
 S ^VCOMP=VCOMP,^VCORR="0B0A" D ^VEXAMINE
 ;
6502 S ^ABSN="11537",^ITEM="I-650.2  A subscript",^NEXT="6503^V1NR1,V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A S ^V1A(1,1)=3 S VCOMP=$D(^V1A(0)) S ^(3)="C" S VCOMP=VCOMP_^V1A(3)
 S ^VCOMP=VCOMP,^VCORR="0C" D ^VEXAMINE
 ;
6503 S ^ABSN="11538",^ITEM="I-650.3  2 globals using",^NEXT="V1NR2^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1B S ^V1A(1,1)=8,^V1B(1,3)="#"
 S VCOMP=$D(^V1A(1,2)) S ^(3)="I" S VCOMP=VCOMP_^V1B(1,3)_^V1A(1,3)
 S ^VCOMP=VCOMP,^VCORR="0#I" D ^VEXAMINE
 ;
END W !!,"End of 116---V1NR1",!
 K ^V1A,^V1B,^V1C,^V1CC 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

V1NR2
V1NR2 ;IW-YS-TS,V1NR,MVTS V9.10;15/6/96;NAKED REFERENCE -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"117---V1NR2: Naked references on gvn -2-",!
651 W !,"I-651  Effect of KILLing global variables on naked indicator"
6511 S ^ABSN="11539",^ITEM="I-651.1  Killing defined global variable",^NEXT="6512^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 S VCOMP=""
 K ^V1A S ^V1A(1,1)=6 K ^V1A(1) S ^(3)="F" S VCOMP=VCOMP_^V1A(3)
 K ^V1A S ^V1A(1,1)=4 K ^(1) S ^(3)="D" S VCOMP=VCOMP_^V1A(1,3)
 S ^VCOMP=VCOMP,^VCORR="FD" D ^VEXAMINE
 ;
6512 S ^ABSN="11540",^ITEM="I-651.2  Killing undefined global variable",^NEXT="6513^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 S VCOMP=""
 K ^V1A S ^V1A(1,1)=7 K ^V1A(0) S ^(3)="G" S VCOMP=VCOMP_^V1A(3)
 K ^V1A S ^V1A(1,1)=5 K ^(0) S ^(3)="E" S VCOMP=VCOMP_^V1A(1,3)
 S ^VCOMP=VCOMP,^VCORR="GE" D ^VEXAMINE
 ;
6513 S ^ABSN="11541",^ITEM="I-651.3  2 globals using",^NEXT="652^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1B S ^V1A(1,1)=8,^V1B(1,3)="*" K ^V1A(1,2) S ^(3)="H"
 S VCOMP=^V1B(1,3)_^V1A(1,3)
 S ^VCOMP=VCOMP,^VCORR="*H" D ^VEXAMINE
 ;
652 W !,"I-652  Interpretation of naked reference"
 S ^ABSN="11542",^ITEM="I-652  Interpretation of naked reference",^NEXT="825^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A S ^V1A(1,1)=11,^V1A(1,2,3)=123,^V1A(1,2,2)=122,^V1A(1,2,3,2)=1232
 S ^V1A(1,2,3,122,1232)="GLOBAL"
 S VCOMP=$DATA(^V1A(1,1)) S ^(^(1),^(2,3))=^(^(2),^(3,2))
 S VCOMP=VCOMP_^V1A(1,2,3,122,11,123),^VCOMP=VCOMP,^VCORR="1GLOBAL" D ^VEXAMINE
 ;
825 W !,"I-825  Naked reference of undefined global node whose immediate ascendant exist"
 S ^ABSN="11543",^ITEM="I-825  Naked reference of undefined global node whose immediate ascendant exist",^NEXT="826^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1C S ^V1C(2,2)=2200
 S VCOMP=$D(^V1C(2,2))_" "_$D(^(2,2))_" "_$DATA(^(2,2,2))_" "
 S ^(2)="22222" S VCOMP=VCOMP_$D(^(2))_" "_^V1C(2,2,2,2,2)_" "_$D(^V1C)
 S ^VCOMP=VCOMP,^VCORR="1 0 0 1 22222 10" D ^VEXAMINE
 ;
826 W !,"I-826  Naked reference of undefined global node whose immediate ascendant does not exist"
 S ^ABSN="11544",^ITEM="I-826.1  Immediate ascendant is unsubscripted variable",^NEXT="8262^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1A(1)
 S ^(1)=1000 S VCOMP=$D(^V1A)_" "_$D(^V1A(1))_" "_^V1A(1)_" "_$D(^V1A(1,2))
 S ^VCOMP=VCOMP,^VCORR="10 1 1000 0" D ^VEXAMINE
 ;
8262 S ^ABSN="11545",^ITEM="I-826.2  Immediate ascendant is 2-subscripts variable",^NEXT="8263^V1NR2,V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 K ^V1A,^V1A(1) S VCOMP=$D(^V1A(1,2)) S ^(2,3)=123
 S VCOMP=VCOMP_^V1A(1,2,3),^VCOMP=VCOMP,^VCORR="0123" D ^VEXAMINE
 ;
8263 S ^ABSN="11546",^ITEM="I-826.3  Another same level variable exist",^NEXT="V1NR3^V1NR,V1NX^VV1" D ^V1PRESET
 S VCOMP=""
 K ^V1A,^V1A(1,1) S ^V1A(1,1)="X",VCOMP=VCOMP_$D(^(1,3)),^(4)="3",VCOMP=VCOMP_^V1A(1,1,4)
 K ^V1A S ^V1A(1,1)=99,VCOMP=VCOMP_$D(^(1,3)) S ^(4)="4" S VCOMP=VCOMP_^V1A(1,1,4)
 S ^VCOMP=VCOMP,^VCORR="0304" D ^VEXAMINE
 ;
END W !!,"End of 117---V1NR2",!
 K ^V1A,^V1B,^V1C 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

V1NR3
V1NR3 ;IW-YS-TS,V1NR,MVTS V9.10;15/6/96;NAKED REFERENCE -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"118---V1NR3: Naked references on gvn -3-",!
 ;
848 W !,"I-848  Naked indicator not affected by setting lvn=strlit"
 ;(Test added in V7.5;20/12/89)
 S ^ABSN="11547",^ITEM="I-848  Naked indicator not affected by setting lvn=strlit",^NEXT="849^V1NR3,V1NX^VV1" D ^V1PRESET
 S VCOMP="" K ^V S ^V(1,2,3,4)="1234 ",^(5)="1235 "
 S V(3,2,1)="321 " S ^(12.5)="12.5 "
 S VCOMP=^(4)_^(5)_^(12.5)_^V(1,2,3,4)_^V(1,2,3,5)_^V(1,2,3,12.5)_V(3,2,1)
 K ^V S ^VCOMP=VCOMP,^VCORR="1234 1235 12.5 1234 1235 12.5 321 " D ^VEXAMINE
 ;
849 W !,"I-849  Naked indicator not affected by setting lvn=lvn"
 ;(Test added in V7.5;20/12/89)
 S ^ABSN="11548",^ITEM="I-849  Naked indicator not affected by setting lvn=lvn",^NEXT="850^V1NR3,V1NX^VV1" D ^V1PRESET
 S ABC(123)="ABC ",VCOMP=""
 K ^V S ^V(1,2,3,4)="1234 ",^(5)="1235 "
 S V(1,2)=ABC(123) S ^("DEF")="DEF "
 S VCOMP=^(4)_^(5)_^("DEF")_^V(1,2,3,4)_^V(1,2,3,5)_^V(1,2,3,"DEF")_V(1,2)
 K ^V S ^VCOMP=VCOMP,^VCORR="1234 1235 DEF 1234 1235 DEF ABC " D ^VEXAMINE
 ;
850 W !,"I-850  If KILL of lvn affects naked indicator"
 ;(Test added in V7.5;20/12/89)
 S ^ABSN="11549",^ITEM="I-850  If KILL of lvn affects naked indicator",^NEXT="851^V1NR3,V1NX^VV1" D ^V1PRESET
 S VCOMP="" S VV(1,2)="12 ",^VV(0,1,1,1)="A " S VCOMP=^(1)
 KILL VV(1)
 S VCOMP=VCOMP_^(1) S ^(2)="B ",VCOMP=VCOMP_^(2)_^VV(0,1,1,1)_^VV(0,1,1,2)_$D(VV)
 K ^VV S ^VCOMP=VCOMP,^VCORR="A A B A B 0" D ^VEXAMINE
 ;
851 W !,"I-851  If LOCK of lvn affects naked indicator"
 ;(Test added in V7.5;20/12/89)
 S ^ABSN="11550",^ITEM="I-851  If LOCK of lvn affects naked indicator",^NEXT="V1NX^VV1" D ^V1PRESET
 S VCOMP="" S ^VV(12,34,56)="X "
 L VV
 S VCOMP=VCOMP_^(56) S ^(1)="Y " S VCOMP=VCOMP_^(1)_^VV(12,34,56)_^VV(12,34,1)
 K ^VV L  S ^VCOMP=VCOMP,^VCORR="X Y X Y " D ^VEXAMINE
 ;
END W !!,"End of 118---V1NR3",!
 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

V1NX
V1NX ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;$NEXT FUNCTION  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1NX1 W !!,"119---V1NX1" D ^V1NX1
V1NX2 W !!,"120---V1NX2" D ^V1NX2
 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

V1NX1
V1NX1 ;IW-YS-TS,V1NX,MVTS V9.10;15/6/96;$NEXT FUNCTION -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"119---V1NX1: $NEXT function -1-",!
 ;
669 W !,"I-669  glvn is not defined"
 S ^ABSN="11551",^ITEM="I-669  glvn is not defined",^NEXT="670^V1NX1,V1NX2^V1NX,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-669 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
670 W !,"I-670  glvn has no neighboring node"
 S ^ABSN="11552",^ITEM="I-670  glvn has no neighboring node",^NEXT="671^V1NX1,V1NX2^V1NX,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-670 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
671 W !,"I-671  The last subscript of glvn is -1"
 S ^ABSN="11553",^ITEM="I-671  The last subscript of glvn is -1",^NEXT="672^V1NX1,V1NX2^V1NX,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-671 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
672 W !,"I-672  glvn as naked reference"
 S ^ABSN="11554",^ITEM="I-672  glvn as naked reference",^NEXT="673^V1NX1,V1NX2^V1NX,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-672 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
673 W !,"I-673  Expected returned value is zero"
 S ^ABSN="11555",^ITEM="I-673  Expected returned value is zero",^NEXT="V1NX2^V1NX,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-673 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 119---V1NX1",!
 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

V1NX2
V1NX2 ;IW-YS-TS,V1NX,MVTS V9.10;15/6/96;$NEXT FUNCTION -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"120---V1NX2: $NEXT function -2-",!
 ;
674 W !,"I-674  glvn is lvn"
 S ^ABSN="11556",^ITEM="I-674  glvn is lvn",^NEXT="675^V1NX2,V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-674 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
675 W !,"I-675  glvn is gvn"
 S ^ABSN="11557",^ITEM="I-675  glvn is gvn",^NEXT="V1SET^VV1" D ^V1PRESET
 W !,"       (This test I-675 was withdrawn in 20/8/1992 on X11.1-1984, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 120---V1NX2",!
 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

V1SET
V1SET ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;SET COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1SET1 W !!,"121---V1SET1" D ^V1SET1
V1SET2 W !!,"122---V1SET2" D ^V1SET2
 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

V1SET1
V1SET1 ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;SET COMMAND  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"121---V1SET1: SET command  -1-",!
781 W !,"I-781  expr is string literal"
7811 S ^ABSN="11558",^ITEM="I-781.1  Subscripted variables assigned with constant values",^NEXT="7812^V1SET1,V1SET2^V1SET,V1GO^VV1" D ^V1PRESET
 SET A(1)="012345",A(2)=6789,A(2,1)="ONE",A(2,2)="TWO",A(3,3)=-32767
 SET ^VCOMP=A(1)_A(2)_A(2,1)_A(2,2)_A(3,3)
 S ^VCORR="0123456789ONETWO-32767" D ^VEXAMINE
 ;
7812 S ^ABSN="11559",^ITEM="I-781.2  Variables' values reassigned to other variables",^NEXT="782^V1SET1,V1SET2^V1SET,V1GO^VV1" D ^V1PRESET
 SET A(1)="012345",A(2)=6789,A(2,1)="ONE",A(2,2)="TWO",A(3,3)=-32767
 S A=A(2,2),A(2,2)=A(2,1),A(2,1)=A(2),A(2)=A(1),A(1)=A(3,3)
 S ^VCOMP=A_A(1)_A(2)_A(2,1)_A(2,2)
 S ^VCORR="TWO-327670123456789ONE" D ^VEXAMINE
 ;
782 W !,"I-782  expr is lvn"
 S ^ABSN="11560",^ITEM="I-782  expr is lvn",^NEXT="783^V1SET1,V1SET2^V1SET,V1GO^VV1" D ^V1PRESET
 K A,B,C,D,E,F,^V1,^V1A S A="ONE",B="TWO",C(1)="TRON",D(5,4,3)="543000"
 S E=A,E(100)=B,E(2,3,4)=C(1),F(4,5,6)=D(5,4,3),A=D(5,4,3),C(1)=E(2,3,4)_B
 S ^V1=A,^V1A(100,2)=E(2,3,4),^V1A(01,20)=D(5,4,3)*0.001
 S ^VCOMP=E_E(100)_E(2,3,4)_F(4,5,6)_A_C(1)_" "_^V1_^V1A(100,2)_^V1A(1,20)
 S ^VCORR="ONETWOTRON543000543000TRONTWO 543000TRON543" D ^VEXAMINE
 ;
783 W !,"I-783  expr is gvn"
 S ^ABSN="11561",^ITEM="I-783  expr is gvn",^NEXT="784^V1SET1,V1SET2^V1SET,V1GO^VV1" D ^V1PRESET
 K ^V1,^V1A,A,B,C,^V1B
 S ^V1="^V1",^V1A(02,20)="OS220",^V1A(100,101)=20,^V1B(30,2)="HOME",C=2
 S A=^V1A(2,20),^V1A=^V1B(30,C),B(123,C,1)=^V1A(2,20)_^V1A(C,^V1A(100,101))
 S ^V1B(9,9)=^V1B(30,2)_^V1A
 S ^VCOMP=A_" "_^V1A_" "_B(123,2,1)_" "_^V1_" "_^V1B(9,9)
 S ^VCORR="OS220 HOME OS220OS220 ^V1 HOMEHOME" D ^VEXAMINE
 ;
784 W !,"I-784  glvn is subscripted variable"
 S ^ABSN="11562",^ITEM="I-784  glvn is subscripted variable",^NEXT="V1SET2^V1SET,V1GO^VV1" D ^V1PRESET
 K A,B,^V1A,^V1B S A=1,B=2,B(3)=30
 S A(A)=10,A(A,B)=20,B(B(3),A(A))=30,B(A+B,A(A,B)+1)=40
 S VCOMP=A(1)_" "_A(1,2)_" "_B(30,10)_" "_B(3,21)_" "
 S ^V1B(A)=50,^V1A(B,B(3))=60,^V1A(^V1B(1),^V1A(B,B(3)),B(A+B,A(A,B)+1))=70
 S VCOMP=VCOMP_^V1B(1)_" "_^V1A(2,30)_" "_^V1A(50,60,40)
 S ^VCOMP=VCOMP,^VCORR="10 20 30 40 50 60 70" D ^VEXAMINE
 ;
END W !!,"End of 121---V1SET1",!
 K  K ^V1,^V1A,^V1B,^V1C,^V1D,^V1E 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

V1SET2
V1SET2 ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;SET COMMAND  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"122---V1SET2: SET command  -2-",!
 ;
785 W !,"I-785  Multiple-assigment of unsubscripted variables"
 S ^ABSN="11563",^ITEM="I-785  Multiple-assigment of unsubscripted variables",^NEXT="786^V1SET2,V1GO^VV1" D ^V1PRESET
 S ^VCOMP="" K A,B,C,D,E,F,^V1,^V1A
 S (A,B,C,D,E,F,^V1,^V1A)=1
 S ^VCOMP=A_B_C_D_E_F_^V1_^V1A K ^V1A
 S ^VCORR="11111111" D ^VEXAMINE
 ;
786 W !,"I-786  Multiple-assigment of subscripted variables"
 S ^ABSN="11564",^ITEM="I-786  Multiple-assigment of subscripted variables",^NEXT="787^V1SET2,V1GO^VV1" D ^V1PRESET
 S VCOMP="" K Z,^V1,Y
 S (A,B,C,D,E,F,^V1,^V1A)=1
 S (Z(1),Z(2,3),X,^V1(1),^V1(2,3),Y)="Z"
 S VCOMP=X_Y_Z(1)_Z(2,3)_^V1(1)_^V1(2,3)
 S (Q(A),B,^V1(1))=2
 S VCOMP=VCOMP_Q(A)_B_^V1(1) K ^V1A,^V1
 S ^VCOMP=VCOMP,^VCORR="ZZZZZZ222" D ^VEXAMINE
 ;
787 W !,"I-787  Execution sequence of SET command"
 S ^ABSN="11565",^ITEM="I-787  Execution sequence of SET command",^NEXT="V1GO^VV1" D ^V1PRESET
 S V=""
 S V=V_" " K ^V1A,^V1B S ^V1A(2)="A",^V1B(1)=^(2) S V=V_^V1A(2)_^V1B(1)
 S V=V_" " K ^V1A,^V1B S ^V1A(2)="B",^(1)=^V1A(2) S V=V_^V1A(2)_^V1A(1)
 S V=V_" " K ^V1A,^V1B S ^V1A(1,2)="C",^V1A(1)=0,^(1)=^(1,2) S V=V_^V1A(1)_^V1A(1,1)
 S V=V_" " K ^V1A,^V1B S ^V1A(1)=3,^V1A(2)="D",^V1B(^(1))=^(2) S V=V_^V1B(3)
 S V=V_" " K ^V1A,^V1B S ^V1A(2)="E",^V1B(1)=3,^(^(1))=^V1A(2) S V=V_^V1A(3)
 S V=V_" " K ^V1A,^V1B S ^V1A(1,2)=4,^(3)="F",^V1A(1)=5
 S ^V1B(^(1),^(1,2))=^(3) S V=V_^V1B(5,4)
 S V=V_" " K ^V1A,^V1B S ^V1B(2)=1,^V1B(3)="G",^V1A(1)=2
 S ^(^(1),^V1B(2))=^(3),^(5)="$" S V=V_^V1B(2,1)_^V1B(2,5)
 S V=V_" " K ^V1A,^V1B S ^V1B(2)=1,^V1B(2,3)="H",^V1B(2,1)=4,^V1A(1)=2
 S ^(^(^(1),^V1B(2)),1)=^(3),^(6)="%" S V=V_^V1B(2,4,1)_^V1B(2,4,6)
 S V=V_" " K A,B S A=1,B=2,(A,B,B(A,B))="I" S V=V_A_B_B(1,2)
 S V=V_" " K ^V1A,^V1B,^V1C,^V1D,^V1E S ^V1B(2)=2,^V1D(5)=5,^V1E(6,7)="J"
 S ^V1E(7)=7,^V1B(1,2)=8,^V1B(1,3)=3,^V1B(1,4)=4,^V1A(1)=1
 S (^(^(^(1),^V1B(2))),^V1C(^(3),4),^(^(4),^V1D(5)))=^(6,^V1E(7))
 S V=V_^V1E(6,8)_^V1C(3,4)_^V1C(3,4,5)
 S ^VCOMP=V,^VCORR=" AA BB 0C D E F G$ H% III JJJ" D ^VEXAMINE
 ;
END W !!,"End of 122---V1SET2",!
 K  K ^V1,^V1A,^V1B,^V1C,^V1D,^V1E 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

V1GO
V1GO ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;GOTO COMMAND (LOCAL BRANCHING)  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1GO1 W !!,"123---V1GO1" D ^V1GO1
V1GO2 W !!,"124---V1GO2" D ^V1GO2
V1GO3 W !!,"125---V1GO3" D ^V1GO3
 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

V1GO1
V1GO1 ;IW-KO-TS,V1GO,MVTS V9.10;15/6/96;GOTO COMMAND (LOCAL BRANCHING) -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"123---V1GO1: GOTO command (local branching) -1-",!
 W !,"GOTO label",!
382 W !,"I-382/383  label is % followed by alpha and digit"
3821 S ^ABSN="11566",^ITEM="I-382/383.1  label is %",^NEXT="3822^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%"
 GOTO % S VCOMP=VCOMP_" E- % "
 S VCOMP=VCOMP_" E- % NEXT "
 ;
% S ^VCOMP=VCOMP,^VCORR="%" D ^VEXAMINE
3822 S ^ABSN="11567",^ITEM="I-382/383.2  label is % followed by an alpha",^NEXT="3823^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%A"
 GOTO %A
 S VCOMP=VCOMP_" E- "
 ;
%90 S ^VCOMP=VCOMP,^VCORR="%90" D ^VEXAMINE
3826 S ^ABSN="11571",^ITEM="I-382/383.6  label is % followed by 7 digits",^NEXT="3827^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%0000000"
 G %0000000
 ;
%A S ^VCOMP=VCOMP,^VCORR="%A" D ^VEXAMINE
3823 S ^ABSN="11568",^ITEM="I-382/383.3  label is % followed by alphas",^NEXT="3824^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%ABCDEFG"
 G %ABCDEFG
 ;
%2345678 S ^VCOMP=VCOMP,^VCORR="%2345678" D ^VEXAMINE
3828 S ^ABSN="11573",^ITEM="I-382/383.8  label is % followed by combination of an alpha and a digit",^NEXT="3829^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%A1" G %A1
 ;
%0 S ^VCOMP=VCOMP,^VCORR="%0" D ^VEXAMINE
3825 S ^ABSN="11570",^ITEM="I-382/383.5  label is % followed by 2 digits",^NEXT="3826^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%90"
 G %90
 ;
%ABCDEFG S ^VCOMP=VCOMP,^VCORR="%ABCDEFG" D ^VEXAMINE
3824 S ^ABSN="11569",^ITEM="I-382/383.4  label is % followed by a digit",^NEXT="3825^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%0"
 G %0
 ;
%0000000 S ^VCOMP=VCOMP,^VCORR="%0000000" D ^VEXAMINE
3827 S ^ABSN="11572",^ITEM="I-382/383.7  label is % followed by another 7 digits",^NEXT="3828^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%2345678" G %2345678
 ;
%A1 S ^VCOMP=VCOMP,^VCORR="%A1" D ^VEXAMINE
3829 S ^ABSN="11574",^ITEM="I-382/383.9  label is % followed by combination of alphas and digits",^NEXT="380^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="%A1B2C3D"
 G %A1B2C3D
 ;
 S VCOMP=VCOMP_" NEXT"
%A1B2C3D S ^VCOMP=VCOMP,^VCORR="%A1B2C3D" D ^VEXAMINE
 ;
380 W !,"I-380  label is alpha"
3801 S ^ABSN="11575",^ITEM="I-380.1  label is an alpha",^NEXT="3802^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="A" G A
 ;
A S ^VCOMP=VCOMP,^VCORR="A" D ^VEXAMINE
3802 S ^ABSN="11576",^ITEM="I-380.2  label is different alpha",^NEXT="3803^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="Q"
 G Q
 ;
Z S ^VCOMP=VCOMP,^VCORR="Z" D ^VEXAMINE
3804 S ^ABSN="11578",^ITEM="I-380.4  label is 2 alphas",^NEXT="3805^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="DO"
 G DO
 ;
SET S ^VCOMP=VCOMP,^VCORR="SET" D ^VEXAMINE
3808 S ^ABSN="11582",^ITEM="I-380.8  label is 8 alphas",^NEXT="V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="ABCDEFGH"
 G ABCDEFGH
 ;
Q S ^VCOMP=VCOMP,^VCORR="Q" D ^VEXAMINE
3803 S ^ABSN="11577",^ITEM="I-380.3  label is different alpha",^NEXT="3804^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="Z"
 G Z
 ;
IF S ^VCOMP=VCOMP,^VCORR="IF" D ^VEXAMINE
3806 S ^ABSN="11580",^ITEM="I-380.6  label is 4 alphas",^NEXT="3807^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="QUIT"
 G QUIT
 ;
DO S ^VCOMP=VCOMP,^VCORR="DO" D ^VEXAMINE
3805 S ^ABSN="11579",^ITEM="I-380.5  label is another 2 alphas",^NEXT="3806^V1GO1,V1GO2^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="IF"
 G IF
 ;
QUIT S ^VCOMP=VCOMP,^VCORR="QUIT" D ^VEXAMINE
3807 S ^ABSN="11581",^ITEM="I-380.7  label is 3 alphas",^NEXT="3808^V1GO1,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="SET"
 G SET
 ;
ABCDEFGH S ^VCOMP=VCOMP,^VCORR="ABCDEFGH" D ^VEXAMINE
 ;
END W !!,"End of 123---V1GO1",!
 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

V1GO2
V1GO2 ;IW-KO-TS,V1GO,MVTS V9.10;15/6/96;GOTO COMMAND (LOCAL BRANCHING) -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"124---V1GO2: GOTO command (local branching) -2-",!
 ;
381 W !,"I-381  label is intlit"
3811 S ^ABSN="11583",^ITEM="I-381.1  0",^NEXT="3812^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="0" G 0
0 S ^VCOMP=VCOMP,^VCORR="0" D ^VEXAMINE
3812 S ^ABSN="11584",^ITEM="I-381.2  1",^NEXT="3813^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="1" G 1
1 S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
3813 S ^ABSN="11585",^ITEM="I-381.3  01",^NEXT="3814^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="01" G 01
10 S ^VCOMP=VCOMP,^VCORR="10" D ^VEXAMINE
3815 S ^ABSN="11587",^ITEM="I-381.5  12",^NEXT="3816^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="12" G 12
100 S ^VCOMP=VCOMP,^VCORR="100" D ^VEXAMINE
3817 S ^ABSN="11589",^ITEM="I-381.7  012",^NEXT="3818^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="012" G 012
0012 S ^VCOMP=VCOMP,^VCORR="0012" D ^VEXAMINE
3819 S ^ABSN="11591",^ITEM="I-381.9  92345678",^NEXT="38110^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="92345678" G 92345678
01 S ^VCOMP=VCOMP,^VCORR="01" D ^VEXAMINE
3814 S ^ABSN="11586",^ITEM="I-381.4  10",^NEXT="3815^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="10" G 10
92345678 S ^VCOMP=VCOMP,^VCORR="92345678" D ^VEXAMINE
38110 S ^ABSN="11592",^ITEM="I-381.10  00000000",^NEXT="384^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="00000000" G 00000000
12 S ^VCOMP=VCOMP,^VCORR="12" D ^VEXAMINE
3816 S ^ABSN="11588",^ITEM="I-381.6  100",^NEXT="3817^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="100" G 100
012 S ^VCOMP=VCOMP,^VCORR="012" D ^VEXAMINE
3818 S ^ABSN="11590",^ITEM="I-381.8  0012",^NEXT="3819^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="0012" G 0012
00000000 S ^VCOMP=VCOMP,^VCORR="00000000" D ^VEXAMINE
 ;
384 W !,"I-384  label is combination of alpha and digit"
3841 S ^ABSN="11593",^ITEM="I-384.1  label is combination of an alpha and a digit",^NEXT="3842^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="A1" G A1
 ;
Z012 S ^VCOMP=VCOMP,^VCORR="Z012" D ^VEXAMINE
3843 S ^ABSN="11595",^ITEM="I-384.3  label is combination of alphas and digits",^NEXT="V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="ZXY987A0"
 G ZXY987A0
 ;
A1 S ^VCOMP=VCOMP,^VCORR="A1" D ^VEXAMINE
3842 S ^ABSN="11594",^ITEM="I-384.2  label is combination of an alpha and digits",^NEXT="3843^V1GO2,V1GO3^V1GO,V1OV^VV1" D ^V1PRESET
 S VCOMP="Z012"
 G Z012
 ;
ZXY987A0 S ^VCOMP=VCOMP,^VCORR="ZXY987A0" D ^VEXAMINE
 ;
END W !!,"End of 124---V1GO2",!
 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

V1GO3
V1GO3 ;IW-KO-TS,V1GO,MVTS V9.10;15/6/96;GOTO COMMAND (LOCAL BRANCHING) -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"125---V1GO3: TESTS OF GOTO COMMAND (LOCAL BRANCHING) -3-",!
 W !,"GOTO label+intexpr",!
385 S ^VCORR="0000000 A9Z00 02 " D %385 D ^VEXAMINE
386 S ^VCORR="ZERO ZERO2" D %386 D ^VEXAMINE
387 S ^VCORR="%000 NOTES STAR1 00000000 " D %387 D ^VEXAMINE
388 S ^VCORR="ANSI+1 388+3" D %388 D ^VEXAMINE
389 S ^VCORR="STAR3 R " D %389 D ^VEXAMINE
390 S ^VCORR="%0+1 %00 99999999 ANSI " D %390 D ^VEXAMINE
391 S ^VCORR="%0 " D %391 D ^VEXAMINE
392 S ^VCORR="HAL9000+1 " D %392 D ^VEXAMINE
827 S ^VCORR="%ABC8 " D %827 D ^VEXAMINE
828 S ^VCORR="STAR " D %828 D ^VEXAMINE
END W !!,"End of 125---V1GO3",!
 K  K ^V1A Q
 ;
%385 ;
 S ^ABSN="11596",^ITEM="I-385  intexpr is positive integer",^NEXT="386^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" G 00000000+2
02 S ^VCOMP=^VCOMP_"02 "
 Q
 ;
%386 ;
 S ^ABSN="11597",^ITEM="I-386  intexpr is zero",^NEXT="387^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 G %Z0+0 S ^VCOMP=^VCOMP_"E-3862 "
%Z00 S ^VCOMP=^VCOMP_"ZERO2"
 Q
 ;
%387 ;
 S ^ABSN="11598",^ITEM="I-387  intexpr is non-integer numeric literal",^NEXT="388^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 G 0000000+7.999
 ;
%388 ;
 S ^ABSN="11599",^ITEM="I-388  intexpr contains functions",^NEXT="389^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K A S A(1,1)=11 G %000+$D(A(1))-$L(0.20+0.000450)
 S ^VCOMP=^VCOMP_"388+3"
 Q
 ;
%389 ;
 S ^ABSN="11600",^ITEM="I-389  intexpr is a gvn",^NEXT="390^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" S ^V1A=3 G STAR+^V1A
 S ^VCOMP=^VCOMP_"++"
 S ^VCOMP=^VCOMP_"R " Q
 ;
%390 ;
 S ^ABSN="11601",^ITEM="I-390  intexpr contains a binary operator",^NEXT="391^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K A S A=2
 G %0+A=2
 ;
%391 ;
 S ^ABSN="11602",^ITEM="I-391  intexpr contains unary operators",^NEXT="392^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 G %0+-+-+'-'0
 ;
%392 ;
 S ^ABSN="11603",^ITEM="I-392  intexpr contains gvn as expratom",^NEXT="827^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K ^V1A
 S ^V1A(2)=20,ZORAC=19 G HAL9000+^V1A(2)-ZORAC
 ;
%827 ;
 S ^ABSN="11604",^ITEM="I-827  Argument list label without postcondition",^NEXT="828^V1GO3,V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 G %ABC8,ZZZZZZZZ,Z897
 ;
%828 ;
 S ^ABSN="11605",^ITEM="I-828  Argument list label+intexpr without postcondition",^NEXT="V1OV^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 G %Z0+01,ANSI+2,0000000+05
 ;
%ABC8 S ^VCOMP=^VCOMP_"%ABC8 " Q
HAL9000 S ^VCOMP=^VCOMP_"HAL9000 " Q
 S ^VCOMP=^VCOMP_"HAL9000+1 " Q
ZZZZZZZZ S ^VCOMP=^VCOMP_"ZZZZZZZZ " Q
Z897 S ^VCOMP=^VCOMP_"Z897 " Q
00000000 S ^VCOMP=^VCOMP_"00000000 " Q  ;387
ABCDEF S ^VCOMP=^VCOMP_"ABCDEF " Q  ;835
0000000 S ^VCOMP=^VCOMP_"0000000 " G ABCDEF+000002 ;385
A9Z00 S ^VCOMP=^VCOMP_"A9Z00 " GOTO %385+3000E-3 ;385
%Z0 S ^VCOMP=^VCOMP_"ZERO " G %Z00+0000 ;386
STAR S ^VCOMP=^VCOMP_"STAR " Q  ;828
 S ^VCOMP=^VCOMP_"STAR1 " G ZZZZZZZZ+"2A" ;387
 S ^VCOMP=^VCOMP_"STAR2 " Q  ;828
 S ^VCOMP=^VCOMP_"STAR3 ",A(3)="-1" GOTO %389+^V1A-A(^V1A) ;389
%000 S ^VCOMP=^VCOMP_"%000 " G %Z0++"+.7E+1" ;387
99999999 S ^VCOMP=^VCOMP_"99999999 " G A9Z00+-91+100 ;390
NOTES S ^VCOMP=^VCOMP_"NOTES " G STAR++.1E+1 ;387
ANSI S ^VCOMP=^VCOMP_"ANSI " Q  ;390
 S ^VCOMP=^VCOMP_"ANSI+1 " G %388+$L($E(^VCOMP,5,99)) ;388
 S ^VCOMP=^VCOMP_"ANSI+2 " Q  ;828
%00 S ^VCOMP=^VCOMP_"%00 " G 99999999+1+1/2-1 ;390
%0 S ^VCOMP=^VCOMP_"%0 " Q  ;391
 S ^VCOMP=^VCOMP_"%0+1 " ;390
 S C=12.3,D="6A",E="5ABCDEFG" G NOTES+C+(D*2)+E=29.3+3
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

V1OV
V1OV ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;GOTO (PVERLAY) COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1OV1 W !!,"126---V1OV1" D ^V1OV1
V1OV2 W !!,"127---V1OV2" D ^V1OV2
 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

V1OV1
V1OV1 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;GOTO (OVERLAY) COMMAND
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"126---V1OV1: GOTO command  (overlay) -1-",!
%677 D 677
%678 D 678
%679 D 679
%680 D 680
%681 D 681
%682 D 682
%683 D 683
%684 D 684
%687 D 687
END W !!,"End of 126---V1OV1",!
 K  K ^V1OVE 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
 ;
677 W !,"I-677  Postconditional of argument"
 S ^ABSN="11606",^ITEM="I-677  Postconditional of argument",^NEXT="%678^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="E2 "
 S A=0 G E1^V1OVE:A=1 G E2^V1OVE:A=0 G E3^V1OVE
 ;
678 W !,"I-678  GOTO ^routineref"
 S ^ABSN="11607",^ITEM="I-678  GOTO ^routineref",^NEXT="%679^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="^V1OVE "
 G ^V1OVE
 ;
679 W !!,"GOTO label^routineref",!
 W !,"I-679/685  label is alpha"
 S ^ABSN="11608",^ITEM="I-679/685  label is alpha",^NEXT="%680^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="ABC "
 G ABC^V1OVE
 ;
680 W !,"I-680/686  label is intlit"
 S ^ABSN="11609",^ITEM="I-680/686  label is intlit",^NEXT="%681^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="0012 "
 G 0012^V1OVE
 ;
681 W !,"I-681  label is ""%"""
 S ^ABSN="11610",^ITEM="I-681  label is ""%""",^NEXT="%682^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="% "
 G %^V1OVE
 ;
682 W !,"I-682  label is ""%"" and alpha"
 S ^ABSN="11611",^ITEM="I-682  label is ""%"" and alpha",^NEXT="%683^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="%ALPHA "
 G %ALPHA^V1OVE
 ;
683 W !,"I-683  label is ""%"" and digit"
 S ^ABSN="11612",^ITEM="I-683  label is ""%"" and digit",^NEXT="%684^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="%009900 "
 G %009900^V1OVE
 ;
684 W !,"I-684  label is ""%"" and combination of alpha and digit"
 S ^ABSN="11613",^ITEM="I-684  label is ""%"" and combination of alpha and digit",^NEXT="%687^V1OV1,V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="%ZZ0090A "
 G %ZZ0090A^V1OVE
 ;
687 W !,"I-687  label is combination of alpha and digit"
 S ^ABSN="11614",^ITEM="I-687  label is combination of alpha and digit",^NEXT="V1OV2^V1OV,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="ZERO0 "
 G ZERO0^V1OVE
 ;

V1OV2
V1OV2 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;GOTO (OVERLAY) COMMAND  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"127---V1OV2: GOTO command  (overlay)  -2-",!
%688 D 688
%689 D 689
%690 D 690
%691 D 691
%692 D 692
%693 D 693
%694 D 694
%695 D 695
%829 D 829
%830 D 830
%831 D 831
END W !!,"End of 127---V1OV2",!
 K  K ^V1OVE 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
688 W !!,"GOTO label+intexpr^routineref",!
 W !,"I-688  intexpr is positive integer"
 S ^ABSN="11615",^ITEM="I-688  intexpr is positive integer",^NEXT="%689^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="000 "
 G %+00003^V1OVE
 ;
689 W !,"I-689  intexpr is zero"
 S ^ABSN="11616",^ITEM="I-689  intexpr is zero",^NEXT="%690^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="XYZ 012 "
 G XYZ+0^V1OVE
 S ^VCOMP=^VCOMP_"***"
R689 G 012+0^V1OVE
 ;
690 W !,"I-690  intexpr is non-integer numeric"
 S ^ABSN="11617",^ITEM="I-690  intexpr is non-integer numeric",^NEXT="%691^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="00120 690 00 " G 000+2.9999999^V1OVE
 S ^VCOMP=^VCOMP_"690 " G 000+"4ABC"^V1OVE
 ;
691 W !,"I-691  intexpr contains binary operators"
 S ^ABSN="11618",^ITEM="I-691  intexpr contains binary operators",^NEXT="%692^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="0+2 690 6901 " G 00+1-12+15^V1OVE
 S ^VCOMP=^VCOMP_"690 ",A=999 G 691+A/9-11/19^V1OV2
 S ^VCOMP=^VCOMP_"@@@ "
 S ^VCOMP=^VCOMP_"6901 " G EXAMINER^V1OVE
 ;
692 W !,"I-692  intexpr contains unary operators"
 S ^ABSN="11619",^ITEM="I-692  intexpr contains unary operators",^NEXT="%693^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="0 "
 G 0+-+-+'-'0^V1OVE
 ;
693 W !,"I-693  intexpr contains functions"
 S ^ABSN="11620",^ITEM="I-693  intexpr contains functions",^NEXT="%694^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="0+1 "
 S A(1,1)=11 G ZERO0+$D(A(1))-$L(0.20)^V1OVE
 ;
694 W !,"I-694  intexpr is a gvn"
 S ^ABSN="11621",^ITEM="I-694  intexpr is a gvn",^NEXT="%695^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="0+3 "
 S ^V1OVE=3 G 0+^V1OVE^V1OVE
 ;
695 W !,"I-695  intexpr contains gvn as expratom"
 S ^ABSN="11622",^ITEM="I-695  intexpr contains gvn as expratom",^NEXT="%829^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="E4+4 "
 S ^V1OVE(0)=1,^(1)=3 G E4+^V1OVE(1)+^(0)^V1OVE
 ;
829 W !,"I-676/829  Argument list ^routineref without postcondition"
 S ^ABSN="11623",^ITEM="I-676/829  Argument list ^routineref without postcondition",^NEXT="%830^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="^V1OVE "
 G ^V1OVE,^V1OVE
 ;
830 W !,"I-676/830  Argument list label^routineref without postcondition"
 S ^ABSN="11624",^ITEM="I-676/830  Argument list label^routineref without postcondition",^NEXT="%831^V1OV2,V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="E4 "
 G E4^V1OVE,ABD^V1OVE,E4^V1OVE
 ;
831 W !,"I-676/831  Argument list label+intexpr^routineref without postcondition"
 S ^ABSN="11625",^ITEM="I-676/831  Argument list label+intexpr^routineref without postcondition",^NEXT="V1DO^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="E4+2 "
 G E4+2^V1OVE,E4+3^V1OVE,E4+1^V1OVE

V1OVE
V1OVE ;IW-YS-TS,V1OV,MVTS V9.10;15/6/96;GOTO (OVERLAY) COMMAND
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCOMP=^VCOMP_"^V1OVE " G EXAMINER ;678, 829
E1 S ^VCOMP=^VCOMP_"E1 " G EXAMINER ;677
 S ^VCOMP=^VCOMP_F_" " S F=2 G EXAMINER
 S ^VCOMP=^VCOMP_" ERROR 4 (F="_F_") " Q
%ZZ0090A S ^VCOMP=^VCOMP_"%ZZ0090A " G EXAMINER ;684
E2 S ^VCOMP=^VCOMP_"E2 " G EXAMINER ;677
E3 S ^VCOMP=^VCOMP_"E3 " G EXAMINER ;677
ABC S ^VCOMP=^VCOMP_"ABC " G EXAMINER ;679
% S ^VCOMP=^VCOMP_"% " G EXAMINER ;681
XYZ S ^VCOMP=^VCOMP_"XYZ " G R689^V1OV2 ;689
ZERO0 S ^VCOMP=^VCOMP_"ZERO0 " G EXAMINER ;687
000 S ^VCOMP=^VCOMP_"000 " G EXAMINER ;688
012 S ^VCOMP=^VCOMP_"012 " G EXAMINER ;689
00120 S ^VCOMP=^VCOMP_"00120 " G 690+03.99923000^V1OV2 ;690
0012 S ^VCOMP=^VCOMP_"0012 " G EXAMINER ;680
00 S ^VCOMP=^VCOMP_"00 " G EXAMINER ;690
%009900 S ^VCOMP=^VCOMP_"%009900 " G EXAMINER ;683
0 S ^VCOMP=^VCOMP_"0 " G EXAMINER ;692
 S ^VCOMP=^VCOMP_"0+1 " G EXAMINER ;693
 S ^VCOMP=^VCOMP_"0+2 " G 691+0.2-.5*-10^V1OV2 ;691
 S ^VCOMP=^VCOMP_"0+3 " G EXAMINER ;694
 S ^VCOMP=^VCOMP_"0+4 " G EXAMINER
ABD S ^VCOMP=^VCOMP_"ABD " G EXAMINER ;830
%ALPHA S ^VCOMP=^VCOMP_"%ALPHA " G EXAMINER ;682
E4 S ^VCOMP=^VCOMP_"E4 " G EXAMINER ;830
 S ^VCOMP=^VCOMP_"E4+1 " G EXAMINER ;831
 S ^VCOMP=^VCOMP_"E4+2 " G EXAMINER ;831
 S ^VCOMP=^VCOMP_"E4+3 " G EXAMINER ;831
 S ^VCOMP=^VCOMP_"E4+4 " G EXAMINER ;695
EXAMINER D ^VEXAMINE 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

V1DO
V1DO ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;DO COMMAND (LOCAL BRANCHING)  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1DO1 W !!,"128---V1DO1" D ^V1DO1
V1DO2 W !!,"129---V1DO2" D ^V1DO2
V1DO3 W !!,"130---V1DO3" D ^V1DO3
V1DO4 W !!,"131---V1DO4" D ^V1DO4
 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

V1DO1
V1DO1 ;IW-KO-TS,V1DO,MVTS V9.10;15/6/96;DO COMMAND (LOCAL BRANCHING) -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCORR="START"
 GOTO START
A S V=V_"A " Q
 S V="A ERROR"
 QUIT
A1 S V=V_"A1 " Q
SET S V=V_"SET " Q
START ;
 W !!,"128---V1DO1: DO command (local branching) -1-"
 W !!,"DO label",!
238 ;
239 W !,"I-238/239  label is a ""%"" followed by alpha and/or digit"
2381 S ^ABSN="11626",^ITEM="I-238/239.1  label is a %",^NEXT="2382^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO % S ^VCOMP=V,^VCORR="% "
 D ^VEXAMINE
 ;
2382 S ^ABSN="11627",^ITEM="I-238/239.2  label is a % followed by an alpha",^NEXT="2383^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO %A S ^VCOMP=V,^VCORR="%A " D ^VEXAMINE
 ;
2383 S ^ABSN="11628",^ITEM="I-238/239.3  label is a % followed by 7 alphas",^NEXT="2384^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %ABCDEFG
 S ^VCOMP=V,^VCORR="%ABCDEFG " D ^VEXAMINE
 ;
2384 S ^ABSN="11629",^ITEM="I-238/239.4  label is a % followed by a digit",^NEXT="2385^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO %0 S ^VCOMP=V,^VCORR="%0 " D ^VEXAMINE
 ;
2385 S ^ABSN="11630",^ITEM="I-238/239.5  label is a % followed by 2 digits",^NEXT="2386^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %90
 S ^VCOMP=V,^VCORR="%90 " D ^VEXAMINE
 ;
2386 S ^ABSN="11631",^ITEM="I-238/239.6  label is a % followed by 7 digits",^NEXT="2387^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %0000000 S ^VCOMP=V,^VCORR="%0000000 " D ^VEXAMINE
 ;
2387 S ^ABSN="11632",^ITEM="I-238/239.7  label is a % followed by another 7 digits",^NEXT="2388^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO %2345678 SET ^VCOMP=V,^VCORR="%2345678 " D ^VEXAMINE
 ;
2388 S ^ABSN="11633",^ITEM="I-238/239.8  label is a % followed by combination of an alpha and a digit",^NEXT="2389^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO %A1 S ^VCOMP=V,^VCORR="%A1 " D ^VEXAMINE
 ;
2389 S ^ABSN="11634",^ITEM="I-238/239.9  label is a % followed by combination of alphas and digits",^NEXT="23810^V1DO1,V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %A1B2C3D S ^VCOMP=V,^VCORR="%A1B2C3D " D ^VEXAMINE
 ;
23810 S ^ABSN="11635",^ITEM="I-238/239.10  label is a % followed by combination of digits and alphas",^NEXT="V1DO2^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %0A1B2C3 S ^VCOMP=V,^VCORR="%0A1B2C3 " D ^VEXAMINE
 ;
END W !!,"End of 128---V1DO1",!
 K  Q
 ;
Z S V=V_"Z " Q
% S V=V_"% " Q
%ABCDEFG S V=V_"%ABCDEFG " Q
%0000000 S V=V_"%0000000 " Q
12 S V=V_"12 " Q
%A S V=V_"%A " Q
100 S V=V_"100 " Q
%2345678 S V=V_"%2345678 " Q
%A1B2C3D S V=V_"%A1B2C3D " Q
Q S V=V_"Q " Q
%A1 S V=V_"%A1 " Q
DO S V=V_"DO "
 QUIT
ABCDEFGH S V=V_"ABCDEFGH " Q
0 S V=V_"0 " Q
1 S V=V_"1 " Q
01 S V=V_"01 " QUIT
%0A1B2C3 S V=V_"%0A1B2C3 " Q
IF S V=V_"IF " Q
%0 S V=V_"%0 " Q
Z012A S V=V_"Z012A " Q
%90 S V=V_"%90 " Q
0012 S V=V_"0012 " Q
10 S V=V_"10 " Q
012 S V=V_"012 " QUIT
00000000 S V=V_"00000000 " Q
ZXY987A0 S V=V_"ZXY987A0 "
 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
92345678 S V=V_"92345678 " Q
QUIT S V=V_"QUIT " ;IMPLICIT QUIT

V1DO2
V1DO2 ;IW-KO-TS,V1DO,MVTS V9.10;15/6/96;DO COMMAND (LOCAL BRANCHING) -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCORR="START"
 GOTO START
A S V=V_"A " Q
 S V="A ERROR"
 QUIT
A1 S V=V_"A1 " Q
SET S V=V_"SET " Q
START ;
 W !!,"129---V1DO2: DO command (local branching) -2-",!
236 W !,"I-236  label is an alpha followed by alpha and/or digit"
2361 S ^ABSN="11636",^ITEM="I-236.1  label is an alpha",^NEXT="2362^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO A S ^VCOMP=V,^VCORR="A " D ^VEXAMINE
 ;
2362 S ^ABSN="11637",^ITEM="I-236.2  label is a different alpha",^NEXT="2363^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D Q S ^VCOMP=V,^VCORR="Q " D ^VEXAMINE
 ;
2363 S ^ABSN="11638",^ITEM="I-236.3  label is a different alpha",^NEXT="2364^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D Z S ^VCOMP=V,^VCORR="Z " D ^VEXAMINE
 ;
2364 S ^ABSN="11639",^ITEM="I-236.4  label is 2 alphas",^NEXT="2365^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO DO S ^VCOMP=V,^VCORR="DO " D ^VEXAMINE
 ;
2365 S ^ABSN="11640",^ITEM="I-236.5  label is another 2 alphas",^NEXT="2366^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO IF S ^VCOMP=V,^VCORR="IF " D ^VEXAMINE
 ;
2366 S ^ABSN="11641",^ITEM="I-236.6  label is 4 alphas",^NEXT="2367^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D QUIT S ^VCOMP=V,^VCORR="QUIT " D ^VEXAMINE
 ;
2367 S ^ABSN="11642",^ITEM="I-236.7  label is 3 alphas",^NEXT="2368^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO SET S ^VCOMP=V,^VCORR="SET " D ^VEXAMINE
 ;
2368 S ^ABSN="11643",^ITEM="I-236.8  label is 8 alphas",^NEXT="2369^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D ABCDEFGH S ^VCOMP=V,^VCORR="ABCDEFGH " D ^VEXAMINE
 ;
2369 S ^ABSN="11644",^ITEM="I-236.9  label is an alpha followed by combination of an alpha and a digit",^NEXT="23610^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D A1 S ^VCOMP=V,^VCORR="A1 " D ^VEXAMINE
 ;
23610 S ^ABSN="11645",^ITEM="I-236.10  label is an alpha followed by combination of digits and an alpha",^NEXT="23611^V1DO2,V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D Z012A S ^VCOMP=V,^VCORR="Z012A " D ^VEXAMINE
 ;
23611 S ^ABSN="11646",^ITEM="I-236.11  label is an alpha followed by combination of alphas and digits",^NEXT="V1DO3^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D ZXY987A0 S ^VCOMP=V,^VCORR="ZXY987A0 " D ^VEXAMINE
 ;
END W !!,"End of 129---V1DO2",!
 K  Q
 ;
Z S V=V_"Z " Q
% S V=V_"% " Q
%ABCDEFG S V=V_"%ABCDEFG " Q
%0000000 S V=V_"%0000000 " Q
12 S V=V_"12 " Q
%A S V=V_"%A " Q
100 S V=V_"100 " Q
%2345678 S V=V_"%2345678 " Q
%A1B2C3D S V=V_"%A1B2C3D " Q
Q S V=V_"Q " Q
%A1 S V=V_"%A1 " Q
DO S V=V_"DO "
 QUIT
ABCDEFGH S V=V_"ABCDEFGH " Q
0 S V=V_"0 " Q
1 S V=V_"1 " Q
01 S V=V_"01 " QUIT
%0A1B2C3 S V=V_"%0A1B2C3 " Q
IF S V=V_"IF " Q
%0 S V=V_"%0 " Q
Z012A S V=V_"Z012A " Q
%90 S V=V_"%90 " Q
0012 S V=V_"0012 " Q
10 S V=V_"10 " Q
012 S V=V_"012 " QUIT
00000000 S V=V_"00000000 " Q
ZXY987A0 S V=V_"ZXY987A0 "
 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
92345678 S V=V_"92345678 " Q
QUIT S V=V_"QUIT " ;IMPLICIT QUIT

V1DO3
V1DO3 ;IW-KO-TS,V1DO,MVTS V9.10;15/6/96;DO COMMAND (LOCAL BRANCHING) -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCORR="START"
 GOTO START
A S V=V_"A " Q
 S V="A ERROR"
 QUIT
A1 S V=V_"A1 " Q
SET S V=V_"SET " Q
START ;
 W !!,"130---V1DO3: DO command (local branching) -3-",!
 ;
237 W !,"I-237  label is intlit"
 S ^ABSN="11647",^ITEM="I-237.1  label is 0",^NEXT="2372^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" DO 0 S ^VCOMP=V,^VCORR="0 " D ^VEXAMINE
2372 S ^ABSN="11648",^ITEM="I-237.2  label is 1",^NEXT="2373^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 1 S ^VCOMP=V,^VCORR="1 " D ^VEXAMINE
2373 S ^ABSN="11649",^ITEM="I-237.3  label is 01",^NEXT="2374^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 01 S ^VCOMP=V,^VCORR="01 " D ^VEXAMINE
2374 S ^ABSN="11650",^ITEM="I-237.4  label is 10",^NEXT="2375^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 10 S ^VCOMP=V,^VCORR="10 " D ^VEXAMINE
2375 S ^ABSN="11651",^ITEM="I-237.5  label is 12",^NEXT="2376^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 12 S ^VCOMP=V,^VCORR="12 " D ^VEXAMINE
2376 S ^ABSN="11652",^ITEM="I-237.6  label is 100",^NEXT="2377^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 100 S ^VCOMP=V,^VCORR="100 " D ^VEXAMINE
2377 S ^ABSN="11653",^ITEM="I-237.7  label is 012",^NEXT="2378^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 012 S ^VCOMP=V,^VCORR="012 " D ^VEXAMINE
2378 S ^ABSN="11654",^ITEM="I-237.8  label is 0012",^NEXT="2379^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V="" D 0012 S ^VCOMP=V,^VCORR="0012 " D ^VEXAMINE
2379 S ^ABSN="11655",^ITEM="I-237.9  label is 92345678; 8 digits",^NEXT="23710^V1DO3,V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 92345678 S ^VCOMP=V,^VCORR="92345678 " D ^VEXAMINE
23710 S ^ABSN="11656",^ITEM="I-237.10  label is 00000000; 8 digits",^NEXT="V1DO4^V1DO,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 00000000 S ^VCOMP=V,^VCORR="00000000 " D ^VEXAMINE
 ;
END W !!,"End of 130---V1DO3",!
 K  Q
 ;
Z S V=V_"Z " Q
% S V=V_"% " Q
%ABCDEFG S V=V_"%ABCDEFG " Q
%0000000 S V=V_"%0000000 " Q
12 S V=V_"12 " Q
%A S V=V_"%A " Q
100 S V=V_"100 " Q
%2345678 S V=V_"%2345678 " Q
%A1B2C3D S V=V_"%A1B2C3D " Q
Q S V=V_"Q " Q
%A1 S V=V_"%A1 " Q
DO S V=V_"DO "
 QUIT
ABCDEFGH S V=V_"ABCDEFGH " Q
0 S V=V_"0 " Q
1 S V=V_"1 " Q
01 S V=V_"01 " QUIT
%0A1B2C3 S V=V_"%0A1B2C3 " Q
IF S V=V_"IF " Q
%0 S V=V_"%0 " Q
Z012A S V=V_"Z012A " Q
%90 S V=V_"%90 " Q
0012 S V=V_"0012 " Q
10 S V=V_"10 " Q
012 S V=V_"012 " QUIT
00000000 S V=V_"00000000 " Q
ZXY987A0 S V=V_"ZXY987A0 "
 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
92345678 S V=V_"92345678 " Q
QUIT S V=V_"QUIT " ;IMPLICIT QUIT

V1DO4
V1DO4 ;IW-KO-TS,V1DO,MVTS V9.10;15/6/96;DO COMMAND (LOCAL BRANCHING) -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 ;
 W !!,"131---V1DO4: DO command (local branching) -4-"
 W !!,"DO label+intexpr",!
 G 240
 S V=V_"AAA " Q  ;V1DO4+6
 S V=V_"BBB " Q
 S V=V_"CCC " Q
00000000 S V=V_"00000000 " Q
240 W !,"I-240  intexpr is positive integer"
 S ^ABSN="11657",^ITEM="I-240  intexpr is positive integer",^NEXT="241^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO 1+1
 S ^VCOMP=V,^VCORR="01 " D ^VEXAMINE
 ;
241 W !,"I-241  intexpr is zero"
 S ^ABSN="11658",^ITEM="I-241  intexpr is zero",^NEXT="242^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 00000000+0 S ^VCOMP=V,^VCORR="00000000 " D ^VEXAMINE
 ;
242 W !,"I-242  intexpr is non-integer numlit"
 S ^ABSN="11659",^ITEM="I-242  intexpr is non-integer numlit",^NEXT="243^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 012+01.99999
 S ^VCOMP=V,^VCORR="ZXY987A0 " D ^VEXAMINE
 ;
243 W !,"I-243  intexpr is a function"
 S ^ABSN="11660",^ITEM="I-243  intexpr is a function",^NEXT="244^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %2345678+$L(0.23000)
 S ^VCOMP=V,^VCORR="%A1 " D ^VEXAMINE
 ;
244 W !,"I-244  intexpr is a gvn"
 S ^ABSN="11661",^ITEM="I-244  intexpr is a gvn",^NEXT="245^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 S ^V1DO4=7 D V1DO4+^V1DO4
 S ^VCOMP=V,^VCORR="BBB " D ^VEXAMINE
 ;
245 W !,"I-245  intexpr contains binary operators"
2451 S ^ABSN="11662",^ITEM="I-245.1  + operator",^NEXT="2452^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 12+-15+"17A"
 S ^VCOMP=V,^VCORR="100 " D ^VEXAMINE
 ;
2452 S ^ABSN="11663",^ITEM="I-245.2  _ operator",^NEXT="2453^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 DO IF+("0"_2)
 S ^VCOMP=V,^VCORR="Z012A " D ^VEXAMINE
 ;
2453 S ^ABSN="11664",^ITEM="I-245.3  Combination binary operators",^NEXT="246^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 S A=1 DO V1DO4+A+A*2+A+A+A+A+A+A+A+A+A+A-A-A-A-"1A"=10+8-1
 S ^VCOMP=V,^VCORR="CCC " D ^VEXAMINE
 ;
246 W !,"I-246  intexpr contains unary operators"
 S ^ABSN="11665",^ITEM="I-246  intexpr contains unary operators",^NEXT="247^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D 12+++-"-.037E+2"
 S ^VCOMP=V,^VCORR="IF " D ^VEXAMINE
 ;
247 W !,"I-247  intexpr contains gvn as expratom"
 S ^ABSN="11666",^ITEM="I-247  intexpr contains gvn as expratom",^NEXT="832^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 S ^V1A(2)=9765,^V1A(3)=9733
 D %0A1B2C3+^V1A(2)-^(3)/10
 S ^VCOMP=V,^VCORR="10 " D ^VEXAMINE
 ;
832 W !,"I-832  Argument list label without postcondition"
 S ^ABSN="11667",^ITEM="I-832  Argument list label without postcondition",^NEXT="833^V1DO4,V1CALL^VV1" D ^V1PRESET
 S V=""
 D %,%0A1B2C3,DO,012
 S ^VCOMP=V,^VCORR="% %0A1B2C3 DO 012 " D ^VEXAMINE
 ;
833 W !,"I-833  Argument list label+intexpr without postcondition"
 S ^ABSN="11668",^ITEM="I-833  Argument list label+intexpr without postcondition",^NEXT="V1CALL^VV1" D ^V1PRESET
 S V=""
 S ^V1A(2)=9765,^V1A(3)=9733
 D %0A1B2C3+^V1A(2)-^(3)/10,%2345678+$L(0.23000),Z,1+1
 S ^VCOMP=V,^VCORR="10 %A1 Z 01 " D ^VEXAMINE
 ;
END W !!,"End of 131---V1DO4",!
 K  K ^V1DO4,^V1A 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
 ;
012 S V=V_"012 " QUIT
 S V=V_"ZXY987A0 " Q
Z S V=V_"Z " Q
% S V=V_"% " Q
%2345678 S V=V_"%2345678 " Q
 S V=V_"%A1B2C3D " Q
 S V=V_"Q " Q
 S V=V_"%A1 " Q
DO S V=V_"DO "
 QUIT
12 S V=V_"12 " Q
 S V=V_"%A " Q
 S V=V_"100 " Q
IF S V=V_"IF " Q
 S V=V_"%0 " Q
 S V=V_"Z012A " Q
ABCDEFGH S V=V_"ABCDEFGH " Q
0 S V=V_"0 " Q
 QUIT
1 S V=V_"1 " Q
 S V=V_"01 " QUIT
%0A1B2C3 S V=V_"%0A1B2C3 " Q
 S V=V_"%90 " Q
 S V=V_"0012 " Q
 S V=V_"10 " Q

V1CALL
V1CALL ;IW-YS-KO-TS,VV1,MVTS V9.10;15/6/96;DO (CALL) COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1CALL1 W !!,"132---V1CALL1" D ^V1CALL1
V1CALL2 W !!,"133---V1CALL2" D ^V1CALL2
 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

V1CALL1
V1CALL1 ;IW-KO-TS,V1CALL,MVTS V9.10;15/6/96;DO (CALL) COMMAND  -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"132---V1CALL1: DO command  ( call external routine )  -1-",!
172 W !,"I-172  Argument list"
 S ^ABSN="11669",^ITEM="I-172  Argument list",^NEXT="173^V1CALL1,V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 DO 1^V1CALLE,2^V1CALLE,IF^V1CALLE
 S ^VCORR="1 2 IF " D ^VEXAMINE
 ;
173 W !,"I-173  ^routineref"
 S ^ABSN="11670",^ITEM="I-173  ^routineref",^NEXT="174^V1CALL1,V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 DO ^V1CALLE S ^VCOMP=^VCOMP_"CONTI"
 S ^VCORR="1 CONTI" D ^VEXAMINE
 ;
174 W !!,"DO label^routineref",!
 W !,"I-174  label^routineref  label is alphas"
 S ^ABSN="11671",^ITEM="I-174  label^routineref  label is alphas",^NEXT="175^V1CALL1,V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D AABBCC^V1CALLE D Z^V1CALLE,DO^V1CALLE
 S ^VCORR="AABBCC Z DO " D ^VEXAMINE
 ;
175 W !,"I-175  label^routineref  label is a intlit"
 S ^ABSN="11672",^ITEM="I-175  label^routineref  label is a intlit",^NEXT="176^V1CALL1,V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D 2^V1CALLE D 012^V1CALLE,0^V1CALLE
 S ^VCORR="2 012 0 " D ^VEXAMINE
 ;
176 W !,"I-176  label^routineref  label is % and alphas"
 S ^ABSN="11673",^ITEM="I-176  label^routineref  label is % and alphas",^NEXT="177^V1CALL1,V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D %ABC^V1CALLE DO %^V1CALLE
 S ^VCORR="%ABC % " D ^VEXAMINE
 ;
177 W !,"I-177  label^routineref  label is % and digits"
 S ^ABSN="11674",^ITEM="I-177  label^routineref  label is % and digits",^NEXT="V1CALL2^V1CALL,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D %0000000^V1CALLE,%2345678^V1CALLE
 S ^VCORR="%0000000 %2345678 " D ^VEXAMINE
 ;
END W !!,"End of 132---V1CALL1",!
 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

V1CALL2
V1CALL2 ;IW-KO-TS,V1CALL,MVTS V9.10;15/6/96;DO (CALL) COMMAND  -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"133---V1CALL2: DO command  ( call external routine )  -2-",!
 ;
178 W !!,"DO label+intexpr^routineref",!
 W !,"I-178  intexpr is positive integer"
 S ^ABSN="11675",^ITEM="I-178  intexpr is positive integer",^NEXT="179^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D 2+1^V1CALLE D %2345678+0002^V1CALLE,V1CALLE+08^V1CALLE
 S ^VCORR="3 Q 7 " D ^VEXAMINE
 ;
179 W !,"I-179  intexpr is zero"
 S ^ABSN="11676",^ITEM="I-179  intexpr is zero",^NEXT="180^V1CALL2,V1IE^VV1" D ^V1PRESET
 ;(test fixed in V9.1;7/10/95)
 S ^VCOMP=""
 DO ABCDEFGH+--"NUMBER"^V1CALLE
 S ^VCORR="ABCDEFGH " D ^VEXAMINE
 ;
180 W !,"I-180  intexpr is non-integer numlit"
 S ^ABSN="11677",^ITEM="I-180  intexpr is non-integer numlit",^NEXT="181^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D 012+3.99999^V1CALLE
 S ^VCORR="% " D ^VEXAMINE
 ;
181 W !,"I-181  intexpr contains binaryops"
 S ^ABSN="11678",^ITEM="I-181  intexpr contains binaryops",^NEXT="182^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D V1CALLE+7-11+12^V1CALLE
 S ^VCORR="7 " D ^VEXAMINE
 ;
182 W !,"I-182  intexpr contains a unaryop"
 S ^ABSN="11679",^ITEM="I-182  intexpr contains a unaryop",^NEXT="183^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D IF+'0^V1CALLE
 S ^VCORR="%0 " D ^VEXAMINE
 ;
183 W !,"I-183  intexpr is a function"
 S ^ABSN="11680",^ITEM="I-183  intexpr is a function",^NEXT="184^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D %2345678+$P("2,4,1,3^4",",",4)^V1CALLE
 S ^VCORR="%A1 " D ^VEXAMINE
 ;
184 W !,"I-184  intexpr is a gvn"
 S ^ABSN="11681",^ITEM="I-184  intexpr is a gvn",^NEXT="185^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1A=11 D 1+^V1A^V1CALLE
 S ^VCORR="AABBCC " D ^VEXAMINE
 ;
185 W !,"I-185  intexpr contains gvn as expratom"
 S ^ABSN="11682",^ITEM="I-185  intexpr contains gvn as expratom",^NEXT="834^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1A=11 D Z+-20+^V1A+^V1A^V1CALLE
 S ^VCORR="%2345678 " D ^VEXAMINE
 ;
834 W !,"I-834  Argument list ^routineref without postcondition"
 S ^ABSN="11683",^ITEM="I-834  Argument list ^routineref without postcondition",^NEXT="835^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D ^V1CALLE,^V1CALLE,^V1CALLE
 S ^VCORR="1 1 1 " D ^VEXAMINE
 ;
835 W !,"I-835  Argument list label^routineref without postcondition"
 S ^ABSN="11684",^ITEM="I-835  Argument list label^routineref without postcondition",^NEXT="836^V1CALL2,V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D AABBCC^V1CALLE,Z^V1CALLE,DO^V1CALLE,%0000000^V1CALLE
 S ^VCORR="AABBCC Z DO %0000000 " D ^VEXAMINE
 ;
836 W !,"I-836  Argument list label+intexpr^routineref without postcondition"
 S ^ABSN="11685",^ITEM="I-836  Argument list label+intexpr^routineref without postcondition",^NEXT="V1IE^VV1" D ^V1PRESET
 S ^VCOMP=""
 D 012+3.999^V1CALLE,%0A1B2C3+3^V1CALLE,ABCDEFGH+--"04ENUMBER"^V1CALLE,^V1CALLE
 S ^VCORR="% 10 01 1 " D ^VEXAMINE
 ;
END W !!,"End of 133---V1CALL2",!
 K  K ^V1A 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

V1CALLE
V1CALLE ;IW-KO-TS,V1CALL,MVTS V9.10;15/6/96;DO (CALL) COMMAND
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
1 S ^VCOMP=^VCOMP_"1 " Q  S ^VCOMP=^VCOMP_"QUIT ERROR"
2 S ^VCOMP=^VCOMP_"2 " Q
3 S ^VCOMP=^VCOMP_"3 " Q
4 S ^VCOMP=^VCOMP_"4 " Q
5 S ^VCOMP=^VCOMP_"5 " Q
6 S ^VCOMP=^VCOMP_"6 " Q
7 S ^VCOMP=^VCOMP_"7 " Q  ;V1CALLE+8
8 S ^VCOMP=^VCOMP_"8 " Q
9 S ^VCOMP=^VCOMP_"9 " Q
10 S ^VCOMP=^VCOMP_"10 " Q
%ABC S ^VCOMP=^VCOMP_"%ABC " QUIT
AABBCC S ^VCOMP=^VCOMP_"AABBCC " Q
%0000000 S ^VCOMP=^VCOMP_"%0000000 " Q
012 S ^VCOMP=^VCOMP_"012 " QUIT
 S ^VCOMP=^VCOMP_"ZXY987A0 " Q
Z S ^VCOMP=^VCOMP_"Z " Q
% S ^VCOMP=^VCOMP_"% " Q
%2345678 S ^VCOMP=^VCOMP_"%2345678 " Q
 S ^VCOMP=^VCOMP_"%A1B2C3D " Q
 S ^VCOMP=^VCOMP_"Q " Q
 S ^VCOMP=^VCOMP_"%A1 " Q
DO S ^VCOMP=^VCOMP_"DO "
 QUIT
12 S ^VCOMP=^VCOMP_"12 " Q
 S ^VCOMP=^VCOMP_"%A " Q
 S ^VCOMP=^VCOMP_"100 " Q
IF S ^VCOMP=^VCOMP_"IF " Q
 S ^VCOMP=^VCOMP_"%0 " Q
 S ^VCOMP=^VCOMP_"Z012A " Q
ABCDEFGH S ^VCOMP=^VCOMP_"ABCDEFGH " Q
0 S ^VCOMP=^VCOMP_"0 " Q
 QUIT
 S ^VCOMP=^VCOMP_"1 " Q
 S ^VCOMP=^VCOMP_"01 " QUIT
%0A1B2C3 S ^VCOMP=^VCOMP_"%0A1B2C3 " Q
 S ^VCOMP=^VCOMP_"%90 " Q
 S ^VCOMP=^VCOMP_"0012 " Q
 S ^VCOMP=^VCOMP_"10 " 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

V1IE
V1IE ;IW-YS-KO-TS,VV1,MVTS V9.10;15/6/96;IF, ELSE AND $TEST  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1IE1 W !!,"134---V1IE1" D ^V1IE1
V1IE2 W !!,"135---V1IE2" D ^V1IE2
 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

V1IE1
V1IE1 ;IW-YS-KO-TS,V1IE,MVTS V9.10;15/6/96;IF, ELSE AND $TEST -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"134---V1IE1: IF, ELSE, $TEST -1-",!
518 W !,"I-518  tvexpr contains binary operator"
5181 S ^ABSN="11686",^ITEM="I-518.1  tvexpr is true",^NEXT="5182^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 1=1 S VCOMP=VCOMP_3
 E  S VCOMP=VCOMP_"ERROR 3"
 S ^VCOMP=VCOMP,^VCORR="3" D ^VEXAMINE
 ;
5182 S ^ABSN="11687",^ITEM="I-518.2  tvexpr is false",^NEXT="519^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 2=3 S VCOMP=VCOMP_"ERROR 4"
 E  S VCOMP=VCOMP_4
 S ^VCOMP=VCOMP,^VCORR="4" D ^VEXAMINE
 ;
519 W !,"I-519  tvexpr contains unary operator"
 S ^ABSN="11688",^ITEM="I-519  tvexpr contains unary operator",^NEXT="520^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I '0.0,+(10.0),-.01 S ^VCOMP=^VCOMP_519 ;comment
 E  S ^VCOMP=^VCOMP_"ERROR 519"
 S ^VCORR="519" D ^VEXAMINE
 ;
520 W !,"I-520  tvexpr is string literal"
5201 S ^ABSN="11689",^ITEM="I-520.1  ""ABC""",^NEXT="5202^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I "ABC" S ^VCOMP=^VCOMP_"ERROR 0"
 E  S ^VCOMP=^VCOMP_0
 S ^VCORR="0" D ^VEXAMINE
 ;
5202 S ^ABSN="11690",^ITEM="I-520.2  ""1ABC""",^NEXT="5203^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S VCOMP="" I "1ABC" S VCOMP=VCOMP_1
 E  S VCOMP=VCOMP_"ERROR 1"
 S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
 ;
5203 S ^ABSN="11691",^ITEM="I-520.3  "".05EEE""",^NEXT="521^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I ".05EEE" S ^VCOMP=^VCOMP_2
 E  S ^VCOMP=^VCOMP_"ERROR 2"
 S ^VCORR="2" D ^VEXAMINE
 ;
521 W !,"I-521  tvexpr is an empty string"
 S ^ABSN="11692",^ITEM="I-521  tvexpr is an empty string",^NEXT="522^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I "" S ^VCOMP=^VCOMP_"empty"
 E  S ^VCOMP=^VCOMP_"**empty**"
 S ^VCORR="**empty**" D ^VEXAMINE
 ;
522 W !,"I-522  tvexpr is integer"
 S ^ABSN="11693",^ITEM="I-522  tvexpr is integer",^NEXT="523^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I 9998765 S ^VCOMP=^VCOMP_522
 E  S ^VCOMP=^VCOMP_"ERROR 522"
 S ^VCORR="522" D ^VEXAMINE
 ;
523 W !,"I-523  tvexpr is non-integer"
 S ^ABSN="11694",^ITEM="I-523  tvexpr is non-integer",^NEXT="524^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I 0000.00005000 S ^VCOMP=^VCOMP_523
 E  S ^VCOMP=^VCOMP_"ERROR 523"
 S ^VCORR="523" D ^VEXAMINE
 ;
524 W !,"I-524  ELSE command, while $T=1"
 S ^ABSN="11695",^ITEM="I-524  ELSE command, while $T=1",^NEXT="525^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" IF 1 S ^VCOMP=^VCOMP_" "
 E  S ^VCOMP=^VCOMP_"ERROR 524"
 S ^VCORR=" " D ^VEXAMINE
 ;
525 W !,"I-525  ELSE command, while $T=0"
 S ^ABSN="11696",^ITEM="I-525  ELSE command, while $T=0",^NEXT="526^V1IE1,V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" IF 0 S ^VCOMP=^VCOMP_" "
 E  S ^VCOMP=^VCOMP_"525"
 S ^VCORR="525" D ^VEXAMINE
 ;
526 W !,"I-526  Argumentless IF command, while $T=1"
 S ^ABSN="11697",^ITEM="I-526  Argumentless IF command, while $T=1",^NEXT="V1IE2^V1IE,V1PC^VV1" D ^V1PRESET
 S ^VCOMP=""
 I 1 S ^VCOMP=^VCOMP_" " S:0 ^VCOMP=^VCOMP_" " I  S ^VCOMP=^VCOMP_"//"_$TEST
 I  S ^VCOMP=^VCOMP_"//"_$TEST
 E  S ^VCOMP=^VCOMP_"ERROR 526"
 S ^VCORR=" //1//1" D ^VEXAMINE
 ;
END W !!,"End of 134---V1IE1",!
 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

V1IE2
V1IE2 ;IW-YS-KO-TS,V1IE,MVTS V9.10;15/6/96;IF, ELSE AND $TEST -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"135---V1IE2: IF, ELSE, $TEST -2-",!
527 W !,"I-527  Argumentless IF command, while $T=0"
 S ^ABSN="11698",^ITEM="I-527  Argumentless IF command, while $T=0",^NEXT="528^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 0 S:1 VCOMP=VCOMP_" " I
 I  S VCOMP=VCOMP_"!!"
 I  S VCOMP=VCOMP_"//"_$TEST E  S VCOMP=VCOMP_"//"_$TEST
 E  S VCOMP=VCOMP_"\\"_$TEST I  S VCOMP=VCOMP_"//"_$TEST
 S ^VCOMP=VCOMP,^VCORR="\\0" D ^VEXAMINE
 ;
528 W !,"I-528  Equal operator (=) in ifargument"
5281 S ^ABSN="11699",^ITEM="I-528.1  IF $TEST=1",^NEXT="5282^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP="" I 0
 IF $TEST=1 S VCOMP=VCOMP_"ERROR 530.4"
 E  S VCOMP=VCOMP_"530.4"
 S ^VCOMP=VCOMP,^VCORR="530.4" D ^VEXAMINE
 ;
5282 S ^ABSN="11700",^ITEM="I-528.2  ifargument list is true",^NEXT="5283^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 1=1,2=2,3=3,4=4,-1=-1,0001.0100-1.01=0 S VCOMP=VCOMP_5
 E  S VCOMP=VCOMP_"ERROR 5"
 S ^VCOMP=VCOMP,^VCORR="5" D ^VEXAMINE
 ;
5283 S ^ABSN="11701",^ITEM="I-528.3  ifargument list is false",^NEXT="5284^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 1=1,2=3,3=3,4=4,-1=-1 S VCOMP=VCOMP_"ERROR 6"
 E  S VCOMP=VCOMP_6
 S ^VCOMP=VCOMP,^VCORR="6" D ^VEXAMINE
 ;
5284 S ^ABSN="11702",^ITEM="I-528.4  ifargument is 0=""""",^NEXT="5285^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 I 0="" S VCOMP=VCOMP_"ERROR 7"
 E  S VCOMP=VCOMP_7
 S ^VCOMP=VCOMP,^VCORR="7" D ^VEXAMINE
 ;
5285 S ^ABSN="11703",^ITEM="I-528.5  ifargument contains lvn; all ifargument are true",^NEXT="5286^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 S A=1,B=999,C="ABC" I A=1,B=999,C="ABC" S VCOMP=VCOMP_8
 E  S VCOMP=VCOMP_"ERROR 8"
 S ^VCOMP=VCOMP,^VCORR="8" D ^VEXAMINE
 ;
5286 S ^ABSN="11704",^ITEM="I-528.6  ifargument contains lvn; a ifargument is false",^NEXT="529^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP=""
 S A=1,B=999,C="ABC" I A=1,B=999,C=0 S VCOMP=VCOMP_"ERROR 9"
 E  S VCOMP=VCOMP_9
 S ^VCOMP=VCOMP,^VCORR="9" D ^VEXAMINE
 ;
529 W !,"I-529  Effect on $TEST by executing IF command"
5291 S ^ABSN="11705",^ITEM="I-529.1  ifargument is true",^NEXT="5292^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP="" I 1 S VCOMP=VCOMP_$TEST
 E  S VCOMP=VCOMP_"ERROR 10"
 S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
 ;
5292 S ^ABSN="11706",^ITEM="I-529.2  ifargument is false",^NEXT="530^V1IE2,V1PC^VV1" D ^V1PRESET
 S VCOMP="" I 0 S VCOMP=VCOMP_"ERROR 11"
 E  S VCOMP=VCOMP_$T
 S ^VCOMP=VCOMP,^VCORR="0" D ^VEXAMINE
 ;
530 W !,"I-530  $TEST included in ifargument"
5301 S ^ABSN="11707",^ITEM="I-530.1  $T=1",^NEXT="5302^V1IE2,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I 0
 I 1,$T S ^VCOMP=^VCOMP_"11"
 E  S ^VCOMP=^VCOMP_"ERROR 12"
 S ^VCORR="11" D ^VEXAMINE
 ;
5302 S ^ABSN="11708",^ITEM="I-530.2  $T=1 another",^NEXT="5303^V1IE2,V1PC^VV1" D ^V1PRESET
 S ^VCOMP=""
 I 1
 I $T,$T S ^VCOMP=^VCOMP_13
 E  S ^VCOMP=^VCOMP_"ERROR 13"
 S ^VCORR="13" D ^VEXAMINE
 ;
5303 S ^ABSN="11709",^ITEM="I-530.3  $T=0",^NEXT="531^V1IE2,V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" I 0
 I '$T,$T,$T S ^VCOMP=^VCOMP_12
 E  S ^VCOMP=^VCOMP_"ERROR 12"
 S ^VCORR="12" D ^VEXAMINE
 ;
531 W !,"I-531  Interpretation sequence of ifargument"
 S ^ABSN="11710",^ITEM="I-531  Interpretation sequence of ifargument",^NEXT="V1PC^VV1" D ^V1PRESET
 S ^VCOMP="" K A I $D(A),A S ^VCOMP=^VCOMP_"ERROR 15"
 E  S ^VCOMP=^VCOMP_14
 S ^VCORR="14" D ^VEXAMINE
 ;
END W !!,"End of 135---V1IE2",!
 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

V1PC
V1PC ;IW-YS-MM-TS,VV1,MVTS V9.10;15/6/96;POST-CONDITIONALS  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1PCA W !!,"136---V1PCA" D ^V1PCA
V1PCB W !!,"137---V1PCB" D ^V1PCB
V1PCC W !!,"138---V1PCC" D ^V1PCC
 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

V1PCA
V1PCA ;IW-YS-MM-TS,V1PC,MVTS V9.10;15/6/96;POST-CONDITIONALS -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"136---V1PCA: Post conditionals -1-",! W:$Y>55 #
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (136---V1PCA) contains 2 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
712 W !,"I-712  WRITE command"
7121 S ^ABSN="11711",^ITEM="I-712.1  Postcondition contains = operator (by OPERATOR)",^NEXT="7122^V1PCA,V1PCB^V1PC,V1FORA^VV1" D ^V1PRESET
 W:$Y>55 #
 W !,"       Following two lines should be identical:"
 W !,"   Postcondition pass  "
 WRITE:1=1 !,"   Postcondition pass  " W:1=2 !,"** Postcondition FAIL  "
 WRITE:1=2 !,"** Postcondition FAIL  "
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 712
 ;
7122 S ^ABSN="11712",^ITEM="I-712.2  Postcondition contains lvn (by OPERATOR)",^NEXT="713^V1PCA,V1PCB^V1PC,V1FORA^VV1" D ^V1PRESET
 W:$Y>55 #
 W !,"       Following two lines should be identical:"
 W !,"   lvn PASS  "
 S PC=2 W:PC=1 !,"** lvn FAIL  " W:PC=2 !,"   lvn PASS  "
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 7122
 ;
713 W !,"I-713  SET command"
7131 S ^ABSN="11713",^ITEM="I-713.1  Local",^NEXT="7132^V1PCA,V1PCB^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",PC=2
 S ^VCOMP=^VCOMP_4 SET:1=1 ^VCOMP=^VCOMP_"C"
 S ^VCOMP=^VCOMP_"D" S:PC=1 ^VCOMP=^VCOMP_5
 S ^VCORR="4CD" D ^VEXAMINE
 ;
7132 S ^ABSN="11714",^ITEM="I-713.2  Global",^NEXT="V1PCB^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^V1PC1=2 K ^V
 S:$D(^V)=0 ^V(1,2)=12 S ^VCOMP=^VCOMP_$D(^V)_" "_^V(1,2)_" "
 S:$D(^V(1))=0 ^V(3)=1 S ^VCOMP=^VCOMP_$D(^V(3))_" "
 S:^V1PC1=2 (A,B,C(1),D(20,21),^V)=110 S:^V1PC1=2.01 (A,B,^V)=10
 S ^VCOMP=^VCOMP_A_B_C(1)_D(20,21)_^V
 S ^VCORR="10 12 0 110110110110110" D ^VEXAMINE
 ;
END W !!,"End of 136---V1PCA",!
 K  K ^V,^V1PC1 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

V1PCB
V1PCB ;IW-YS-MM-TS,V1PC,MVTS V9.10;15/6/96;POST-CONDITIONALS -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"137---V1PCB: Post conditionals -2-",! W:$Y>55 #
 ;
%714 D 714 D ^VEXAMINE
%715 D 715 D ^VEXAMINE
%837 D 837 D ^VEXAMINE
%838 D 838 D ^VEXAMINE
%839 D 839 D ^VEXAMINE
%840 D 840 D ^VEXAMINE
%841 D 841 D ^VEXAMINE
 ;
END W !!,"End of 137---V1PCB",!
 K  K ^V,^V1PC1 Q
 ;
714 W !,"I-714  GOTO command ( command word )"
 S ^ABSN="11715",^ITEM="I-714  GOTO command ( command word )",^NEXT="%715^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="1 7141 "
 GOTO:0 BUG S ^VCOMP=^VCOMP_"1 "
 GOTO:1 7141 S ^VCOMP=^VCOMP_"++1"
 S ^VCOMP=^VCOMP_"++2" Q
 ;
715 W !,"I-715  GOTO command ( argument )"
 S ^ABSN="11716",^ITEM="I-715  GOTO command ( argument )",^NEXT="%837^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="2 4 "
 G ENTER^V1PC1:2=1 S ^VCOMP=^VCOMP_"2 "
 G ENTERY^V1PC1:10.0=1E1 S ^VCOMP=^VCOMP_"-3 "
 S ^VCOMP=^VCOMP_"--3 " Q
 ;
837 W !,"I-837  GOTO with postconditionalized label list"
 S ^ABSN="11717",^ITEM="I-837  GOTO with postconditionalized label list",^NEXT="%838^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="B1 3 D1 E1 ",PC=2 G B1:PC=2=1,BUG Q
 ;
838 W !,"I-838  GOTO with postconditionalized label+intexpr list"
 S ^ABSN="11718",^ITEM="I-838  GOTO with postconditionalized label+intexpr list",^NEXT="%839^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="TABLE+1 00000000+1 RAPID+2 00000000+5 "
 S PC=2,^V1PC1(1)=1 G:$D(PC) BUG+2:" ,"=",",TABLE+1:$F(1E-2,".")
 ;
839 W !,"I-839  GOTO with postconditionalized ^routineref list"
 S ^ABSN="11719",^ITEM="I-839  GOTO with postconditionalized ^routineref list",^NEXT="%840^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="^V1PC11 ^V1PC12 " D 8391 D 8392 G 8393
 ;
840 W !,"I-840  GOTO with postconditionalized label^routineref list"
 S ^ABSN="11720",^ITEM="I-840  GOTO with postconditionalized label^routineref list",^NEXT="%841^V1PCB,V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="A LABEL D 0010 F " K ^V1PC1
 S PC=2 G A^V1PC1:1/1,BUG^V1PC1:1000*0
 ;
841 W !,"I-841  GOTO with postconditionalized label+intexpr^routineref list"
 S ^ABSN="11721",^ITEM="I-841  GOTO with postconditionalized label+intexpr^routineref list",^NEXT="V1PCC^V1PC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="",^VCORR="%DRAFT+3 %DRAFT+4 123456"
 S PC=03.000 G:"A"=$E("ABC",1) %DRAFT+3^V1PC1:$E(PC,1)=3,%DRAFT+1^V1PC1
 ;
B1 S ^VCOMP=^VCOMP_"B1 " G:$P("101010",1,3) A1,BUG S ^VCOMP=^VCOMP_"3 " ;837
 G D1:1-1=0,A1:1 S ^VCOMP=^VCOMP_"E_B1+1 " Q  ;837
D1 S ^VCOMP=^VCOMP_"D1 " G E1:$D(PC),BUG ;837
A1 S ^VCOMP=^VCOMP_"--A1 " ;837
E1 S ^VCOMP=^VCOMP_"E1 " Q  ;837
BUG S ^VCOMP=^VCOMP_"BUG " Q
 S ^VCOMP=^VCOMP_"BUG+1 " Q
7141 S ^VCOMP=^VCOMP_"7141 " Q  ;714
 ;
TABLE S ^VCOMP=^VCOMP_"TABLE " Q
 S ^VCOMP=^VCOMP_"TABLE+1 " G:$E("A1A",2,2) BUG:0,00000000+1:"A"="A" ;838
00000000 S ^VCOMP=^VCOMP_"00000000 " Q
 S ^VCOMP=^VCOMP_"00000000+1 " G:"ABC"="ABC" RAPID+PC:$L("MUMPS")=5,BUG:$L("MUMPS")=0 Q
RAPID S ^VCOMP=^VCOMP_"RAPID "
 S ^VCOMP=^VCOMP_"RAPID+1 "
 S ^VCOMP=^VCOMP_"RAPID+2 " G:1=^V1PC1(1) 00000000+5:^V1PC1(1)=1,BUG:1 ;836
 S ^VCOMP=^VCOMP_"00000000+5 " Q
 ;
GO1 S ^VCOMP=^VCOMP_1 G GO1+-1+PC^V1PC1,BUG^V1PC1
0010 S ^VCOMP=^VCOMP_"0010 " G:$P($T(0010)," ",2)="S" BUG^V1PC1:$D(PC)=0,F^V1PC1
LABEL S ^VCOMP=^VCOMP_"LABEL " G BUG^V1PC1:$D(PC)=11,D^V1PC1:.1 Q
GO2 S ^VCOMP=^VCOMP_3 G GO2+PC+1^V1PC1,BUG^V1PC1
GO3 S ^VCOMP=^VCOMP_5 G GO3+PC^V1PC1,BUG
 ;
8391 S I=1 G:2=2=1 ^V1PC1,^V1PC1 Q
8392 S I=2 G:$E(12.34E1,3) ^V1PC1:$L("00.232#")=7,^V1PC1:1 Q
8393 S I=3 G ^V1PC1:$P(090807060,0,2)=9,^V1PC1:2=2=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

V1PCC
V1PCC ;IW-YS-MM-TS,V1PC,MVTS V9.10;15/6/96;POST-CONDITIONALS -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"138---V1PCC: Post conditionals -3-",!
716 S ^ABSN="11722",^ITEM="I-716  DO command ( command word )",^NEXT="717^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" I 1
 DO:0 1 S ^VCOMP=^VCOMP_$T_" " I 0 ;COMMENT
 D:1 10 S ^VCOMP=^VCOMP_$T_" "
 S ^VCORR="1 10 0 " D ^VEXAMINE
 ;
717 S ^ABSN="11723",^ITEM="I-717  DO command ( argument )",^NEXT="842^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" I 1
 DO ARG1:0 S ^VCOMP=^VCOMP_$T_" " I 0 ;COMMENT
 D ARG2:1 S ^VCOMP=^VCOMP_$T_" "
 S ^VCORR="1 ARG2 0 " D ^VEXAMINE
 ;
842 S ^ABSN="11724",^ITEM="I-842  DO with postconditionalized label list",^NEXT="843^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" S V1PC="$"
 D:V1PC="$" %0,%1:1,%2:$L(V1PC)=1,%3:$E(V1PC,2)="$" D:V1PC %01,%02:1,%03
 S ^VCORR="%0 Z0 %1 %2 " D ^VEXAMINE
 ;
843 S ^ABSN="11725",^ITEM="I-843  DO with postconditionalized label+intexpr list",^NEXT="844^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K A
 D BYTE+2:$D(A),BYTE+1:'$D(A)
 S ^VCORR="BYTE+1 " D ^VEXAMINE
 ;
844 S ^ABSN="11726",^ITEM="I-844  DO with postconditionalized ^routineref list",^NEXT="845^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A=1,I=1 D:A ^V1PC1 S I=2 D ^V1PC1:A
 S I=3 D ^V1PC1:A=0 S I=4 D:A ^V1PC1:A,^V1PC1:'A,^V1PC1:I=4
 S ^VCORR="^V1PC11 ^V1PC12 ^V1PC14 ^V1PC14 " D ^VEXAMINE
 ;
845 S ^ABSN="11727",^ITEM="I-845  DO with postconditionalized label^routineref list",^NEXT="846^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 D OS^V1PC1:2=2=1,FILE^V1PC1:$J("",2)="  ",010^V1PC1:3=3=3
 S ^VCORR="OS FILE " D ^VEXAMINE
 ;
846 S ^ABSN="11728",^ITEM="I-846  DO with postconditionalized label+intexpr^routineref list",^NEXT="718^V1PCC,V1FORA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K ^V1PC1
 S ^V1PC1=10
 D OS+1^V1PC1:^V1PC1=1,OS+2^V1PC1:^V1PC1=10.0,OS+3^V1PC1:^V1PC1-5-5
 DO:^V1PC1=1 OS+4^V1PC1:1,OS+4^V1PC1:"ABC"="ABC"
 D:10=^V1PC1 ABCDEFGH+1^V1PC1:$F(0.234560,0)=0,ABCDEFGH+2^V1PC1:$D(^V1PC1(1))=1
 S X=13,Y=14,^V1PC1=1
 D O^V1PC1,O+1^V1PC1,O^V1PC1:X=15,Q^V1PC1:$D(X),A:0,R^V1PC1:$E("ABCDEFGH",1,3)="ABC",S^V1PC1:X=13=(Y=14)
 D:$D(X) T^V1PC1:^V1PC1=1,T+1^V1PC1,T^V1PC1:X=15,V^V1PC1
 D:$D(^V1PC1)=0 T^V1PC1:X=13,T+1^V1PC1,T^V1PC1:X=15,U^V1PC1
 S ^VCORR="OS+2 ABCDEFGH+1 OPQRSTUV" D ^VEXAMINE
 ;
718 W !,"I-718  KILL command"
 S ^ABSN="11729",^ITEM="I-718.1  Local",^NEXT="7182^V1PCC,V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="" K X,Y
 S X=13,X(1)=1,X(1,2)=12,X(1,2,3)=123,X(1,2,1)=121,X(3)=3
 S Y=1,Y(2,1)=21 S ^VCOMP=^VCOMP_$D(Y)_" "
 KILL:X=13 Y S ^VCOMP=^VCOMP_$D(Y)_" "
 S ^VCOMP=^VCOMP_$D(X(1,2))_" "
 K:$D(X(1))=11 X(1,2) S ^VCOMP=^VCOMP_$D(X(1,2))_" "
 K:$D(X) X S ^VCOMP=^VCOMP_$D(X)
 S ^VCORR="11 0 11 0 0" D ^VEXAMINE
 ;
7182 S ^ABSN="11730",^ITEM="I-718.2  Global",^NEXT="V1FORA^VV1" D ^V1PRESET
 S ^VCOMP="" K X,Y,^V1
 S ^V1=1,^V1(1,2)=12,^V1(1,2,2)=122
 S ^VCOMP=^VCOMP_$D(^V1(1,2))_" "
 K:^V1(1,2,2)=122 ^V1(1,2) S ^VCOMP=^VCOMP_$D(^V1(1,2))_" "
 K:$L("ABD")>2 ^V1 S ^VCOMP=^VCOMP_$D(^V1)
 S ^VCORR="11 0 0" D ^VEXAMINE
 ;
END W !!,"End of 138---V1PCC",!
 K  K ^V,^V1PC1,^V1 Q
 ;
A S ^VCOMP=^VCOMP_"A " Q  ;846 (test corrected in V7.3;20/6/88)
%01 S ^VCOMP=^VCOMP_"%01 " D Z01 Q  ;842
%0 S ^VCOMP=^VCOMP_"%0 " D Z0 Q  ;842
Z01 S ^VCOMP=^VCOMP_"Z01 " Q  ;842
Z0 S ^VCOMP=^VCOMP_"Z0 " Q  ;842
%02 S ^VCOMP=^VCOMP_"%02 " Q  ;842
%03 S ^VCOMP=^VCOMP_"%03 " Q  ;842
%2 S ^VCOMP=^VCOMP_"%2 " Q  ;842
%1 S ^VCOMP=^VCOMP_"%1 " Q  ;842
%3 S ^VCOMP=^VCOMP_"%3 " Q  ;842
10 S ^VCOMP=^VCOMP_"10 " Q  ;716
ARG1 S ^VCOMP=^VCOMP_"ARG1 " Q  ;717
1 S ^VCOMP=^VCOMP_"1 " Q  ;716
ARG2 S ^VCOMP=^VCOMP_"ARG2 " Q  ;717
BYTE S ^VCOMP=^VCOMP_"BYTE " Q  ;843
 S ^VCOMP=^VCOMP_"BYTE+1 " Q  ;843
 S ^VCOMP=^VCOMP_"BYTE+2 " Q  ;843
 S ^VCOMP=^VCOMP_"BYTE+3 " Q  ;843
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

V1PC1
V1PC1 ;IW-YS-MM-TS,V1PC,MVTS V9.10;15/6/96;POST-CONDITIONALS
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCOMP=^VCOMP_"^V1PC1"_I_" " Q  ;+3 844 839
 ;
BUG S ^VCOMP=^VCOMP_"^V1PC1_BUG " Q
OS S ^VCOMP=^VCOMP_"OS " Q  ;845
 S ^VCOMP=^VCOMP_"OS+1 " Q  ;846
 S ^VCOMP=^VCOMP_"OS+2 " Q  ;846
 S ^VCOMP=^VCOMP_"OS+3 " Q  ;846
 S ^VCOMP=^VCOMP_"OS+4 " Q
 S ^VCOMP=^VCOMP_"OS+5 " Q
%DRAFT S ^VCOMP=^VCOMP_"%DRAFT "
 S ^VCOMP=^VCOMP_"%DRAFT+1 " Q  ;841
 S ^VCOMP=^VCOMP_"%DRAFT+2 " Q
 S ^VCOMP=^VCOMP_"%DRAFT+3 " G:$P("A^B^C","^",2)="1" BUG+2^V1PC1,BUG+1 ;841
 S ^VCOMP=^VCOMP_"%DRAFT+4 " G GO1^V1PCB Q  ;841
FILE S ^VCOMP=^VCOMP_"FILE " Q  ;845
010 S ^VCOMP=^VCOMP_"010 " Q  ;845
A S ^VCOMP=^VCOMP_"A " G A+1^V1PC1:$D(^V1PC1),LABEL^V1PCB:1 Q  ;840
B S ^VCOMP=^VCOMP_"B " Q  ;840 (test corrected in V7.3;20/6/88)
C S ^VCOMP=^VCOMP_"C" Q
D S ^VCOMP=^VCOMP_"D " G:$T(V1PC1+300)="" 0010^V1PCB:12300=00123E2,BUG^V1PC1 Q
E S ^VCOMP=^VCOMP_"E" Q
F S ^VCOMP=^VCOMP_"F " Q  ;840
G S ^VCOMP=^VCOMP_"G" Q
H S ^VCOMP=^VCOMP_"H" Q
I S ^VCOMP=^VCOMP_"I" Q
J S ^VCOMP=^VCOMP_"J" Q
K S ^VCOMP=^VCOMP_"K" Q
L S ^VCOMP=^VCOMP_"L" Q
M S ^VCOMP=^VCOMP_"M" Q
N S ^VCOMP=^VCOMP_"N" Q
O S ^VCOMP=^VCOMP_"O" Q  ;846
P S ^VCOMP=^VCOMP_"P" Q  ;846
Q S ^VCOMP=^VCOMP_"Q" Q  ;846
R S ^VCOMP=^VCOMP_"R" Q  ;846
S S ^VCOMP=^VCOMP_"S" Q  ;846
T S ^VCOMP=^VCOMP_"T" Q  ;846
U S ^VCOMP=^VCOMP_"U" Q  ;846
V S ^VCOMP=^VCOMP_"V" Q  ;846
W S ^VCOMP=^VCOMP_"W" Q
X S ^VCOMP=^VCOMP_"X" Q
Y S ^VCOMP=^VCOMP_"Y" Q
Z 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
 ;
GO1 S ^VCOMP=^VCOMP_1 Q
 S ^VCOMP=^VCOMP_2 Q
 S ^VCOMP=^VCOMP_2 G GO2^V1PCB ;841
ENTER S ^VCOMP=^VCOMP_"---3 " ;715
ENTERY S ^VCOMP=^VCOMP_"4 " Q  ;715
GO2 S ^VCOMP=^VCOMP_5 Q
 S ^VCOMP=^VCOMP_6 Q
 S ^VCOMP=^VCOMP_7 Q
 S ^VCOMP=^VCOMP_8 Q
 S ^VCOMP=^VCOMP_4 G GO3^V1PCB ;841
GO3 S ^VCOMP=^VCOMP_3 Q
 S ^VCOMP=^VCOMP_9 Q
 S ^VCOMP=^VCOMP_0 Q
 S ^VCOMP=^VCOMP_6 Q  ;841
ABCDEFGH S ^VCOMP=^VCOMP_"ABCDEFGH " Q
 S ^VCOMP=^VCOMP_"ABCDEFGH+1 " Q  ;846
 S ^VCOMP=^VCOMP_"ABCDEFGH+2 " Q
 S ^VCOMP=^VCOMP_"ABCDEFGH+3 " Q
 S ^VCOMP=^VCOMP_"ABCDEFGH+4 " Q
 ;
END S ^VCOMP=^VCOMP_"!"

V1FORA
V1FORA ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FOR COMMAND -1-  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1FORA1 W !!,"139---V1FORA1" D ^V1FORA1
V1FORA2 W !!,"140---V1FORA2" D ^V1FORA2
V1FORA3 W !!,"141---V1FORA3" D ^V1FORA3
 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

V1FORA1
V1FORA1 ;IW-YS-TS,V1FORA,MVTS V9.10;15/6/96;FOR COMMAND -1.1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"139---V1FORA1: FOR command -1.1-",!
 W !,"FOR lvn=expr",!
335 W !,"I-335  expr is an intlit"
3351 S ^ABSN="11731",^ITEM="I-335.1  lvn does not exist",^NEXT="3352^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" K I F I=7 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I S ^VCOMP=VCOMP,^VCORR="77" D ^VEXAMINE
 ;
3352 S ^ABSN="11732",^ITEM="I-335.2  lvn exist",^NEXT="336^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="",%=0 F %=98765432 S ^VCOMP=^VCOMP_%
 S ^VCOMP=^VCOMP_% S ^VCORR="9876543298765432" D ^VEXAMINE
 ;
336 W !,"I-336  expr is a numlit"
 S ^ABSN="11733",^ITEM="I-336  expr is a numlit",^NEXT="337^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="",I=0.0 F I=7.5 S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I S ^VCORR="7.57.5" D ^VEXAMINE
 ;
337 W !,"I-337  expr is a strlit"
 S ^ABSN="11734",^ITEM="I-337  expr is a strlit",^NEXT="338^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" K I F I="\^-0" S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I S ^VCORR="\^-0\^-0" D ^VEXAMINE
 ;
338 W !!,"FOR lvn=numexpr1:numexpr2:numexpr3",!
 W !,"I-338/339/342  numexpr2>0"
3381 S ^ABSN="11735",^ITEM="I-338/339/342.1  numexpr1<numexpr3",^NEXT="3382^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1:1:9 S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I S ^VCORR="1234567899" D ^VEXAMINE
 ;
3382 S ^ABSN="11736",^ITEM="I-338/339/342.2  numexpr1=numexpr3",^NEXT="3383^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=2:1:2 S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I S ^VCORR="22" D ^VEXAMINE
 ;
3383 S ^ABSN="11737",^ITEM="I-338/339/342.3  numexpr1>numexpr3",^NEXT="340^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F I=5:10:2 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I S ^VCOMP=VCOMP,^VCORR="5" D ^VEXAMINE
 ;
340 W !,"I-340  numexpr2=0"
3401 S ^ABSN="11738",^ITEM="I-340.1  numexpr1<numexpr3",^NEXT="3402^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F J=4:0:5 S I=I+1 S VCOMP=VCOMP_J I I=4 G G3401
 S VCOMP=VCOMP_"!!"
G3401 S VCOMP=VCOMP_J,^VCOMP=VCOMP,^VCORR="44444" D ^VEXAMINE
 ;
3402 S ^ABSN="11739",^ITEM="I-340.2  numexpr1=numexpr3",^NEXT="3403^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F J=3:0:3 S I=I+1,VCOMP=VCOMP_J I I=3 G G3402
 S VCOMP=VCOMP_"!!"
G3402 S VCOMP=VCOMP_J,^VCOMP=VCOMP,^VCORR="3333" D ^VEXAMINE
 ;
3403 S ^ABSN="11740",^ITEM="I-340.3  numexpr1>numexpr3",^NEXT="3404^V1FORA1,V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F J=3:0:2.9 S I=I+1 S VCOMP=VCOMP_J I I=3 G G3403
G3403 S VCOMP=VCOMP_J,^VCOMP=VCOMP,^VCORR="3" D ^VEXAMINE
 ;
3404 S ^ABSN="11741",^ITEM="I-340.4  numexpr1<numexpr3 another",^NEXT="V1FORA2^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="",I=12 FOR I=-4:0:5.3 S VCOMP=VCOMP_I,I=I+2,VCOMP=VCOMP_I
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="-4-2-200224466" D ^VEXAMINE
 ;
END W !!,"End of 139---V1FORA1",!
 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

V1FORA2
V1FORA2 ;IW-YS-TS,V1FORA,MVTS V9.10;15/6/96;FOR COMMAND -1.2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"140---V1FORA2: FOR command -1.2-",!
 ;
341 W !,"I-341/343  numexpr2<0"
3411 S ^ABSN="11742",^ITEM="I-341/343.1  numexpr1<numexpr3",^NEXT="3412^V1FORA2,V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=4:-2:5555555 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="4" D ^VEXAMINE
 ;
3412 S ^ABSN="11743",^ITEM="I-341/343.2  numexpr1=numexpr3",^NEXT="3413^V1FORA2,V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=4:-2:4 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="44" D ^VEXAMINE
 ;
3413 S ^ABSN="11744",^ITEM="I-341/343.3  numexpr1>numexpr3",^NEXT="344^V1FORA2,V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=4:-2:-5 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="420-2-4-4" D ^VEXAMINE
 ;
344 W !,"I-344  numexpr1=numexpr2=numexpr3"
3441 S ^ABSN="11745",^ITEM="I-344.1  numexpr>0",^NEXT="3442^V1FORA2,V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=10:10:10 S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I,^VCORR="1010" D ^VEXAMINE
 ;
3442 S ^ABSN="11746",^ITEM="I-344.2  numexpr=0",^NEXT="3443^V1FORA2,V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" S J=0 F I=0:000:.0 S ^VCOMP=^VCOMP_I,J=J+1 I J=3 S I=4
 S ^VCOMP=^VCOMP_I,^VCORR="0004" D ^VEXAMINE
 ;
3443 S ^ABSN="11747",^ITEM="I-344.3  numexpr<0",^NEXT="V1FORA3^V1FORA,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=-12:-12.0:"-12" S ^VCOMP=^VCOMP_I
 S ^VCOMP=^VCOMP_I,^VCORR="-12-12" D ^VEXAMINE
 ;
END W !!,"End of 140---V1FORA2",!
 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

V1FORA3
V1FORA3 ;IW-YS-TS,V1FORA,MVTS V9.10;15/6/96;FOR COMMAND -1.3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"141---V1FORA3: FOR command -1.3-",!
345 W !,"I-345  5 levels of FOR nesting"
 S ^ABSN="11748",^ITEM="I-345  5 levels of FOR nesting",^NEXT="346^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:1 F J=0:1:1 F K=0:1:1 F L=0:1:1 F M=0:1:1 S VCOMP=VCOMP_I_J_K_L_M_" "
 S VCOMP=VCOMP_"#"
 S ^VCOMP=VCOMP,^VCORR="00000 00001 00010 00011 00100 00101 00110 00111 01000 01001 01010 01011 01100 01101 01110 01111 10000 10001 10010 10011 10100 10101 10110 10111 11000 11001 11010 11011 11100 11101 11110 11111 #"
 D ^VEXAMINE
 ;
346 W !,"I-346  GOTO command in FOR scope"
 S ^ABSN="11749",^ITEM="I-346  GOTO command in FOR scope",^NEXT="347^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1:1:10 S ^VCOMP=^VCOMP_I G G346
 S ^VCOMP=^VCOMP_"!!"
G346 S ^VCOMP=^VCOMP_I,^VCORR="11" D ^VEXAMINE
 ;
347 W !,"I-347  QUIT command in FOR scope"
3471 S ^ABSN="11750",^ITEM="I-347.1  QUIT without postcondition",^NEXT="3472^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=1:1:1000 S VCOMP=VCOMP_I I I=4 S VCOMP=VCOMP_I QUIT
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="123444" D ^VEXAMINE
 ;
3472 S ^ABSN="11751",^ITEM="I-347.2  QUIT with postcondition",^NEXT="348^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP=""
 S J=0 F I=0:0:0 Q:J>10  S J=J+1 S:I>0 I=1+I S:I<0 I=1 S:'I I=-1 S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I_J,^VCOMP=VCOMP,^VCORR="-1112" D ^VEXAMINE
 ;
348 W !,"I-348  XECUTE command in FOR scope"
 S ^ABSN="11752",^ITEM="I-348  XECUTE command in FOR scope",^NEXT="349^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1:2:6 XECUTE "S ^VCOMP=^VCOMP_I"
 S ^VCOMP=^VCOMP_I,^VCORR="1355" D ^VEXAMINE
 ;
349 W !,"I-349  numexpr is string literal"
 S ^ABSN="11753",^ITEM="I-349  numexpr is string literal",^NEXT="350^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" F I=".4E1E2":"-2.0.^^^":"-5EAZXZZ" S VCOMP=VCOMP_I
 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="420-2-4-4" D ^VEXAMINE
 ;
350 W !!,"FOR lvn=numexpr1:numexpr2",!
 W !,"I-350  numexpr1>0 and numexpr2>0"
 S ^ABSN="11754",^ITEM="I-350  numexpr1>0 and numexpr2>0",^NEXT="351^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" S I=0 F I=1:1 S ^VCOMP=^VCOMP_I I I=5 G G350
 S ^VCOMP=^VCOMP_"##"
G350 S ^VCOMP=^VCOMP_I,^VCORR="123455" D ^VEXAMINE
 ;
351 W !,"I-351  numexpr1>0 and numexpr2<0"
 S ^ABSN="11755",^ITEM="I-351  numexpr1>0 and numexpr2<0",^NEXT="352^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" S I=0 F I=1:-1 S ^VCOMP=^VCOMP_I I I=-3 G G351
 S ^VCOMP=^VCOMP_"##"
G351 S ^VCOMP=^VCOMP_I,^VCORR="10-1-2-3-3" D ^VEXAMINE
 ;
352 W !,"I-352  numexpr1<0 and numexpr2>0"
 S ^ABSN="11756",^ITEM="I-352  numexpr1<0 and numexpr2>0",^NEXT="353^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F I=-2:1 S VCOMP=VCOMP_I I I=3 S VCOMP=VCOMP_I G G352
 S VCOMP=VCOMP_"##"
G352 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="-2-1012333" D ^VEXAMINE
 ;
353 W !,"I-353  numexpr1<0 and numexpr2<0"
 S ^ABSN="11757",^ITEM="I-353  numexpr1<0 and numexpr2<0",^NEXT="354^V1FORA3,V1FORB^VV1" D ^V1PRESET
 S VCOMP="" S I=0 F I=-2:-1 S VCOMP=VCOMP_I I I=-5 S VCOMP=VCOMP_I G G353
 S VCOMP=VCOMP_"##"
G353 S VCOMP=VCOMP_I,^VCOMP=VCOMP,^VCORR="-2-3-4-5-5-5" D ^VEXAMINE
 ;
354 W !,"I-354  numexpr2=0"
 S ^ABSN="11758",^ITEM="I-354  numexpr2=0",^NEXT="V1FORB^VV1" D ^V1PRESET
 S ^VCOMP="" S I=0 F I=-2:0 S ^VCOMP=^VCOMP_I,I=I+1 I I=3 Q
 S ^VCOMP=^VCOMP_I,^VCORR="-2-10123" D ^VEXAMINE
 ;
END W !!,"End of 141---V1FORA3",!
 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

V1FORB
V1FORB ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FOR COMMAND -2-  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1FORB1 W !!,"142---V1FORB1" D ^V1FORB1
V1FORB2 W !!,"143---V1FORB2" D ^V1FORB2
 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

V1FORB1
V1FORB1 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FOR COMMNAD -2.1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"142---V1FORB1: FOR command -2.1-",!
 W !,"List of forparameter",!
355 W !,"I-355  Forparameter is expr"
 S ^ABSN="11759",^ITEM="I-355  Forparameter is expr",^NEXT="356^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S VCOMP="" FOR I=1,3,4,5.5,7,-1,"ABC",-2.3,50E-1 SET VCOMP=VCOMP_I_" "
 S VCOMP=VCOMP_I S ^VCOMP=VCOMP,^VCORR="1 3 4 5.5 7 -1 ABC -2.3 5 5" D ^VEXAMINE
 ;
356 W !,"I-356  Forparameter is numexpr1:numexpr2"
 S ^ABSN="11760",^ITEM="I-356  Forparameter is numexpr1:numexpr2",^NEXT="357^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S VCOMP="" F I=.1:-.02,1:2 S VCOMP=VCOMP_I_" " I I<0 Q
 S VCOMP=VCOMP_I S ^VCOMP=VCOMP,^VCORR=".1 .08 .06 .04 .02 0 -.02 -.02" D ^VEXAMINE
 ;
357 W !,"I-357  Forparameter is numexpr1:numexpr2:numexpr3"
 S ^ABSN="11761",^ITEM="I-357  Forparameter is numexpr1:numexpr2:numexpr3",^NEXT="358^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1.5:0.1:2.1,1:-0.3:-1 S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I,^VCORR="1.5 1.6 1.7 1.8 1.9 2 2.1 1 .7 .4 .1 -.2 -.5 -.8 -.8" D ^VEXAMINE
 ;
358 W !,"I-358  Forparameter is mixture of the three above"
 S ^ABSN="11762",^ITEM="I-358  Forparameter is mixture of the three above",^NEXT="359^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" F I=-10.1,3*I,"ABC",2:-0.5:1,"1E0",5:2.5 S ^VCOMP=^VCOMP_I_" " I I>9 Q
 S ^VCOMP=^VCOMP_I,^VCORR="-10.1 -30.3 ABC 2 1.5 1 1E0 5 7.5 10 10" D ^VEXAMINE
 ;
359 W !!,"FOR lvn=forparameter",!
 W !,"I-359  Value of lvn in execution of FOR scope"
 S ^ABSN="11763",^ITEM="I-359  Value of lvn in execution of FOR scope",^NEXT="360^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" K X F I=-2:1:3 S X(I)=I_" ",^VCOMP=^VCOMP_X(I)
 S ^VCOMP=^VCOMP_I,^VCORR="-2 -1 0 1 2 3 3" D ^VEXAMINE
 ;
360 W !,"I-360  lvn has subscript"
3601 S ^ABSN="11764",^ITEM="I-360.1  3 subscripts",^NEXT="3602^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 K J(1,2,3) S ^VCOMP="" F J(1,2,3)=1:1:3 S ^VCOMP=^VCOMP_J(1,2,3)_" "
 S ^VCOMP=^VCOMP_J(1,2,3),^VCORR="1 2 3 3" D ^VEXAMINE
 ;
3602 S ^ABSN="11765",^ITEM="I-360.2  1 subscript",^NEXT="3603^V1FORB1,V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" S I=1,J(3)="A",J(5)="B",J(7)="C" F J(I)=1:1:3 S I=I+2,^VCOMP=^VCOMP_J(I)_" "
 S ^VCOMP=^VCOMP_J(1),^VCORR="A B C 3" D ^VEXAMINE
 ;
3603 S ^ABSN="11766",^ITEM="I-360.3  Subscript contains binary operator",^NEXT="V1FORB2^V1FORB,V1FORC^VV1" D ^V1PRESET
 S VCOMP="",A=1,B=2,C=3,D=4,E=5
 F A(A+B+C,$A(A),D_E)=1:1:3 S A=A+1 S VCOMP=VCOMP_A_" "
 S VCOMP=VCOMP_A(6,49,45),^VCOMP=VCOMP,^VCORR="2 3 4 3" D ^VEXAMINE
 ;
END W !!,"End of 142---V1FORB1",!
 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

V1FORB2
V1FORB2 ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FOR COMMNAD -2.2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"143---V1FORB2: FOR command -2.2-",!
 ;
361 W !,"I-361  Interpretation sequence of forparameter"
3611 S ^ABSN="11767",^ITEM="I-361.1  Forparameter is expr",^NEXT="3612^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" K I F I=$D(I),$D(I),$D(I) S ^VCOMP=^VCOMP_$D(I)_" "_I_"  " I I=1 K I
 S ^VCOMP=^VCOMP_I,^VCORR="1 0  1 1  1 0  0" D ^VEXAMINE
 ;
3612 S ^ABSN="11768",^ITEM="I-361.2  Forparameter is numexpr1:numexpr2",^NEXT="3613^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP=""
 K I S K=0,I(1)="" F I=$D(I):$D(I) S K=K+1,^VCOMP=^VCOMP_I_" " S:I=40 I="ABCD" I K=8 Q
 S ^VCOMP=^VCOMP_I,^VCORR="10 20 30 40 10 20 30 40 ABCD" D ^VEXAMINE
 ;
3613 S ^ABSN="11769",^ITEM="I-361.3  Forparameter is numexpr1:numexpr2:numexpr3",^NEXT="3614^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP=""
 K I S K=0,I(1)="" F I=$D(I):$D(I):$D(I) S K=K+1,^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I,^VCORR="10 10" D ^VEXAMINE
 ;
3614 S ^ABSN="11770",^ITEM="I-361.4  numexpr2 is lvn",^NEXT="362^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="",I=5,A(5)=13
 F I=1:A(I):100 S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I,^VCORR="1 14 27 40 53 66 79 92 92" D ^VEXAMINE
 ;
362 W !,"I-362  Forparameter contains lvn"
 S ^ABSN="11771",^ITEM="I-362  Forparameter contains lvn",^NEXT="363^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="",A=1,B=1 F I=A,B,B,C S B=B+1,C=4 S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I,^VCORR="1 2 3 4 4" D ^VEXAMINE
 ;
363 W !,"I-363  Change the value of lvn in FOR scope"
3631 S ^ABSN="11772",^ITEM="I-363.1  SET lvn=lvn+1",^NEXT="3632^V1FORB2,V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" F I=2:2:10 SET I=I+1 F J=I:3:10 S ^VCOMP=^VCOMP_I_"*"_J_" "
 S ^VCOMP=^VCOMP_I_"*"_J,^VCORR="3*3 3*6 3*9 6*6 6*9 9*9 9*9" D ^VEXAMINE
 ;
3632 S ^ABSN="11773",^ITEM="I-363.2  DO command in FOR scope",^NEXT="V1FORC^VV1" D ^V1PRESET
 S ^VCOMP="" F I=1:.1E+1:3.3 D D20
 S ^VCOMP=^VCOMP_I,^VCORR="1233" D ^VEXAMINE
 ;
END W !!,"End of 143---V1FORB2",!
 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
D20 S ^VCOMP=^VCOMP_I QUIT

V1FORC
V1FORC ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;FOR COMMAND -3-  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1FORC1 W !!,"144---V1FORC1" D ^V1FORC1
V1FORC2 W !!,"145---V1FORC2" D ^V1FORC2
 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

V1FORC1
V1FORC1 ;IW-YS-TS,V1FORC,MVTS V9.10;15/6/96;FOR COMMAND -3.1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"144---V1FORC1: FOR command -3.1-",!
 W !,"FOR lvn=numexpr1:numexpr2:numexpr3",!
364 W !,"I-364  numexpr is non-integer numeric literal"
 S ^ABSN="11774",^ITEM="I-364  numexpr is non-integer numeric literal",^NEXT="365^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="" F I=-0.73:2000E-4:"000.123E+1" S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I S ^VCORR="-.73 -.53 -.33 -.13 .07 .27 .47 .67 .87 1.07 1.07" D ^VEXAMINE
 ;
365 W !,"I-365  numexpr is function"
 S ^ABSN="11775",^ITEM="I-365  numexpr is function",^NEXT="366^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" F I=1_0:4>3:$F("ABC","B")*"6A" S VCOMP=VCOMP_I_" "
 S VCOMP=VCOMP_I S ^VCOMP=VCOMP,^VCORR="10 11 12 13 14 15 16 17 18 18" D ^VEXAMINE
 ;
366 W !,"I-366  numexpr contains unary operator"
 S ^ABSN="11776",^ITEM="I-366  numexpr contains unary operator",^NEXT="367^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="" F I='0:+"000001.20E-.8ABDEF0":--"82E-1FOR" S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I S ^VCORR="1 2.2 3.4 4.6 5.8 7 8.2 8.2" D ^VEXAMINE
 ;
367 W !,"I-367  numexpr contains binary operator"
 S ^ABSN="11777",^ITEM="I-367  numexpr contains binary operator",^NEXT="368^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S X=4,Y=3,^VCOMP="" F I=X/1.0+0.0:Y*1:X*Y S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I S ^VCORR="4 7 10 10" D ^VEXAMINE
 ;
368 W !,"I-368  numexpr is unsubscripted gvn"
 S ^ABSN="11778",^ITEM="I-368  numexpr is unsubscripted gvn",^NEXT="369^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="" S ^V1A="10GLOBAL" F I=^V1A:2:^V1A+^V1A+1 S ^VCOMP=^VCOMP_I_" "
 S ^VCOMP=^VCOMP_I S ^VCORR="10 12 14 16 18 20 20" D ^VEXAMINE
 ;
369 W !,"I-369  numexpr is subscripted gvn"
 S ^ABSN="11779",^ITEM="I-369  numexpr is subscripted gvn",^NEXT="370^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" K ^V1A,^V1B S ^V1A(1)=2,^(1,2)=12,^(2,3)=10,^V1B(1)="X",^(4)=7,^(5)=24
 F A(^(1,^V1A(1)))=^(2,3):^V1B(4):^(5) S VCOMP=VCOMP_^(1)
 S VCOMP=VCOMP_A(12),^VCOMP=VCOMP,^VCORR="XXX24" D ^VEXAMINE
 ;
370 W !!,"Combination of FOR scope",!
 W !,"I-370  FOR ... QUIT ... FOR"
 S ^ABSN="11780",^ITEM="I-370  FOR ... QUIT ... FOR",^NEXT="371^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" KILL I,J FOR I=1:1:3 SET VCOMP=VCOMP_I_" " Q  F J=1:1:4 S VCOMP=VCOMP_J_"/"
 S VCOMP=VCOMP_I_"+"_$D(I)_" "_$D(J),^VCOMP=VCOMP,^VCORR="1 1+1 0" D ^VEXAMINE
 ;
371 W !,"I-371  FOR ... QUIT ... FOR ... QUIT"
 S ^ABSN="11781",^ITEM="I-371  FOR ... QUIT ... FOR ... QUIT",^NEXT="372^V1FORC1,V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" KILL I,J FOR I=1:1:4 S VCOMP=VCOMP_"  "_I Q:I=3  F J=1:1:4 S VCOMP=VCOMP_I_J Q:J=2  ;
 S VCOMP=VCOMP_"  "_I_" "_J,^VCOMP=VCOMP,^VCORR="  11112  22122  3  3 2" D ^VEXAMINE
 ;
372 W !,"I-372  FOR ... FOR ... QUIT"
 S ^ABSN="11782",^ITEM="I-372  FOR ... FOR ... QUIT",^NEXT="V1FORC2^V1FORC,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" F I=1:1:3 S VCOMP=VCOMP_I_" " F J=1:1:4 S VCOMP=VCOMP_J_"/" QUIT  ;COMMENT
 S VCOMP=VCOMP_I_" "_J,^VCOMP=VCOMP,^VCORR="1 1/2 1/3 1/3 1" D ^VEXAMINE
 ;
END W !!,"End of 144---V1FORC1",!
 K  K ^V1A,^V1B 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

V1FORC2
V1FORC2 ;IW-YS-TS,V1FORC,MVTS V9.10;15/6/96;FOR COMMAND -3.2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"145---V1FORC2: FOR command -3.2-",!
373 W !,"I-373  FOR ... FOR ... QUIT ... FOR ... QUIT"
 S ^ABSN="11783",^ITEM="I-373  FOR ... FOR ... QUIT ... FOR ... QUIT",^NEXT="374^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP=""
 F I=1:2:5 S ^VCOMP=^VCOMP_"  " F J=I/10:1:2 S ^VCOMP=^VCOMP_J_" " Q:I/10'=J  F K=J:0.1:0.7 S ^VCOMP=^VCOMP_K Q:K>.45  S ^VCOMP=^VCOMP_"-"
 S ^VCORR="  .1 .1-.2-.3-.4-.51.1   .3 .3-.4-.51.3   .5 .51.5 " D ^VEXAMINE
 ;
374 W !,"I-374  FOR ... FOR ... GOTO"
3741 S ^ABSN="11784",^ITEM="I-374.1  A forparameter",^NEXT="3742^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" F I=1:1:3 S VCOMP=VCOMP_I_"*" F J=1:1:4 S VCOMP=VCOMP_J_" " I I>1,J>1 G G3741
 S VCOMP=VCOMP_"---"
G3741 S VCOMP=VCOMP_I_" "_J,^VCOMP=VCOMP,^VCORR="1*1 2 3 4 2*1 2 2 2" D ^VEXAMINE
 ;
3742 S ^ABSN="11785",^ITEM="I-374.2  List of forparameter",^NEXT="375^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S VCOMP=""
 F I="A","B","C" S VCOMP=VCOMP_I_"*" F J="X","Y",1:1:4 S VCOMP=VCOMP_J_" " IF I="B",J="Y" GOTO G3742 S VCOMP=VCOMP_"///"
 S VCOMP=VCOMP_"+++"
G3742 S VCOMP=VCOMP_I_" "_J,^VCOMP=VCOMP,^VCORR="A*X Y 1 2 3 4 B*X Y B Y" D ^VEXAMINE
 ;
375 W !,"I-375  FOR ... GOTO ... FOR"
 S ^ABSN="11786",^ITEM="I-375  FOR ... GOTO ... FOR",^NEXT="376^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S VCOMP=""
 F I=1:2:8,"A" S VCOMP=VCOMP_I_" " GOTO:I=5 G375 F K=2:2:7 S VCOMP=VCOMP_K_" "
 S VCOMP=VCOMP_"###"
G375 S VCOMP=VCOMP_I_K S ^VCOMP=VCOMP,^VCORR="1 2 4 6 3 2 4 6 5 56" D ^VEXAMINE
 ;
 G 376
G376 S VCOMP=VCOMP_I_J_K,^VCOMP=VCOMP,^VCORR=" 111.112. 121.122. 211.211" G G3761
376 W !,"I-376  FOR ... FOR ... FOR ... GOTO"
 S ^ABSN="11787",^ITEM="I-376  FOR ... FOR ... FOR ... GOTO",^NEXT="377^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S VCOMP="" F I=1:1:2 F J=1:1:2 S VCOMP=VCOMP_" " F K=1:1:2 S VCOMP=VCOMP_I_J_K_"." I I=2 G G376
 S VCOMP=VCOMP_"$$$"
G3761 D ^VEXAMINE
 ;
377 W !,"I-377  FOR ... GOTO ... QUIT"
 S ^ABSN="11788",^ITEM="I-377  FOR ... GOTO ... QUIT",^NEXT="378^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="",X=0
G3771 S X=100+X F I=X:5 S ^VCOMP=^VCOMP_I_" " G:X=100 G3771^V1FORC2 Q
 S ^VCOMP=^VCOMP_I S ^VCORR="100 200 200" D ^VEXAMINE
 ;
378 W !,"I-378  FOR ... QUIT ... FOR ... GOTO"
 S ^ABSN="11789",^ITEM="I-378  FOR ... QUIT ... FOR ... GOTO",^NEXT="379^V1FORC2,V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="",X=0
G3781 S X=X+1 F I=1:2 S ^VCOMP=^VCOMP_"  "_I Q:X=3  F J=2:2:4 S ^VCOMP=^VCOMP_J_" " G G3781^V1FORC2
 S ^VCOMP=^VCOMP_I_J S ^VCORR="  12   12   112" D ^VEXAMINE
 ;
379 W !,"I-379  FOR ... FOR ... QUIT ... GOTO"
 S ^ABSN="11790",^ITEM="I-379  FOR ... FOR ... QUIT ... GOTO",^NEXT="V1IDNM^VV1" D ^V1PRESET
 S ^VCOMP="",X=0
G379 S X=X+1
 F I=1:1:3 S ^VCOMP=^VCOMP_"*" F J=10:10:30 S ^VCOMP=^VCOMP_I_J_" " Q:I=2  G G379:X=1
 S ^VCOMP=^VCOMP_I_J S ^VCORR="*110 *110 120 130 *210 *310 320 330 330" D ^VEXAMINE
 ;
END W !!,"End of 145---V1FORC2",!
 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

V1IDNM
V1IDNM ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;NAME LEVEL INDIRECTION  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1IDNM1 W !!,"146---V1IDNM1" D ^V1IDNM1
V1IDNM2 W !!,"147---V1IDNM2" D ^V1IDNM2
V1IDNM3 W !!,"148---V1IDNM3" D ^V1IDNM3
 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

V1IDNM1
V1IDNM1 ;IW-KO-TS,V1IDNM,MVTS V9.10;15/6/96;NAME LEVEL INDIRECTION -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"146---V1IDNM1: Name level indirection -1-"
FOR W !!,"FOR command",!
489 W !,"I-489  Indirection of lvn"
 S ^ABSN="11791",^ITEM="I-489  Indirection of lvn",^NEXT="490^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="B",B=0 F @A=1:1:3 S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" " K B F @A=4:1:6 S ^VCOMP=^VCOMP_B
 S ^VCORR="123 456" D ^VEXAMINE
 ;
490 W !,"I-490  Indirection of forparameters"
 S ^ABSN="11792",^ITEM="I-490  Indirection of forparameters",^NEXT="491^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S C="D1",D="D2",E="D3",D1=4,D2=1,D3=6
 F B=@C:@D:@E S ^VCOMP=^VCOMP_B
 S ^VCOMP=^VCOMP_" ",A="B",C="D1",D="D2",E="D3",D1=7,D2=1,D3=10
 FOR @A=@C:@D:@E SET ^VCOMP=^VCOMP_B
 S ^VCORR="456 78910" D ^VEXAMINE
 ;
491 W !,"I-491  Indirection of subscript of lvn"
 S ^ABSN="11793",^ITEM="I-491  Indirection of subscript of lvn",^NEXT="492^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP="" K A
 S A(2)="A3",A3=4 F A(@A(2))=1:1:3 S VCOMP=VCOMP_A(4),B(A(4))=A(4)*10
 S VCOMP=VCOMP_A(4)_" ",A(4)="A(22)" F @A(@A(2))=4:1:7 S VCOMP=VCOMP_A(22)
 S VCOMP=VCOMP_A(22)_" "
 S BN1="B(1)",BN3="B(3)" F @A(@A(2))=@BN1:10:@BN3 S VCOMP=VCOMP_A(22)
 S VCOMP=VCOMP_A(22),^VCOMP=VCOMP,^VCORR="1233 45677 10203030" D ^VEXAMINE K A,B,BN
 ;
492 W !,"I-492  Value of indirection contains function"
 S ^ABSN="11794",^ITEM="I-492  Value of indirection contains function",^NEXT="493^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP="",A="@$E(""ABCDEF"",3)",B="@$E(""ABCDEF"",4)",D=4
 F @A=1:1:@B S VCOMP=VCOMP_C
 S ^VCOMP=VCOMP,^VCORR="1234" D ^VEXAMINE
 ;
493 W !,"I-493  Value of indirection is gvn"
 S ^ABSN="11795",^ITEM="I-493  Value of indirection is gvn",^NEXT="494^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP=""
 S A="^V1A(2)",^V1A(2)=100,B="^V1B(C)",^V1B(2)=400,C=00002
 F I=@A:100:@B S VCOMP=VCOMP_I
 S ^VCOMP=VCOMP,^VCORR="100200300400" D ^VEXAMINE
 ;
494 W !,"I-494  Value of indirection is lvn"
 S ^ABSN="11796",^ITEM="I-494  Value of indirection is lvn",^NEXT="495^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP=""
 S A="A(A(1))",A(1)=2,A(2)="20:10:40",B="@A(AA)",AA=11,A(11)="D"
 F @B=@A,@A:10:$P(A(2),":",3) S VCOMP=VCOMP_D
 S ^VCOMP=VCOMP,^VCORR="20:10:40203040" D ^VEXAMINE
 ;
495 W !,"I-495  2 levels of indirection"
 S ^ABSN="11797",^ITEM="I-495  2 levels of indirection",^NEXT="496^V1IDNM1,V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP=""
 S A="B",B="C",C="" F @@A=1:1:5 S VCOMP=VCOMP_C
 S VCOMP=VCOMP_C_A_B_" "
 S A(1)="@B(2)",B(2)="D",D=1 FOR @A(1)=6:1:10 S VCOMP=VCOMP_D
 S VCOMP=VCOMP_D_A(1)_B(2)
 S ^VCOMP=VCOMP,^VCORR="123455BC 67891010@B(2)D" D ^VEXAMINE
 ;
496 W !,"I-496  3 levels of indirection"
 S ^ABSN="11798",^ITEM="I-496  3 levels of indirection",^NEXT="V1IDNM2^V1IDNM,V1IDGO^VV1" D ^V1PRESET
 S VCOMP=""
 S A="B",B="C",C="D",D=9 F @@@A=1:1:5 S VCOMP=VCOMP_D
 S VCOMP=VCOMP_D_A_B_C_" "
 S A(1)="@B(2)",B(2)="@D",D="E",E=0 FOR @A(1)=6:1:10 S VCOMP=VCOMP_E
 S VCOMP=VCOMP_E_A(1)_B(2)_D
 S ^VCOMP=VCOMP,^VCORR="123455BCD 67891010@B(2)@DE" D ^VEXAMINE
 ;
END W !!,"End of 146---V1IDNM1",!
 K  K ^V1A,^V1B 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

V1IDNM2
V1IDNM2 ;IW-KO-TS,V1IDNM,MVTS V9.10;15/6/96;NAME LEVEL INDIRECTION -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"147---V1IDNM2: Name level indirection -2-"
 W !!,"SET command",!
497 S ^ABSN="11799",^ITEM="I-497  Indirection of the left side lvn",^NEXT="498^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" S A="B",@A=1 S ^VCOMP=^VCOMP_B_A
 S ^VCORR="1B" D ^VEXAMINE
 ;
498 S ^ABSN="11800",^ITEM="I-498  Indirection of the right side lvn",^NEXT="499^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="C",B="D",CD=3,AB=@(A_B) S ^VCOMP=^VCOMP_AB_CD S ^VCORR="33" D ^VEXAMINE
 ;
499 S ^ABSN="11801",^ITEM="I-499  Indirection of the left side gvn",^NEXT="500^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S ^V1A(100)="^V1B(2)",@^V1A(100)=100 S ^VCOMP=^VCOMP_^V1B(2)_^V1A(100)
 S ^VCORR="100^V1B(2)" D ^VEXAMINE
 ;
500 S ^ABSN="11802",^ITEM="I-500  Indirection of the right side gvn",^NEXT="501^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" S ^V1A(100)="^V1B(2)",^V1B(2)=300,^V1A(200)=@^V1A(100)
 S ^VCOMP=^VCOMP_^V1A(200)_^V1B(2)_^V1A(100)
 S ^VCORR="300300^V1B(2)" D ^VEXAMINE
 ;
501 S ^ABSN="11803",^ITEM="I-501  Indirection of lvn subscript",^NEXT="502^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S B="B1",B1=2,C="C(D)",D=3,C(3)=4,A(10,20)=30
 S A(@B)=10,A(@B,@C)=20,A(1)=A(@B),A(3)=A(A(@B),A(@B,@C))
 S ^VCOMP=A(2)_A(2,4)_A(1)_A(3),^VCORR="10201030" D ^VEXAMINE
 ;
502 S ^ABSN="11804",^ITEM="I-502  Indirection of gvn subscript",^NEXT="503^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S ^V1A(2)="^V1A(3)",^(3)=22,^(4)="^V1A(5)",^V1A(5)=55
 S A="@^V1A(2)",B="^V1A(C)",C=00002,^V1A(@A)=100,^V1A(@^(4))=200
 S ^VCOMP=^VCOMP_^V1A(22)_^V1A(55),^VCORR="100200" D ^VEXAMINE
 ;
503 S ^ABSN="11805",^ITEM="I-503  Value of indirection contains function",^NEXT="504^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="@$E(""ABCDEF"",3)",B="@$E(""ABCDEF"",4)",D=40
 S @A=@B S @$P("BS;BB;FF;IO",";",2)=50
 S ^VCOMP=^VCOMP_C_BB,^VCORR="4050" D ^VEXAMINE
 ;
504 S ^ABSN="11806",^ITEM="I-504  Value of indirection is gvn",^NEXT="505^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K ^V1A
 S A="^V1A(B)",B=2,C="^(2,D)",D=10,@A="ABC",@C=20,%Z="^V1A(1)",^V1A(1)="###",%Z=@%Z
 S ^VCOMP=^VCOMP_^V1A(2)_^V1A(2,10)_%Z
 S ^VCORR="ABC20###" D ^VEXAMINE
 ;
505 S ^ABSN="11807",^ITEM="I-505  Value of indirection is lvn",^NEXT="506^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="A(A(1))",A(1)=2,A(2)="20:10:40",B="@A(AA)",AA=11,A(11)="D"
 S @B=@A+5+@A,@("AB"_(1+2))=" STOP"
 S ^VCOMP=^VCOMP_D_AB3,^VCORR="45 STOP" D ^VEXAMINE
 ;
506 S ^ABSN="11808",^ITEM="I-506  Value of indirection contains numeric literal",^NEXT="507^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S @("%"_0023.00)="%23",@($E("ABC",2)_(1.2E2))="B120"
 S ^VCOMP=%23_" "_B120,^VCORR="%23 B120" D ^VEXAMINE
 ;
507 S ^ABSN="11809",^ITEM="I-507  2 levels of indirection",^NEXT="508^V1IDNM2,V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A1="@B2",B2="C3(2)",A="B",B="C",C=4,@A1=@@A*2
 S ^VCOMP=^VCOMP_C3(2)_" "_A_B_C,^VCORR="8 BC4" D ^VEXAMINE
 ;
508 S ^ABSN="11810",^ITEM="I-508  3 levels of indirection",^NEXT="V1IDNM3^V1IDNM,V1IDGO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A(1)="@A(2)",A(2)="@A(C)",A(3)="A(4)",A(4)="A(5)",C=3
 S B(1)="B(2)",B(2)="B(C)",B(3)="B(4)",B(4)="B(5)"
 S @A(1)=@@@B(1),@@@B(1)=@A(1)
 S ^VCOMP=^VCOMP_A(4)_" "_B(4),^VCORR="B(5) B(5)" D ^VEXAMINE
 ;
END W !!,"End of 147---V1IDNM2",!
 K  K ^V1A,^V1B 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

V1IDNM3
V1IDNM3 ;IW-KO-TS,V1IDNM,MVTS V9.10;15/6/96;NAME LEVEL INDIRECTION -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"148---V1IDNM3: Name level indirection -3-"
DATA W !!,"$DATA(@expratom)",!
509 W !,"I-509  Indirection of $DATA argument"
 S ^ABSN="11811",^ITEM="I-509  Indirection of $DATA argument",^NEXT="510^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 K ^V1A S ^V1A(0)=0,^(1)=1,^(2)=2,^(3)=3,^V1A(1,1)=11,^V1A(2,2)=22,^(2,2)=222
 S ^V1A(3,3)=33,^(3,3)=333,^(3,3,3)=33333
 S A="^V1A",B="^V1A(0)",C="^(1)",D="^(1,1)"
 S ^VCOMP=$D(@A)_" "_$D(@B)_" "_$D(@C)_" "_$D(@D),^VCORR="10 1 11 1" D ^VEXAMINE
 ;
510 W !,"I-510  Indirection of subscript"
 S ^ABSN="11812",^ITEM="I-510  Indirection of subscript",^NEXT="511^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 S ^VCOMP=""
 K ^V1A S ^V1A(0)=0,^(1)=1,^(2)=2,^(3)=3,^V1A(1,1)=11
 S ^V1A(2,2)=22,^(2,2)=222,^V1A(3,3)=33,^(3,3)=333,^(3,3,3)=33333
 S A="@B",B="^V1A(@G)",G="Y",Y=3,C="D",D=3
 S ^VCOMP=^VCOMP_$D(^V1A(3,@C,@G,30/10))_" "_$D(^V1A(@A,3,@G))
 S ^VCORR="10 11" D ^VEXAMINE
 ;
511 W !,"I-511  2 levels of indirection"
 S ^ABSN="11813",^ITEM="I-511  2 levels of indirection",^NEXT="512^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 S ^VCOMP=""
 K ^V1A S ^V1A(0)=0,^(1)=1,^(2)=2,^(3)="^V1A",^V1A(1,1)=11
 S ^V1A(2,2)=22,^(2,2)=222,^V1A(3,3)=33,^(3,3)=333,^(3,3,3)=33333
 S A="@B",B="@^V1A(@Y)",G="Y",Y="Z",Z=3,H="^V1A(@@G,3,@@G)"
 S ^VCOMP=^VCOMP_$D(@H)_" "_$DATA(@A),^VCORR="11 10" D ^VEXAMINE
 ;
512 W !,"I-512  3 levels of indirection"
 S ^ABSN="11814",^ITEM="I-512  3 levels of indirection",^NEXT="513^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 S ^VCOMP=""
 K ^V1A S ^V1A(0)=0,^(1)="^V1A(2,2,2)",^(2)=2,^(3)="@^V1A(1)",^V1A(1,1)=11
 S ^V1A(2,2)=22,^(2,2)=222,^V1A(3,3)=33,^(3,3)=333,^(3,3,3)=33333
 S A="@B",B="@^V1A(@@Y)",G="Y",Y="Z",Z="Q",Q=3,H="^V1A(@@@G,3,@@@G)"
 S ^VCOMP=^VCOMP_$D(@H)_" "_$DATA(@A),^VCORR="11 1" D ^VEXAMINE
 ;
513 W !!,"$NEXT(@expratom)",!
 W !,"I-513  Indirection of $NEXT argument"
 S ^ABSN="11815",^ITEM="I-513  Indirection of $NEXT argument",^NEXT="514^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 ;Rev. ANSI 84 20/8/92
 ;Withdr;Moved to Part-90;10/10/92
 W !,"       (This test I-513 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
514 W !,"I-514  Indirection of subscript"
 S ^ABSN="11816",^ITEM="I-514  Indirection of subscript",^NEXT="515^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 ;Rev. ANSI 84 20/8/92
 ;Withdr;Moved to Part-90;10/10/92
 W !,"       (This test I-514 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
515 W !,"I-515  Indirection of naked reference"
 S ^ABSN="11817",^ITEM="I-515  Indirection of naked reference",^NEXT="516^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 ;Rev. ANSI 84 20/8/92
 ;Withdr;Moved to Part-90;10/10/92
 W !,"       (This test I-515 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
516 W !,"I-516  2 levels of indirection"
 S ^ABSN="11818",^ITEM="I-516  2 levels of indirection",^NEXT="517^V1IDNM3,V1IDGO^VV1" D ^V1PRESET
 ;Rev. ANSI 84 20/8/92
 ;Withdr;Moved to Part-90;10/10/92
 W !,"       (This test I-516 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
517 W !,"I-517  3 levels of indirection"
 S ^ABSN="11819",^ITEM="I-517  3 levels of indirection",^NEXT="V1IDGO^VV1" D ^V1PRESET
 ;Rev. ANSI 84 20/8/92
 ;Withdr;Moved to Part-90;10/10/92
 W !,"       (This test I-517 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 148---V1IDNM3",!
 K  K ^V1A 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

V1IDGO
V1IDGO ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;INDIRECTION IN GOTO COMMAND  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1IDGOA W !!,"149---V1IDGOA" D ^V1IDGOA
V1IDGOB W !!,"150---V1IDGOB" D ^V1IDGOB
 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

V1IDGOA
V1IDGOA ;IW-KO-TS,V1IDGO,MVTS V9.10;15/6/96;INDIRECTION IN GOTO COMMAND -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"149---V1IDGOA: Indirection in goto arguments -1-",!
 D 475 D 476 D 477 D 478 D 479 D 480
END W !!,"End of 149---V1IDGOA",!
 K  K ^V1A,^V1IDGO1 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
 ;
HASH S ^VCOMP=^VCOMP_"HASH "
 S ^VCOMP=^VCOMP_"HASH+1 "
 S ^VCOMP=^VCOMP_"HASH+2 " G @C ;484
 S ^VCOMP=^VCOMP_"HASH+3 "
AT S ^VCOMP=^VCOMP_"AT " G 5+2^V1IDGO1
192 S ^VCOMP=^VCOMP_"192 " Q
 S ^VCOMP=^VCOMP_"192+1 " ;485
 S A="@B",B="DATA+2^V1IDGO1:1=1" GOTO @A
ROUTINE S ^VCOMP=^VCOMP_"ROUTINE " G @@B+1^V1IDGO1:@A="ROUTINE" ;488
ONE S ^VCOMP=^VCOMP_"ONE " G EXAMINER^V1IDGO1
TWO S ^VCOMP=^VCOMP_"TWO " G EXAMINER^V1IDGO1 ;476
THREE S ^VCOMP=^VCOMP_"THREE " G EXAMINER^V1IDGO1
000001 S ^VCOMP=^VCOMP_"000001 " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"000001+1 " G @^V1A ;479
1 S ^VCOMP=^VCOMP_"1 " G EXAMINER^V1IDGO1 ;475
 S ^VCOMP=^VCOMP_"2 " G EXAMINER^V1IDGO1 ;478
 S ^VCOMP=^VCOMP_"3 " Q
 S ^VCOMP=^VCOMP_"4 " Q
5 S ^VCOMP=^VCOMP_"5 ",A="192:0",B="192+1:1=1" G @A,@B ;485
6 S ^VCOMP=^VCOMP_"6 " ;485
 S A="1+3:0",B="1+4:1" G @A,@B
ENTRY S ^VCOMP=^VCOMP_"ENTRY " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"ENTRY1 " G EXAMINER^V1IDGO1
ENTRY2 S ^VCOMP=^VCOMP_"ENTRY2 " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"ENTRY3 "
 G EXAMINER^V1IDGO1 ;477
4821 S ^VCOMP=^VCOMP_"12 " G EXAMINER^V1IDGO1 ;482
98 S ^VCOMP=^VCOMP_"98 "
00980 S ^VCOMP=^VCOMP_"00980 "
0098 S ^VCOMP=^VCOMP_"0098 " G EXAMINER^V1IDGO1 ;479
DIARY S ^VCOMP=^VCOMP_"DIARY "
 S ^VCOMP=^VCOMP_"DIARY+1 " G @A^@C ;481
475 W !,"I-475  Indirection of dlabel"
 S ^ABSN="11820",^ITEM="I-475  Indirection of dlabel",^NEXT="476^V1IDGOA,V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^VCORR="1 ",A=1 GOTO @A S ^VCOMP=^VCOMP_"--475 1 "
 S ^VCOMP=^VCOMP_"--475 2 " G EXAMINER^V1IDGO1
 ;
476 W !,"I-476  Indirection of dlabel, while dlabel contains indirection"
 S ^ABSN="11821",^ITEM="I-476  Indirection of dlabel, while dlabel contains indirection",^NEXT="477^V1IDGOA,V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S L="@L(1)",L(1)="@$P(""ONE/TWO/THREE"",""/"",2)"
 S ^VCORR="TWO " G @L
 ;
477 W !,"I-477  Indirection of dlabel+intexpr"
 S ^ABSN="11822",^ITEM="I-477  Indirection of dlabel+intexpr",^NEXT="478^V1IDGOA,V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="ENTRY",^VCORR="ENTRY3 " GOTO @A+00002+(2+3)-04 ;ENTRY+3
 ;
478 W !,"I-478  Indirection of dlabel+intexpr, while intexpr contains indirection"
 S ^ABSN="11823",^ITEM="I-478  Indirection of dlabel+intexpr, while intexpr contains indirection",^NEXT="479^V1IDGOA,V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A=1,B="A",^VCORR="2 " G @A+@B
 ;
479 W !,"I-479  Indirection of dlabel+intexpr, while dlabel and intexpr contains"
 S ^ABSN="11824",^ITEM="I-479  Indirection of dlabel+intexpr, while dlabel and intexpr contains",^NEXT="480^V1IDGOA,V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="A(I)",I=02,A(2)="000001",^V1A="@B^@B(1)",B="0098",B(1)="V1IDGOA"
 S ^VCORR="000001+1 0098 " G @@A+A(2)
 ;
480 W !,"I-480  Indirection of routine name"
 S ^ABSN="11825",^ITEM="I-480  Indirection of routine name",^NEXT="V1IDGOB^V1IDGO,V1IDDO^VV1" D ^V1PRESET
 S ^VCOMP="" D 4801,4802,4803,4804
 S ^VCORR="1^V1IDGO1 2^V1IDGO1 3^V1IDGO1 4^V1IDGO1 " G EXAMINER^V1IDGO1
4801 S ^VCOMP=^VCOMP_1,A="V1IDGO1" G ^@A
4802 S ^VCOMP=^VCOMP_2,B="^V1IDGO1" G @B
4803 S ^VCOMP=^VCOMP_3,A="^V1IDGO1,^@B",B="V1IDGO1" G @A
4804 S ^VCOMP=^VCOMP_4,A="^@B,^V1IDGO1",B="V1IDGO1" G @A

V1IDGOB
V1IDGOB ;IW-KO-TS,V1IDGO,MVTS V9.10;15/6/96;INDIRECTION IN GOTO COMMAND -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"150---V1IDGOB: Indirection in GOTO arguments -2-",!
 D 481 D 482 D 483 D 484 D 485 D 486 D 487 D 488
END W !!,"End of 150---V1IDGOB",!
 K  K ^V1A,^V1IDGO1 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
 ;
DIARY S ^VCOMP=^VCOMP_"DIARY "
 S ^VCOMP=^VCOMP_"DIARY+1 " G @A^@C ;481
HASH S ^VCOMP=^VCOMP_"HASH "
 S ^VCOMP=^VCOMP_"HASH+1 "
 S ^VCOMP=^VCOMP_"HASH+2 " G @C ;484
 S ^VCOMP=^VCOMP_"HASH+3 "
AT S ^VCOMP=^VCOMP_"AT " G 5+2^V1IDGO1
192 S ^VCOMP=^VCOMP_"192 " Q
 S ^VCOMP=^VCOMP_"192+1 " ;485
 S A="@B",B="DATA+2^V1IDGO1:1=1" GOTO @A
ROUTINE S ^VCOMP=^VCOMP_"ROUTINE " G @@B+1^V1IDGO1:@A="ROUTINE" ;488
ONE S ^VCOMP=^VCOMP_"ONE " G EXAMINER^V1IDGO1
TWO S ^VCOMP=^VCOMP_"TWO " G EXAMINER^V1IDGO1 ;476
THREE S ^VCOMP=^VCOMP_"THREE " G EXAMINER^V1IDGO1
000001 S ^VCOMP=^VCOMP_"000001 " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"000001+1 " G @^V1A ;479
1 S ^VCOMP=^VCOMP_"1 " G EXAMINER^V1IDGO1 ;475
 S ^VCOMP=^VCOMP_"2 " G EXAMINER^V1IDGO1 ;478
 S ^VCOMP=^VCOMP_"3 " Q
 S ^VCOMP=^VCOMP_"4 " Q
5 S ^VCOMP=^VCOMP_"5 ",A="192:0",B="192+1:1=1" G @A,@B ;485
6 S ^VCOMP=^VCOMP_"6 " ;485
 S A="1+3:0",B="1+4:1" G @A,@B
ENTRY S ^VCOMP=^VCOMP_"ENTRY " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"ENTRY1 " G EXAMINER^V1IDGO1
ENTRY2 S ^VCOMP=^VCOMP_"ENTRY2 " G EXAMINER^V1IDGO1
 S ^VCOMP=^VCOMP_"ENTRY3 "
 G EXAMINER^V1IDGO1 ;477
4821 S ^VCOMP=^VCOMP_"12 " G EXAMINER^V1IDGO1 ;482
98 S ^VCOMP=^VCOMP_"98 "
00980 S ^VCOMP=^VCOMP_"00980 "
0098 S ^VCOMP=^VCOMP_"0098 " G EXAMINER^V1IDGO1 ;479
481 S ^ABSN="11826",^ITEM="I-481  Indirection of routine name, while routine name contains indirection",^NEXT="482^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K ^V1IDGO1
 S ^V1IDGO1="A",A=10,C="V1IDGO1",V1IDGO1="V1IDGOB"
 S ^VCORR="DIARY+1 10 " G DIARY+-9.0+@^V1IDGO1^@@C
 ;
482 S ^ABSN="11827",^ITEM="I-482  Indirection of dlabel^routinename",^NEXT="483^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S ^VCORR="5 12 ",A="B",B=5,C="V1IDGO1"
 S ^V1A="4821^V1IDGOB" G @@A^@C
 ;
483 S ^ABSN="11828",^ITEM="I-483  Indirection of dlabel+intexpr^routinename",^NEXT="484^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A=3,B="V1IDGO",^VCORR="DATA+3 " G @("DATA+"_A_"^"_B_"1")
 ;
484 S ^ABSN="11829",^ITEM="I-484  Argument level indirection without postcondition",^NEXT="485^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S ^V1A="0012",A="@^V1A^@(%_1)",B="HASH+2^@(%_""B"")",%="V1IDGO",C="%^V1IDGO1"
 S ^VCORR="0012 HASH+2 % " G @A
 ;
485 S ^ABSN="11830",^ITEM="I-485  Argument level indirection with postcondition",^NEXT="486^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A=5,B="C",C="1",^VCORR="6 5 192+1 DATA+2 " G @A+@B:@B=@B
 ;
486 S ^ABSN="11831",^ITEM="I-486  Indirection of argument list without postcondition",^NEXT="487^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="%BREAK^V1IDGO1",B="%+@C-@C+2^V1IDGO1",C="D",D=10,^VCORR="%BREAK " G @A,@B
 ;
487 S ^ABSN="11832",^ITEM="I-487  Indirection of argument list with postcondition",^NEXT="488^V1IDGOB,V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="5+2^V1IDGO1:@D",B="END^V1IDGO1:@C",C="C(1)",C(1)="2=2.0",D="D(1)",D(1)=0
 S ^VCORR="END " G @A,@B
 ;
488 S ^ABSN="11833",^ITEM="I-488  Indirection of postcondition",^NEXT="V1IDDO^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S A="A(K+0)",A(1)="ROUTINE",K=1,B="B(K)",B(1)="END"
 S ^VCORR="ROUTINE END+1 AT 5+2 " G:@A=1 @@B^V1IDGO1 G:@A="ROUTINE" @@A^V1IDGOB

V1IDGO1
V1IDGO1 ;IW-KO-TS,V1IDGO,MVTS V9.10;15/6/96;INDIRECTION IN GOTO COMMAND
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCOMP=^VCOMP_"^V1IDGO1 " Q  ;480
END S ^VCOMP=^VCOMP_"END " G EXAMINER ;487
 S ^VCOMP=^VCOMP_"END+1 " ;488
 S A="A(1)",A(1)=1,^V1A(1)="^V1IDGO1",^V1IDGO1="V1IDGO1"
 S C(1)="C(11)",C(11)="0000.0020"
 G:$D(@^V1A(@A))=1 192+1^@@^V1A(1):"0=1",AT^V1IDGOB:@C(1),AT+1^V1IDGOB:1
%BREAK S ^VCOMP=^VCOMP_"%BREAK " G EXAMINER ;486
DATA S ^VCOMP=^VCOMP_"DATA " G EXAMINER
 S ^VCOMP=^VCOMP_"DATA+1 " G EXAMINER
 S ^VCOMP=^VCOMP_"DATA+2 ",A="EXAMINER:A=A,ERR" G @A G EXAMINER ;458
 S ^VCOMP=^VCOMP_"DATA+3 " G EXAMINER ;483
5 S ^VCOMP=^VCOMP_"5 " G @@"^V1A" ;482
 S ^VCOMP=^VCOMP_"5+1 ",B="DIARY+1^V1IDGO" G @B ;481
 S ^VCOMP=^VCOMP_"5+2 " G EXAMINER ;488
 S ^VCOMP=^VCOMP_"5+3 "
 S A="9",B="C",C=1,D="V1IDGO",E="A",F="A" G @A+@B^@D:@E=@F
% S ^VCOMP=^VCOMP_"% " G EXAMINER ;484
10 S ^VCOMP=^VCOMP_"10 " G EXAMINER ;481
00120 S ^VCOMP=^VCOMP_"00120 " G EXAMINER ;486
0012 S ^VCOMP=^VCOMP_"0012 " G @B ;484
ERR S ^VCOMP=^VCOMP_"ERR " G EXAMINER ;458
EXAMINER D ^VEXAMINE 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

V1IDDO
V1IDDO ;IW-KO-TS,VV1,MVTS V9.10;15/6/96;INDIRECTION IN DO COMMAND  SUB DRIVER
V1IDDOA W !!,"151---V1IDDOA" D ^V1IDDOA
V1IDDOB W !!,"152---V1IDDOB" D ^V1IDDOB
 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

V1IDDOA
V1IDDOA ;IW-KO-TS,V1IDDO,MVTS V9.10;15/6/96;INDIRECTION IN DO COMMAND -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"151---V1IDDOA: Indirection in1 DO arguments -1-",!
461 W !,"I-461  Indirection of dlabel"
 S ^ABSN="11834",^ITEM="I-461  Indirection of dlabel",^NEXT="462^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S A=1 DO @A
 S ^VCORR="1 " D ^VEXAMINE
 ;
462 W !,"I-462  Indirection of dlabel, while dlabel contains indirection"
 S ^ABSN="11835",^ITEM="I-462  Indirection of dlabel, while dlabel contains indirection",^NEXT="463^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S L="@L(1)",L(1)="@$P(""ONE/TWO/THREE"",""/"",2)"
 D @L
 S ^VCORR="TWO " D ^VEXAMINE
 ;
463 W !,"I-463  Indirection of dlabel+intexpr"
 S ^ABSN="11836",^ITEM="I-463  Indirection of dlabel+intexpr",^NEXT="464^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S A="ENTRY" DO @A+00002+(2+3)-04 ;ENTRY+3
 S ^VCORR="ENTRY3 " D ^VEXAMINE
 ;
464 W !,"I-464  Indirection of dlabel+intexpr, while intexpr contains indirection"
 S ^ABSN="11837",^ITEM="I-464  Indirection of dlabel+intexpr, while intexpr contains indirection",^NEXT="465^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S A=1,B="A" DO @A+@B ;1+1 ;(test corrected in V7.2;24/2/88)
 S ^VCORR="2 " D ^VEXAMINE
 ;
465 W !,"I-465  Indirection of dlabel+intexpr, while dlabel and intexpr contains"
 S ^ABSN="11838",^ITEM="I-465  Indirection of dlabel+intexpr, while dlabel and intexpr contains",^NEXT="466^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="A(I)",I=02,A(2)="000001",^V1A="@B^@B(1)",B="0098",B(1)="V1IDDO1"
 D @@A+A(2),@^V1A
 S ^VCORR="000001+1 0098 " D ^VEXAMINE
 ;
466 W !,"I-466  Indirection of routine name"
 S ^ABSN="11839",^ITEM="I-466  Indirection of routine name",^NEXT="467^V1IDDOA,V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S A="V1IDDO1" D ^@A
 S B="^V1IDDO1" D @B
 S A="^V1IDDO1,^@B",B="V1IDDO1" D @A
 S ^VCORR="^V1IDDO1 ^V1IDDO1 ^V1IDDO1 ^V1IDDO1 " D ^VEXAMINE
 ;
467 W !,"I-467  Indirection of routine name, while routine name contains indirection"
 S ^ABSN="11840",^ITEM="I-467  Indirection of routine name, while routine name contains indirection",^NEXT="V1IDDOB^V1IDDO,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" S ^V1IDDO1="A",A=10,C="V1IDDO1",V1IDDO1="V1IDDO1"
 D @A^@C,V1IDDO+-5+@^V1IDDO1^@@C
 S ^VCORR="10 98 " D ^VEXAMINE
 ;
END W !!,"End of 151---V1IDDOA",!
 K  K ^V1A,^V1IDDO1 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
98 S ^VCOMP=^VCOMP_"98 " Q
00980 S ^VCOMP=^VCOMP_"00980 " Q  ;470
0098 S ^VCOMP=^VCOMP_"0098 " Q  ;470
ROUTINE S ^VCOMP=^VCOMP_"ROUTINE " Q  ;474
1 S ^VCOMP=^VCOMP_"1 " Q  ;461,473
 S ^VCOMP=^VCOMP_"2 " Q  ;464,473
DREI S ^VCOMP=^VCOMP_"3 " Q  ;473
SIEBEN7 S ^VCOMP=^VCOMP_7 Q
 S ^VCOMP=^VCOMP_"SIEBEN7+1 " Q  ;472
%BREAK S ^VCOMP=^VCOMP_"%BREAK " Q  ;472
ENTRY S ^VCOMP=^VCOMP_"ENTRY " Q
 S ^VCOMP=^VCOMP_"ENTRY1 " Q
ENTRY2 S ^VCOMP=^VCOMP_"ENTRY2 " Q
 S ^VCOMP=^VCOMP_"ENTRY3 " Q  ;463
 QUIT
ONE S ^VCOMP=^VCOMP_"ONE " Q
TWO S ^VCOMP=^VCOMP_"TWO " Q  ;462
THREE S ^VCOMP=^VCOMP_"THREE " Q
% S ^VCOMP=^VCOMP_"% " Q
0123 S ^VCOMP=^VCOMP_"0123 " Q
012 S ^VCOMP=^VCOMP_"012 " Q
000001 S ^VCOMP=^VCOMP_"000001 " Q
 S ^VCOMP=^VCOMP_"000001+1 " Q  ;465

V1IDDOB
V1IDDOB ;IW-KO-TS,V1IDDO,MVTS V9.10;15/6/96;INDIRECTION IN DO COMMAND -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"152---V1IDDOB: Indirection in DO arguments -2-",!
468 W !,"I-468  Indirection of dlabel^routinename"
 S ^ABSN="11841",^ITEM="I-468  Indirection of dlabel^routinename",^NEXT="469^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="B",B=5,C="V1IDDO1" D @@A^@C S ^V1A="12^V1IDDO1" D @@"^V1A"
 S ^VCORR="5 12 " D ^VEXAMINE
 ;
469 W !,"I-469  Indirection of dlabel+intexpr^routinename"
 S ^ABSN="11842",^ITEM="I-469  Indirection of dlabel+intexpr^routinename",^NEXT="470^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1IDDO1="V1IDDO+1^V1IDDO1" D @^V1IDDO1
 S ^V1IDDO1="A",A=5,C="V1IDDO1" D AT+-3+@^V1IDDO1^@C
 S ^VCORR="V1IDDO+1 V1IDDO " D ^VEXAMINE
 ;
470 W !,"I-470  Argument level indirection without postcondition"
 S ^ABSN="11843",^ITEM="I-470  Argument level indirection without postcondition",^NEXT="471^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1A="0098",A="@^V1A,@(^V1A_0)",B="V1IDDO+2^@%,@C",%="V1IDDO1"
 S C="%^V1IDDOB,@(1_0)+1^V1IDDO1"
 D @A,@B
 S ^VCORR="0098 00980 V1IDDO+2 % 10+1 " D ^VEXAMINE
 ;
471 W !,"I-471  Argument level indirection with postcondition"
 S ^ABSN="11844",^ITEM="I-471  Argument level indirection with postcondition",^NEXT="472^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="%ABC^V1IDDO1:$L(0.023000)=4,10+100/51^V1IDDO1:^VCOMP[""%"""
 D:$L(0.02300)=4 @A
 S ^VCORR="%ABC 10+1 " D ^VEXAMINE
 ;
472 W !,"I-472  Indirection of argument list without postcondition"
 S ^ABSN="11845",^ITEM="I-472  Indirection of argument list without postcondition",^NEXT="473^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="%BREAK",B="SIEBEN7+@C-@C+1",C="D",D=10 D @A,@B
 S ^VCORR="%BREAK SIEBEN7+1 " D ^VEXAMINE
 ;
473 W !,"I-473  Indirection of argument list with postcondition"
 S ^ABSN="11846",^ITEM="I-473  Indirection of argument list with postcondition",^NEXT="474^V1IDDOB,V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP=""
 S ^V1IDDO1="A",A="""1ABCDE""" D @("ZEHN+"_@^V1IDDO1_"^V1"_"IDDO1:1=1,NOTHING^V1IDDO1:1=0")
 S A="MENU^V1IDDO1:A=A,ZEHN^V1IDDO1:1=0,@B+1^V1IDDO1",B="MENU" D @A
 S A=1,B="A" DO @A,@A+@B,@A+3-@B:@B=1
 S ^VCORR="ZEHN+1 MENU MENU+1 1 2 3 " D ^VEXAMINE
 ;
474 W !,"I-474  Indirection of postcondition"
 S ^ABSN="11847",^ITEM="I-474  Indirection of postcondition",^NEXT="V1IDARG^VV1" D ^V1PRESET
 S ^VCOMP="" K ^V1A,^V1IDDO1
 S A="A(K+0)",A(1)="ROUTINE",K=1
 D:@A="ROUTINE" @@A^V1IDDOB D:@A=1 @A^V1IDDOB D @@A^V1IDDOB:@A="ROUTINE"
 S A="A(1)",A(1)=1,^V1A(1)="^V1IDDO1",^V1IDDO1="V1IDDO1"
 S C(1)="C(11)",C(11)="1=1",C(2)="C(22)",C(22)="2=1"
 D:$D(@^V1A(@A))=1 98+1^@@^V1A(1),AT^V1IDDO1:@C(1),AT+1^V1IDDO1:@C(2)
 S ^VCORR="ROUTINE ROUTINE 00980 AT AT+1 " D ^VEXAMINE
 ;
END W !!,"End of 152---V1IDDOB",!
 K  K ^V1A,^V1IDDO1 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
98 S ^VCOMP=^VCOMP_"98 " Q
00980 S ^VCOMP=^VCOMP_"00980 " Q  ;470
0098 S ^VCOMP=^VCOMP_"0098 " Q  ;470
ROUTINE S ^VCOMP=^VCOMP_"ROUTINE " Q  ;474
1 S ^VCOMP=^VCOMP_"1 " Q  ;461,473
 S ^VCOMP=^VCOMP_"2 " Q  ;464,473
DREI S ^VCOMP=^VCOMP_"3 " Q  ;473
SIEBEN7 S ^VCOMP=^VCOMP_7 Q
 S ^VCOMP=^VCOMP_"SIEBEN7+1 " Q  ;472
%BREAK S ^VCOMP=^VCOMP_"%BREAK " Q  ;472
ENTRY S ^VCOMP=^VCOMP_"ENTRY " Q
 S ^VCOMP=^VCOMP_"ENTRY1 " Q
ENTRY2 S ^VCOMP=^VCOMP_"ENTRY2 " Q
 S ^VCOMP=^VCOMP_"ENTRY3 " Q  ;463
 QUIT
ONE S ^VCOMP=^VCOMP_"ONE " Q
TWO S ^VCOMP=^VCOMP_"TWO " Q  ;462
THREE S ^VCOMP=^VCOMP_"THREE " Q
% S ^VCOMP=^VCOMP_"% " Q
0123 S ^VCOMP=^VCOMP_"0123 " Q
012 S ^VCOMP=^VCOMP_"012 " Q
000001 S ^VCOMP=^VCOMP_"000001 " Q
 S ^VCOMP=^VCOMP_"000001+1 " Q  ;465

V1IDDO1
V1IDDO1 ;IW-KO-TS,V1IDDO,MVTS V9.10;15/6/96;INDIRECTION IN DO COMMAND;CALL BY V1IDDOA AND V1IDDOB
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S ^VCOMP=^VCOMP_"^V1IDDO1 " Q  ;466
5 S ^VCOMP=^VCOMP_"5 " Q  ;468
12 S ^VCOMP=^VCOMP_"12 " Q  ;468
NOTHING S ^VCOMP=^VCOMP_"NOTHING " Q  ;473
MENU S ^VCOMP=^VCOMP_"MENU " Q  ;473
 S ^VCOMP=^VCOMP_"MENU+1 " Q  ;473
%ABC S ^VCOMP=^VCOMP_"%ABC " ;471
 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
ZEHN S ^VCOMP=^VCOMP_"ZENH " Q  ;473
 S ^VCOMP=^VCOMP_"ZEHN+1 " Q  ;473
AT S ^VCOMP=^VCOMP_"AT " Q  ;474
 S ^VCOMP=^VCOMP_"AT+1 " Q  ;474
V1IDDO S ^VCOMP=^VCOMP_"V1IDDO " Q  ;469
 S ^VCOMP=^VCOMP_"V1IDDO+1 " Q  ;469
 S ^VCOMP=^VCOMP_"V1IDDO+2 " Q  ;470
10 S ^VCOMP=^VCOMP_"10 " Q  ;467
 S ^VCOMP=^VCOMP_"10+1 " Q  ;471
98 S ^VCOMP=^VCOMP_"98 " Q  ;467
00980 S ^VCOMP=^VCOMP_"00980 " Q  ;474
0098 S ^VCOMP=^VCOMP_"0098 " ;465

V1IDARG
V1IDARG ;IW-KO-MM-YS-TS,VV1,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1IDARG1 W !!,"153---V1IDARG1" D ^V1IDARG1
V1IDARG2 W !!,"154---V1IDARG2" D ^V1IDARG2
V1IDARG3 W !!,"155---V1IDARG3" D ^V1IDARG3
V1IDARG4 W !!,"156---V1IDARG4" D ^V1IDARG4
V1IDARG5 W !!,"157---V1IDARG5" D ^V1IDARG5
V1IDARG6 W !!,"158---V1IDARG6" D ^V1IDARG6
 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

V1IDARG1
V1IDARG1 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"153---V1IDARG1: Argument level indirection -1-",!
IF W !,"IF command",!
417 S ^ABSN="11848",^ITEM="I-417  Indirection of ifargument",^NEXT="418^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" S A=1 I @A S VCOMP=1 I  S VCOMP=VCOMP_" "_$T_"/"
 E  S VCOMP=VCOMP_"ERROR 417.1"
 S A="1=0" I @A S VCOMP=VCOMP_"ERROR 417.2"
 E  S VCOMP=VCOMP_2
 S VCOMP=VCOMP_" "_$T_"/"
 S B="1=1",D="B" I @D S VCOMP=VCOMP_3 I  S VCOMP=VCOMP_" "_$T
 E  S VCOMP=VCOMP_"ERROR 417.3"
 S ^VCOMP=VCOMP,^VCORR="1 1/2 0/3 1" D ^VEXAMINE
 ;
418 S ^ABSN="11849",^ITEM="I-418  Indirection of ifargument list",^NEXT="419^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP=""
 S A="1=1,0" I @A S VCOMP=VCOMP_"ERROR 418 " I  S VCOMP=VCOMP_"ERROR 418.1 "
 E  S VCOMP=VCOMP_"418 "_$T
 S ^VCOMP=VCOMP,^VCORR="418 0" D ^VEXAMINE
 ;
419 S ^ABSN="11850",^ITEM="I-419  List of indirection and ifargument",^NEXT="420^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP=""
 S B="00.1,2",C="$E(123,2)",D="1,0"
 IF 1.0,B,@B,@C S ^VCOMP=^VCOMP_"419.1 "_$T
 E  S ^VCOMP=^VCOMP_" ERROR 419.1 "_$T
 IF +D,2>1,@B,@C,@D S ^VCOMP=^VCOMP_" ERROR 419.2 "_$T
 E  S ^VCOMP=^VCOMP_" 419.2 "_$T
 S ^VCORR="419.1 1 419.2 0" D ^VEXAMINE
 ;
420 S ^ABSN="11851",^ITEM="I-420  2 levels of ifargument indirection",^NEXT="421^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S V=""
 S A="@A(1)",A(1)="$E(A(2),2,3)+0",A(2)=9876
 S ^V1A(100)="^V1A(2)",^(2)="^(3)=""ABCD""",^(3)="ABCD"
 I @A S V=V_"4201 " I @@^V1A(100) S V=V_"42011 "
 E  S V=V_" ERROR 420.1 "
 S V=V_$T_"/"
 S A(2)=2000 I @A S V=V_" ERROR 420.2 "
 E  S V=V_"4202 "
 S V=V_$T
 S ^VCOMP=V,^VCORR="4201 42011 1/4202 0" D ^VEXAMINE
 ;
421 S ^ABSN="11852",^ITEM="I-421  3 levels of ifargument indirection",^NEXT="422^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP=""
 S A="@A(1)",A(1)="@A(3)",A(3)="153.456E-2>A(4)",A(4)="0001.5000"
 K ^V1A S ^V1A(2)="B(2)",B(2)="^V1A(3)",^V1A(3)="""AB23E""?2A.N1A"
 I @A,0.002 S VCOMP=VCOMP_"AA " I 1,@@@^V1A(2) S VCOMP=VCOMP_"BB "
 E  S VCOMP=VCOMP_"E1 "
 S ^VCOMP=VCOMP,^VCORR="AA BB " D ^VEXAMINE
 ;
422 S ^ABSN="11853",^ITEM="I-422  Value of indirection expratom contains operator",^NEXT="423^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S ^VCOMP="" K ^V1A
 S ^V1A(101)="""DOG""[^V1A(3)",^V1A(3)="G"
 I @^V1A(101) S ^VCOMP=^VCOMP_"DOGS "
 E  S ^VCOMP=^VCOMP_"CATS "
 S ^V1A(3)="C" I @^V1A(101) S ^VCOMP=^VCOMP_"NOT CATS"
 E  S ^VCOMP=^VCOMP_"CATS"
 S ^VCORR="DOGS CATS" D ^VEXAMINE
 ;
423 S ^ABSN="11854",^ITEM="I-423  Value of indirection expratom is function",^NEXT="424^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP="" S A(1,1,1)="$L($P(""A-B-CCC-EFD-55555"",@B,I))=I",B="C",C="-"
 F I=1:1:5 I @A(1,1,1) S VCOMP=VCOMP_I_" "
 S ^VCOMP=VCOMP,^VCORR="1 3 5 " D ^VEXAMINE
 ;
424 S ^ABSN="11855",^ITEM="I-424  Value of indirection expratom contains indirection",^NEXT="425^V1IDARG1,V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP=""
 S A(1)="123=@B(@A(2))",B(1)="@C",C="D",D=22,A(2)="A(3)",A(3)=1
 I @A(@A(2)) S VCOMP=VCOMP_"A "
 E  S VCOMP=VCOMP_"AAE "
 S ^VCOMP=VCOMP,^VCORR="AAE " D ^VEXAMINE
 ;
425 S ^ABSN="11856",^ITEM="I-425  Value of indirection expratom subscripted variable name",^NEXT="V1IDARG2^V1IDARG,V1XECA^VV1" W !,^ITEM D ^V1PRESET
 S VCOMP=""
 S A(1)="A(@B,@B(2)),@B",B="B(1)",B(1)=2,B(2)="@B(3)",B(3)="B(4)",B(4)=3
 S A(2,3)=0.23E-3 I @A(1) S VCOMP=VCOMP_"A "
 E  S VCOMP=VCOMP_"AAE "
 S A(2,3)="0.00E+2=1" IF @A(1) S VCOMP=VCOMP_"BBE "
 E  S VCOMP=VCOMP_"B "
 S ^VCOMP=VCOMP,^VCORR="A B " D ^VEXAMINE
 ;
END W !!,"End of 153---V1IDARG1",!
 K  K ^V1A 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

V1IDARG2
V1IDARG2 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"154---V1IDARG2: Argument level indirection -2-"
KILL W !!,"KILL command",!
426 W !,"I-426  Indirection of killargument" K ^V1A,^V1B
 S ^ABSN="11857",^ITEM="I-426  Indirection of killargument",^NEXT="427^V1IDARG2,V1IDARG3^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K ^V1A,^V1B K  S ^VCOMP=""
 S (A,B,C,D,E,F)=1,A(1)=1,A(1,1)=11,^V1A(1)="^V1A",^V1B(9)=9
 S %1="D",%2="E,F" K @%1 K @%2 K @^V1A(1)
 S ^VCOMP=$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)_" "_$D(E)_" "_$D(F)_" "_$D(^V1A)_" "_$D(^V1B)
 S ^VCORR="11 1 1 0 0 0 0 10" D ^VEXAMINE
 ;
427 W !,"I-427  Indirection of killargument list"
 S ^ABSN="11858",^ITEM="I-427  Indirection of killargument list",^NEXT="428^V1IDARG2,V1IDARG3^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  K ^V1A,^V1B S ^VCOMP=""
 S (A,B,C,D,E,F)=1,A(1)=1,A(1,1)=11,^V1A(1)="^V1A",^V1B(9)=9,B(7)=0
 S %1="D",%2="B,E,F" K @%1,@%2,@(%1_","_%2),@^V1A(1)
 S ^VCOMP=$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)_" "_$D(E)_" "_$D(F)_" "_$D(^V1A)_" "_$D(^V1B)
 S ^VCORR="11 0 1 0 0 0 0 10" D ^VEXAMINE
 ;
428 W !,"I-428  Subscript is denoted by name level indirection"
 S ^ABSN="11859",^ITEM="I-428  Subscript is denoted by name level indirection",^NEXT="429^V1IDARG2,V1IDARG3^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S ^VCOMP="" K
 S A=1,A(1)=1,A(1,1)=11,B="A(@C,@C)",C="D",D=1 K @B
 S ^VCOMP=$D(A)_" "_$D(A(1))_" "_$D(A(1,1))_"+"
 S ^V1A=1,^V1A(10)=10,^(10,30,10)=1000,^V1B(10)=30
 S ^V1B(1)="^V1A(@^V1B(2),@^V1B(3))",^(2)="^V1A(10)",^(3)="^(10)",^(4)="^V1A"
 K @^V1B(@^V1B(4))
 S ^VCOMP=^VCOMP_$D(^V1A)_" "_$D(^V1A(10))_" "_$D(^V1A(10,30,10))_" "_$D(^V1A(20))
 S ^VCORR="11 1 0+11 1 0 0" D ^VEXAMINE
 ;
429 W !,"I-429  Indirection of exclusive KILL"
 S ^ABSN="11860",^ITEM="I-429  Indirection of exclusive KILL",^NEXT="430^V1IDARG2,V1IDARG3^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S ^VCOMP="" K  K ^V1A,^V1B
 S (A,B,C,D,E,F)=1,A(1)=1,A(1,1)=11,^V1A(1)="^V1A",^V1B(9)=9,B(7)=0
 S A="(B),D,E" K @A
 S ^VCOMP=$D(A)_" "_$D(B)_" "_$D(C)_" "_$D(D)_" "_$D(E)_" "_$D(F)_" "_$D(^V1A)_" "_$D(^V1B)
 S ^VCORR="0 11 0 0 0 0 10 10" D ^VEXAMINE
 ;
430 W !,"I-430  Value of indirection contains indirection"
 S ^ABSN="11861",^ITEM="I-430  Value of indirection contains indirection",^NEXT="V1IDARG3^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S (A,B,B(1),B(1,1),B(2),B(2,2,2),B(3,3),C)=1
 S Z="@A(1),@B(1)",A(1)="A(2)",B(1)="B(2),B(3)"
 K @Z,Z
 S ^VCOMP=$D(A)_" "_$D(B)_" "_$D(B(1))_" "_$D(B(1,1))_" "
 S ^VCOMP=^VCOMP_$D(B(2))_" "_$D(B(2,2,2))_" "_$D(B(3,3))_" "_$D(C)
 S ^VCORR="11 11 11 1 0 0 0 1" D ^VEXAMINE
 ;
END W !!,"End of 154---V1IDARG2",!
 K  K ^V1A,^V1B 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

V1IDARG3
V1IDARG3 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"155---V1IDARG3: Argument level indirection -3-",!
 ;
431 W !,"I-431  Value of indirection contains operators"
 S ^ABSN="11862",^ITEM="I-431  Value of indirection contains operators",^NEXT="432^V1IDARG3,V1IDARG4^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S VCOMP="" S INC="INCREMEN",INCREMEN="DEC"
 S K="@(""I""_""N""_""C"")"
 K @K
 S VCOMP=$D(INC)_" "_$D(INCREMEN)_INCREMEN
 S ^VCOMP=VCOMP,^VCORR="0 1DEC" D ^VEXAMINE
 ;
432 W !,"I-432  Value of indirection is function"
 S ^ABSN="11863",^ITEM="I-432  Value of indirection is function",^NEXT="433^V1IDARG3,V1IDARG4^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S ^VCOMP=""
 S A=1,B=2,C(1,2)=3,D=4,^V1A(1)=0
 S Z="@$P(""A|B|C|D|^V1A"",""|"",I)"
 F I=1:1:5 K @Z S ^VCOMP=^VCOMP_$D(A)_$D(B)_$D(C)_$D(D)_$D(^V1A)_" "
 S ^VCORR="0110110 0010110 000110 000010 00000 " D ^VEXAMINE
 ;
433 W !,"I-433  Value of indirection is lvn"
 S ^ABSN="11864",^ITEM="I-433  Value of indirection is lvn",^NEXT="434^V1IDARG3,V1IDARG4^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S ^VCOMP=""
 S A(1,1)=11 F I=1:1:5 S B(I)=I,C(1,I)=I,C(2,I)=I,II="I"
 S %A0="A,B(@II),C(1,I)"
 S ^VCOMP=^VCOMP_$D(A) F I=1:1:5 S ^VCOMP=^VCOMP_$D(B(I))_$D(C(1,I))_$D(C(2,I))_" "
 S ^VCOMP=^VCOMP_"/" F I=1:1:4 K @%A0
 S ^VCOMP=^VCOMP_$D(A) F I=1:1:5 S ^VCOMP=^VCOMP_$D(B(I))_$D(C(1,I))_$D(C(2,I))_" "
 S ^VCORR="10111 111 111 111 111 /0001 001 001 001 111 " D ^VEXAMINE
 ;
434 W !,"I-434  Value of indirection is gvn"
 S ^ABSN="11865",^ITEM="I-434  Value of indirection is gvn",^NEXT="854^V1IDARG3,V1IDARG4^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S VCOMP="" K ^V1A
 S ^V1A(1)=1,^V1A(2,2)=22,^V1A(2,2,2)=222,^V1A(1,1)=11,^V1A(3)=3,^V1A(2)=2
 S A="^V1A(A1),^(@A(1),A2)",A1=1.0,A2=02,A(1)="A(2)",A(2)=02
 S VCOMP=$D(^V1A(1))_" "_$D(^V1A(2))_" "_$D(^V1A(3))_" "_$D(^V1A(2,2))_" "
 S VCOMP=VCOMP_$D(^V1A(2,2,2))_" "_$D(^V1A(1,1))_"/"
 K @A
 S VCOMP=VCOMP_$D(^V1A(1))_" "_$D(^(2))_" "_$D(^(3))_" "_$D(^V1A(2,2))_" "
 S VCOMP=VCOMP_$D(^(2,2))_" "_$D(^V1A(1,1))
 S ^VCOMP=VCOMP,^VCORR="11 11 1 11 1 1/0 1 1 0 0 0" D ^VEXAMINE
 ;
854 W !,"I-854  Transition of $DATA from 11 to 1 after KILLing the only descendent"
 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
 S ^ABSN="12155",^ITEM="I-854  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="V1IDARG4^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S VCOMP="" K ^V1A
 S ^V1A(1)=1,^V1A(2,2,2)=222,^V1A(1,1)=11,^V1A(3)=3,^V1A(2)=2
 S A="^V1A(A1,@A(1)-1),^V1A(@A(1),^V1A(A2),3-A1)",A1=1.0,A2=02,A(1)="A(2)",A(2)=02
 S VCOMP=$D(^V1A(1))_" "_$D(^V1A(2))_" "_$D(^V1A(3))_" "_$D(^V1A(2,2))_" "
 S VCOMP=VCOMP_$D(^V1A(2,2,2))_" "_$D(^V1A(1,1))_"/"
 K @A
 S VCOMP=VCOMP_$D(^V1A(1))_" "_$D(^(2))_" "_$D(^(3))_" "_$D(^V1A(2,2))_" "
 S VCOMP=VCOMP_$D(^(2,2))_" "_$D(^V1A(1,1))
 S ^VCOMP=VCOMP,^VCORR="11 11 1 10 1 1/1 1 1 0 0 0" D ^VEXAMINE
 ;
END W !!,"End of 155---V1IDARG3",!
 K  K ^V1A 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

V1IDARG4
V1IDARG4 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"156---V1IDARG4: Argument level indirection -4-"
SET W !!,"SET command",!
435 W !,"I-435  Indirection of setargument"
 S ^ABSN="11866",^ITEM="I-435  Indirection of setargument",^NEXT="436^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K ^V1A,^V1B
 S ^VCOMP="" S A="A=0" S @A S ^VCOMP=^VCOMP_A
 S ^VCORR="0" D ^VEXAMINE
 ;
436 W !,"I-436  Indirection of setargument list"
 S ^ABSN="11867",^ITEM="I-436  Indirection of setargument list",^NEXT="437^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S VCOMP="" S A="P=1",B="Q=B=B+1,R=3" S @A,@B,@("S="_4)
 S VCOMP=VCOMP_P_Q_R_S
 S ^VCOMP=VCOMP,^VCORR="1234" D ^VEXAMINE
 ;
437 W !,"I-437  Indirection of multiple-assignment"
 S ^ABSN="11868",^ITEM="I-437  Indirection of multiple-assignment",^NEXT="438^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S ^VCOMP="" S B="C",A="(A,@B)=8",C="A",@@C
 S ^VCOMP=A_C
 S ^VCORR="88" D ^VEXAMINE
 ;
438 W !,"I-438  2 levels of setargument indirection"
 S ^ABSN="11869",^ITEM="I-438  2 levels of setargument indirection",^NEXT="439^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S ^VCOMP="" S A="T=5",B="U=6",C="@A,@B",@C,^VCOMP=^VCOMP_T_U
 S ^VCORR="56" D ^VEXAMINE
 ;
439 W !,"I-439  3 levels of setargument indirection"
 S ^ABSN="11870",^ITEM="I-439  3 levels of setargument indirection",^NEXT="440^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S VCOMP=""
 S A="Q(1)=10",B="^V1A(10)=100,^(20)=""QUIT """,C="@A,(M(1),M(2))=20,M=200,@B"
 S D="@C,N(1)=0.001",@D
 S VCOMP=Q(1)_^V1A(10)_^V1A(20)_M(1)_M(2)_M_N(1)
 S ^VCOMP=VCOMP,^VCORR="10100QUIT 2020200.001" D ^VEXAMINE
 ;
440 W !,"I-440  Value of indirection contains name level indirection"
 S ^ABSN="11871",^ITEM="I-440  Value of indirection contains name level indirection",^NEXT="441^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S A="@A(1)=$J(987.6E-2,6,2),@B(1)=@B(2)",A(1)="A(2)",B(1)="C(10)",B(2)="B(3)",B(3)="SET"
 S @A,^VCOMP=A(2)_" "_C(10),^VCORR="  9.88 SET" D ^VEXAMINE
 ;
441 W !,"I-441  Value of indirection contains operators"
 S ^ABSN="11872",^ITEM="I-441  Value of indirection contains operators",^NEXT="442^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S VCOMP=""
 S A="B",B="C",C=3,D="@(""V=@B+1+""_"_"B"_")" S @D
 S ^VCOMP=VCOMP_V,^VCORR="7" D ^VEXAMINE
 ;
442 W !,"I-442  Value of indirection is function"
 S ^ABSN="11873",^ITEM="I-442  Value of indirection is function",^NEXT="443^V1IDARG4,V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 S ^V1A(2)="@($P(""^V1A(I)/^V1B(I)/^V1C(I)/^V1D(I)"",""/"",I))=I_"" """
 F I=1,3 S:I @^V1A(2)
 S ^VCOMP=^V1A(1)_^V1C(3) S ^VCORR="1 3 " D ^VEXAMINE
 ;
443 W !,"I-443  Value of indirection contains subscripted local variable"
 S ^ABSN="11874",^ITEM="I-443  Value of indirection contains subscripted local variable",^NEXT="V1IDARG5^V1IDARG,V1XECA^VV1" D ^V1PRESET
 K  S VCOMP=""
 S ^V1A(1,2)="A(1,2,3)=123,%A(A,@B,@@C)=@D_@C",A=1.00,B="B(1)",B(1)=2
 S C="C(1)",C(1)="C(2)",C(2)="3",D="D(1,1,1,1)",D(1,1,1,1)="LOCAL"_'0
 S @^V1A(1,2)
 S ^VCOMP=A(1,2,3)_" "_%A(1,2,3),^VCORR="123 LOCAL1C(2)" D ^VEXAMINE
 ;
END W !!,"End of 156---V1IDARG4",!
 K  K ^V1A,^V1C 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

V1IDARG5
V1IDARG5 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -5-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"157---V1IDARG5: Argument level indirection -5-"
WRITE W !!,"WRITE command" W:$Y>55 #
 ;
 I $D(^VENVIRON("INPUT USE"))=1 U ^VENVIRON("INPUT USE")
 W !,"This routine (157---V1IDARG5) contains 9 tests to be checked by OPERATOR."
REP W !!,"When you are ready, press ""Y/y"" and a <CR> : " READ Y,!
 IF Y="Y" GOTO REP1
 IF Y="y" GOTO REP1
 GOTO REP
REP1 I $D(^VENVIRON("OUTPUT USE"))=1 U ^VENVIRON("OUTPUT USE")
 ;
444 S ^ABSN="11875",^ITEM="I-444  Indirection of writeargument except format (by OPERATOR)",^NEXT="445^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 S A="B",B="WRITE"
 W !,"   WRITE"
 W !?3,@A
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 444
 ;
445 S ^ABSN="11876",^ITEM="I-445  Indirection of writeargument list (by OPERATOR)",^NEXT="446^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 S A="B",B=" ** ",C="""DOT"""
 W !,"    **  ** DOT"
 W !?3,@A,@A,@C
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 445
 ;
446 S ^ABSN="11877",^ITEM="I-446  Indirection of format control parameters (by OPERATOR)",^NEXT="447^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 S A="!?3,""AB"""
 W !,"   AB" W @A
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 446
 ;
447 S ^ABSN="11878",^ITEM="I-447  2 levels of writeargument indirection (by OPERATOR)",^NEXT="448^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 S B(1)="@B(2),@B(3)",B(2)="!?3,1",B(3)="?3,B(4)",B(4)=" LINE"
 S C="C(1)",C(1)="C(2)",C(2)=" PAGE"
 W !,"   1 LINE PAGE"
 W @B(1),@@C
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 447
 ;
448 S ^ABSN="11879",^ITEM="I-448  3 levels of writeargument indirection (by OPERATOR)",^NEXT="449^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 K B,C
 S B="B(1)",B(1)="B(2)",B(2)="?3,B(3)_B(4)",B(3)="#",B(4)="%% "
 S C="@C(1),@C(2)",C(1)="@C(3)",C(2)="@C(4)",C(3)="D,D+D",C(4)="$E(0.123,2,3)"
 S D=12.3
 W !,"   #%% 12.324.612"
 W !,@@@B,@C
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 448
 ;
449 S ^ABSN="11880",^ITEM="I-449  Value of indirection contains name level indirection (by OPERATOR)",^NEXT="450^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"   101"
 S A="@B+1",B="C",C=100
 W !?3,@A
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 449
 ;
450 S ^ABSN="11881",^ITEM="I-450  Value of indirection contains operators (by OPERATOR)",^NEXT="451^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !?3,1
 W !?3,@''10
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 450
 ;
451 S ^ABSN="11882",^ITEM="I-451  Value of indirection contains function (by OPERATOR)",^NEXT="452^V1IDARG5,V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 S BC(1)="*****"
 W !,"   *****"
 W !?3,@($E("ABCDEFGHIJK",2,3)_"(1)")
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 451
 ;
452 S ^ABSN="11883",^ITEM="I-452  Value of indirection is numeric literal (by OPERATOR)",^NEXT="V1IDARG6^V1IDARG,V1XECA^VV1" W !!,^ITEM D ^V1PRESET
 W !,"       Following two lines should be identical:"
 W !,"   987.56"
 S A="+09875.600E-1" W !?3,@A
 D MANPF1^VEXAMINE I $D(RES)=1 I RES="AGAIN" G 452
 ;
END W !!,"End of 157---V1IDARG5",!
 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

V1IDARG6
V1IDARG6 ;IW-KO-MM-YS-TS,V1IDARG,MVTS V9.10;15/6/96;ARGUMENT LEVEL INDIRECTION -6-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"158---V1IDARG6: Argument level indirection -6-"
XECUTE W !!,"XECUTE command",!
453 W !,"I-453  Indirection of xecuteargument"
 S ^ABSN="11884",^ITEM="I-453  Indirection of xecuteargument",^NEXT="454^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP="" S A="B",B="S VCOMP=1" XECUTE @A
 S G="""S VCOMP=VCOMP_2"",H",H="S VCOMP=VCOMP_3" X @G
 S ^VCOMP=VCOMP,^VCORR="123" D ^VEXAMINE
 ;
454 W !,"I-454  Indirection of xecuteargument list"
 S ^ABSN="11885",^ITEM="I-454  Indirection of xecuteargument list",^NEXT="455^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S ^VCOMP=""
 S A="B",B="S ^VCOMP=^VCOMP+1",C="""SET ^VCOMP=^VCOMP+10,^VCOMP=^VCOMP/100"""
 X @A,@C S ^VCORR=".11" D ^VEXAMINE
 ;
455 W !,"I-455  2 levels of xecuteargument indirection"
 S ^ABSN="11886",^ITEM="I-455  2 levels of xecuteargument indirection",^NEXT="456^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP="",A="%",%="X @C(1),@C(1)",C(1)="C"
 S C="SET VCOMP=VCOMP_""1 "",%=0,C=""S VCOMP=VCOMP_""""! """"""" X @A
 S VCOMP=VCOMP_%,^VCOMP=VCOMP,^VCORR="1 ! 0" D ^VEXAMINE
 ;
456 W !,"I-456  3 levels of xecuteargument indirection"
 S ^ABSN="11887",^ITEM="I-456  3 levels of xecuteargument indirection",^NEXT="457^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP=""
 S B(0)="B",B="X B(1),@B(22)",B(1)="S A=1,A(1,2)=12",B(22)="B(2)"
 S B(2)="X B(3),@B(44),B(5)",B(3)="S VCOMP=VCOMP_$D(A)_"" ""_$D(A(1))_"" ""_$D(A(1,2))"
 S B(44)="B(4)",B(4)="K A(1) S:1 VCOMP=VCOMP_""/""",B(5)="S VCOMP=VCOMP_$D(A)_"" ""_$D(A(1))_"" ""_$D(A(1,2))"
 X @B(0) S ^VCOMP=VCOMP,^VCORR="11 10 1/1 0 0" D ^VEXAMINE
 ;
457 W !,"I-457  Value of indirection contains name level indirection"
 S ^ABSN="11888",^ITEM="I-457  Value of indirection contains name level indirection",^NEXT="458^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP="" S C="@D",D="@E",E="F",F="S VCOMP=457" X @C
 S ^VCOMP=VCOMP,^VCORR="457" D ^VEXAMINE
 ;
458 W !,"I-458  Value of indirection contains operators"
 S ^ABSN="11889",^ITEM="I-458  Value of indirection contains operators",^NEXT="459^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S B(2)=10,K=100,^V1(K)="""S (A""_$E(""QWER"",2,3)_"",B(1),B(2))=B(2)+10"""
 X @^V1(K) S VCOMP=AWE_B(1)_B(2)
 S ^VCOMP=VCOMP,^VCORR="202020" D ^VEXAMINE
 ;
459 W !,"I-459  Value of indirection contains function"
 S ^ABSN="11890",^ITEM="I-459  Value of indirection contains function",^NEXT="460^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP="" K ^V1
 S ^V1(2)="$S(12>23:""S VCOMP=VCOMP_$L(2)"",90<91:""S VCOMP=VCOMP_$L(32)"")"
 XECUTE @^V1(2)
 S ^VCOMP=VCOMP,^VCORR="2" D ^VEXAMINE
 ;
460 W !,"I-460  Value of indirection contains argument level indirection"
 S ^ABSN="11891",^ITEM="I-460  Value of indirection contains argument level indirection",^NEXT="855^V1IDARG6,V1XECA^VV1" D ^V1PRESET
 S VCOMP=""
 S A="VCOMP=$P(""SET/TEST/LET"",""/"",2),A(1)=100",Z="S @A",B="C",C=1,Z(1)="Z"
 X:@B @Z(1) S VCOMP=VCOMP_A(1)
 S ^VCOMP=VCOMP,^VCORR="TEST100" D ^VEXAMINE
 ;
855 W !,"I-855  Transition of $DATA from 11 to 1 after KILLing the only descendent"
 ;--(12/2/93 add. in V8.02 for ANSI 1990 Std. KILL command)
 S ^ABSN="12156",^ITEM="I-855  Transition of $DATA from 11 to 1 after KILLing the only descendent",^NEXT="V1XECA^VV1" D ^V1PRESET
 S B(0)="B",B="X B(1),@B(22)",B(1)="S A=1,A(1,2)=12",B(22)="B(2)",VCOMP="" K A
 S B(2)="X B(3),@B(44),B(5)",B(3)="S VCOMP=VCOMP_$D(A)_"" ""_$D(A(1))_"" ""_$D(A(1,2))"
 S B(44)="B(4)",B(4)="K A(1,2) S:1 VCOMP=VCOMP_""/""",B(5)="S VCOMP=VCOMP_$D(A)_"" ""_$D(A(1))_"" ""_$D(A(1,2))"
 X @B(0) S ^VCOMP=VCOMP,^VCORR="11 10 1/1 0 0" D ^VEXAMINE
 ;
END W !!,"End of 158---V1IDARG6",!
 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

V1XECA
V1XECA ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;XECUTE COMMAND -1-  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1XECA1 W !!,"159---V1XECA1" D ^V1XECA1
V1XECA2 W !!,"160---V1XECA2" D ^V1XECA2
 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

V1XECA1
V1XECA1 ;IW-YS-TS,V1XECA,MVTS V9.10;15/6/96;XECUTE COMMAND -1.1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"159---V1XECA1: XECUTE command -1.1-",!
805 W !,"I-805  Single argument"
 S ^ABSN="11892",^ITEM="I-805  Single argument",^NEXT="806^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" XECUTE "S VCOMP=1" S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
 ;
806 W !,"I-806  Argument list"
 S ^ABSN="11893",^ITEM="I-806  Argument list",^NEXT="807^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S ^VCOMP="" X "S A=2","SET ^VCOMP=A" S ^VCORR="2" D ^VEXAMINE
 ;
807 W !,"I-807  Interpretation of argument as expression"
8071 S ^ABSN="11894",^ITEM="I-807.1  SET command",^NEXT="8072^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S ^VCOMP="" K A
 S X="S A=3 S ^VCOMP=A+1" X X S ^VCORR="4" D ^VEXAMINE
 ;
8072 S ^ABSN="11895",^ITEM="I-807.2  Argument contains _ operator",^NEXT="808^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 K A S A(1)=9
 S X(1)="S A=4" X X(1)_",^VCOMP=A_0" S ^VCORR="40" D ^VEXAMINE
 ;
808 W !,"I-808  Postconditional of arguments"
8081 S ^ABSN="11896",^ITEM="I-808.1  tvexpr is true",^NEXT="8082^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S P=1 X:P=1 "S VCOMP=""#""":P=0,"S P=2":P=1,"S VCOMP=""B""":P=2
 S ^VCOMP=VCOMP,^VCORR="B" D ^VEXAMINE
 ;
8082 S ^ABSN="11897",^ITEM="I-808.2  tvexpr is false",^NEXT="8083^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S P=1 X:P=1 "S P=3":P=2,"S VCOMP=""C""":0,"S VCOMP=""%""":P=4,"S VCOMP=""D""":P=3 S ^VCOMP=VCOMP,^VCORR="" D ^VEXAMINE
 ;
8083 S ^ABSN="11898",^ITEM="I-808.3  tvexpr contains indirection",^NEXT="809^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S P=1,Q="P",R="S" S P=3 X:@Q=3 R_":P="_(10\3_" ")_"VCOMP=""FE""":@Q_Q="3P"
 S ^VCOMP=VCOMP,^VCORR="FE" D ^VEXAMINE
 ;
809 W !,"I-809  Postconditional of command word"
8091 S ^ABSN="11899",^ITEM="I-809.1  tvexpr is true",^NEXT="8092^V1XECA1,V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S P=1 XECUTE:P=1 "S VCOMP=""A"""
 S ^VCOMP=VCOMP,^VCORR="A" D ^VEXAMINE
 ;
8092 S ^ABSN="11900",^ITEM="I-809.2  tvexpr is false",^NEXT="V1XECA2^V1XECA,V1XECB^VV1" D ^V1PRESET
 S VCOMP="AS"
 S P=1 X:P=2 "S VCOMP=""*"""
 S ^VCOMP=VCOMP,^VCORR="AS" D ^VEXAMINE
 ;
END W !!,"End of 159---V1XECA1",!
 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 S VCOMP=VCOMP_4 Q
B S VCOMP=VCOMP_6 Q
C S VCOMP=VCOMP_I Q
D S VCOMP=VCOMP_I Q
E S VCOMP=VCOMP_I

V1XECA2
V1XECA2 ;IW-YS-TS,V1XECA,MVTS V9.10;15/6/96;XECUTE COMMAND -1.2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"160---V1XECA2: Xecute command -1.2-",!
810 W !,"I-810  Argument level indirection"
8101 S ^ABSN="11901",^ITEM="I-810.1  1 level",^NEXT="8102^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="",X="Y",Y="S A=1 S VCOMP=A" X @X
 S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
 ;
8102 S ^ABSN="11902",^ITEM="I-810.2  2 level",^NEXT="8103^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" S X="Y,Z",Y="S B=123,A=""B""",Z="S VCOMP=@A ;comment" X @X
 S ^VCOMP=VCOMP,^VCORR=123 D ^VEXAMINE
 ;
8103 S ^ABSN="11903",^ITEM="I-810.3  Value of indirection contains postcondition",^NEXT="811^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" S P=1,X="W:P=0,Y:P=1,Z",Y="S A=3",Z="S VCOMP=VCOMP_A",W="S VCOMP=1" X @X
 S ^VCOMP=VCOMP,^VCORR="3" D ^VEXAMINE
 ;
811 W !,"I-811  GOTO in XECUTE"
8111 S ^ABSN="11904",^ITEM="I-811.1  Local branching",^NEXT="8112^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "G B","S VCOMP=VCOMP_7"
 S ^VCOMP=VCOMP,^VCORR="67" D ^VEXAMINE
8112 S ^ABSN="11905",^ITEM="I-811.2  Overlay with external routine",^NEXT="812^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "S VCOMP=VCOMP_10 G ^V1XECAE S VCOMP=VCOMP_""ERROR 2 ""","S VCOMP=VCOMP_12"
 S ^VCOMP=VCOMP,^VCORR="101112" D ^VEXAMINE
 ;
812 W !,"I-812  FOR in XECUTE"
 S ^ABSN="11906",^ITEM="I-812  FOR in XECUTE",^NEXT="813^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "F I=1:1:3 S VCOMP=VCOMP_I","S VCOMP=VCOMP_4"
 X "F I=5:1:7 D C","S VCOMP=VCOMP_8"
 X "F I=9:1:11 G E","S VCOMP=VCOMP_10"
 X "S VCOMP=VCOMP_11 F I=12:1:14 S VCOMP=VCOMP_I Q:I>12","S VCOMP=VCOMP_14"
 S ^VCOMP=VCOMP,^VCORR="1234567891011121314" D ^VEXAMINE
 ;
813 W !,"I-813  DO in XECUTE"
8131 S ^ABSN="11907",^ITEM="I-813.1  Local branching",^NEXT="8132^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "D A","S VCOMP=VCOMP_5"
 S ^VCOMP=VCOMP,^VCORR="45" D ^VEXAMINE
8132 S ^ABSN="11908",^ITEM="I-813.2  Call external routine",^NEXT="8133^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "D 13^V1XECAE","S VCOMP=VCOMP_14"
 S ^VCOMP=VCOMP,^VCORR="1314" D ^VEXAMINE
8133 S ^ABSN="11909",^ITEM="I-813.3  Call external and local",^NEXT="814^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S A="D A,EXTERN^V1XECAE S VCOMP=VCOMP_""1 "" D B,13^V1XECAE,A"
 X A S ^VCOMP=VCOMP,^VCORR="4EX 1 6134" D ^VEXAMINE
 ;
814 W !,"I-814  QUIT in XECUTE"
 S ^ABSN="11910",^ITEM="I-814  QUIT in XECUTE",^NEXT="815^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 X "S VCOMP=8 Q  S VCOMP=VCOMP_""ERROR 1 ""","S VCOMP=VCOMP_9"
 S ^VCOMP=VCOMP,^VCORR="89" D ^VEXAMINE
 ;
815 W !,"I-815  Nesting of XECUTE"
8151 S ^ABSN="11911",^ITEM="I-815.1  2 nesting levels",^NEXT="8152^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S VCOMP="" X "X ""S A=1""","S VCOMP=A"
 S ^VCOMP=VCOMP,^VCORR="1" D ^VEXAMINE
 ;
8152 S ^ABSN="11912",^ITEM="I-815.2  3 nesting levels",^NEXT="8153^V1XECA2,V1XECB^VV1" D ^V1PRESET
 S ^VCOMP=""
 X "X ""X """"S A=2"""""",""S ^VCOMP=A"""
 S ^VCORR="2" D ^VEXAMINE
 ;
8153 S ^ABSN="11913",^ITEM="I-815.3  3 nesting levels another",^NEXT="V1XECB^VV1" D ^V1PRESET
 S VCOMP=""
 S X(1)="S A=3",X(2)="S VCOMP=VCOMP_A ;comment",X(3)="X X(2)",X(4)="X X(1),X(3)" X X(4) S ^VCOMP=VCOMP,^VCORR="3" D ^VEXAMINE
 ;
END W !!,"End of 160---V1XECA2",!
 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 S VCOMP=VCOMP_4 Q
B S VCOMP=VCOMP_6 Q
C S VCOMP=VCOMP_I Q
D S VCOMP=VCOMP_I Q
E S VCOMP=VCOMP_I

V1XECAE
V1XECAE ;IW-YS-TS,V1XECA,MVTS V9.10;15/6/96;XECUTE COMMAND -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 S VCOMP=VCOMP_11 Q
EXTERN S VCOMP=VCOMP_"EX " 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
13 S VCOMP=VCOMP_13

V1XECB
V1XECB ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;XECUTE COMMAND -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"161---V1XECB: XECUTE command -2-",!
816 W !,"I-816  DO in 2 nesting levels of XECUTE"
 S ^ABSN="11914",^ITEM="I-816  DO in 2 nesting levels of XECUTE",^NEXT="817^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S VCOMP=""
 X "S VCOMP=1 X ""S VCOMP=VCOMP_2 D F S VCOMP=VCOMP_4"" S VCOMP=VCOMP_5","S VCOMP=VCOMP_6"
 S ^VCOMP=VCOMP,^VCORR="123456" D ^VEXAMINE
 ;
817 W !,"I-817  GOTO in 2 nesting levels of XECUTE"
 S ^ABSN="11915",^ITEM="I-817  GOTO in 2 nesting levels of XECUTE",^NEXT="818^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S VCOMP="" X "S VCOMP=7 X ""S VCOMP=VCOMP_8 G G S VCOMP=VCOMP_""""ERROR 1 """""" S VCOMP=VCOMP_10","S VCOMP=VCOMP_11"
 S ^VCOMP=VCOMP,^VCORR="7891011" D ^VEXAMINE
 ;
818 W !,"I-818  QUIT in 2 nesting levels of XECUTE"
 S ^ABSN="11916",^ITEM="I-818  QUIT in 2 nesting levels of XECUTE",^NEXT="819^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S VCOMP=""
 X "S VCOMP=12 X ""S VCOMP=VCOMP_13 Q  S VCOMP=VCOMP_""""ERROR 2 """""" S VCOMP=VCOMP_14","S VCOMP=VCOMP_15"
 S ^VCOMP=VCOMP,^VCORR="12131415" D ^VEXAMINE
 ;
819 W !,"I-819  FOR in 2 nesting levels of XECUTE"
8191 S ^ABSN="11917",^ITEM="I-819.1  Without postcondition",^NEXT="8192^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S V="" X "S V=1 X ""F I=2:1:4 S V=V_I Q:I>2"" S V=V_4","S V=V_5"
 X "S V=V_6 X ""F I=7:1:9 D H Q:I>7"" S V=V_9","S V=V_10"
 X "S V=V_11 X ""F I=12:1:14 G I Q:I>12"" S V=V_13","S V=V_14"
 X "S V=V_15 X ""F I=16:1:17 D J G:I>16 L"" S V=V_19","S V=V_20"
 S ^VCOMP=V,^VCORR="1234567891011121314151617181920" D ^VEXAMINE
 ;
8192 S ^ABSN="11918",^ITEM="I-819.2  With postcondition",^NEXT="820^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S V=""
 X:0 "S V=V_"" ERROR """:1
 X:1 "S V=V_1 X ""F I=2:1:4 S V=V_I Q:I>2"" S V=V_4 Q  S V=V_""ERROR""","S V=V_5"
 X "S V=V_6 X ""F I=7:1 S V=V_I Q:I>99"":0,""S V=V_7"":1 S V=V_8","S V=V_9"
 K P,X,Q,R,S S P="S X=10 S V=V_X",Q="D M" X P,Q:X=10,R:X=10,S
 S ^VCOMP=V,^VCORR="123456789101112" D ^VEXAMINE
 ;
820 W !,"I-820  XECUTE a variable whose data contains KILLing of"
 W !,"       that variable itself"
 S ^ABSN="11919",^ITEM="I-820  KILL of the variable itself",^NEXT="821^V1XECB,V1SEQ^VV1" D ^V1PRESET
 S ^VCOMP="",A="S ^VCOMP=$D(A) K A S ^VCOMP=^VCOMP_$D(A)"
 X A S ^VCOMP=^VCOMP_$D(A) S ^VCORR="100" D ^VEXAMINE
 ;
821 W !,"I-821  XECUTE a variable whose data contains SETting"
 W !,"       the same variable to a different value from the"
 W !,"       one being XECUTEed"
 S ^ABSN="11920",^ITEM="I-821  SET differenct value in EXECUTE",^NEXT="V1SEQ^VV1" D ^V1PRESET
 S VCOMP="",A="S A=$J(1,10) S VCOMP=A"
 X A S ^VCOMP=VCOMP,^VCORR="         1" D ^VEXAMINE
 ;
END W !!,"End of 161---V1XECB",!
 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
 ;
F S VCOMP=VCOMP_3 Q
G S VCOMP=VCOMP_9 Q
H S V=V_I Q
I S V=V_I Q
J S V=V_I Q
K S V=V_I Q
L S V=V_(I+1) Q
M S R="***",X=0,S="S V=V_12" S V=V_11

V1SEQ
V1SEQ ;IW-YS-TS,VV1,MVTS V9.10;15/6/96;EXECUTION SEQUENCE
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"162---V1SEQ: Execution sequence of routines",!
788 W !,"I-788  GOTO and DO"
 S ^ABSN="11921",^ITEM="I-788  GOTO and DO",^NEXT="789^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 S V=V_1 DO DO788 S V=V_9
 S ^VCOMP=V,^VCORR="123456!6789" D ^VEXAMINE
 ;
789 W !,"I-789  FOR and DO"
 S ^ABSN="11922",^ITEM="I-789  FOR and DO",^NEXT="790^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 FOR I=1:1 Q:I=3  DO D7891
 S ^VCOMP=V,^VCORR="111 112 121 122 131 132 211 212 221 222 231 232 " D ^VEXAMINE
 ;
790 W !,"I-790  FOR, DO, and GOTO"
 S ^ABSN="11923",^ITEM="I-790  FOR, DO, and GOTO",^NEXT="791^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 S V=V_1 G A ;CONTROL WILL RETURN TO NEXT LINE.
 S V=V_"ERROR 790 2"
7901 S V=V_4 D B S V=V_7
 S V=V_8 F I=9:1:11 D C
 S V=V_12 F I=13:1:15 D E3^V1SEQ1
 S V=V_16 F I=17:2:21 D D
 S V=V_23 F I=24:1 G E5^V1SEQ1:I=25
 S V=V_" ERROR 7902 "
A7902 S ^VCOMP=V,^VCORR="123456789101112131415161718192021222325" D ^VEXAMINE
 ;
791 W !,"I-791  FOR, XECUTE, DO, and GOTO"
7911 S ^ABSN="11924",^ITEM="I-791.1  FOR, XECUTE, DO",^NEXT="7912^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 S V=V_11 F I=12:1:14 X "D H"_(I-11)
 S V=V_16 F I=17:1:19 X "D J"
 S V=V_20 F I=21:1:23 X "D K"
 S V=V_24 F I=25:1:27 X "D E3^V1SEQ1"
 S ^VCOMP=V,^VCORR="1112131415161718192021222324252627" D ^VEXAMINE
 ;
7912 S ^ABSN="11925",^ITEM="I-791.2  FOR, XECUTE, GOTO",^NEXT="7913^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 S V=V_0 F I=1:1:3 X "G L"
 S V=V_4 F I=5:1:7 X "G M"
 S V=V_8 F I=9:1:11 X "G N"
 S V=V_12 F I=13:1:15 X "G E3^V1SEQ1"
 S ^VCOMP=V,^VCORR="0123456789101112131415" D ^VEXAMINE
 ;
7913 S ^ABSN="11926",^ITEM="I-791.3  FOR, XECUTE, QUIT",^NEXT="792^V1SEQ,V1PAT^VV1" D ^V1PRESET
 S V=""
 S V=V_0 F I=1:1:5 X "S V=V_I Q  S V=V_""ERROR """
 S ^VCOMP=V,^VCORR="012345" D ^VEXAMINE
 ;
792 W !,"I-792  FOR, XECUTE, GOTO, and indirection"
 S ^ABSN="11927",^ITEM="I-792  FOR, XECUTE, GOTO, and indirection",^NEXT="V1PAT^VV1" D ^V1PRESET
 S V=""
 K P S P="E" S V=V_0 D @P,@P,@Q S V=V_5
 S V=V_6 F I=7:1:9 D @("H"_(I-6))
 S ^VCOMP=V,^VCORR="012345678910" D ^VEXAMINE
 ;
END W !!,"End of 162---V1SEQ",!
 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
 ;
DO788 S V=V_2 GOTO GOTO788 S V=V_" ERROR G7881 " Q
 S V=V_" ERROR D7882 " Q
 S V=V_4 G G788^V1SEQ1 S V=V_" ERROR G7883 " Q
A S V=V_2 D E1^V1SEQ1 G 7901 S V=V_"ERROR 7901 " Q
B S V=V_5 G E2^V1SEQ1
C S V=V_I Q
D S V=V_I G E4^V1SEQ1
E S V=V_1 S P="F" Q
F S V=V_2 G E6^V1SEQ1
G S V=V_4 Q
H1 S V=V_I Q
H2 S V=V_I
H3 S V=V_(I+1) Q
J D E3^V1SEQ1 Q
K G E3^V1SEQ1
L S V=V_I Q
M D E3^V1SEQ1 Q
N G E3^V1SEQ1
D78811 S V=V_"!" Q
GOTO788 S V=V_3 DO DO788+2 S V=V_8 Q
D7891 F J=1:1:3 D D7892^V1SEQ1

V1SEQ1
V1SEQ1 ;IW-YS-TS,V1SEQ,MVTS V9.10;15/6/96;EXECUTION SEQUENCE
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
E1 S V=V_3 Q
D7881 S V=V_6 D D78811^V1SEQ S V=V_6 Q
E2 S V=V_6 Q
E3 S V=V_I Q
G788 S V=V_5 D D7881 S V=V_7 QUIT
E4 S V=V_(I+1) Q
E5 S V=V_I G A7902^V1SEQ
E6 S V=V_3 S Q="G" 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
D7892 FOR K=1,2 S V=V_I_J_K_" "

V1PAT
V1PAT ;IW-KO-YS-TS,VV1,MVTS V9.10;15/6/96;PATTERN MATCH OPERATOR (?)  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1PAT1 W !!,"163---V1PAT1" D ^V1PAT1
V1PAT2 W !!,"164---V1PAT2" D ^V1PAT2
V1PAT3 W !!,"165---V1PAT3" D ^V1PAT3
V1PAT4 W !!,"166---V1PAT4" D ^V1PAT4
 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

V1PAT1
V1PAT1 ;IW-KO-YS-TS,V1PAT,MVTS V9.10;15/6/96;PATTERN MATCH OPERATOR (?) -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"163---V1PAT1: Pattern match operator -1-",!
696 W !,"I-696  Pattern code ""C"" and its mapping"
6961 S ^ABSN="11928",^ITEM="I-696.1  function?1C",^NEXT="6962^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I)?1C,^VCOMP=^VCOMP_A
 S ^VCORR="11111111111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001" D ^VEXAMINE
 ;
6962 S ^ABSN="11929",^ITEM="I-696.2  lvn?5C",^NEXT="697^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5C,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="11111111111111111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001" D ^VEXAMINE
 ;
697 W !,"I-697  Pattern code ""N"" and its mapping"
6971 S ^ABSN="11930",^ITEM="I-697.1  function?1N",^NEXT="6972^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I)?1N,^VCOMP=^VCOMP_A
 S ^VCORR="00000000000000000000000000000000000000000000000011111111110000000000000000000000000000000000000000000000000000000000000000000000" D ^VEXAMINE
 ;
6972 S ^ABSN="11931",^ITEM="I-697.2  lvn?5N",^NEXT="698^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5N,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="00000000000000000000000000000000000000000000000011111111110000000000000000000000000000000000000000000000000000000000000000000000" D ^VEXAMINE
 ;
698 W !,"I-698  Pattern code ""P"" and its mapping"
6981 S ^ABSN="11932",^ITEM="I-698.1  function?1P",^NEXT="6982^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I)?1P,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="00000000000000000000000000000000111111111111111100000000001111111000000000000000000000000001111110000000000000000000000000011110" D ^VEXAMINE
 ;
6982 S ^ABSN="11933",^ITEM="I-698.2  lvn?5P",^NEXT="699^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5P,^VCOMP=^VCOMP_A
 S ^VCORR="00000000000000000000000000000000111111111111111100000000001111111000000000000000000000000001111110000000000000000000000000011110" D ^VEXAMINE
 ;
699 W !,"I-699  Pattern code ""A"" and its mapping"
6991 S ^ABSN="11934",^ITEM="I-699.1  function?1A",^NEXT="6992^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I)?1A,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="00000000000000000000000000000000000000000000000000000000000000000111111111111111111111111110000001111111111111111111111111100000" D ^VEXAMINE
 ;
6992 S ^ABSN="11935",^ITEM="I-699.2  lvn?5A",^NEXT="700^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5A,^VCOMP=^VCOMP_A
 S ^VCORR="00000000000000000000000000000000000000000000000000000000000000000111111111111111111111111110000001111111111111111111111111100000" D ^VEXAMINE
 ;
700 W !,"I-700  Pattern code ""L"" and its mapping"
7001 S ^ABSN="11936",^ITEM="I-700.1  function?1L",^NEXT="7002^V1PAT1,V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I)?1L,^VCOMP=^VCOMP_A
 S ^VCORR="00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001111111111111111111111111100000" D ^VEXAMINE
 ;
7002 S ^ABSN="11937",^ITEM="I-700.2  lvn?5L",^NEXT="V1PAT2^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5L,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001111111111111111111111111100000" D ^VEXAMINE
 ;
END W !!,"End of 163---V1PAT1",!
 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

V1PAT2
V1PAT2 ;IW-KO-YS-TS,V1PAT,MVTS V9.10;15/6/96;PATTERN MATCH OPERATOR (?) -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"164---V1PAT2: Pattern match operator -2-",!
 ;
701 W !,"I-701  Pattern code ""U"" and its mapping"
7011 S ^ABSN="11938",^ITEM="I-701.1  function?1U",^NEXT="7012^V1PAT2,V1PAT3^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I)?1U,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="00000000000000000000000000000000000000000000000000000000000000000111111111111111111111111110000000000000000000000000000000000000" D ^VEXAMINE
 ;
7012 S ^ABSN="11939",^ITEM="I-701.2  lvn?5U",^NEXT="702^V1PAT2,V1PAT3^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5U,^VCOMP=^VCOMP_A
 S ^VCORR="00000000000000000000000000000000000000000000000000000000000000000111111111111111111111111110000000000000000000000000000000000000" D ^VEXAMINE
 ;
702 W !,"I-702  Pattern code ""E"" and its mapping"
7021 S ^ABSN="11940",^ITEM="I-702.1  function?1E",^NEXT="7022^V1PAT2,V1PAT3^V1PAT,V1NST1^VV1" D ^V1PRESET
 S VCOMP="" F I=0:1:127 S A=$C(I)?1E,VCOMP=VCOMP_A
 S ^VCOMP=VCOMP,^VCORR="11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111" D ^VEXAMINE
 ;
7022 S ^ABSN="11941",^ITEM="I-702.2  lvn?5E",^NEXT="V1PAT3^V1PAT,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP="" F I=0:1:127 S A=$C(I,I,I,I,I),A=A?5E,^VCOMP=^VCOMP_A
 S ^VCORR="11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111" D ^VEXAMINE
 ;
END W !!,"End of 164---V1PAT2",!
 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

V1PAT3
V1PAT3 ;IW-KO-YS-TS,V1PAT,MVTS V9.10;15/6/96;PATTERN MATCH OPERATOR (?) -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"165---V1PAT3: Pattern match operator -3-",!
703 W !,"I-703  multiplier>0"
 S ^ABSN="11942",^ITEM="I-703  multiplier>0",^NEXT="704^V1PAT3,V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S X="" F I=1:1:100 S X=X_"0"
 S X=X_"1" F I=1:1:99 S X=X_"0"
 S ^VCOMP=X?.N_(X?200N)_(X?."0"."1".N)_(X?.E1"0")_(X?.A.N.E."1".N) S ^VCORR="11111" D ^VEXAMINE
 ;
704 W !,"I-704  multiplier=0"
 S ^ABSN="11943",^ITEM="I-704  multiplier=0",^NEXT="705^V1PAT3,V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S X="",^VCOMP=""?0E_(""?0AULPCEN)_("0"?0"0")_("ASBC"?000E)_("ASDF"?0UPLPCEN),^VCORR="11000" D ^VEXAMINE ;(test corrected in V7.2;24/2/88)
 ;
705 W !,"I-705  Infinite multiplier (.)"
 S ^ABSN="11944",^ITEM="I-705  Infinite multiplier (.)",^NEXT="706^V1PAT3,V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S X="AB$",^VCOMP=""
 S ^VCOMP=X?.A_(X?.P)_(X?.P.N)_(X?.PN)_(X?.C.A.P)_(X?."AB"."$")_(X?."A"1A1"".P)_(X?.AP."")_(X?.E.A1PU1PL)
 S ^VCORR="000011111" D ^VEXAMINE
 ;
706 W !,"I-706  Empty string as patatom"
7061 S ^ABSN="11945",^ITEM="I-706.1  Empty string ? patatom",^NEXT="7062^V1PAT3,V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S A=""
 S ^VCOMP=(A?.C)_(A?.N)_(A?.P)_(A?.A)_(""?.L)_(A?.U)_(A?.E)_(A?."")_(A?."Q")_" "
 S ^VCOMP=^VCOMP_(""?0C)_(A?0N)_(A?0P)_(A?0A)_(A?0L)_(A?0U)_(A?0E)_(A?0"")_(A?0"Q")_" "
 S ^VCOMP=^VCOMP_(A?1C)_(A?2N)_(A?3P)_(""?4A)_(A?5L)_(A?6U)_(A?7E)_(""?8"")_(A?1"Q")_" "
 S ^VCORR="111111111 111111111 000000010 " D ^VEXAMINE
 ;
7062 S ^ABSN="11946",^ITEM="I-706.2  Empty string '? patatom",^NEXT="7063^V1PAT3,V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S A=""
 S ^VCOMP=(A'?.C)_(A'?.N)_(A'?.P)_(A'?.A)_(""'?.L)_(A'?.U)_(A'?.E)_(A'?."")_(A'?."Q")_" "
 S ^VCOMP=^VCOMP_(""'?0C)_(A'?0N)_(A'?0P)_(A'?0A)_(A'?0L)_(A'?0U)_(A'?0E)_(A'?0"")_(A'?0"Q")_" "
 S ^VCOMP=^VCOMP_(A'?1C)_(A'?2N)_(A'?3P)_(""'?4A)_(A'?5L)_(A'?6U)_(A'?7E)_(""'?8"")_(A'?1"Q")_" "
 S ^VCORR="000000000 000000000 111111101 " D ^VEXAMINE
 ;
7063 S ^ABSN="11947",^ITEM="I-706.3  '(empty string ? patatom)",^NEXT="V1PAT4^V1PAT,V1NST1^VV1" D ^V1PRESET
 S A="" ;Test added in V7.4;16/9/89
 S ^VCOMP='(A?.C)_'(A?.N)_'(A?.P)_'(A?.A)_'(""?.L)_'(A?.U)_'(A?.E)_'(A?."")_'(A?."Q")_" "
 S ^VCOMP=^VCOMP_'(""?0C)_'(A?0N)_'(A?0P)_'(A?0A)_'(A?0L)_'(A?0U)_'(A?0E)_'(A?0"")_'(A?0"Q")_" "
 S ^VCOMP=^VCOMP_'(A?1C)_'(A?2N)_'(A?3P)_'(""?4A)_'(A?5L)_'(A?6U)_'(A?7E)_'(""?8"")_'(A?1"Q")_" "
 S ^VCORR="000000000 000000000 111111101 " D ^VEXAMINE
 ;
END W !!,"End of 165---V1PAT3",!
 K ^V1 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

V1PAT4
V1PAT4 ;IW-KO-YS-TS,V1PAT,MVTS V9.10;15/6/96;PATTERN MATCH OPERATOR (?) -4-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"166---V1PAT4: Pattern match operator -4-",!
 ;
707 W !,"I-707  Not match ('?)"
7071 S ^ABSN="11948",^ITEM="I-707.1  expr '? patcode",^NEXT="70711^V1PAT4,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP='"A"'?.N_('"0"'?1N)_('0'?1N),^VCORR="000" D ^VEXAMINE ;Number changed in V7.4;16/9/89
70711 S ^ABSN="11949",^ITEM="I-707.1.1  '(expr ? patcode)",^NEXT="708^V1PAT4,V1NST1^VV1" D ^V1PRESET
 S ^VCOMP='('"A"?.N)_'('"0"?1N)_'('0?1N),^VCORR="000" D ^VEXAMINE ;Test added in V7.4;16/9/89
 ;
708 W !,"I-708  Pattern level indirection"
 S ^ABSN="11950",^ITEM="I-708  Pattern level indirection",^NEXT="709^V1PAT4,V1NST1^VV1" D ^V1PRESET
 S X="1NA.NA",Y="1""1B2C"""
 S VCOMP="TEST1TEST2"?@X_("A1B2C3"?@(".C.APL"_Y_"1N"))_" "
 K ^V1 S ^V1(0)="1N2E.PA",VCOMP=VCOMP_(^V1(0)?@^(0))_(^(0)'?@^(0))
 S ^VCOMP=VCOMP,^VCORR="11 10" D ^VEXAMINE
 ;
709 W !,"I-709  Interpretation of left side expression"
 S ^ABSN="11951",^ITEM="I-709  Interpretation of left side expression",^NEXT="710^V1PAT4,V1NST1^VV1" D ^V1PRESET
 S VCOMP="12.34"'?.N_("1234."?.N)_(+"1234."?.N)_(-"-123E"?1N.N)
 S VCOMP=VCOMP_("-123"?.N)_(-123?.N)_(-"-.123E+3"?.N)_(-"-12300E-2"?.N)
 S ^VCOMP=VCOMP,^VCORR="10110011" D ^VEXAMINE
 ;
710 W !,"I-710  Pattern match of maximum length of data"
 S ^ABSN="11952",^ITEM="I-710  Pattern match of maximum length of data",^NEXT="711^V1PAT4,V1NST1^VV1" D ^V1PRESET
 S X="" F I=1:1:255 S X=X_"0"
 S ^VCOMP=X?255N_(X?."0")_(X?.N)_(X?100N.E.N)_(X?50"0"50E50N50"0"."0") S ^VCORR="11111" D ^VEXAMINE
 ;
711 W !,"I-711  Various combination of patcode"
 S ^ABSN="11953",^ITEM="I-711  Various combination of patcode",^NEXT="V1NST1^VV1" D ^V1PRESET
 S V="",X="AB$" FOR I=1:1:10 S V=$C(I,I*2,I+100,I*I)?1CAULPN.ACULPN1NACULP_V
 S V="AB12$asd"_$C(1)_"A09a"'?.AN.P.L2L.E1C.E1L_V
 S V=V_(X?.A)_(X?1A)_(X?3A)_(X?2A1P)_(X?3AP)_(X'?4PA)_(X?1"AB$")_(X?1"A"1"B"1"$")
 S V=V_(X?.C.A.P)_(X?."AB"."$")_(X?."A"1A1"".P)_(X?.AP."")_(X?."AB$")
 S V=V_(X?."AB$"1A2AP)_(X?100""1"AB$")_(X?.E1P)_(X?.E.N1P)_(X?.E.PA1A.P)_(X?.E.A1PU1PL)
 S ^VCOMP=V,^VCORR="011111111110001111111111111111" D ^VEXAMINE
 ;
END W !!,"End of 166---V1PAT4",!
 K ^V1 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

V1NST1
V1NST1 ;IW-KO-YS-TS,VV1,MVTS V9.10;15/6/96;NESTING LEVEL -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"167---V1NST1: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -1-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 14 levels of nesting are required." W:$Y>55 #
 W !,"admitted nesting levels are indicated by the number in each test.",!
653 W !,"I-653  1 level of DO, and 14 levels of FOR"
6531 S ^ABSN="11954",^ITEM="I-653.1  Termination by GOTO",^NEXT="6532^V1NST1,V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-653.1 was withdrawn in 1983 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
6532 S ^ABSN="11955",^ITEM="I-653.2  Termination by QUIT",^NEXT="654^V1NST1,V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-653.2 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
654 W !,"I-654  1 level of DO, and 14 levels of XECUTE"
 S ^ABSN="11956",^ITEM="I-654  1 level of DO, and 14 levels of XECUTE",^NEXT="655^V1NST1,V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-654 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
655 W !,"I-655  15 levels of DO"
6551 S ^ABSN="11957",^ITEM="I-655.1  Local DO",^NEXT="6552^V1NST1,V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-655.1 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
6552 S ^ABSN="11958",^ITEM="I-655.2  External DO",^NEXT="656^V1NST1,V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-655.2 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
656 W !,"I-656  15 levels of combined DO, FOR, XECUTE"
 S ^ABSN="11959",^ITEM="I-656  15 levels of combined DO, FOR, XECUTE",^NEXT="V1NST2^VV1" D ^V1PRESET
 W !,"       (This test I-656 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 167---V1NST1",!
 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

V1NST2
V1NST2 ;IW-KO-YS-TS,VV1,MVTS V9.10;15/6/96;NESTING LEVEL -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"168---V1NST2: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -2-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 14 levels of nesting are required." W:$Y>55 #
 W !,"admitted nesting levels are indicated by the number in each test.",!
 ;
657 W !,"I-657  1 level of DO, and 14 levels of argument level indirection"
 S ^ABSN="11960",^ITEM="I-657  1 level of DO, and 14 levels of argument level indirection",^NEXT="658^V1NST2,V1NST3^VV1" D ^V1PRESET
 W !,"       (This test I-657 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
658 W !,"I-658  1 level of DO, and 14 levels of name level indirection"
 S ^ABSN="11961",^ITEM="I-658  1 level of DO, and 14 levels of name level indirection",^NEXT="659^V1NST2,V1NST3^VV1" D ^V1PRESET
 W !,"       (This test I-658 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
659 W !,"I-659  Up to 6 nesting levels of functions"
FNC S ^ABSN="11962",^ITEM="I-659  Up to 6 nesting levels of functions",^NEXT="V1NST3^VV1" D ^V1PRESET
 W !,"       (This test I-659 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 168---V1NST2",!
 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

V1NST3
V1NST3 ;IW-KO-YS-TS,VV1,MVTS V9.10;15/6/96;NESTING LEVEL -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"169---V1NST3: Nesting ( FOR, XECUTE, DO, @, <FUNCTION> ) -3-"
 W !,"As this routine itself is counted as one level of nesting,"
 W !,"additional 14 levels of nesting are required." W:$Y>55 #
 W !,"admitted nesting levels are indicated by the number in each test.",!
 ;
660 W !,"I-660  Effect of GOTO on nesting"
6601 S ^ABSN="11963",^ITEM="I-660.1  Local GOTO",^NEXT="6602^V1NST3,V1JST^VV1" D ^V1PRESET
 W !,"       (This test I-660.1 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
6602 S ^ABSN="11964",^ITEM="I-660.2  External GOTO",^NEXT="661^V1NST3,V1JST^VV1" D ^V1PRESET
 W !,"       (This test I-660.2 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
661 W !,"I-661  Effect of QUIT on nesting"
 S ^ABSN="11965",^ITEM="I-661  Effect of QUIT on nesting",^NEXT="V1JST^VV1" D ^V1PRESET
 W !,"       (This test I-661 was withdrawn in 1992 on X11.1-1990, MSL)"
 S ^VREPORT("Part-77",^ABSN)="*WITHDR*"
 ;
END W !!,"End of 169---V1NST3",!
 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

V1NSTE
V1NSTE ;IW-KO-YS-TS,V1NST1/2/3,MVTS V9.10;15/6/96;USING BY <V1NST1, 2, 3>
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-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
 ;

V1JST
V1JST ;IW-YS-KO-TS,VV1,MVTS V9.10;15/6/96;$JUSTIFY, $SELECT, $TEXT  SUB DRIVER
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
V1JST1 W !!,"170---V1JST1" D ^V1JST1
V1JST2 W !!,"171---V1JST2" D ^V1JST2
V1JST3 W !!,"172---V1JST3" D ^V1JST3
V1JST4 W !!,"173---V1JST4" D ^V1JST4
V1JST5 W !!,"174---V1JST5" D ^V1JST5
V1JST6 W !!,"175---V1JST6" D ^V1JST6
 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

V1JST1
V1JST1 ;IW-YS-KO-TS,V1JST,MVTS V9.10;15/6/96;$JUSTIFY, $SELECT, $TEXT -1-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"170---V1JST1: $JUSTIFY, $SELECT and $TEXT functions -1-"
 ;
JUSTIFY W !!,"$JUSTIFY(expr1,intexpr2)",!
555 W !,"I-555  expr1 is string literal"
 S ^ABSN="11966",^ITEM="I-555  expr1 is string literal",^NEXT="556^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$JUSTIFY("5.47",10) S ^VCORR="      5.47" D ^VEXAMINE
 ;
556 W !,"I-556  expr1 is an empty string"
 S ^ABSN="11967",^ITEM="I-556  expr1 is an empty string",^NEXT="557^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("",5),^VCORR="     " D ^VEXAMINE
 ;
557 W !,"I-557  expr1 is positive integer"
5571 S ^ABSN="11968",^ITEM="I-557.1  0001234.0000",^NEXT="5572^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(0001234.0000,7),^VCORR="   1234" D ^VEXAMINE
5572 S ^ABSN="11969",^ITEM="I-557.2  000123400.00E1",^NEXT="558^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(000123400.00E1,10),^VCORR="   1234000" D ^VEXAMINE
 ;
558 W !,"I-558  expr1 is negative integer"
5581 S ^ABSN="11970",^ITEM="I-558.1  -00098",^NEXT="5582^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-00098,5),^VCORR="  -98" D ^VEXAMINE
5582 S ^ABSN="11971",^ITEM="I-558.2  -0009800.00",^NEXT="559^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-0009800.00,8),^VCORR="   -9800" D ^VEXAMINE
 ;
559 W !,"I-559  expr1 is positive non-integer numeric"
 S ^ABSN="11972",^ITEM="I-559  0987654.00E-003",^NEXT="560^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(0987654.00E-003,12),^VCORR="     987.654" D ^VEXAMINE
 ;
560 W !,"I-560  expr1 is negative non-integer numeric"
 S ^ABSN="11973",^ITEM="I-560  -9876.54E-003",^NEXT="561^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-9876.54E-003,12),^VCORR="    -9.87654" D ^VEXAMINE
 ;
561 W !,"I-561  expr1 is greater than zero and less than one"
 S ^ABSN="11974",^ITEM="I-561  98.7654E-003",^NEXT="562^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(98.7654E-003,12),^VCORR="    .0987654" D ^VEXAMINE
 ;
562 W !,"I-562  expr1 contains binary operator"
 S ^ABSN="11975",^ITEM="I-562.1  ""12AHD""*""12""",^NEXT="5622^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("12AHD"*"12",10),^VCORR="       144" D ^VEXAMINE
5622 S ^ABSN="11976",^ITEM="I-562.2  ""-""_""0012""",^NEXT="563^V1JST1,V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("-"_"0012",8),^VCORR="   -0012" D ^VEXAMINE
 ;
563 W !,"I-563  expr1 contains unary operator"
 S ^ABSN="11977",^ITEM="I-563  expr1 contains unary operator",^NEXT="V1JST2^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-"0012",8),^VCORR="     -12" D ^VEXAMINE
 ;
END W !!,"End of 170---V1JST1",!
 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

V1JST2
V1JST2 ;IW-YS-KO-TS,V1JST,MVTS V9.10;15/6/96;$JUSTIFY, $SELECT, $TEXT -2-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"171---V1JST2: $JUSTIFY, $SELECT and $TEXT functions -2-"
 ;
564 W !,"I-564  expr1 contains function"
5641 S ^ABSN="11978",^ITEM="I-564.1  $LENGTH",^NEXT="5642^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J($L("ABCDE"),4),^VCORR="   5" D ^VEXAMINE
5642 S ^ABSN="11979",^ITEM="I-564.2  $JUSTIFY",^NEXT="565^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J($J("ABCDE",6),8),^VCORR="   ABCDE" D ^VEXAMINE
 ;
565 W !,"I-565  expr1 contains gvn"
 S ^ABSN="11980",^ITEM="I-565  expr1 contains gvn",^NEXT="566^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^V1A="ABCD"
 S ^VCOMP=$J(^V1A,6),^VCORR="  ABCD" D ^VEXAMINE
 ;
566 W !,"I-566  intexpr2>0"
 S ^ABSN="11981",^ITEM="I-566  intexpr2>0",^NEXT="567^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCORR="" F I=1:1:255 S ^VCORR=^VCORR_" "
 S ^VCOMP=$J(" ",255) D ^VEXAMINE
 ;
567 W !,"I-567  intexpr2=0"
 S ^ABSN="11982",^ITEM="I-567  intexpr2=0",^NEXT="568^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("5.99",0),^VCORR="5.99" D ^VEXAMINE
 ;
568 W !,"I-568  intexpr2<0"
 S ^ABSN="11983",^ITEM="I-568  intexpr2<0",^NEXT="569^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("5.490",-1),^VCORR="5.490" D ^VEXAMINE
 ;
569 W !,"I-569  intexpr2<$L(expr1)"
5691 S ^ABSN="11984",^ITEM="I-569.1  intexpr2=1",^NEXT="5692^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("05.490",1),^VCORR="05.490" D ^VEXAMINE
5692 S ^ABSN="11985",^ITEM="I-569.2  intexpr2=($L(expr1)+1)",^NEXT="570^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("05.490",5),^VCORR="05.490" D ^VEXAMINE
 ;
570 W !,"I-570  intexpr2=$L(expr1)"
 S ^ABSN="11986",^ITEM="I-570  intexpr2=$L(expr1)",^NEXT="571^V1JST2,V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("05.490",6),^VCORR="05.490" D ^VEXAMINE
 ;
571 W !,"I-571  intexpr2>$L(expr1)"
 S ^ABSN="11987",^ITEM="I-571  intexpr2>$L(expr1)",^NEXT="V1JST3^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(05.490,8.9),^VCORR="    5.49" D ^VEXAMINE
 ;
END W !!,"End of 171---V1JST2",!
 K  K ^V1A 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

V1JST3
V1JST3 ;IW-YS-KO-TS,V1JST,MVTS V9.10;15/6/96; $JUSTIFY, $SELECT, $TEXT -3-
 ;COPYRIGHT MUMPS SYSTEMS LABORATORY 1978-1996
 W !!,"172---V1JST3: $JUSTIFY, $SELECT and $TEXT functions -3-",!
 W !,"$JUSTIFY(numexpr1,intexpr2,intexpr3)",!
572 W !,"I-572  numexpr1 is an empty string"
5721 S ^ABSN="11988",^ITEM="I-572.1  intexpr3=1",^NEXT="5722^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("",8,1),^VCORR="     0.0" D ^VEXAMINE
5722 S ^ABSN="11989",^ITEM="I-572.2  intexpr3>1",^NEXT="573^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J("",8,3),^VCORR="   0.000" D ^VEXAMINE
 ;
573 W !,"I-573  numexpr1 is positive non-integer numeric"
 S ^ABSN="11990",^ITEM="I-573  numexpr1 is positive non-integer numeric",^NEXT="574^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(1E1/3,"5.3A",.6E-1*100),^VCORR="3.333333" D ^VEXAMINE
 ;
574 W !,"I-574  numexpr1 is negative non-integer numeric"
5741 S ^ABSN="11991",^ITEM="I-574.1  intexpr3=2",^NEXT="5742^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-00123.456000,8,2),^VCORR=" -123.46" D ^VEXAMINE
5742 S ^ABSN="11992",^ITEM="I-574.2  intexpr3=1",^NEXT="5743^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-00123.456000,8,1),^VCORR="  -123.5" D ^VEXAMINE
5743 S ^ABSN="11993",^ITEM="I-574.3  intexpr3=0",^NEXT="5744^V1JST3,V1JST4^V1JST,V1SVH^VV1" D ^V1PRESET
 S ^VCOMP=$J(-00123.456000,8,0),^VCORR="    -123" D ^VEXAMINE
5744 S ^ABSN="11994",^ITEM="I-574.4  intexpr3=0 another",^NEXT="575^V1JST3,V1JST4^V1JST,V1SVH^VV1"