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
