IS00003B ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 3
;Copyright 2002 SAIC
EN S:DO @("@INV@(""TS313"")")=$$PIECE^INHU(.LINE,DELIM,14)
S:DO @("@INV@(""TS314"")")=$$PIECE^INHU(.LINE,DELIM,15)
S:DO @("@INV@(""TS315"")")=$$PIECE^INHU(.LINE,DELIM,16)
S:DO @("@INV@(""TS316"")")=$$PIECE^INHU(.LINE,DELIM,17)
S:DO @("@INV@(""TS317"")")=$$PIECE^INHU(.LINE,DELIM,18)
S:DO @("@INV@(""TS318"")")=$$PIECE^INHU(.LINE,DELIM,19)
S:DO @("@INV@(""TS319"")")=$$PIECE^INHU(.LINE,DELIM,20)
S:DO @("@INV@(""TS320"")")=$$PIECE^INHU(.LINE,DELIM,21)
S:DO @("@INV@(""TS321"")")=$$PIECE^INHU(.LINE,DELIM,22)
S:DO @("@INV@(""TS322"")")=$$PIECE^INHU(.LINE,DELIM,23)
S:DO @("@INV@(""TS323"")")=$$PIECE^INHU(.LINE,DELIM,24)
S:DO @("@INV@(""TS324"")")=$$PIECE^INHU(.LINE,DELIM,25)
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"2".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""TS21"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""TS22"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""TS23"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""TS24"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""TS25"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""TS26"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""TS27"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""TS28"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""TS29"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""TS210"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""TS211"")")=$$PIECE^INHU(.LINE,DELIM,12)
S:DO @("@INV@(""TS212"")")=$$PIECE^INHU(.LINE,DELIM,13)
S:DO @("@INV@(""TS213"")")=$$PIECE^INHU(.LINE,DELIM,14)
S:DO @("@INV@(""TS214"")")=$$PIECE^INHU(.LINE,DELIM,15)
S:DO @("@INV@(""TS215"")")=$$PIECE^INHU(.LINE,DELIM,16)
S:DO @("@INV@(""TS216"")")=$$PIECE^INHU(.LINE,DELIM,17)
S:DO @("@INV@(""TS217"")")=$$PIECE^INHU(.LINE,DELIM,18)
S:DO @("@INV@(""TS218"")")=$$PIECE^INHU(.LINE,DELIM,19)
S:DO @("@INV@(""TS219"")")=$$PIECE^INHU(.LINE,DELIM,20)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"C"1"L"1"P".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""CLP1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""CLP2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""CLP3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""CLP4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""CLP5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""CLP6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""CLP7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""CLP8"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""CLP9"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""CLP10"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""CLP11"")")=$$PIECE^INHU(.LINE,DELIM,12)
S:DO @("@INV@(""CLP12"")")=$$PIECE^INHU(.LINE,DELIM,13)
S:DO @("@INV@(""CLP13"")")=$$PIECE^INHU(.LINE,DELIM,14)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"C"1"A"1"S".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""CAS1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""CAS2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""CAS3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""CAS4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""CAS5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""CAS6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""CAS7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""CAS8"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""CAS9"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""CAS10"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""CAS11"")")=$$PIECE^INHU(.LINE,DELIM,12)
S:DO @("@INV@(""CAS12"")")=$$PIECE^INHU(.LINE,DELIM,13)
S:DO @("@INV@(""CAS13"")")=$$PIECE^INHU(.LINE,DELIM,14)
S:DO @("@INV@(""CAS14"")")=$$PIECE^INHU(.LINE,DELIM,15)
S:DO @("@INV@(""CAS15"")")=$$PIECE^INHU(.LINE,DELIM,16)
S:DO @("@INV@(""CAS16"")")=$$PIECE^INHU(.LINE,DELIM,17)
S:DO @("@INV@(""CAS17"")")=$$PIECE^INHU(.LINE,DELIM,18)
S:DO @("@INV@(""CAS18"")")=$$PIECE^INHU(.LINE,DELIM,19)
S:DO @("@INV@(""CAS19"")")=$$PIECE^INHU(.LINE,DELIM,20)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"N"1"M"1"1".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
9 G EN^IS00003C
IS00003B ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 3
+2 ;Copyright 2002 SAIC
EN IF DO
SET @("@INV@(""TS313"")")=$$PIECE^INHU(.LINE,DELIM,14)
+1 IF DO
SET @("@INV@(""TS314"")")=$$PIECE^INHU(.LINE,DELIM,15)
+2 IF DO
SET @("@INV@(""TS315"")")=$$PIECE^INHU(.LINE,DELIM,16)
+3 IF DO
SET @("@INV@(""TS316"")")=$$PIECE^INHU(.LINE,DELIM,17)
+4 IF DO
SET @("@INV@(""TS317"")")=$$PIECE^INHU(.LINE,DELIM,18)
+5 IF DO
SET @("@INV@(""TS318"")")=$$PIECE^INHU(.LINE,DELIM,19)
+6 IF DO
SET @("@INV@(""TS319"")")=$$PIECE^INHU(.LINE,DELIM,20)
+7 IF DO
SET @("@INV@(""TS320"")")=$$PIECE^INHU(.LINE,DELIM,21)
+8 IF DO
SET @("@INV@(""TS321"")")=$$PIECE^INHU(.LINE,DELIM,22)
+9 IF DO
SET @("@INV@(""TS322"")")=$$PIECE^INHU(.LINE,DELIM,23)
+10 IF DO
SET @("@INV@(""TS323"")")=$$PIECE^INHU(.LINE,DELIM,24)
+11 IF DO
SET @("@INV@(""TS324"")")=$$PIECE^INHU(.LINE,DELIM,25)
+12 IF MATCH
QUIT
+13 IF 'INVS
DO MC^INHS
+14 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+15 IF 'MATCH
IF LINE?1"T"1"S"1"2".ANPC
SET DO=1
SET MATCH=1
+16 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+17 IF DO
SET @("@INV@(""TS21"")")=$$PIECE^INHU(.LINE,DELIM,2)
+18 IF DO
SET @("@INV@(""TS22"")")=$$PIECE^INHU(.LINE,DELIM,3)
+19 IF DO
SET @("@INV@(""TS23"")")=$$PIECE^INHU(.LINE,DELIM,4)
+20 IF DO
SET @("@INV@(""TS24"")")=$$PIECE^INHU(.LINE,DELIM,5)
+21 IF DO
SET @("@INV@(""TS25"")")=$$PIECE^INHU(.LINE,DELIM,6)
+22 IF DO
SET @("@INV@(""TS26"")")=$$PIECE^INHU(.LINE,DELIM,7)
+23 IF DO
SET @("@INV@(""TS27"")")=$$PIECE^INHU(.LINE,DELIM,8)
+24 IF DO
SET @("@INV@(""TS28"")")=$$PIECE^INHU(.LINE,DELIM,9)
+25 IF DO
SET @("@INV@(""TS29"")")=$$PIECE^INHU(.LINE,DELIM,10)
+26 IF DO
SET @("@INV@(""TS210"")")=$$PIECE^INHU(.LINE,DELIM,11)
+27 IF DO
SET @("@INV@(""TS211"")")=$$PIECE^INHU(.LINE,DELIM,12)
+28 IF DO
SET @("@INV@(""TS212"")")=$$PIECE^INHU(.LINE,DELIM,13)
+29 IF DO
SET @("@INV@(""TS213"")")=$$PIECE^INHU(.LINE,DELIM,14)
+30 IF DO
SET @("@INV@(""TS214"")")=$$PIECE^INHU(.LINE,DELIM,15)
+31 IF DO
SET @("@INV@(""TS215"")")=$$PIECE^INHU(.LINE,DELIM,16)
+32 IF DO
SET @("@INV@(""TS216"")")=$$PIECE^INHU(.LINE,DELIM,17)
+33 IF DO
SET @("@INV@(""TS217"")")=$$PIECE^INHU(.LINE,DELIM,18)
+34 IF DO
SET @("@INV@(""TS218"")")=$$PIECE^INHU(.LINE,DELIM,19)
+35 IF DO
SET @("@INV@(""TS219"")")=$$PIECE^INHU(.LINE,DELIM,20)
+36 IF MATCH
QUIT
+37 IF 'INVS
DO MC^INHS
+38 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+39 IF 'MATCH
IF LINE?1"C"1"L"1"P".ANPC
SET DO=1
SET MATCH=1
+40 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+41 IF DO
SET @("@INV@(""CLP1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+42 IF DO
SET @("@INV@(""CLP2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+43 IF DO
SET @("@INV@(""CLP3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+44 IF DO
SET @("@INV@(""CLP4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+45 IF DO
SET @("@INV@(""CLP5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+46 IF DO
SET @("@INV@(""CLP6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+47 IF DO
SET @("@INV@(""CLP7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+48 IF DO
SET @("@INV@(""CLP8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+49 IF DO
SET @("@INV@(""CLP9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+50 IF DO
SET @("@INV@(""CLP10"")")=$$PIECE^INHU(.LINE,DELIM,11)
+51 IF DO
SET @("@INV@(""CLP11"")")=$$PIECE^INHU(.LINE,DELIM,12)
+52 IF DO
SET @("@INV@(""CLP12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+53 IF DO
SET @("@INV@(""CLP13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+54 IF MATCH
QUIT
+55 IF 'INVS
DO MC^INHS
+56 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+57 IF 'MATCH
IF LINE?1"C"1"A"1"S".ANPC
SET DO=1
SET MATCH=1
+58 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+59 IF DO
SET @("@INV@(""CAS1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+60 IF DO
SET @("@INV@(""CAS2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+61 IF DO
SET @("@INV@(""CAS3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+62 IF DO
SET @("@INV@(""CAS4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+63 IF DO
SET @("@INV@(""CAS5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+64 IF DO
SET @("@INV@(""CAS6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+65 IF DO
SET @("@INV@(""CAS7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+66 IF DO
SET @("@INV@(""CAS8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+67 IF DO
SET @("@INV@(""CAS9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+68 IF DO
SET @("@INV@(""CAS10"")")=$$PIECE^INHU(.LINE,DELIM,11)
+69 IF DO
SET @("@INV@(""CAS11"")")=$$PIECE^INHU(.LINE,DELIM,12)
+70 IF DO
SET @("@INV@(""CAS12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+71 IF DO
SET @("@INV@(""CAS13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+72 IF DO
SET @("@INV@(""CAS14"")")=$$PIECE^INHU(.LINE,DELIM,15)
+73 IF DO
SET @("@INV@(""CAS15"")")=$$PIECE^INHU(.LINE,DELIM,16)
+74 IF DO
SET @("@INV@(""CAS16"")")=$$PIECE^INHU(.LINE,DELIM,17)
+75 IF DO
SET @("@INV@(""CAS17"")")=$$PIECE^INHU(.LINE,DELIM,18)
+76 IF DO
SET @("@INV@(""CAS18"")")=$$PIECE^INHU(.LINE,DELIM,19)
+77 IF DO
SET @("@INV@(""CAS19"")")=$$PIECE^INHU(.LINE,DELIM,20)
+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"N"1"M"1"1".ANPC
SET DO=1
SET MATCH=1
+82 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+83 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+84 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+85 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
9 GOTO EN^IS00003C
