Produced by Araxis Merge on 11/9/2018 12:34:04 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 | CHMLDME1.m | Mon Nov 5 16:45:15 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLDME1.m | Mon Nov 5 17:50:04 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 100 |
Changed | 1 | 2 |
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 | CHMLDME1 ; JEH/CHV;DA TA LOAD DM EPOS FILES ;02/03/11 8:40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 10 | |
3 | ; | |
4 | ;DEV00369 6 - INTALL DMEPOS FE E SCHEDULE | |
5 | ; | |
6 | ;THIS ROU TINE LOADS THE FOLLO WING DATA FILES INTO CP&E: | |
7 | ; D MEPOS FEE SCHEDULE P UF (EX AMPLE: DME 2011JAN.cs v) | |
8 | ; PUF = PUBLIC US E FILE | |
9 | ; | |
10 | ;GLOBALS: | |
11 | ; ^CH MDIC(74103 1) - CHAM PVA DMEPOS FEE SCHED ULE | |
12 | ; ^CH MZHOLD("CH MLDME", - TEMP GL OBAL TO HO LD EFF & E ND DATE + FEE SCHED DATA | |
13 | ; | |
14 | ;JEH 9/5/ 13 - ENC01 8925 Post- SLLA/DMEPO S, to add a history piece & lo okup optio n to view DMEPOS fil es | |
15 | ;MTN02076 3 DMEPOS L OAD AND AD D EDIT TO CHECK FOR BLANKS IN CATEGORY | |
16 | ;DPT DEV0 16554 DEV0 12893 CHAN GE EOF REP LACE DECNE T | |
17 | ;mtn02428 0 dme upda te | |
18 | ;mtn02488 9 dpt dme jan 2016 u pdate addi tional fie ld before desc, addi dtional sp aces (RURA L/NONRURAL ) after st ate code | |
19 | ;MTN02658 0 dpt 7/1/ 16 dme jul 2016 ADD SPACE FOR RURAL AMT | |
20 | ;MTN02731 1 DPT - CO NVERT DME CAT TO POI NTER VALUE CREATE GL OBAL CHMDI C(741031.1 2 TO STORE CATEGORY, CONVERT CA TEGORY TO GLOBAL IEN | |
21 | ;MTN02750 4 DPT - DM E 2017 UPD ATE USE OF ZIP FILE AND RURAL RATES | |
22 | START | |
23 | D INIT | |
24 | Q:$D(DUOU T) | |
25 | G:EFFDATE ="^" END | |
26 | D GTDME | |
27 | I $D(^CHM ZHOLD("CHM LDME",CHDL RJ)) D | |
28 | .S DIR(0) ="Y",DIR(" A")="OK TO UPDATE DM EPOS GLOBA L",DIR("B" )="NO" D ^ DIR K DIR | |
29 | .Q:Y=-1 | |
30 | .S ANS=Y | |
31 | .I ANS=1 D | |
32 | ..D QUEA^ CHMLDME1 ;TASKING GLOBAL DAT A UPDATE | |
33 | .I ANS="" D CHTOMS G^CHMLDME1 (CHDLRJ,CH FLDT) ; U PDATE TIME D OUT MESS AGE | |
34 | D END | |
35 | Q | |
36 | GTDME ;GAT HERING DME POS DATA | |
37 | U 0 W !!, "Reading i n DMEPOS F EE SCHEDUL E Data..." ,! | |
38 | ;S $ZE="" ,$ZT="ENDC ^CHMLDME1" | |
39 | N FOLDER, CNTR ;DEV 012893 DPT | |
40 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" ; DEV012893 DPT | |
41 | ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT | |
42 | ;SET ENVI RONMENT | |
43 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 12893 DPT | |
44 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893 DPT | |
45 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
46 | ;S FILE=F OLDER_FILE ;DEV01289 3 DPT | |
47 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="HADTST ":"DEV",UC I="HACTST" :"TEST",UC I="TST":"T EST",UCI=" TRN":"TRAI N",UCI="SL A":"LIVE", UCI="HAC": "LIVE") ;D EV012893 D PT | |
48 | ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ CHUCI ;DEV 012893 DPT | |
49 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 2893 DPT | |
50 | ;H 5 ;DEV 012893 DPT | |
51 | S FILE=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_F NAME |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.