183. EPMO Open Source Coordination Office Redaction File Detail Report

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.

183.1 Files compared

# 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

183.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 100
Changed 1 2
Inserted 0 0
Removed 0 0

183.3 Comparison options

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

183.4 Active regular expressions

No regular expressions were active.

183.5 Comparison detail

  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
  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