IS00022E ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST 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@("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
E1 ;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)
.I '$D(X) D ERROR^INHS("Variable 'ORC6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC7"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC8"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC8")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC9"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC9")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC10"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC10")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC10' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC11"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC11")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'ORC11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("ORC12"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("ORC12")=$G(X)
9 .D EN^IS00022F
G F1^IS00022J
IS00022E ;Compiled from script 'Generated: HL IHS LAB R01 SONORA QUEST 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@("PV136")=$GET(X)
+2 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV136' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+3 KILL DXS
+4 SET (INX,X)=$GET(@INV@("PV137"))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 SET @INV@("PV137")=$GET(X)
+7 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV137' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+8 KILL DXS
+9 SET (INX,X)=$GET(@INV@("PV138"))
+10 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+11 SET @INV@("PV138")=$GET(X)
+12 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV138' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+13 KILL DXS
+14 SET (INX,X)=$GET(@INV@("PV139"))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("PV139")=$GET(X)
+17 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV139' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+18 KILL DXS
+19 SET (INX,X)=$GET(@INV@("PV140"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("PV140")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV140' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("PV141"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("PV141")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV141' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("PV142"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("PV142")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV142' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("PV143"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("PV143")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV143' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("PV144"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("PV144")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV144' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("PV145"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("PV145")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV145' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("PV146"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("PV146")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV146' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 SET (INX,X)=$GET(@INV@("PV147"))
+55 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+56 SET @INV@("PV147")=$GET(X)
+57 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV147' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 KILL DXS
+59 SET (INX,X)=$GET(@INV@("PV148"))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("PV148")=$GET(X)
+62 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV148' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+63 KILL DXS
+64 SET (INX,X)=$GET(@INV@("PV149"))
+65 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+66 SET @INV@("PV149")=$GET(X)
+67 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV149' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 KILL DXS
+69 SET (INX,X)=$GET(@INV@("PV150"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("PV150")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV150' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 SET (INX,X)=$GET(@INV@("PV151"))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("PV151")=$GET(X)
+77 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV151' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 KILL DXS
+79 SET (INX,X)=$GET(@INV@("PV152"))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("PV152")=$GET(X)
+82 IF '$DATA(X)
DO ERROR^INHS("Variable 'PV152' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 KILL DXS
+84 QUIT
E1 ;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)
+31 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+32 KILL DXS
+33 SET (INX,X)=$GET(@INV@("ORC7"))
+34 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+35 SET @INV@("ORC7")=$GET(X)
+36 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 KILL DXS
+38 SET (INX,X)=$GET(@INV@("ORC8"))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("ORC8")=$GET(X)
+41 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+42 KILL DXS
+43 SET (INX,X)=$GET(@INV@("ORC9"))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("ORC9")=$GET(X)
+46 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC9' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 KILL DXS
+48 SET (INX,X)=$GET(@INV@("ORC10"))
+49 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+50 SET @INV@("ORC10")=$GET(X)
+51 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC10' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+52 KILL DXS
+53 SET (INX,X)=$GET(@INV@("ORC11"))
+54 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+55 SET @INV@("ORC11")=$GET(X)
+56 IF '$DATA(X)
DO ERROR^INHS("Variable 'ORC11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+57 KILL DXS
+58 SET (INX,X)=$GET(@INV@("ORC12"))
+59 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+60 SET @INV@("ORC12")=$GET(X)
9 DO EN^IS00022F
End DoDot:1
+1 GOTO F1^IS00022J
