- 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
