IS00003J ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 11
;Copyright 2002 SAIC
EN I '$D(X) D ERROR^INHS("Variable 'N41' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("N42"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("N42")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'N42' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("N43"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("N43")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'N43' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("N44"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("N44")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'N44' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
e1 ;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@("LX1"))
I $D(@INV@("LX1"))
D:$T
.S (INX,X)=$G(@INV@("LX1"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("LX1")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'LX1' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.Q
;IF $D(@INV@("TS31"))
I $D(@INV@("TS31"))
D:$T
.S (INX,X)=$G(@INV@("TS31"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS31")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS31' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS32"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS32")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS32' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS33"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS33")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS33' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS34"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS34")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS34' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS35"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS35")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS35' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS36"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS36")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS36' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS37"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS37")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS37' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS38"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS38")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS38' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS39"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS39")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS39' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS310"))
9 .D EN^IS00003K
G h1^IS00003K
IS00003J ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 11
+2 ;Copyright 2002 SAIC
EN IF '$DATA(X)
DO ERROR^INHS("Variable 'N41' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+1 KILL DXS
+2 SET (INX,X)=$GET(@INV@("N42"))
+3 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+4 SET @INV@("N42")=$GET(X)
+5 IF '$DATA(X)
DO ERROR^INHS("Variable 'N42' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+6 KILL DXS
+7 SET (INX,X)=$GET(@INV@("N43"))
+8 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+9 SET @INV@("N43")=$GET(X)
+10 IF '$DATA(X)
DO ERROR^INHS("Variable 'N43' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+11 KILL DXS
+12 SET (INX,X)=$GET(@INV@("N44"))
+13 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+14 SET @INV@("N44")=$GET(X)
+15 IF '$DATA(X)
DO ERROR^INHS("Variable 'N44' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+16 KILL DXS
+17 QUIT
e1 ;IF $D(@INV@("REF1"))
+1 IF $DATA(@INV@("REF1"))
+2 IF $TEST
Begin DoDot:1
+3 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF1",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+4 SET (INX,X)=@INV@("REF1",INI(1))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 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)
+7 QUIT
End DoDot:2
+8 KILL DXS
+9 SET INI(1)=0
FOR
SET INI(1)=$ORDER(@INV@("REF2",INI(1)))
IF 'INI(1)
QUIT
SET INI=INI(1)
Begin DoDot:2
+10 SET (INX,X)=@INV@("REF2",INI(1))
+11 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+12 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)
+13 QUIT
End DoDot:2
+14 KILL DXS
+15 QUIT
End DoDot:1
+16 ;IF $D(@INV@("LX1"))
+17 IF $DATA(@INV@("LX1"))
+18 IF $TEST
Begin DoDot:1
+19 SET (INX,X)=$GET(@INV@("LX1"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("LX1")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'LX1' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 QUIT
End DoDot:1
+25 ;IF $D(@INV@("TS31"))
+26 IF $DATA(@INV@("TS31"))
+27 IF $TEST
Begin DoDot:1
+28 SET (INX,X)=$GET(@INV@("TS31"))
+29 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+30 SET @INV@("TS31")=$GET(X)
+31 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS31' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+32 KILL DXS
+33 SET (INX,X)=$GET(@INV@("TS32"))
+34 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+35 SET @INV@("TS32")=$GET(X)
+36 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS32' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+37 KILL DXS
+38 SET (INX,X)=$GET(@INV@("TS33"))
+39 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+40 SET @INV@("TS33")=$GET(X)
+41 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS33' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+42 KILL DXS
+43 SET (INX,X)=$GET(@INV@("TS34"))
+44 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+45 SET @INV@("TS34")=$GET(X)
+46 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS34' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+47 KILL DXS
+48 SET (INX,X)=$GET(@INV@("TS35"))
+49 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+50 SET @INV@("TS35")=$GET(X)
+51 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS35' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+52 KILL DXS
+53 SET (INX,X)=$GET(@INV@("TS36"))
+54 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+55 SET @INV@("TS36")=$GET(X)
+56 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS36' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+57 KILL DXS
+58 SET (INX,X)=$GET(@INV@("TS37"))
+59 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+60 SET @INV@("TS37")=$GET(X)
+61 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS37' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+62 KILL DXS
+63 SET (INX,X)=$GET(@INV@("TS38"))
+64 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+65 SET @INV@("TS38")=$GET(X)
+66 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS38' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+67 KILL DXS
+68 SET (INX,X)=$GET(@INV@("TS39"))
+69 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+70 SET @INV@("TS39")=$GET(X)
+71 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS39' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+72 KILL DXS
+73 SET (INX,X)=$GET(@INV@("TS310"))
9 DO EN^IS00003K
End DoDot:1
+1 GOTO h1^IS00003K
