IS00005A ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
;Part 2
;Copyright 2006 SAIC
EN S:DO @("@INV@(""ZV119"")")=$$PIECE^INHU(.LINE,DELIM,20)
S:DO @("@INV@(""ZV120"")")=$$PIECE^INHU(.LINE,DELIM,21)
S:DO @("@INV@(""ZV121"")")=$$PIECE^INHU(.LINE,DELIM,22)
S:DO @("@INV@(""ZV122"")")=$$PIECE^INHU(.LINE,DELIM,23)
S:DO @("@INV@(""ZV123"")")=$$PIECE^INHU(.LINE,DELIM,24)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"Z"1"H"1"R".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""ZHR1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""ZHR2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""ZHR3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""ZHR4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""ZHR5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""ZHR6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""ZHR7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""ZHR8"")")=$$PIECE^INHU(.LINE,DELIM,9)
Q:MATCH
Q
A1 ;WHILE $P(DATA,DELIM)="OBR"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("OBR",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""OBR1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""OBR2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""OBR3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""OBR4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""OBR7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""OBR20"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,21)
.S:DO @("@INV@(""OBR22"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,23)
.S:DO @("@INV@(""OBR25"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,26)
.S:DO @("@INV@(""OBR27"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,28)
.S:DO @("@INV@(""OBR32"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,33)
.S:DO @("@INV@(""OBR33"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,34)
.S:DO @("@INV@(""OBR35"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,36)
.;WHILE $P(DATA,DELIM)="OBX"
.S INI(2)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("OBX",0,2) D S INI(2)=INI(2)+1
..D:'INVS MC^INHS
..D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
..S:DO @("@INV@(""OBX1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
..S:DO @("@INV@(""OBX2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
..S:DO @("@INV@(""OBX3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
..S:DO @("@INV@(""OBX4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
..S:DO @("@INV@(""OBX5"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,6)
..S:DO @("@INV@(""OBX6"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,7)
..S:DO @("@INV@(""OBX7"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,8)
..S:DO @("@INV@(""OBX8"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,9)
..S:DO @("@INV@(""OBX14"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,15)
..S:DO @("@INV@(""OBX16"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,17)
..Q
.Q
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@("PID3"))
.S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"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"))
.S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"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"))
.S:X]"" X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$P($G(INTHL7F2),U,4),"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 X]"" S X=$E(X,1,4)-1700_$E(X,5,8)
.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@("PID11"))
.I $L(X) S:$P(X,INSUBDEL,4)="" $P(X,INSUBDEL,4)=INSUBDEL
9 .D EN^IS00005B
G D1^IS00005B
IS00005A ;Compiled from script 'Generated: HL IHS CHR R01 IN-I' on JUN 08, 2006
+1 ;Part 2
+2 ;Copyright 2006 SAIC
EN IF DO
SET @("@INV@(""ZV119"")")=$$PIECE^INHU(.LINE,DELIM,20)
+1 IF DO
SET @("@INV@(""ZV120"")")=$$PIECE^INHU(.LINE,DELIM,21)
+2 IF DO
SET @("@INV@(""ZV121"")")=$$PIECE^INHU(.LINE,DELIM,22)
+3 IF DO
SET @("@INV@(""ZV122"")")=$$PIECE^INHU(.LINE,DELIM,23)
+4 IF DO
SET @("@INV@(""ZV123"")")=$$PIECE^INHU(.LINE,DELIM,24)
+5 IF MATCH
QUIT
+6 IF 'INVS
DO MC^INHS
+7 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+8 IF 'MATCH
IF LINE?1"Z"1"H"1"R".ANPC
SET DO=1
SET MATCH=1
+9 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+10 IF DO
SET @("@INV@(""ZHR1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+11 IF DO
SET @("@INV@(""ZHR2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+12 IF DO
SET @("@INV@(""ZHR3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+13 IF DO
SET @("@INV@(""ZHR4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+14 IF DO
SET @("@INV@(""ZHR5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+15 IF DO
SET @("@INV@(""ZHR6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+16 IF DO
SET @("@INV@(""ZHR7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+17 IF DO
SET @("@INV@(""ZHR8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+18 IF MATCH
QUIT
+19 QUIT
A1 ;WHILE $P(DATA,DELIM)="OBR"
+1 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("OBR",0,1)
QUIT
Begin DoDot:1
+2 IF 'INVS
DO MC^INHS
+3 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+4 IF DO
SET @("@INV@(""OBR1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+5 IF DO
SET @("@INV@(""OBR2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+6 IF DO
SET @("@INV@(""OBR3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
+7 IF DO
SET @("@INV@(""OBR4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
+8 IF DO
SET @("@INV@(""OBR7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
+9 IF DO
SET @("@INV@(""OBR20"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,21)
+10 IF DO
SET @("@INV@(""OBR22"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,23)
+11 IF DO
SET @("@INV@(""OBR25"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,26)
+12 IF DO
SET @("@INV@(""OBR27"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,28)
+13 IF DO
SET @("@INV@(""OBR32"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,33)
+14 IF DO
SET @("@INV@(""OBR33"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,34)
+15 IF DO
SET @("@INV@(""OBR35"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,36)
+16 ;WHILE $P(DATA,DELIM)="OBX"
+17 SET INI(2)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("OBX",0,2)
QUIT
Begin DoDot:2
+18 IF 'INVS
DO MC^INHS
+19 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+20 IF DO
SET @("@INV@(""OBX1"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,2)
+21 IF DO
SET @("@INV@(""OBX2"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,3)
+22 IF DO
SET @("@INV@(""OBX3"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,4)
+23 IF DO
SET @("@INV@(""OBX4"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,5)
+24 IF DO
SET @("@INV@(""OBX5"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,6)
+25 IF DO
SET @("@INV@(""OBX6"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,7)
+26 IF DO
SET @("@INV@(""OBX7"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,8)
+27 IF DO
SET @("@INV@(""OBX8"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,9)
+28 IF DO
SET @("@INV@(""OBX14"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,15)
+29 IF DO
SET @("@INV@(""OBX16"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,17)
+30 QUIT
End DoDot:2
SET INI(2)=INI(2)+1
+31 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+32 IF 'INVS
DO MC^INHS
+33 ;Entering TRANS section.
+34 ;IF $D(@INV@("MSH1"))
+35 IF $DATA(@INV@("MSH1"))
+36 IF $TEST
Begin DoDot:1
+37 SET (INX,X)=$GET(@INV@("MSH1"))
+38 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+39 SET @INV@("MSH1")=$GET(X)
+40 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+41 KILL DXS
+42 SET (INX,X)=$GET(@INV@("MSH2"))
+43 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+44 SET @INV@("MSH2")=$GET(X)
+45 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+46 KILL DXS
+47 SET (INX,X)=$GET(@INV@("MSH3"))
+48 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+49 SET @INV@("MSH3")=$GET(X)
+50 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+51 KILL DXS
+52 SET (INX,X)=$GET(@INV@("MSH4"))
+53 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+54 SET @INV@("MSH4")=$GET(X)
+55 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 KILL DXS
+57 SET (INX,X)=$GET(@INV@("MSH5"))
+58 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+59 SET @INV@("MSH5")=$GET(X)
+60 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+61 KILL DXS
+62 SET (INX,X)=$GET(@INV@("MSH6"))
+63 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+64 SET @INV@("MSH6")=$GET(X)
+65 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+66 KILL DXS
+67 SET (INX,X)=$GET(@INV@("MSH7"))
+68 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+69 SET @INV@("MSH7")=$GET(X)
+70 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+71 KILL DXS
+72 SET (INX,X)=$GET(@INV@("MSH8"))
+73 IF X]""
SET X=$$TIMEIO^INHUT10(X,$PIECE($GET(INTHL7F2),U),$PIECE($GET(INTHL7F2),U,2),$PIECE($GET(INTHL7F2),U,3),1)
+74 SET @INV@("MSH8")=$GET(X)
+75 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+76 KILL DXS
+77 SET (INX,X)=$GET(@INV@("MSH10"))
+78 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+79 SET @INV@("MSH10")=$GET(X)
+80 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH10' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+81 KILL DXS
+82 SET (INX,X)=$GET(@INV@("MSH12"))
+83 IF $LENGTH(X)
SET X=+X
+84 SET @INV@("MSH12")=$GET(X)
+85 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH12' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+86 KILL DXS
+87 SET (INX,X)=$GET(@INV@("MSH13"))
+88 IF $LENGTH(X)
SET X=+X
+89 SET @INV@("MSH13")=$GET(X)
+90 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH13' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+91 KILL DXS
+92 SET (INX,X)=$GET(@INV@("MSH14"))
+93 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+94 SET @INV@("MSH14")=$GET(X)
+95 IF '$DATA(X)
DO ERROR^INHS("Variable 'MSH14' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+96 KILL DXS
+97 QUIT
End DoDot:1
+98 ;IF $D(@INV@("PID1"))
+99 IF $DATA(@INV@("PID1"))
+100 IF $TEST
Begin DoDot:1
+101 SET (INX,X)=$GET(@INV@("PID3"))
+102 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+103 SET @INV@("PID3")=$GET(X)
+104 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+105 KILL DXS
+106 SET (INX,X)=$GET(@INV@("PID4"))
+107 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+108 SET @INV@("PID4")=$GET(X)
+109 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+110 KILL DXS
+111 SET (INX,X)=$GET(@INV@("PID5"))
+112 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+113 SET @INV@("PID5")=$GET(X)
+114 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+115 KILL DXS
+116 SET (INX,X)=$GET(@INV@("PID6"))
+117 IF X]""
SET X=$$HLPN^INHUT(X,INSUBDEL,INDELIMS,$PIECE($GET(INTHL7F2),U,4),"I")
+118 SET @INV@("PID6")=$GET(X)
+119 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+120 KILL DXS
+121 SET (INX,X)=$GET(@INV@("PID7"))
+122 IF X]""
SET X=$EXTRACT(X,1,4)-1700_$EXTRACT(X,5,8)
+123 SET @INV@("PID7")=$GET(X)
+124 IF '$DATA(X)
DO ERROR^INHS("Variable 'PID7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+125 KILL DXS
+126 SET (INX,X)=$GET(@INV@("PID11"))
+127 IF $LENGTH(X)
IF $PIECE(X,INSUBDEL,4)=""
SET $PIECE(X,INSUBDEL,4)=INSUBDEL
9 DO EN^IS00005B
End DoDot:1
+1 GOTO D1^IS00005B
