- IS00003F ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 7
- ;Copyright 2002 SAIC
- EN D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"S"1"T".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""ST1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""ST2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- Q
- P1 D:'INVS MC^INHS
- ;Entering TRANS section.
- ;IF $D(@INV@("ST1"))
- I $D(@INV@("ST1"))
- D:$T
- .S (INX,X)=$G(@INV@("ST1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("ST1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'ST1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("ST2"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("ST2")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'ST2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .Q
- ;IF $D(@INV@("BPR1"))
- I $D(@INV@("BPR1"))
- D:$T
- .S (INX,X)=$G(@INV@("BPR1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR2"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR2")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR3"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR3")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR4"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR4")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR5"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR5")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR6"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR6")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR7"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR7")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR8"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR8")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR9"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR9")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR10"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR10")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR10' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR11"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR11")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR11' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR12"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR12")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR12' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR13"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR13")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'BPR13' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("BPR14"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("BPR14")=$G(X)
- 9 .D EN^IS00003G
- G R1^IS00003G
- IS00003F ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 7
- +2 ;Copyright 2002 SAIC
- EN DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +1 IF 'MATCH
- IF LINE?1"S"1"T".ANPC
- SET DO=1
- SET MATCH=1
- +2 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +3 IF DO
- SET @("@INV@(""ST1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +4 IF DO
- SET @("@INV@(""ST2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +5 IF MATCH
- QUIT
- +6 QUIT
- P1 IF 'INVS
- DO MC^INHS
- +1 ;Entering TRANS section.
- +2 ;IF $D(@INV@("ST1"))
- +3 IF $DATA(@INV@("ST1"))
- +4 IF $TEST
- Begin DoDot:1
- +5 SET (INX,X)=$GET(@INV@("ST1"))
- +6 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +7 SET @INV@("ST1")=$GET(X)
- +8 IF '$DATA(X)
- DO ERROR^INHS("Variable 'ST1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +9 KILL DXS
- +10 SET (INX,X)=$GET(@INV@("ST2"))
- +11 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +12 SET @INV@("ST2")=$GET(X)
- +13 IF '$DATA(X)
- DO ERROR^INHS("Variable 'ST2' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +14 KILL DXS
- +15 QUIT
- End DoDot:1
- +16 ;IF $D(@INV@("BPR1"))
- +17 IF $DATA(@INV@("BPR1"))
- +18 IF $TEST
- Begin DoDot:1
- +19 SET (INX,X)=$GET(@INV@("BPR1"))
- +20 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +21 SET @INV@("BPR1")=$GET(X)
- +22 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 KILL DXS
- +24 SET (INX,X)=$GET(@INV@("BPR2"))
- +25 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +26 SET @INV@("BPR2")=$GET(X)
- +27 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR2' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +28 KILL DXS
- +29 SET (INX,X)=$GET(@INV@("BPR3"))
- +30 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +31 SET @INV@("BPR3")=$GET(X)
- +32 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR3' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +33 KILL DXS
- +34 SET (INX,X)=$GET(@INV@("BPR4"))
- +35 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +36 SET @INV@("BPR4")=$GET(X)
- +37 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR4' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +38 KILL DXS
- +39 SET (INX,X)=$GET(@INV@("BPR5"))
- +40 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +41 SET @INV@("BPR5")=$GET(X)
- +42 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR5' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +43 KILL DXS
- +44 SET (INX,X)=$GET(@INV@("BPR6"))
- +45 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +46 SET @INV@("BPR6")=$GET(X)
- +47 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR6' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +48 KILL DXS
- +49 SET (INX,X)=$GET(@INV@("BPR7"))
- +50 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +51 SET @INV@("BPR7")=$GET(X)
- +52 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR7' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +53 KILL DXS
- +54 SET (INX,X)=$GET(@INV@("BPR8"))
- +55 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +56 SET @INV@("BPR8")=$GET(X)
- +57 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR8' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +58 KILL DXS
- +59 SET (INX,X)=$GET(@INV@("BPR9"))
- +60 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +61 SET @INV@("BPR9")=$GET(X)
- +62 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR9' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +63 KILL DXS
- +64 SET (INX,X)=$GET(@INV@("BPR10"))
- +65 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +66 SET @INV@("BPR10")=$GET(X)
- +67 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR10' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +68 KILL DXS
- +69 SET (INX,X)=$GET(@INV@("BPR11"))
- +70 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +71 SET @INV@("BPR11")=$GET(X)
- +72 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR11' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +73 KILL DXS
- +74 SET (INX,X)=$GET(@INV@("BPR12"))
- +75 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +76 SET @INV@("BPR12")=$GET(X)
- +77 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR12' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +78 KILL DXS
- +79 SET (INX,X)=$GET(@INV@("BPR13"))
- +80 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +81 SET @INV@("BPR13")=$GET(X)
- +82 IF '$DATA(X)
- DO ERROR^INHS("Variable 'BPR13' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +83 KILL DXS
- +84 SET (INX,X)=$GET(@INV@("BPR14"))
- +85 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +86 SET @INV@("BPR14")=$GET(X)
- 9 DO EN^IS00003G
- End DoDot:1
- +1 GOTO R1^IS00003G
