- IS00017B ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- ;Part 3
- ;Copyright 2006 SAIC
- EN S:DO @("@INV@(""OBX19"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,20)
- ;WHILE $P(DATA,DELIM)="NTE"
- S INI(3)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("NTE",0,3) D S INI(3)=INI(3)+1
- .D:'INVS MC^INHS
- .D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
- .S:DO @("@INV@(""NTE1"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,2)
- .S:DO @("@INV@(""NTE2"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,3)
- .S:DO @("@INV@(""NTE3"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,4)
- .S:DO @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)
- .Q
- Q
- D2 Q
- D1 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)
- 9 .D EN^IS00017C
- G F1^IS00017C
- IS00017B ;Compiled from script 'Generated: HL IHS LAB R01 LABCORP IN-I' on AUG 14, 2006
- +1 ;Part 3
- +2 ;Copyright 2006 SAIC
- EN IF DO
- SET @("@INV@(""OBX19"",INI(1),INI(2))")=$$PIECE^INHU(.LINE,DELIM,20)
- +1 ;WHILE $P(DATA,DELIM)="NTE"
- +2 SET INI(3)=1
- FOR
- SET DATA=$$GL^INHOU(UIF,LCT)
- IF '$$CHECKSEG^INHOU("NTE",0,3)
- QUIT
- Begin DoDot:1
- +3 IF 'INVS
- DO MC^INHS
- +4 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=1
- +5 IF DO
- SET @("@INV@(""NTE1"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,2)
- +6 IF DO
- SET @("@INV@(""NTE2"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,3)
- +7 IF DO
- SET @("@INV@(""NTE3"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,4)
- +8 IF DO
- SET @("@INV@(""NTE4"",INI(1),INI(2),INI(3))")=$$PIECE^INHU(.LINE,DELIM,5)
- +9 QUIT
- End DoDot:1
- SET INI(3)=INI(3)+1
- +10 QUIT
- D2 QUIT
- D1 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)
- 9 DO EN^IS00017C
- End DoDot:1
- +1 GOTO F1^IS00017C
