- IS00003C ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 4
- ;Copyright 2002 SAIC
- EN S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- 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)
- S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- 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)
- S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- 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)
- S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- 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)
- S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- 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)
- S:DO @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"M"1"I"1"A".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""MIA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""MIA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""MIA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""MIA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""MIA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""MIA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""MIA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""MIA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""MIA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- S:DO @("@INV@(""MIA10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- S:DO @("@INV@(""MIA11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- 9 G EN^IS00003D
- IS00003C ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 4
- +2 ;Copyright 2002 SAIC
- EN IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +1 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +2 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +3 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +4 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +5 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +6 IF MATCH
- QUIT
- +7 IF 'INVS
- DO MC^INHS
- +8 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +9 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +10 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +11 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +12 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +13 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +14 IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +15 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +16 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +17 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +18 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +19 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +20 IF MATCH
- QUIT
- +21 IF 'INVS
- DO MC^INHS
- +22 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +23 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +24 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +25 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +26 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +27 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +28 IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +29 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +30 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +31 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +32 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +33 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +34 IF MATCH
- QUIT
- +35 IF 'INVS
- DO MC^INHS
- +36 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +37 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +38 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +39 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +40 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +41 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +42 IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +43 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +44 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +45 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +46 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +47 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +48 IF MATCH
- QUIT
- +49 IF 'INVS
- DO MC^INHS
- +50 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +51 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +52 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +53 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +54 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +55 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +56 IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +57 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +58 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +59 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +60 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +61 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +62 IF MATCH
- QUIT
- +63 IF 'INVS
- DO MC^INHS
- +64 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +65 IF 'MATCH
- IF LINE?1"N"1"M"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +66 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +67 IF DO
- SET @("@INV@(""NM11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +68 IF DO
- SET @("@INV@(""NM12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +69 IF DO
- SET @("@INV@(""NM13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +70 IF DO
- SET @("@INV@(""NM14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +71 IF DO
- SET @("@INV@(""NM15"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +72 IF DO
- SET @("@INV@(""NM16"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +73 IF DO
- SET @("@INV@(""NM17"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +74 IF DO
- SET @("@INV@(""NM18"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +75 IF DO
- SET @("@INV@(""NM19"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +76 IF MATCH
- QUIT
- +77 IF 'INVS
- DO MC^INHS
- +78 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +79 IF 'MATCH
- IF LINE?1"M"1"I"1"A".ANPC
- SET DO=1
- SET MATCH=1
- +80 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +81 IF DO
- SET @("@INV@(""MIA1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +82 IF DO
- SET @("@INV@(""MIA2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +83 IF DO
- SET @("@INV@(""MIA3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +84 IF DO
- SET @("@INV@(""MIA4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +85 IF DO
- SET @("@INV@(""MIA5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +86 IF DO
- SET @("@INV@(""MIA6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +87 IF DO
- SET @("@INV@(""MIA7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +88 IF DO
- SET @("@INV@(""MIA8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +89 IF DO
- SET @("@INV@(""MIA9"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +90 IF DO
- SET @("@INV@(""MIA10"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +91 IF DO
- SET @("@INV@(""MIA11"")")=$$PIECE^INHU(.LINE,DELIM,12)
- 9 GOTO EN^IS00003D
