Produced by Araxis Merge on 11/9/2018 12:34:07 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRZIP1.m | Mon Nov 5 16:43:17 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRZIP1.m | Mon Nov 5 17:51:28 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 272 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMRZIP1 ; CVA/AHJ;Co nvert Flat file to T emp Global | |
2 | ;;1.0 | |
3 | ; JEH 12/ 31/08 TT E NC006359 - MODIFIED TO ALLOW U SER TO RUN REPORTS, PROMPTS CO MMENTED OF F FOR FUTU RE USE | |
4 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T READ | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | ; INPUT F ILE FROM Z IP CODE .T XT FILE | |
8 | ; OUPUT F ILE ^CHMZH OLD("ZIP-M ATCH" | |
9 | S ZIPCODE =0 | |
10 | START ; | |
11 | ;K ^CHMZH OLD("ZIP-M ATCH") | |
12 | S (TOTCNT ,CNT,FCNT, BADCNT,ADD CNT)=0 | |
13 | S CNT=0,F ILE="NONE" | |
14 | S FNAME=" ZIPMATCH" ;OUTPUT F ILE | |
15 | ; | |
16 | S DIR(0)= "SO^I:INDI VIDUAL;F:F ILE" | |
17 | S DIR("A" )="OPTION" | |
18 | S DIR("B" )="I" | |
19 | S DIR("?" )="SELECT I, F, or < enter> to exit" | |
20 | D ^DIR K DIR | |
21 | ;Q:Y="" | |
22 | Q:$D(DIRU T) | |
23 | ;SET FILE NAME | |
24 | S DIR(0)= "F^3:50" | |
25 | S DIR("B" )="ZIPMATC H" | |
26 | S DIR("A" )="Enter n ame of out put file" D ^DIR K D IR | |
27 | Q:$D(DUOU T) | |
28 | Q:Y="^"!( Y="") | |
29 | S FNAME=Y K DIR | |
30 | I Y="F" G START1 ;READ IN F ILE | |
31 | ;GETTING INDIVIDUAL ZIP | |
32 | K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH") | |
33 | S TOTCNT= TOTCNT+1 | |
34 | S CNT=CNT +1 | |
35 | S ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE)="" | |
36 | S Y=1 | |
37 | F PRMPT=1 :1 Q:Y=""! (Y="^") D | |
38 | .S DIR(0) ="FO^5:5" S DIR("A") ="ENTER 5 DIGIT ZIPC ODE (HIT < enter> WHE N DONE" | |
39 | .D ^DIR | |
40 | .S:Y'="" ^CHMZHOLD( "ZIPS",FNA ME,"ZIP-MA TCH",Y)="" | |
41 | .S:Y'="" ^CHMZHOLD( "ZIPS",FNA ME,"BENE-N A-ZIP-LABE LS")="" | |
42 | K DIR | |
43 | Q:Y="^" | |
44 | W ! | |
45 | G END+1 | |
46 | Q | |
47 | START1 ; | |
48 | ; | |
49 | W !,"Requ ested zip codes must be entere d in TEXT file on FS 3BIG" | |
50 | W !,"Comp leted file on FS3BIG will be Z IPMATCH.TX T, Please rename imm ediately!! !" | |
51 | START2 ; | |
52 | W !,"Ente r your req uested Zip Code File name with .TXT (""E ND"")=QUIT " | |
53 | S1 D SBRS Q:$D(DFOUT ) Q:$D(DU OUT) | |
54 | I Y="END" G END1 | |
55 | I $L(Y)<5 W !,*7,"M UST BE MOR E THAN 5 C HARS" G ST ART1 | |
56 | S INNAME= Y | |
57 | ; | |
58 | A1 ;DGC 1/ 17/2014 DE V012893 - BEGIN | |
59 | ;S DEVICE ="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]"_INNAME | |
60 | ;O DEVICE :"R":5 | |
61 | ;I '$T S $ZE="WRONG NAME !! U NABLE TO O PEN-TRY AG AIN"_INNAM E_" File" G BOMB | |
62 | N FOLDER, CNTR | |
63 | S DEVICE= INNAME,FOL DER="" | |
64 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
65 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
66 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" | |
67 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
68 | S DEVICE= FOLDER_DEV ICE | |
69 | D FTPFILE ^CHTFLIB9( DEVICE," DNS fs3. DNS ","/FS3BIG /COMMO_RPT S/BENE_LST ","GET") | |
70 | S POP=0,C NTR=0 | |
71 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D | |
72 | .S POP=$$ OPENFIRD^C HTFLIB9(.D EVICE,"DEV ICE") | |
73 | .Q | |
74 | I 'POP S $ZE="WRONG NAME !! U NABLE TO O PEN-TRY AG AIN"_INNAM E_" File" G BOMB | |
75 | ;DGC 1/17 2014 DEV01 2893 - END | |
76 | K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH") | |
77 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E-NA-ZIP-L ABELS")="" | |
78 | A2 ; | |
79 | S TOTCNT= TOTCNT+1 | |
80 | ; | |
81 | U DEVICE R RCD#5 | |
82 | S $ZE="", $ZT="END" | |
83 | ; | |
84 | S ZIPCODE =$E(RCD,1, 5) | |
85 | ; | |
86 | S CNT=CNT +1 | |
87 | S ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE)="" | |
88 | G A2 | |
89 | A3 ; | |
90 | ; | |
91 | END D CLOS EF^CHTFLIB 9(DEVICE," DEVICE") ; C DEVICE - DGC 1/17/ 2014 DEV01 2893 | |
92 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
93 | S X=$ZF(- 1,"DELETE" _DEVICE_"; *") ;DGC 1 /17/2014 D EV012893 | |
94 | D CHAMPVA ^CHMRZIP2 ; comment out for te st only | |
95 | Q | |
96 | ; | |
97 | S Y=CHDAT E D DD^%DT S PTODAYD T=Y | |
98 | ; | |
99 | S CNTZ=1, ^CHMZHOLD( "ZIPS",FNA ME,"BENE3- TEXTMESS3" ,CNTZ)="", CNTZ=CNTZ+ 1 | |
100 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
101 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= " BENEFIC IARY NAME AND ADDRES S LIST ",CNTZ=CN TZ+1 | |
102 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= " BY SELE CTED ZIP C ODES HAS COMPLETED ",CNTZ=CN TZ+1 | |
103 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= " ",CNTZ=CN TZ+1 | |
104 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1 | |
105 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "COUNT="_C NT,CNTZ=CN TZ+1 | |
106 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= " ",CNTZ=CN TZ+1 | |
107 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "FILE NAME CAN BE FO UND HERE: ",CNTZ=CN TZ+1 | |
108 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= " FS3BIG .COMMO_RPT S.BENE_LST ="_FNAME_" .TXT",CNTZ =CNTZ+1 | |
109 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
110 | S ^CHMZHO LD("ZIPS", FNAME,"BEN E3-TEXTMES S3",CNTZ)= "" | |
111 | S XMTEXT= "^CHMZHOLD ($J,""ZIPS "",FNAME," "BENE3-TEX TMESS3""," | |
112 | S XMDUZ=. 5 | |
113 | S XMY(DUZ )="" | |
114 | S XMSUB=" BENE NAME AND ADDRES S SELECTED ZIP CODES " D ^XMD | |
115 | ; | |
116 | K ^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",ZI PCODE) | |
117 | K ^CHMZHO LD("ZIPS", FNAME,"BEN E-NA-ZIP-L ABELS") | |
118 | Q | |
119 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
120 | I '$T W * 7 R Y:15 G SBRS:Y=". " S:'$T Y= IOZFO | |
121 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
122 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
123 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
124 | Q | |
125 | END1 ; | |
126 | W !,"NO D ATA INPUT" | |
127 | Q | |
128 | BOMB ; | |
129 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE - DG C 1/17/201 4 DEV01289 3 | |
130 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
131 | S X=$ZF(- 1,"DELETE" _DEVICE_"; *") ;DGC 1 /17/2014 D EV012893 | |
132 | ;W !,MESS AGE | |
133 | W !,$ZE | |
134 | G START2 | |
135 | Q | |
136 | D INT^%ET | |
137 | Q | |
138 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.