IS00018E ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
;Part 6
;Copyright 2006 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV130")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV130' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV131"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV131")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV131' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV132"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV132")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV132' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV133"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV133")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV133' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV134"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV134")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV134' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV135"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV135")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV135' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV136"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV136")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV136' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV137"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV137")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV137' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV138"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV138")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV138' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV139"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV139")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV139' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV140"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV140")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV140' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV141"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV141")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV141' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV142"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV142")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV142' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV143"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV143")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV143' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV144"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV144")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV145"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV145")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV146"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV146")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV146' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV147"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV147")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV147' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV148"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV148")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV148' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV149"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV149")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV149' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV150"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV150")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV150' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV151"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV151")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV151' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("PV152"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("PV152")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'PV152' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
G1 ;IF $D(@INV@("ORC1"))
I $D(@INV@("ORC1"))
D:$T
.S (INX,X)=$G(@INV@("ORC1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC6")=$G(X)
9 .D EN^IS00018F
G H1^IS00018J
IS00018E ;Compiled from script 'Generated: HL IHS LAB R01 UNILAB IN-I' on AUG 14, 2006
+1 ;Part 6
+2 ;Copyright 2006 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 SET @INV@("PV130")=$GET(X)
+2 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV130' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+3 KILL DXS
+4 SET (INX,X)=$GET(@INV@("PV131"))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 SET @INV@("PV131")=$GET(X)
+7 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV131' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+8 KILL DXS
+9 SET (INX,X)=$GET(@INV@("PV132"))
+10 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+11 SET @INV@("PV132")=$GET(X)
+12 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV132' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+13 KILL DXS
+14 SET (INX,X)=$GET(@INV@("PV133"))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("PV133")=$GET(X)
+17 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV133' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+18 KILL DXS
+19 SET (INX,X)=$GET(@INV@("PV134"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("PV134")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV134' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("PV135"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("PV135")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV135' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("PV136"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("PV136")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV136' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("PV137"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("PV137")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV137' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("PV138"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("PV138")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV138' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("PV139"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("PV139")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV139' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("PV140"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("PV140")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV140' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 SET (INX,X)=$GET(@INV@("PV141"))
+55 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+56 SET @INV@("PV141")=$GET(X)
+57 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV141' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 KILL DXS
+59 SET (INX,X)=$GET(@INV@("PV142"))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("PV142")=$GET(X)
+62 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV142' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+63 KILL DXS
+64 SET (INX,X)=$GET(@INV@("PV143"))
+65 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+66 SET @INV@("PV143")=$GET(X)
+67 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV143' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 KILL DXS
+69 SET (INX,X)=$GET(@INV@("PV144"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("PV144")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 SET (INX,X)=$GET(@INV@("PV145"))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("PV145")=$GET(X)
+77 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 KILL DXS
+79 SET (INX,X)=$GET(@INV@("PV146"))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("PV146")=$GET(X)
+82 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV146' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 KILL DXS
+84 SET (INX,X)=$GET(@INV@("PV147"))
+85 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+86 SET @INV@("PV147")=$GET(X)
+87 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV147' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+88 KILL DXS
+89 SET (INX,X)=$GET(@INV@("PV148"))
+90 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+91 SET @INV@("PV148")=$GET(X)
+92 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV148' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+93 KILL DXS
+94 SET (INX,X)=$GET(@INV@("PV149"))
+95 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+96 SET @INV@("PV149")=$GET(X)
+97 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV149' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+98 KILL DXS
+99 SET (INX,X)=$GET(@INV@("PV150"))
+100 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+101 SET @INV@("PV150")=$GET(X)
+102 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV150' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+103 KILL DXS
+104 SET (INX,X)=$GET(@INV@("PV151"))
+105 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+106 SET @INV@("PV151")=$GET(X)
+107 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV151' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+108 KILL DXS
+109 SET (INX,X)=$GET(@INV@("PV152"))
+110 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+111 SET @INV@("PV152")=$GET(X)
+112 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV152' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+113 KILL DXS
+114 QUIT
G1 ;IF $D(@INV@("ORC1"))
+1 IF $DATA(@INV@("ORC1"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("ORC1"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("ORC1")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("ORC2"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("ORC2")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("ORC3"))
+14 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+15 SET @INV@("ORC3")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("ORC4"))
+19 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+20 SET @INV@("ORC4")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 SET (INX,X)=$GET(@INV@("ORC5"))
+24 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+25 SET @INV@("ORC5")=$GET(X)
+26 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+27 KILL DXS
+28 SET (INX,X)=$GET(@INV@("ORC6"))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("ORC6")=$GET(X)
9 DO EN^IS00018F
End DoDot:1
+1 GOTO H1^IS00018J
