IS00016B ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006
;Part 3
;Copyright 2006 SAIC
EN S:DO @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)
Q
B3 Q
B2 Q
B1 D:'INVS MC^INHS
;Entering TRANS section.
;IF $D(@INV@("MSH1"))
I $D(@INV@("MSH1"))
D:$T
.S (INX,X)=$G(@INV@("MSH1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH6")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH7"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("MSH7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH8"))
.I X]"" S X=$$TIMEIO^INHUT10(X,$P($G(INTHL7F2),U),$P($G(INTHL7F2),U,2),$P($G(INTHL7F2),U,3),1)
.S @INV@("MSH8")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH10"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH10")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH12"))
.S:$L(X) X=+X
.S @INV@("MSH12")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH13"))
.S:$L(X) X=+X
.S @INV@("MSH13")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MSH14"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MSH14")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("PID1"))
I $D(@INV@("PID1"))
D:$T
.S (INX,X)=$G(@INV@("PID1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID6")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID7"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID8"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID8")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID9"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID9")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID10"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID10")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID10' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID11"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID11")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID12"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID12")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID13"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID13")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID14"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID14")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID15"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID15")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("PID16"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("PID16")=$G(X)
9 .D EN^IS00016C
G D1^IS00016C
IS00016B ;Compiled from script 'Generated: HL IHS LAB R01 QUEST IN-I' on AUG 14, 2006
+1 ;Part 3
+2 ;Copyright 2006 SAIC
EN IF DO
SET @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)
+1 QUIT
B3 QUIT
B2 QUIT
B1 IF 'INVS
DO MC^INHS
+1 ;Entering TRANS section.
+2 ;IF $D(@INV@("MSH1"))
+3 IF $DATA(@INV@("MSH1"))
+4 IF $TEST
Begin DoDot:1
+5 SET (INX,X)=$GET(@INV@("MSH1"))
+6 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+7 SET @INV@("MSH1")=$GET(X)
+8 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+9 KILL DXS
+10 SET (INX,X)=$GET(@INV@("MSH2"))
+11 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+12 SET @INV@("MSH2")=$GET(X)
+13 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+14 KILL DXS
+15 SET (INX,X)=$GET(@INV@("MSH3"))
+16 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+17 SET @INV@("MSH3")=$GET(X)
+18 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+19 KILL DXS
+20 SET (INX,X)=$GET(@INV@("MSH4"))
+21 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+22 SET @INV@("MSH4")=$GET(X)
+23 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+24 KILL DXS
+25 SET (INX,X)=$GET(@INV@("MSH5"))
+26 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+27 SET @INV@("MSH5")=$GET(X)
+28 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+29 KILL DXS
+30 SET (INX,X)=$GET(@INV@("MSH6"))
+31 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+32 SET @INV@("MSH6")=$GET(X)
+33 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+34 KILL DXS
+35 SET (INX,X)=$GET(@INV@("MSH7"))
+36 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+37 SET @INV@("MSH7")=$GET(X)
+38 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+39 KILL DXS
+40 SET (INX,X)=$GET(@INV@("MSH8"))
+41 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+42 SET @INV@("MSH8")=$GET(X)
+43 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+44 KILL DXS
+45 SET (INX,X)=$GET(@INV@("MSH10"))
+46 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+47 SET @INV@("MSH10")=$GET(X)
+48 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+49 KILL DXS
+50 SET (INX,X)=$GET(@INV@("MSH12"))
+51 IF $LENGTH(X)
SET X=+X
+52 SET @INV@("MSH12")=$GET(X)
+53 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+54 KILL DXS
+55 SET (INX,X)=$GET(@INV@("MSH13"))
+56 IF $LENGTH(X)
SET X=+X
+57 SET @INV@("MSH13")=$GET(X)
+58 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+59 KILL DXS
+60 SET (INX,X)=$GET(@INV@("MSH14"))
+61 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+62 SET @INV@("MSH14")=$GET(X)
+63 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+64 KILL DXS
+65 QUIT
End DoDot:1
+66 ;IF $D(@INV@("PID1"))
+67 IF $DATA(@INV@("PID1"))
+68 IF $TEST
Begin DoDot:1
+69 SET (INX,X)=$GET(@INV@("PID1"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("PID1")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 SET (INX,X)=$GET(@INV@("PID2"))
+75 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+76 SET @INV@("PID2")=$GET(X)
+77 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 KILL DXS
+79 SET (INX,X)=$GET(@INV@("PID3"))
+80 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+81 SET @INV@("PID3")=$GET(X)
+82 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+83 KILL DXS
+84 SET (INX,X)=$GET(@INV@("PID4"))
+85 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+86 SET @INV@("PID4")=$GET(X)
+87 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+88 KILL DXS
+89 SET (INX,X)=$GET(@INV@("PID5"))
+90 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+91 SET @INV@("PID5")=$GET(X)
+92 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+93 KILL DXS
+94 SET (INX,X)=$GET(@INV@("PID6"))
+95 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+96 SET @INV@("PID6")=$GET(X)
+97 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+98 KILL DXS
+99 SET (INX,X)=$GET(@INV@("PID7"))
+100 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+101 SET @INV@("PID7")=$GET(X)
+102 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+103 KILL DXS
+104 SET (INX,X)=$GET(@INV@("PID8"))
+105 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+106 SET @INV@("PID8")=$GET(X)
+107 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+108 KILL DXS
+109 SET (INX,X)=$GET(@INV@("PID9"))
+110 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+111 SET @INV@("PID9")=$GET(X)
+112 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID9' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+113 KILL DXS
+114 SET (INX,X)=$GET(@INV@("PID10"))
+115 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+116 SET @INV@("PID10")=$GET(X)
+117 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID10' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+118 KILL DXS
+119 SET (INX,X)=$GET(@INV@("PID11"))
+120 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+121 SET @INV@("PID11")=$GET(X)
+122 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID11' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+123 KILL DXS
+124 SET (INX,X)=$GET(@INV@("PID12"))
+125 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+126 SET @INV@("PID12")=$GET(X)
+127 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+128 KILL DXS
+129 SET (INX,X)=$GET(@INV@("PID13"))
+130 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+131 SET @INV@("PID13")=$GET(X)
+132 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+133 KILL DXS
+134 SET (INX,X)=$GET(@INV@("PID14"))
+135 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+136 SET @INV@("PID14")=$GET(X)
+137 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+138 KILL DXS
+139 SET (INX,X)=$GET(@INV@("PID15"))
+140 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+141 SET @INV@("PID15")=$GET(X)
+142 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID15' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+143 KILL DXS
+144 SET (INX,X)=$GET(@INV@("PID16"))
+145 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+146 SET @INV@("PID16")=$GET(X)
9 DO EN^IS00016C
End DoDot:1
+1 GOTO D1^IS00016C
