IS00003C ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 4
;Copyright 2002 SAIC
EN S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
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)
S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
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)
S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
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)
S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
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)
S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
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)
S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
Q:MATCH
D:'INVS MC^INHS
D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
I 'MATCH,LINE?1"M"1"I"1"A".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""MIA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""MIA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""MIA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""MIA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""MIA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""MIA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""MIA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""MIA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""MIA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
S:DO @("@INV@(""MIA10"")")=$$PIECE^INHU(.LINE,DELIM,11)
S:DO @("@INV@(""MIA11"")")=$$PIECE^INHU(.LINE,DELIM,12)
9 G EN^IS00003D
IS00003C ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 4
+2 ;Copyright 2002 SAIC
EN IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+1 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+2 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+3 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+4 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+5 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+6 IF MATCH
QUIT
+7 IF 'INVS
DO MC^INHS
+8 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+9 IF 'MATCH
IF LINE?1"N"1"M"1"1".ANPC
SET DO=1
SET MATCH=1
+10 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+11 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+12 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+13 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+14 IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+15 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+16 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+17 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+18 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+19 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+20 IF MATCH
QUIT
+21 IF 'INVS
DO MC^INHS
+22 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+23 IF 'MATCH
IF LINE?1"N"1"M"1"1".ANPC
SET DO=1
SET MATCH=1
+24 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+25 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+26 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+27 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+28 IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+29 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+30 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+31 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+32 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+33 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+34 IF MATCH
QUIT
+35 IF 'INVS
DO MC^INHS
+36 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+37 IF 'MATCH
IF LINE?1"N"1"M"1"1".ANPC
SET DO=1
SET MATCH=1
+38 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+39 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+40 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+41 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+42 IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+43 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+44 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+45 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+46 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+47 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+48 IF MATCH
QUIT
+49 IF 'INVS
DO MC^INHS
+50 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+51 IF 'MATCH
IF LINE?1"N"1"M"1"1".ANPC
SET DO=1
SET MATCH=1
+52 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+53 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+54 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+55 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+56 IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+57 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+58 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+59 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+60 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+61 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+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"M"1"1".ANPC
SET DO=1
SET MATCH=1
+66 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+67 IF DO
SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
+68 IF DO
SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
+69 IF DO
SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
+70 IF DO
SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
+71 IF DO
SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
+72 IF DO
SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
+73 IF DO
SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
+74 IF DO
SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
+75 IF DO
SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
+76 IF MATCH
QUIT
+77 IF 'INVS
DO MC^INHS
+78 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+79 IF 'MATCH
IF LINE?1"M"1"I"1"A".ANPC
SET DO=1
SET MATCH=1
+80 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+81 IF DO
SET @("@INV@(""MIA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+82 IF DO
SET @("@INV@(""MIA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+83 IF DO
SET @("@INV@(""MIA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+84 IF DO
SET @("@INV@(""MIA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+85 IF DO
SET @("@INV@(""MIA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+86 IF DO
SET @("@INV@(""MIA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+87 IF DO
SET @("@INV@(""MIA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+88 IF DO
SET @("@INV@(""MIA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+89 IF DO
SET @("@INV@(""MIA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+90 IF DO
SET @("@INV@(""MIA10"")")=$$PIECE^INHU(.LINE,DELIM,11)
+91 IF DO
SET @("@INV@(""MIA11"")")=$$PIECE^INHU(.LINE,DELIM,12)
9 GOTO EN^IS00003D
