- IS00003A ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- ;Part 2
- ;Copyright 2002 SAIC
- EN S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"D"1"T"1"M".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""DTM1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""DTM2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"1".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"3".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"4".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"R"1"E"1"F".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"P"1"E"1"R".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""PER1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""PER2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""PER3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""PER4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""PER5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""PER6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""PER7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""PER8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"1".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"3".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"N"1"4".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""N44"")")=$$PIECE^INHU(.LINE,DELIM,5)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"R"1"E"1"F".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- Q:MATCH
- D:'INVS MC^INHS
- D GET^INHOU(UIF,0) S LINE=$G(LINE),DO=0
- I 'MATCH,LINE?1"L"1"X".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""LX1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- 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"3".ANPC S DO=1,MATCH=1
- E S LCT=LCT-CNT,DO=0
- S:DO @("@INV@(""TS31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- S:DO @("@INV@(""TS32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- S:DO @("@INV@(""TS33"")")=$$PIECE^INHU(.LINE,DELIM,4)
- S:DO @("@INV@(""TS34"")")=$$PIECE^INHU(.LINE,DELIM,5)
- S:DO @("@INV@(""TS35"")")=$$PIECE^INHU(.LINE,DELIM,6)
- S:DO @("@INV@(""TS36"")")=$$PIECE^INHU(.LINE,DELIM,7)
- S:DO @("@INV@(""TS37"")")=$$PIECE^INHU(.LINE,DELIM,8)
- S:DO @("@INV@(""TS38"")")=$$PIECE^INHU(.LINE,DELIM,9)
- S:DO @("@INV@(""TS39"")")=$$PIECE^INHU(.LINE,DELIM,10)
- S:DO @("@INV@(""TS310"")")=$$PIECE^INHU(.LINE,DELIM,11)
- S:DO @("@INV@(""TS311"")")=$$PIECE^INHU(.LINE,DELIM,12)
- S:DO @("@INV@(""TS312"")")=$$PIECE^INHU(.LINE,DELIM,13)
- 9 G EN^IS00003B
- IS00003A ;Compiled from script 'Generated: X1 IHS 835 IN-I' on DEC 03, 2002
- +1 ;Part 2
- +2 ;Copyright 2002 SAIC
- EN IF DO
- SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +1 IF DO
- SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +2 IF MATCH
- QUIT
- +3 IF 'INVS
- DO MC^INHS
- +4 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +5 IF 'MATCH
- IF LINE?1"D"1"T"1"M".ANPC
- SET DO=1
- SET MATCH=1
- +6 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +7 IF DO
- SET @("@INV@(""DTM1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +8 IF DO
- SET @("@INV@(""DTM2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +9 IF MATCH
- QUIT
- +10 IF 'INVS
- DO MC^INHS
- +11 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +12 IF 'MATCH
- IF LINE?1"N"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +13 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +14 IF DO
- SET @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +15 IF DO
- SET @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +16 IF DO
- SET @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +17 IF DO
- SET @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +18 IF MATCH
- QUIT
- +19 IF 'INVS
- DO MC^INHS
- +20 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +21 IF 'MATCH
- IF LINE?1"N"1"3".ANPC
- SET DO=1
- SET MATCH=1
- +22 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +23 IF DO
- SET @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +24 IF DO
- SET @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +25 IF MATCH
- QUIT
- +26 IF 'INVS
- DO MC^INHS
- +27 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +28 IF 'MATCH
- IF LINE?1"N"1"4".ANPC
- SET DO=1
- SET MATCH=1
- +29 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +30 IF DO
- SET @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +31 IF DO
- SET @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +32 IF DO
- SET @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +33 IF MATCH
- QUIT
- +34 IF 'INVS
- DO MC^INHS
- +35 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +36 IF 'MATCH
- IF LINE?1"R"1"E"1"F".ANPC
- SET DO=1
- SET MATCH=1
- +37 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +38 IF DO
- SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +39 IF DO
- SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +40 IF MATCH
- QUIT
- +41 IF 'INVS
- DO MC^INHS
- +42 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +43 IF 'MATCH
- IF LINE?1"P"1"E"1"R".ANPC
- SET DO=1
- SET MATCH=1
- +44 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +45 IF DO
- SET @("@INV@(""PER1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +46 IF DO
- SET @("@INV@(""PER2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +47 IF DO
- SET @("@INV@(""PER3"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +48 IF DO
- SET @("@INV@(""PER4"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +49 IF DO
- SET @("@INV@(""PER5"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +50 IF DO
- SET @("@INV@(""PER6"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +51 IF DO
- SET @("@INV@(""PER7"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +52 IF DO
- SET @("@INV@(""PER8"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +53 IF MATCH
- QUIT
- +54 IF 'INVS
- DO MC^INHS
- +55 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +56 IF 'MATCH
- IF LINE?1"N"1"1".ANPC
- SET DO=1
- SET MATCH=1
- +57 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +58 IF DO
- SET @("@INV@(""N11"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +59 IF DO
- SET @("@INV@(""N12"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +60 IF DO
- SET @("@INV@(""N13"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +61 IF DO
- SET @("@INV@(""N14"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +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"3".ANPC
- SET DO=1
- SET MATCH=1
- +66 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +67 IF DO
- SET @("@INV@(""N31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +68 IF DO
- SET @("@INV@(""N32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +69 IF MATCH
- QUIT
- +70 IF 'INVS
- DO MC^INHS
- +71 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +72 IF 'MATCH
- IF LINE?1"N"1"4".ANPC
- SET DO=1
- SET MATCH=1
- +73 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +74 IF DO
- SET @("@INV@(""N41"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +75 IF DO
- SET @("@INV@(""N42"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +76 IF DO
- SET @("@INV@(""N43"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +77 IF DO
- SET @("@INV@(""N44"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +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"R"1"E"1"F".ANPC
- SET DO=1
- SET MATCH=1
- +82 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +83 IF DO
- SET @("@INV@(""REF1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +84 IF DO
- SET @("@INV@(""REF2"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +85 IF MATCH
- QUIT
- +86 IF 'INVS
- DO MC^INHS
- +87 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +88 IF 'MATCH
- IF LINE?1"L"1"X".ANPC
- SET DO=1
- SET MATCH=1
- +89 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +90 IF DO
- SET @("@INV@(""LX1"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +91 IF MATCH
- QUIT
- +92 IF 'INVS
- DO MC^INHS
- +93 DO GET^INHOU(UIF,0)
- SET LINE=$GET(LINE)
- SET DO=0
- +94 IF 'MATCH
- IF LINE?1"T"1"S"1"3".ANPC
- SET DO=1
- SET MATCH=1
- +95 IF '$TEST
- SET LCT=LCT-CNT
- SET DO=0
- +96 IF DO
- SET @("@INV@(""TS31"")")=$$PIECE^INHU(.LINE,DELIM,2)
- +97 IF DO
- SET @("@INV@(""TS32"")")=$$PIECE^INHU(.LINE,DELIM,3)
- +98 IF DO
- SET @("@INV@(""TS33"")")=$$PIECE^INHU(.LINE,DELIM,4)
- +99 IF DO
- SET @("@INV@(""TS34"")")=$$PIECE^INHU(.LINE,DELIM,5)
- +100 IF DO
- SET @("@INV@(""TS35"")")=$$PIECE^INHU(.LINE,DELIM,6)
- +101 IF DO
- SET @("@INV@(""TS36"")")=$$PIECE^INHU(.LINE,DELIM,7)
- +102 IF DO
- SET @("@INV@(""TS37"")")=$$PIECE^INHU(.LINE,DELIM,8)
- +103 IF DO
- SET @("@INV@(""TS38"")")=$$PIECE^INHU(.LINE,DELIM,9)
- +104 IF DO
- SET @("@INV@(""TS39"")")=$$PIECE^INHU(.LINE,DELIM,10)
- +105 IF DO
- SET @("@INV@(""TS310"")")=$$PIECE^INHU(.LINE,DELIM,11)
- +106 IF DO
- SET @("@INV@(""TS311"")")=$$PIECE^INHU(.LINE,DELIM,12)
- +107 IF DO
- SET @("@INV@(""TS312"")")=$$PIECE^INHU(.LINE,DELIM,13)
- 9 GOTO EN^IS00003B
