- IS00003B ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 3
- ;Copyright 2002 SAIC
- EN S:DO @("@INV@(""TS313"")")=$$PIECE^INHU(.LINE,DELIM,14)
- S:DO @("@INV@(""TS314"")")=$$PIECE^INHU(.LINE,DELIM,15)
- S:DO @("@INV@(""TS315"")")=$$PIECE^INHU(.LINE,DELIM,16)
- S:DO @("@INV@(""TS316"")")=$$PIECE^INHU(.LINE,DELIM,17)
- S:DO @("@INV@(""TS317"")")=$$PIECE^INHU(.LINE,DELIM,18)
- S:DO @("@INV@(""TS318"")")=$$PIECE^INHU(.LINE,DELIM,19)
- S:DO @("@INV@(""TS319"")")=$$PIECE^INHU(.LINE,DELIM,20)
- S:DO @("@INV@(""TS320"")")=$$PIECE^INHU(.LINE,DELIM,21)
- S:DO @("@INV@(""TS321"")")=$$PIECE^INHU(.LINE,DELIM,22)
- S:DO @("@INV@(""TS322"")")=$$PIECE^INHU(.LINE,DELIM,23)
- S:DO @("@INV@(""TS323"")")=$$PIECE^INHU(.LINE,DELIM,24)
- S:DO @("@INV@(""TS324"")")=$$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"T"1"S"1"2".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""TS21"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""TS22"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""TS23"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""TS24"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""TS25"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""TS26"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""TS27"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""TS28"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""TS29"")")=$$PIECE^INHU(.LINE,DELIM,10)
- S:DO @("@INV@(""TS210"")")=$$PIECE^INHU(.LINE,DELIM,11)
- S:DO @("@INV@(""TS211"")")=$$PIECE^INHU(.LINE,DELIM,12)
- S:DO @("@INV@(""TS212"")")=$$PIECE^INHU(.LINE,DELIM,13)
- S:DO @("@INV@(""TS213"")")=$$PIECE^INHU(.LINE,DELIM,14)
- S:DO @("@INV@(""TS214"")")=$$PIECE^INHU(.LINE,DELIM,15)
- S:DO @("@INV@(""TS215"")")=$$PIECE^INHU(.LINE,DELIM,16)
- S:DO @("@INV@(""TS216"")")=$$PIECE^INHU(.LINE,DELIM,17)
- S:DO @("@INV@(""TS217"")")=$$PIECE^INHU(.LINE,DELIM,18)
- S:DO @("@INV@(""TS218"")")=$$PIECE^INHU(.LINE,DELIM,19)
- S:DO @("@INV@(""TS219"")")=$$PIECE^INHU(.LINE,DELIM,20)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"C"1"L"1"P".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""CLP1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""CLP2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""CLP3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""CLP4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""CLP5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""CLP6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""CLP7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""CLP8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""CLP9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- S:DO @("@INV@(""CLP10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- S:DO @("@INV@(""CLP11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- S:DO @("@INV@(""CLP12"")")=$$PIECE^INHU(.LINE,DELIM,13)
- S:DO @("@INV@(""CLP13"")")=$$PIECE^INHU(.LINE,DELIM,14)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"C"1"A"1"S".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""CAS1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""CAS2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""CAS3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""CAS4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""CAS5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""CAS6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""CAS7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""CAS8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""CAS9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- S:DO @("@INV@(""CAS10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- S:DO @("@INV@(""CAS11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- S:DO @("@INV@(""CAS12"")")=$$PIECE^INHU(.LINE,DELIM,13)
- S:DO @("@INV@(""CAS13"")")=$$PIECE^INHU(.LINE,DELIM,14)
- S:DO @("@INV@(""CAS14"")")=$$PIECE^INHU(.LINE,DELIM,15)
- S:DO @("@INV@(""CAS15"")")=$$PIECE^INHU(.LINE,DELIM,16)
- S:DO @("@INV@(""CAS16"")")=$$PIECE^INHU(.LINE,DELIM,17)
- S:DO @("@INV@(""CAS17"")")=$$PIECE^INHU(.LINE,DELIM,18)
- S:DO @("@INV@(""CAS18"")")=$$PIECE^INHU(.LINE,DELIM,19)
- S:DO @("@INV@(""CAS19"")")=$$PIECE^INHU(.LINE,DELIM,20)
- 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)
- 9 G EN^IS00003C
- IS00003B ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 3
- +2 ;Copyright 2002 SAIC
- EN IF DO
- SET @("@INV@(""TS313"")")=$$PIECE^INHU(.LINE,DELIM,14)
- +1 IF DO
- SET @("@INV@(""TS314"")")=$$PIECE^INHU(.LINE,DELIM,15)
- +2 IF DO
- SET @("@INV@(""TS315"")")=$$PIECE^INHU(.LINE,DELIM,16)
- +3 IF DO
- SET @("@INV@(""TS316"")")=$$PIECE^INHU(.LINE,DELIM,17)
- +4 IF DO
- SET @("@INV@(""TS317"")")=$$PIECE^INHU(.LINE,DELIM,18)
- +5 IF DO
- SET @("@INV@(""TS318"")")=$$PIECE^INHU(.LINE,DELIM,19)
- +6 IF DO
- SET @("@INV@(""TS319"")")=$$PIECE^INHU(.LINE,DELIM,20)
- +7 IF DO
- SET @("@INV@(""TS320"")")=$$PIECE^INHU(.LINE,DELIM,21)
- +8 IF DO
- SET @("@INV@(""TS321"")")=$$PIECE^INHU(.LINE,DELIM,22)
- +9 IF DO
- SET @("@INV@(""TS322"")")=$$PIECE^INHU(.LINE,DELIM,23)
- +10 IF DO
- SET @("@INV@(""TS323"")")=$$PIECE^INHU(.LINE,DELIM,24)
- +11 IF DO
- SET @("@INV@(""TS324"")")=$$PIECE^INHU(.LINE,DELIM,25)
- +12 IF MATCH
- QUIT
- +13 IF 'INVS
- DO MC^INHS
- +14 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +15 IF 'MATCH
- IF LINE?1"T"1"S"1"2".ANPC
- SET DO=1
- SET MATCH=1
- +16 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +17 IF DO
- SET @("@INV@(""TS21"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +18 IF DO
- SET @("@INV@(""TS22"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +19 IF DO
- SET @("@INV@(""TS23"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +20 IF DO
- SET @("@INV@(""TS24"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +21 IF DO
- SET @("@INV@(""TS25"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +22 IF DO
- SET @("@INV@(""TS26"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +23 IF DO
- SET @("@INV@(""TS27"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +24 IF DO
- SET @("@INV@(""TS28"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +25 IF DO
- SET @("@INV@(""TS29"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +26 IF DO
- SET @("@INV@(""TS210"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +27 IF DO
- SET @("@INV@(""TS211"")")=$$PIECE^INHU(.LINE,DELIM,12)
- +28 IF DO
- SET @("@INV@(""TS212"")")=$$PIECE^INHU(.LINE,DELIM,13)
- +29 IF DO
- SET @("@INV@(""TS213"")")=$$PIECE^INHU(.LINE,DELIM,14)
- +30 IF DO
- SET @("@INV@(""TS214"")")=$$PIECE^INHU(.LINE,DELIM,15)
- +31 IF DO
- SET @("@INV@(""TS215"")")=$$PIECE^INHU(.LINE,DELIM,16)
- +32 IF DO
- SET @("@INV@(""TS216"")")=$$PIECE^INHU(.LINE,DELIM,17)
- +33 IF DO
- SET @("@INV@(""TS217"")")=$$PIECE^INHU(.LINE,DELIM,18)
- +34 IF DO
- SET @("@INV@(""TS218"")")=$$PIECE^INHU(.LINE,DELIM,19)
- +35 IF DO
- SET @("@INV@(""TS219"")")=$$PIECE^INHU(.LINE,DELIM,20)
- +36 IF MATCH
- QUIT
- +37 IF 'INVS
- DO MC^INHS
- +38 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +39 IF 'MATCH
- IF LINE?1"C"1"L"1"P".ANPC
- SET DO=1
- SET MATCH=1
- +40 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +41 IF DO
- SET @("@INV@(""CLP1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +42 IF DO
- SET @("@INV@(""CLP2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +43 IF DO
- SET @("@INV@(""CLP3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +44 IF DO
- SET @("@INV@(""CLP4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +45 IF DO
- SET @("@INV@(""CLP5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +46 IF DO
- SET @("@INV@(""CLP6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +47 IF DO
- SET @("@INV@(""CLP7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +48 IF DO
- SET @("@INV@(""CLP8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +49 IF DO
- SET @("@INV@(""CLP9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +50 IF DO
- SET @("@INV@(""CLP10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +51 IF DO
- SET @("@INV@(""CLP11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- +52 IF DO
- SET @("@INV@(""CLP12"")")=$$PIECE^INHU(.LINE,DELIM,13)
- +53 IF DO
- SET @("@INV@(""CLP13"")")=$$PIECE^INHU(.LINE,DELIM,14)
- +54 IF MATCH
- QUIT
- +55 IF 'INVS
- DO MC^INHS
- +56 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +57 IF 'MATCH
- IF LINE?1"C"1"A"1"S".ANPC
- SET DO=1
- SET MATCH=1
- +58 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +59 IF DO
- SET @("@INV@(""CAS1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +60 IF DO
- SET @("@INV@(""CAS2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +61 IF DO
- SET @("@INV@(""CAS3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +62 IF DO
- SET @("@INV@(""CAS4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +63 IF DO
- SET @("@INV@(""CAS5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +64 IF DO
- SET @("@INV@(""CAS6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +65 IF DO
- SET @("@INV@(""CAS7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +66 IF DO
- SET @("@INV@(""CAS8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +67 IF DO
- SET @("@INV@(""CAS9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +68 IF DO
- SET @("@INV@(""CAS10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +69 IF DO
- SET @("@INV@(""CAS11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- +70 IF DO
- SET @("@INV@(""CAS12"")")=$$PIECE^INHU(.LINE,DELIM,13)
- +71 IF DO
- SET @("@INV@(""CAS13"")")=$$PIECE^INHU(.LINE,DELIM,14)
- +72 IF DO
- SET @("@INV@(""CAS14"")")=$$PIECE^INHU(.LINE,DELIM,15)
- +73 IF DO
- SET @("@INV@(""CAS15"")")=$$PIECE^INHU(.LINE,DELIM,16)
- +74 IF DO
- SET @("@INV@(""CAS16"")")=$$PIECE^INHU(.LINE,DELIM,17)
- +75 IF DO
- SET @("@INV@(""CAS17"")")=$$PIECE^INHU(.LINE,DELIM,18)
- +76 IF DO
- SET @("@INV@(""CAS18"")")=$$PIECE^INHU(.LINE,DELIM,19)
- +77 IF DO
- SET @("@INV@(""CAS19"")")=$$PIECE^INHU(.LINE,DELIM,20)
- +78 IF MATCH
- QUIT
- +79 IF 'INVS
- DO MC^INHS
- +80 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +81 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +82 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +83 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +84 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +85 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- 9 GOTO EN^IS00003C
