IS00003A ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 2
;Copyright 2002 SAIC
EN S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"D"1"T"1"M".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""DTM1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""DTM2"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"1".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"3".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"4".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"R"1"E"1"F".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"P"1"E"1"R".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""PER1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""PER2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""PER3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""PER4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""PER5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""PER6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""PER7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""PER8"")")=$$PIECE^INHU(.LINE,DELIM,9)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"1".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"3".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"4".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""N44"")")=$$PIECE^INHU(.LINE,DELIM,5)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"R"1"E"1"F".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"L"1"X".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""LX1"")")=$$PIECE^INHU(.LINE,DELIM,2)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"T"1"S"1"3".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""TS31"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""TS32"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""TS33"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""TS34"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""TS35"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""TS36"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""TS37"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""TS38"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""TS39"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""TS310"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""TS311"")")=$$PIECE^INHU(.LINE,DELIM,12)
S:DO @("@INV@(""TS312"")")=$$PIECE^INHU(.LINE,DELIM,13)
9 G EN^IS00003B
IS00003A ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 2
+2 ;Copyright 2002 SAIC
EN IF DO
SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+1 IF DO
SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+2 IF MATCH
QUIT
+3 IF 'INVS
DO MC^INHS
+4 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+5 IF 'MATCH
IF LINE?1"D"1"T"1"M".ANPC
SET DO=1
SET MATCH=1
+6 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+7 IF DO
SET @("@INV@(""DTM1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+8 IF DO
SET @("@INV@(""DTM2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+9 IF MATCH
QUIT
+10 IF 'INVS
DO MC^INHS
+11 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+12 IF 'MATCH
IF LINE?1"N"1"1".ANPC
SET DO=1
SET MATCH=1
+13 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+14 IF DO
SET @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+15 IF DO
SET @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+16 IF DO
SET @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+17 IF DO
SET @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+18 IF MATCH
QUIT
+19 IF 'INVS
DO MC^INHS
+20 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+21 IF 'MATCH
IF LINE?1"N"1"3".ANPC
SET DO=1
SET MATCH=1
+22 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+23 IF DO
SET @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
+24 IF DO
SET @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
+25 IF MATCH
QUIT
+26 IF 'INVS
DO MC^INHS
+27 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+28 IF 'MATCH
IF LINE?1"N"1"4".ANPC
SET DO=1
SET MATCH=1
+29 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+30 IF DO
SET @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
+31 IF DO
SET @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
+32 IF DO
SET @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
+33 IF MATCH
QUIT
+34 IF 'INVS
DO MC^INHS
+35 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+36 IF 'MATCH
IF LINE?1"R"1"E"1"F".ANPC
SET DO=1
SET MATCH=1
+37 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+38 IF DO
SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+39 IF DO
SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+40 IF MATCH
QUIT
+41 IF 'INVS
DO MC^INHS
+42 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+43 IF 'MATCH
IF LINE?1"P"1"E"1"R".ANPC
SET DO=1
SET MATCH=1
+44 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+45 IF DO
SET @("@INV@(""PER1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+46 IF DO
SET @("@INV@(""PER2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+47 IF DO
SET @("@INV@(""PER3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+48 IF DO
SET @("@INV@(""PER4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+49 IF DO
SET @("@INV@(""PER5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+50 IF DO
SET @("@INV@(""PER6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+51 IF DO
SET @("@INV@(""PER7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+52 IF DO
SET @("@INV@(""PER8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+53 IF MATCH
QUIT
+54 IF 'INVS
DO MC^INHS
+55 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+56 IF 'MATCH
IF LINE?1"N"1"1".ANPC
SET DO=1
SET MATCH=1
+57 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+58 IF DO
SET @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+59 IF DO
SET @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+60 IF DO
SET @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+61 IF DO
SET @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+62 IF MATCH
QUIT
+63 IF 'INVS
DO MC^INHS
+64 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+65 IF 'MATCH
IF LINE?1"N"1"3".ANPC
SET DO=1
SET MATCH=1
+66 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+67 IF DO
SET @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
+68 IF DO
SET @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
+69 IF MATCH
QUIT
+70 IF 'INVS
DO MC^INHS
+71 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+72 IF 'MATCH
IF LINE?1"N"1"4".ANPC
SET DO=1
SET MATCH=1
+73 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+74 IF DO
SET @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
+75 IF DO
SET @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
+76 IF DO
SET @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
+77 IF DO
SET @("@INV@(""N44"")")=$$PIECE^INHU(.LINE,DELIM,5)
+78 IF MATCH
QUIT
+79 IF 'INVS
DO MC^INHS
+80 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+81 IF 'MATCH
IF LINE?1"R"1"E"1"F".ANPC
SET DO=1
SET MATCH=1
+82 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+83 IF DO
SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+84 IF DO
SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+85 IF MATCH
QUIT
+86 IF 'INVS
DO MC^INHS
+87 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+88 IF 'MATCH
IF LINE?1"L"1"X".ANPC
SET DO=1
SET MATCH=1
+89 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+90 IF DO
SET @("@INV@(""LX1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+91 IF MATCH
QUIT
+92 IF 'INVS
DO MC^INHS
+93 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+94 IF 'MATCH
IF LINE?1"T"1"S"1"3".ANPC
SET DO=1
SET MATCH=1
+95 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+96 IF DO
SET @("@INV@(""TS31"")")=$$PIECE^INHU(.LINE,DELIM,2)
+97 IF DO
SET @("@INV@(""TS32"")")=$$PIECE^INHU(.LINE,DELIM,3)
+98 IF DO
SET @("@INV@(""TS33"")")=$$PIECE^INHU(.LINE,DELIM,4)
+99 IF DO
SET @("@INV@(""TS34"")")=$$PIECE^INHU(.LINE,DELIM,5)
+100 IF DO
SET @("@INV@(""TS35"")")=$$PIECE^INHU(.LINE,DELIM,6)
+101 IF DO
SET @("@INV@(""TS36"")")=$$PIECE^INHU(.LINE,DELIM,7)
+102 IF DO
SET @("@INV@(""TS37"")")=$$PIECE^INHU(.LINE,DELIM,8)
+103 IF DO
SET @("@INV@(""TS38"")")=$$PIECE^INHU(.LINE,DELIM,9)
+104 IF DO
SET @("@INV@(""TS39"")")=$$PIECE^INHU(.LINE,DELIM,10)
+105 IF DO
SET @("@INV@(""TS310"")")=$$PIECE^INHU(.LINE,DELIM,11)
+106 IF DO
SET @("@INV@(""TS311"")")=$$PIECE^INHU(.LINE,DELIM,12)
+107 IF DO
SET @("@INV@(""TS312"")")=$$PIECE^INHU(.LINE,DELIM,13)
9 GOTO EN^IS00003B
