- 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
