- IS00003Y ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 26
- ;Copyright 2002 SAIC
- EN S @INV@("AMT2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'AMT2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- Q
- AE2 K DXS
- Q
- AE1 ;IF $D(@INV@("QTY1"))
- I $D(@INV@("QTY1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("QTY1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("QTY1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("QTY1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'QTY1' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .S INI(1)=0 F S INI(1)=$O(@INV@("QTY2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("QTY2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("QTY2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'QTY2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("LQ1"))
- I $D(@INV@("LQ1"))
- D:$T
- .S INI(1)=0 F S INI(1)=$O(@INV@("LQ1",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("LQ1",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("LQ1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'LQ1' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .S INI(1)=0 F S INI(1)=$O(@INV@("LQ2",INI(1))) Q:'INI(1) S INI=INI(1) D
- ..S (INX,X)=@INV@("LQ2",INI(1))
- ..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- ..S @INV@("LQ2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'LQ2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- ..Q
- .K DXS
- .Q
- ;IF $D(@INV@("PLB1"))
- I $D(@INV@("PLB1"))
- D:$T
- .S (INX,X)=$G(@INV@("PLB1"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB1")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB2"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB2")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB3"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB3")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB4"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB4")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB5"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB5")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB6"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB6")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB7"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB7")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB8"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB8")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB9"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB9")=$G(X)
- .I '$D(X) D ERROR^INHS("Variable 'PLB9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
- .K DXS
- .S (INX,X)=$G(@INV@("PLB10"))
- .I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- .S @INV@("PLB10")=$G(X)
- 9 .D EN^IS00003Z
- G AH1^IS00003Z
- IS00003Y ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 26
- +2 ;Copyright 2002 SAIC
- EN SET @INV@("AMT2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'AMT2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +1 QUIT
- AE2 KILL DXS
- +1 QUIT
- AE1 ;IF $D(@INV@("QTY1"))
- +1 IF $DATA(@INV@("QTY1"))
- +2 IF $TEST
- Begin DoDot:1
- +3 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("QTY1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +4 SET (INX,X)=@INV@("QTY1",INI(1))
- +5 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +6 SET @INV@("QTY1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'QTY1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +7 QUIT
- End DoDot:2
- +8 KILL DXS
- +9 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("QTY2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +10 SET (INX,X)=@INV@("QTY2",INI(1))
- +11 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +12 SET @INV@("QTY2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'QTY2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +13 QUIT
- End DoDot:2
- +14 KILL DXS
- +15 QUIT
- End DoDot:1
- +16 ;IF $D(@INV@("LQ1"))
- +17 IF $DATA(@INV@("LQ1"))
- +18 IF $TEST
- Begin DoDot:1
- +19 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("LQ1",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +20 SET (INX,X)=@INV@("LQ1",INI(1))
- +21 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +22 SET @INV@("LQ1",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'LQ1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +23 QUIT
- End DoDot:2
- +24 KILL DXS
- +25 SET INI(1)=0
- FOR
- SET INI(1)=$ORDER(@INV@("LQ2",INI(1)))
- IF 'INI(1)
- QUIT
- SET INI=INI(1)
- Begin DoDot:2
- +26 SET (INX,X)=@INV@("LQ2",INI(1))
- +27 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +28 SET @INV@("LQ2",INI(1))=$GET(X)
- IF '$DATA(X)
- DO ERROR^INHS("Variable 'LQ2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +29 QUIT
- End DoDot:2
- +30 KILL DXS
- +31 QUIT
- End DoDot:1
- +32 ;IF $D(@INV@("PLB1"))
- +33 IF $DATA(@INV@("PLB1"))
- +34 IF $TEST
- Begin DoDot:1
- +35 SET (INX,X)=$GET(@INV@("PLB1"))
- +36 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +37 SET @INV@("PLB1")=$GET(X)
- +38 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB1' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +39 KILL DXS
- +40 SET (INX,X)=$GET(@INV@("PLB2"))
- +41 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +42 SET @INV@("PLB2")=$GET(X)
- +43 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB2' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +44 KILL DXS
- +45 SET (INX,X)=$GET(@INV@("PLB3"))
- +46 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +47 SET @INV@("PLB3")=$GET(X)
- +48 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB3' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +49 KILL DXS
- +50 SET (INX,X)=$GET(@INV@("PLB4"))
- +51 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +52 SET @INV@("PLB4")=$GET(X)
- +53 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB4' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +54 KILL DXS
- +55 SET (INX,X)=$GET(@INV@("PLB5"))
- +56 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +57 SET @INV@("PLB5")=$GET(X)
- +58 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB5' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +59 KILL DXS
- +60 SET (INX,X)=$GET(@INV@("PLB6"))
- +61 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +62 SET @INV@("PLB6")=$GET(X)
- +63 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB6' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +64 KILL DXS
- +65 SET (INX,X)=$GET(@INV@("PLB7"))
- +66 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +67 SET @INV@("PLB7")=$GET(X)
- +68 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB7' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +69 KILL DXS
- +70 SET (INX,X)=$GET(@INV@("PLB8"))
- +71 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +72 SET @INV@("PLB8")=$GET(X)
- +73 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB8' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +74 KILL DXS
- +75 SET (INX,X)=$GET(@INV@("PLB9"))
- +76 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +77 SET @INV@("PLB9")=$GET(X)
- +78 IF '$DATA(X)
- DO ERROR^INHS("Variable 'PLB9' failed input transform. Processing continues.",0)
- DO ERROR^INHS(" Value = '"_INX_"'",0)
- +79 KILL DXS
- +80 SET (INX,X)=$GET(@INV@("PLB10"))
- +81 IF $PIECE($GET(INTHL7F2),U,4)
- SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
- +82 SET @INV@("PLB10")=$GET(X)
- 9 DO EN^IS00003Z
- End DoDot:1
- +1 GOTO AH1^IS00003Z
