- 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
