IS00003V ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 23
;Copyright 2002 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
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
x2 K DXS
Q
x1 ;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@("SVC1"))
I $D(@INV@("SVC1"))
D:$T
.S (INX,X)=$G(@INV@("SVC1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC6")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("SVC7"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("SVC7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'SVC7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("DTM1"))
I $D(@INV@("DTM1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("DTM1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("DTM1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("DTM1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'DTM1' 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@("DTM2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("DTM2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("DTM2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'DTM2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("CAS1"))
I $D(@INV@("CAS1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("CAS1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("CAS1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("CAS1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'CAS1' 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@("CAS2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("CAS2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 ..D EN^IS00003W
.D AB2^IS00003W
G AB1^IS00003X
IS00003V ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 23
+2 ;Copyright 2002 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 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)
+2 QUIT
x2 KILL DXS
+1 QUIT
x1 ;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@("SVC1"))
+17 IF $DATA(@INV@("SVC1"))
+18 IF $TEST
Begin DoDot:1
+19 SET (INX,X)=$GET(@INV@("SVC1"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("SVC1")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("SVC2"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("SVC2")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("SVC3"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("SVC3")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("SVC4"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("SVC4")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("SVC5"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("SVC5")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("SVC6"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("SVC6")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("SVC7"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("SVC7")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'SVC7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 QUIT
End DoDot:1
+55 ;IF $D(@INV@("DTM1"))
+56 IF $DATA(@INV@("DTM1"))
+57 IF $TEST
Begin DoDot:1
+58 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("DTM1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+59 SET (INX,X)=@INV@("DTM1",INI(1))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("DTM1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'DTM1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+62 QUIT
End DoDot:2
+63 KILL DXS
+64 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("DTM2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+65 SET (INX,X)=@INV@("DTM2",INI(1))
+66 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+67 SET @INV@("DTM2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'DTM2' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 QUIT
End DoDot:2
+69 KILL DXS
+70 QUIT
End DoDot:1
+71 ;IF $D(@INV@("CAS1"))
+72 IF $DATA(@INV@("CAS1"))
+73 IF $TEST
Begin DoDot:1
+74 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+75 SET (INX,X)=@INV@("CAS1",INI(1))
+76 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+77 SET @INV@("CAS1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'CAS1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+78 QUIT
End DoDot:2
+79 KILL DXS
+80 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("CAS2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+81 SET (INX,X)=@INV@("CAS2",INI(1))
+82 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
9 DO EN^IS00003W
End DoDot:2
+1 DO AB2^IS00003W
End DoDot:1
+2 GOTO AB1^IS00003X
