IS00003T ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 21
;Copyright 2002 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'MIA23' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("MIA24"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("MIA24")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'MIA24' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
r1 ;IF $D(@INV@("MOA1"))
I $D(@INV@("MOA1"))
D:$T
.S (INX,X)=$G(@INV@("MOA1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA2"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA2")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA2' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA3"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA3")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA3' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA4"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA4")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA4' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA5"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA5")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA5' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA6"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA6")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA6' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA7"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA7")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA7' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA8"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA8")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA8' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("MOA9"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("MOA9")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'MOA9' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("REF1"))
I $D(@INV@("REF1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("REF1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF1' 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@("REF2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("REF1"))
I $D(@INV@("REF1"))
D:$T
.S INI(1)=0 F S INI(1)=$O(@INV@("REF1",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF1",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF1",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF1' 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@("REF2",INI(1))) Q:'INI(1) S INI=INI(1) D
..S (INX,X)=@INV@("REF2",INI(1))
..I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
..S @INV@("REF2",INI(1))=$G(X) I '$D(X) D ERROR^INHS("Variable 'REF2' failed input transform in iteration #"_INI(1)_". Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
..Q
.K DXS
.Q
;IF $D(@INV@("DTM1"))
9 G EN^IS00003U
IS00003T ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 21
+2 ;Copyright 2002 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'MIA23' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("MIA24"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("MIA24")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'MIA24' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 QUIT
r1 ;IF $D(@INV@("MOA1"))
+1 IF $DATA(@INV@("MOA1"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("MOA1"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("MOA1")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("MOA2"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("MOA2")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA2' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("MOA3"))
+14 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+15 SET @INV@("MOA3")=$GET(X)
+16 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA3' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+17 KILL DXS
+18 SET (INX,X)=$GET(@INV@("MOA4"))
+19 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+20 SET @INV@("MOA4")=$GET(X)
+21 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA4' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+22 KILL DXS
+23 SET (INX,X)=$GET(@INV@("MOA5"))
+24 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+25 SET @INV@("MOA5")=$GET(X)
+26 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA5' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+27 KILL DXS
+28 SET (INX,X)=$GET(@INV@("MOA6"))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("MOA6")=$GET(X)
+31 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA6' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+32 KILL DXS
+33 SET (INX,X)=$GET(@INV@("MOA7"))
+34 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+35 SET @INV@("MOA7")=$GET(X)
+36 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA7' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 KILL DXS
+38 SET (INX,X)=$GET(@INV@("MOA8"))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("MOA8")=$GET(X)
+41 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA8' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+42 KILL DXS
+43 SET (INX,X)=$GET(@INV@("MOA9"))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("MOA9")=$GET(X)
+46 IF '$DATA(X)
DO ERROR^INHS("Variable 'MOA9' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 KILL DXS
+48 QUIT
End DoDot:1
+49 ;IF $D(@INV@("REF1"))
+50 IF $DATA(@INV@("REF1"))
+51 IF $TEST
Begin DoDot:1
+52 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+53 SET (INX,X)=@INV@("REF1",INI(1))
+54 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+55 SET @INV@("REF1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+56 QUIT
End DoDot:2
+57 KILL DXS
+58 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+59 SET (INX,X)=@INV@("REF2",INI(1))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("REF2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF2' 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 QUIT
End DoDot:1
+65 ;IF $D(@INV@("REF1"))
+66 IF $DATA(@INV@("REF1"))
+67 IF $TEST
Begin DoDot:1
+68 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+69 SET (INX,X)=@INV@("REF1",INI(1))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("REF1",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF1' failed input transform in iteration #"_INI(1)_". Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+72 QUIT
End DoDot:2
+73 KILL DXS
+74 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+75 SET (INX,X)=@INV@("REF2",INI(1))
+76 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+77 SET @INV@("REF2",INI(1))=$GET(X)
IF '$DATA(X)
DO ERROR^INHS("Variable 'REF2' 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 QUIT
End DoDot:1
+81 ;IF $D(@INV@("DTM1"))
9 GOTO EN^IS00003U
