IS00003K ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 12
;Copyright 2002 SAIC
EN I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS310")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS310' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS311"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS311")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS311' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS312"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS312")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS312' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS313"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS313")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS313' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS314"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS314")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS314' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS315"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS315")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS315' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS316"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS316")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS316' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS317"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS317")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS317' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS318"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS318")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS318' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS319"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS319")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS319' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS320"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS320")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS320' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS321"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS321")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS321' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS322"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS322")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS322' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS323"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS323")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS323' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
S (INX,X)=$G(@INV@("TS324"))
I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
S @INV@("TS324")=$G(X)
I '$D(X) D ERROR^INHS("Variable 'TS324' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
K DXS
Q
h1 ;IF $D(@INV@("TS21"))
I $D(@INV@("TS21"))
D:$T
.S (INX,X)=$G(@INV@("TS21"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS21")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS21' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS22"))
.I $P($G(INTHL7F2),U,4) S X=$$SUBESC^INHUT7(X,INDELIMS,"I")
.S @INV@("TS22")=$G(X)
.I '$D(X) D ERROR^INHS("Variable 'TS22' failed input transform. Processing continues.",0),ERROR^INHS(" Value = '"_INX_"'",0)
.K DXS
.S (INX,X)=$G(@INV@("TS23"))
9 .D EN^IS00003L
G i1^IS00003L
IS00003K ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 12
+2 ;Copyright 2002 SAIC
EN IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+1 SET @INV@("TS310")=$GET(X)
+2 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS310' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+3 KILL DXS
+4 SET (INX,X)=$GET(@INV@("TS311"))
+5 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+6 SET @INV@("TS311")=$GET(X)
+7 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS311' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+8 KILL DXS
+9 SET (INX,X)=$GET(@INV@("TS312"))
+10 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+11 SET @INV@("TS312")=$GET(X)
+12 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS312' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+13 KILL DXS
+14 SET (INX,X)=$GET(@INV@("TS313"))
+15 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+16 SET @INV@("TS313")=$GET(X)
+17 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS313' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+18 KILL DXS
+19 SET (INX,X)=$GET(@INV@("TS314"))
+20 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+21 SET @INV@("TS314")=$GET(X)
+22 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS314' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+23 KILL DXS
+24 SET (INX,X)=$GET(@INV@("TS315"))
+25 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+26 SET @INV@("TS315")=$GET(X)
+27 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS315' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+28 KILL DXS
+29 SET (INX,X)=$GET(@INV@("TS316"))
+30 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+31 SET @INV@("TS316")=$GET(X)
+32 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS316' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+33 KILL DXS
+34 SET (INX,X)=$GET(@INV@("TS317"))
+35 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+36 SET @INV@("TS317")=$GET(X)
+37 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS317' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+38 KILL DXS
+39 SET (INX,X)=$GET(@INV@("TS318"))
+40 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+41 SET @INV@("TS318")=$GET(X)
+42 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS318' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+43 KILL DXS
+44 SET (INX,X)=$GET(@INV@("TS319"))
+45 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+46 SET @INV@("TS319")=$GET(X)
+47 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS319' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+48 KILL DXS
+49 SET (INX,X)=$GET(@INV@("TS320"))
+50 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+51 SET @INV@("TS320")=$GET(X)
+52 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS320' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+53 KILL DXS
+54 SET (INX,X)=$GET(@INV@("TS321"))
+55 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+56 SET @INV@("TS321")=$GET(X)
+57 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS321' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+58 KILL DXS
+59 SET (INX,X)=$GET(@INV@("TS322"))
+60 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+61 SET @INV@("TS322")=$GET(X)
+62 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS322' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+63 KILL DXS
+64 SET (INX,X)=$GET(@INV@("TS323"))
+65 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+66 SET @INV@("TS323")=$GET(X)
+67 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS323' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+68 KILL DXS
+69 SET (INX,X)=$GET(@INV@("TS324"))
+70 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+71 SET @INV@("TS324")=$GET(X)
+72 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS324' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+73 KILL DXS
+74 QUIT
h1 ;IF $D(@INV@("TS21"))
+1 IF $DATA(@INV@("TS21"))
+2 IF $TEST
Begin DoDot:1
+3 SET (INX,X)=$GET(@INV@("TS21"))
+4 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+5 SET @INV@("TS21")=$GET(X)
+6 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS21' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+7 KILL DXS
+8 SET (INX,X)=$GET(@INV@("TS22"))
+9 IF $PIECE($GET(INTHL7F2),U,4)
SET X=$$SUBESC^INHUT7(X,INDELIMS,"I")
+10 SET @INV@("TS22")=$GET(X)
+11 IF '$DATA(X)
DO ERROR^INHS("Variable 'TS22' failed input transform. Processing continues.",0)
DO ERROR^INHS(" Value = '"_INX_"'",0)
+12 KILL DXS
+13 SET (INX,X)=$GET(@INV@("TS23"))
9 DO EN^IS00003L
End DoDot:1
+1 GOTO i1^IS00003L
