IS00003D ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 5
;Copyright 2002 SAIC
EN S:DO @("@INV@(""MIA12"")")=$$PIECE^INHU(.LINE,DELIM,13)
S:DO @("@INV@(""MIA13"")")=$$PIECE^INHU(.LINE,DELIM,14)
S:DO @("@INV@(""MIA14"")")=$$PIECE^INHU(.LINE,DELIM,15)
S:DO @("@INV@(""MIA15"")")=$$PIECE^INHU(.LINE,DELIM,16)
S:DO @("@INV@(""MIA16"")")=$$PIECE^INHU(.LINE,DELIM,17)
S:DO @("@INV@(""MIA17"")")=$$PIECE^INHU(.LINE,DELIM,18)
S:DO @("@INV@(""MIA18"")")=$$PIECE^INHU(.LINE,DELIM,19)
S:DO @("@INV@(""MIA19"")")=$$PIECE^INHU(.LINE,DELIM,20)
S:DO @("@INV@(""MIA20"")")=$$PIECE^INHU(.LINE,DELIM,21)
S:DO @("@INV@(""MIA21"")")=$$PIECE^INHU(.LINE,DELIM,22)
S:DO @("@INV@(""MIA22"")")=$$PIECE^INHU(.LINE,DELIM,23)
S:DO @("@INV@(""MIA23"")")=$$PIECE^INHU(.LINE,DELIM,24)
S:DO @("@INV@(""MIA24"")")=$$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"M"1"O"1"A".ANPC S DO=1,MATCH=1
E S LCT=LCT-CNT,DO=0
S:DO @("@INV@(""MOA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
S:DO @("@INV@(""MOA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
S:DO @("@INV@(""MOA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
S:DO @("@INV@(""MOA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
S:DO @("@INV@(""MOA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
S:DO @("@INV@(""MOA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
S:DO @("@INV@(""MOA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
S:DO @("@INV@(""MOA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
S:DO @("@INV@(""MOA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
Q:MATCH
Q
A1 ;WHILE $P(DATA,DELIM)="REF"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("REF",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.Q
;WHILE $P(DATA,DELIM)="REF"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("REF",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.Q
;WHILE $P(DATA,DELIM)="DTM"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("DTM",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""DTM1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""DTM2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.Q
;WHILE $P(DATA,DELIM)="PER"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("PER",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""PER1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""PER2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""PER3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""PER4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""PER5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""PER6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""PER7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""PER8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
.Q
;WHILE $P(DATA,DELIM)="AMT"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("AMT",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""AMT1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""AMT2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.Q
;WHILE $P(DATA,DELIM)="QTY"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("QTY",0,1) D S INI(1)=INI(1)+1
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=1
.S:DO @("@INV@(""QTY1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""QTY2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.Q
;Start of GROUP
F S MATCH=0 D Q:'MATCH
.D:'INVS MC^INHS
.D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
.I 'MATCH,LINE?1"S"1"V"1"C".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""SVC1"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""SVC2"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""SVC3"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""SVC4"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""SVC5"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""SVC6"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""SVC7"")")=$$PIECE^INHU(.LINE,DELIM,8)
.Q:MATCH
.Q
;WHILE $P(DATA,DELIM)="DTM"
9 G EN^IS00003E
IS00003D ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 5
+2 ;Copyright 2002 SAIC
EN IF DO
SET @("@INV@(""MIA12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+1 IF DO
SET @("@INV@(""MIA13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+2 IF DO
SET @("@INV@(""MIA14"")")=$$PIECE^INHU(.LINE,DELIM,15)
+3 IF DO
SET @("@INV@(""MIA15"")")=$$PIECE^INHU(.LINE,DELIM,16)
+4 IF DO
SET @("@INV@(""MIA16"")")=$$PIECE^INHU(.LINE,DELIM,17)
+5 IF DO
SET @("@INV@(""MIA17"")")=$$PIECE^INHU(.LINE,DELIM,18)
+6 IF DO
SET @("@INV@(""MIA18"")")=$$PIECE^INHU(.LINE,DELIM,19)
+7 IF DO
SET @("@INV@(""MIA19"")")=$$PIECE^INHU(.LINE,DELIM,20)
+8 IF DO
SET @("@INV@(""MIA20"")")=$$PIECE^INHU(.LINE,DELIM,21)
+9 IF DO
SET @("@INV@(""MIA21"")")=$$PIECE^INHU(.LINE,DELIM,22)
+10 IF DO
SET @("@INV@(""MIA22"")")=$$PIECE^INHU(.LINE,DELIM,23)
+11 IF DO
SET @("@INV@(""MIA23"")")=$$PIECE^INHU(.LINE,DELIM,24)
+12 IF DO
SET @("@INV@(""MIA24"")")=$$PIECE^INHU(.LINE,DELIM,25)
+13 IF MATCH
QUIT
+14 IF 'INVS
DO MC^INHS
+15 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+16 IF 'MATCH
IF LINE?1"M"1"O"1"A".ANPC
SET DO=1
SET MATCH=1
+17 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+18 IF DO
SET @("@INV@(""MOA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+19 IF DO
SET @("@INV@(""MOA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+20 IF DO
SET @("@INV@(""MOA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+21 IF DO
SET @("@INV@(""MOA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+22 IF DO
SET @("@INV@(""MOA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+23 IF DO
SET @("@INV@(""MOA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+24 IF DO
SET @("@INV@(""MOA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+25 IF DO
SET @("@INV@(""MOA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+26 IF DO
SET @("@INV@(""MOA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+27 IF MATCH
QUIT
+28 QUIT
A1 ;WHILE $P(DATA,DELIM)="REF"
+1 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("REF",0,1)
QUIT
Begin DoDot:1
+2 IF 'INVS
DO MC^INHS
+3 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+4 IF DO
SET @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+5 IF DO
SET @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+6 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+7 ;WHILE $P(DATA,DELIM)="REF"
+8 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("REF",0,1)
QUIT
Begin DoDot:1
+9 IF 'INVS
DO MC^INHS
+10 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+11 IF DO
SET @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+12 IF DO
SET @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+13 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+14 ;WHILE $P(DATA,DELIM)="DTM"
+15 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("DTM",0,1)
QUIT
Begin DoDot:1
+16 IF 'INVS
DO MC^INHS
+17 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+18 IF DO
SET @("@INV@(""DTM1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+19 IF DO
SET @("@INV@(""DTM2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+20 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+21 ;WHILE $P(DATA,DELIM)="PER"
+22 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("PER",0,1)
QUIT
Begin DoDot:1
+23 IF 'INVS
DO MC^INHS
+24 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+25 IF DO
SET @("@INV@(""PER1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+26 IF DO
SET @("@INV@(""PER2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+27 IF DO
SET @("@INV@(""PER3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
+28 IF DO
SET @("@INV@(""PER4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
+29 IF DO
SET @("@INV@(""PER5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
+30 IF DO
SET @("@INV@(""PER6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
+31 IF DO
SET @("@INV@(""PER7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
+32 IF DO
SET @("@INV@(""PER8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
+33 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+34 ;WHILE $P(DATA,DELIM)="AMT"
+35 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("AMT",0,1)
QUIT
Begin DoDot:1
+36 IF 'INVS
DO MC^INHS
+37 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+38 IF DO
SET @("@INV@(""AMT1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+39 IF DO
SET @("@INV@(""AMT2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+40 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+41 ;WHILE $P(DATA,DELIM)="QTY"
+42 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("QTY",0,1)
QUIT
Begin DoDot:1
+43 IF 'INVS
DO MC^INHS
+44 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+45 IF DO
SET @("@INV@(""QTY1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+46 IF DO
SET @("@INV@(""QTY2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+47 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+48 ;Start of GROUP
+49 FOR
SET MATCH=0
Begin DoDot:1
+50 IF 'INVS
DO MC^INHS
+51 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+52 IF 'MATCH
IF LINE?1"S"1"V"1"C".ANPC
SET DO=1
SET MATCH=1
+53 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+54 IF DO
SET @("@INV@(""SVC1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+55 IF DO
SET @("@INV@(""SVC2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+56 IF DO
SET @("@INV@(""SVC3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+57 IF DO
SET @("@INV@(""SVC4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+58 IF DO
SET @("@INV@(""SVC5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+59 IF DO
SET @("@INV@(""SVC6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+60 IF DO
SET @("@INV@(""SVC7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+61 IF MATCH
QUIT
+62 QUIT
End DoDot:1
IF 'MATCH
QUIT
+63 ;WHILE $P(DATA,DELIM)="DTM"
9 GOTO EN^IS00003E
