IS00003E ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
;Part 6
;Copyright 2002 SAIC
EN 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)="CAS"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("CAS",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@(""CAS1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""CAS2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""CAS3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""CAS4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""CAS5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""CAS6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""CAS7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""CAS8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""CAS9"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""CAS10"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""CAS11"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""CAS12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""CAS13"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""CAS14"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,15)
.S:DO @("@INV@(""CAS15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,16)
.S:DO @("@INV@(""CAS16"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,17)
.S:DO @("@INV@(""CAS17"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,18)
.S:DO @("@INV@(""CAS18"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,19)
.S:DO @("@INV@(""CAS19"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,20)
.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)="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)="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
;WHILE $P(DATA,DELIM)="LQ"
S INI(1)=1 F S DATA=$$GL^INHOU(UIF,LCT) Q:'$$CHECKSEG^INHOU("LQ",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@(""LQ1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""LQ2"",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"P"1"L"1"B".ANPC S DO=1,MATCH=1
.E S LCT=LCT-CNT,DO=0
.S:DO @("@INV@(""PLB1"")")=$$PIECE^INHU(.LINE,DELIM,2)
.S:DO @("@INV@(""PLB2"")")=$$PIECE^INHU(.LINE,DELIM,3)
.S:DO @("@INV@(""PLB3"")")=$$PIECE^INHU(.LINE,DELIM,4)
.S:DO @("@INV@(""PLB4"")")=$$PIECE^INHU(.LINE,DELIM,5)
.S:DO @("@INV@(""PLB5"")")=$$PIECE^INHU(.LINE,DELIM,6)
.S:DO @("@INV@(""PLB6"")")=$$PIECE^INHU(.LINE,DELIM,7)
.S:DO @("@INV@(""PLB7"")")=$$PIECE^INHU(.LINE,DELIM,8)
.S:DO @("@INV@(""PLB8"")")=$$PIECE^INHU(.LINE,DELIM,9)
.S:DO @("@INV@(""PLB9"")")=$$PIECE^INHU(.LINE,DELIM,10)
.S:DO @("@INV@(""PLB10"")")=$$PIECE^INHU(.LINE,DELIM,11)
.S:DO @("@INV@(""PLB11"")")=$$PIECE^INHU(.LINE,DELIM,12)
.S:DO @("@INV@(""PLB12"")")=$$PIECE^INHU(.LINE,DELIM,13)
.S:DO @("@INV@(""PLB13"")")=$$PIECE^INHU(.LINE,DELIM,14)
.S:DO @("@INV@(""PLB14"")")=$$PIECE^INHU(.LINE,DELIM,15)
.Q:MATCH
.D:'INVS MC^INHS
9 .D EN^IS00003F
G P1^IS00003F
IS00003E ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
+1 ;Part 6
+2 ;Copyright 2002 SAIC
EN SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("DTM",0,1)
QUIT
Begin DoDot:1
+1 IF 'INVS
DO MC^INHS
+2 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+3 IF DO
SET @("@INV@(""DTM1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+4 IF DO
SET @("@INV@(""DTM2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+5 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+6 ;WHILE $P(DATA,DELIM)="CAS"
+7 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("CAS",0,1)
QUIT
Begin DoDot:1
+8 IF 'INVS
DO MC^INHS
+9 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+10 IF DO
SET @("@INV@(""CAS1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+11 IF DO
SET @("@INV@(""CAS2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+12 IF DO
SET @("@INV@(""CAS3"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,4)
+13 IF DO
SET @("@INV@(""CAS4"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,5)
+14 IF DO
SET @("@INV@(""CAS5"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,6)
+15 IF DO
SET @("@INV@(""CAS6"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,7)
+16 IF DO
SET @("@INV@(""CAS7"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,8)
+17 IF DO
SET @("@INV@(""CAS8"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,9)
+18 IF DO
SET @("@INV@(""CAS9"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,10)
+19 IF DO
SET @("@INV@(""CAS10"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,11)
+20 IF DO
SET @("@INV@(""CAS11"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,12)
+21 IF DO
SET @("@INV@(""CAS12"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,13)
+22 IF DO
SET @("@INV@(""CAS13"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,14)
+23 IF DO
SET @("@INV@(""CAS14"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,15)
+24 IF DO
SET @("@INV@(""CAS15"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,16)
+25 IF DO
SET @("@INV@(""CAS16"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,17)
+26 IF DO
SET @("@INV@(""CAS17"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,18)
+27 IF DO
SET @("@INV@(""CAS18"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,19)
+28 IF DO
SET @("@INV@(""CAS19"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,20)
+29 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+30 ;WHILE $P(DATA,DELIM)="REF"
+31 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("REF",0,1)
QUIT
Begin DoDot:1
+32 IF 'INVS
DO MC^INHS
+33 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+34 IF DO
SET @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+35 IF DO
SET @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+36 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+37 ;WHILE $P(DATA,DELIM)="REF"
+38 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("REF",0,1)
QUIT
Begin DoDot:1
+39 IF 'INVS
DO MC^INHS
+40 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+41 IF DO
SET @("@INV@(""REF1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+42 IF DO
SET @("@INV@(""REF2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+43 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+44 ;WHILE $P(DATA,DELIM)="AMT"
+45 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("AMT",0,1)
QUIT
Begin DoDot:1
+46 IF 'INVS
DO MC^INHS
+47 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+48 IF DO
SET @("@INV@(""AMT1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+49 IF DO
SET @("@INV@(""AMT2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+50 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+51 ;WHILE $P(DATA,DELIM)="QTY"
+52 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("QTY",0,1)
QUIT
Begin DoDot:1
+53 IF 'INVS
DO MC^INHS
+54 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+55 IF DO
SET @("@INV@(""QTY1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+56 IF DO
SET @("@INV@(""QTY2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+57 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+58 ;WHILE $P(DATA,DELIM)="LQ"
+59 SET INI(1)=1
FOR
SET DATA=$$GL^INHOU(UIF,LCT)
IF '$$CHECKSEG^INHOU("LQ",0,1)
QUIT
Begin DoDot:1
+60 IF 'INVS
DO MC^INHS
+61 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=1
+62 IF DO
SET @("@INV@(""LQ1"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,2)
+63 IF DO
SET @("@INV@(""LQ2"",INI(1))")=$$PIECE^INHU(.LINE,DELIM,3)
+64 QUIT
End DoDot:1
SET INI(1)=INI(1)+1
+65 ;Start of GROUP
+66 FOR
SET MATCH=0
Begin DoDot:1
+67 IF 'INVS
DO MC^INHS
+68 DO GET^INHOU(UIF,0)
SET LINE=$GET(LINE)
SET DO=0
+69 IF 'MATCH
IF LINE?1"P"1"L"1"B".ANPC
SET DO=1
SET MATCH=1
+70 IF '$TEST
SET LCT=LCT-CNT
SET DO=0
+71 IF DO
SET @("@INV@(""PLB1"")")=$$PIECE^INHU(.LINE,DELIM,2)
+72 IF DO
SET @("@INV@(""PLB2"")")=$$PIECE^INHU(.LINE,DELIM,3)
+73 IF DO
SET @("@INV@(""PLB3"")")=$$PIECE^INHU(.LINE,DELIM,4)
+74 IF DO
SET @("@INV@(""PLB4"")")=$$PIECE^INHU(.LINE,DELIM,5)
+75 IF DO
SET @("@INV@(""PLB5"")")=$$PIECE^INHU(.LINE,DELIM,6)
+76 IF DO
SET @("@INV@(""PLB6"")")=$$PIECE^INHU(.LINE,DELIM,7)
+77 IF DO
SET @("@INV@(""PLB7"")")=$$PIECE^INHU(.LINE,DELIM,8)
+78 IF DO
SET @("@INV@(""PLB8"")")=$$PIECE^INHU(.LINE,DELIM,9)
+79 IF DO
SET @("@INV@(""PLB9"")")=$$PIECE^INHU(.LINE,DELIM,10)
+80 IF DO
SET @("@INV@(""PLB10"")")=$$PIECE^INHU(.LINE,DELIM,11)
+81 IF DO
SET @("@INV@(""PLB11"")")=$$PIECE^INHU(.LINE,DELIM,12)
+82 IF DO
SET @("@INV@(""PLB12"")")=$$PIECE^INHU(.LINE,DELIM,13)
+83 IF DO
SET @("@INV@(""PLB13"")")=$$PIECE^INHU(.LINE,DELIM,14)
+84 IF DO
SET @("@INV@(""PLB14"")")=$$PIECE^INHU(.LINE,DELIM,15)
+85 IF MATCH
QUIT
+86 IF 'INVS
DO MC^INHS
9 DO EN^IS00003F
End DoDot:1
IF 'MATCH
QUIT
+1 GOTO P1^IS00003F
