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

186.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDMEZ.m Mon Nov 5 16:44:27 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDMEZ.m Mon Nov 5 17:50:06 2018 UTC

186.2 Comparison summary

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

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

186.4 Active regular expressions

No regular expressions were active.

186.5 Comparison detail

  1   CHMLDMEZ ; DPT/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 -   DMEP OS FEE SCH EDULE ZIP  GLOBAL
  5    ;
  6    ;THIS ROU TINE LOADS  THE FOLLO WING DATA  FILES INTO  CP&E:
  7    ;       D MERURAL ZI P    (EXAM PLE: DMERu ralZIP_Q12 016_V1123. txt)
  8    ;
  9    ;GLOBALS:
  10    ;     ^CH MDIC(74103 1.14)  - C HAMPVA DME  ZIP
  11    ;     ^CH MZHOLD("CH MLDME_ZIP"     - TEMP  GLOBAL TO  HOLD EFF  & END DATE  + ZIP DAT A
  12    ;MTN02658 0 DPT - ZI P GLOBAL I NITALLY SE T UP WITH  DEV03696.  WILL BE MO VED TO LIV E WITH JUL Y 2016 UPD ATE. WILL  NOT BE USE D
  13    ; UNTIL e nc025018
  14    ;MTN  DPT  OMIT CHEC K FOR ENVI RONMENT MA NUALLY MOV E FILE FRO M FS3 TO C ACHE
  15   START ;
  16    D INIT
  17    Q:$D(DUOU T)
  18    G:EFFDATE ="^" END
  19    D GTDME
  20    I $D(^CHM ZHOLD("CHM LDME_ZIP", CHDLRJ)) D
  21    .S DIR(0) ="Y",DIR(" A")="OK TO  UPDATE DM EZIP GLOBA L",DIR("B" )="NO" D ^ DIR K DIR
  22    .Q:Y=-1
  23    .S ANS=Y
  24    .I ANS=1  D
  25    ..D QUEA^ CHMLDMEZ    ;TASKING  GLOBAL DAT A UPDATE
  26    .I ANS=""   D CHTOMS G^CHMLDMEZ (CHDLRJ,CH FLDT)  ; U PDATE TIME D OUT MESS AGE
  27    D END
  28    Q
  29   GTDME ;GAT HERING DME ZIP DATA
  30    U 0 W !!, "Reading i n DMEPOS Z IP Data... ",!
  31    ;S $ZE="" ,$ZT="ENDC ^CHMLDMEZ"
  32    ;N FOLDER ,CNTR  ;DE V012893 DP T
  33    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" ; DEV012893  DPT
  34    ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT
  35    ;SET ENVI RONMENT
  36    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 012893 DPT
  37    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893  DPT
  38    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  39    ;S FILE=F OLDER_FILE  ;DEV01289 3 DPT
  40    ;S CHUCI= $S(UCI="DE V":"DEV",U CI="HADTST ":"DEV",UC I="TST":"T EST",UCI=" HACTST":"T EST",UCI=" TRN":"TRAI N",UCI="SL A":"LIVE", UCI="HAC": "LIVE") ;D EV012893 D PT
  41    ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ CHUCI ;DEV 012893 DPT
  42    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 2893 DPT
  43    ;H 15 ;DE V012893 DP T
  44    ; S POP=0 ,CNTR=0 ;D EV012893 D PT
  45    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V012893 DP T
  46    ;  . X "D  $SYSTEM.P rocess.Set ZEOF(1)"   ;DEV016554  DPT
  47    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT
  48    ; .Q ;DEV 012893 DPT
  49    ;I 'POP G  ENDC  ;DE V016554 DP T
  50    ; D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT
  51    ;X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  52    ; S POP=0 ,CNTR=0 ;D EV012893 D PT
  53    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V012893 DP T
  54    ;  . X "D  $SYSTEM.P rocess.Set ZEOF(1)"   ;DEV016554  DPT
  55    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT
  56    ; .Q ;DEV 012893 DPT
  57    ;I 'POP G  ENDC  ;DE V016554 DP T
  58    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME
  59    O FILE:"R ":5  
  60    S CTR=0 
  61    F  U FILE  R REC G:$ $STATUS^%Z ISH ENDC D    ;DEV016 554 DPT
  62    .S CTR=CT R+1
  63    .S ^CHMZH OLD("CHMLD ME_ZIP",CH DLRJ,CTR)= EFFDATE_"^ "_ENDDATE_ "^"_REC
  64    C FILE
  65    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  66    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  67    Q
  68   LDDME ;UPD ATE DMEPOS  ZIP GLOBA L USING FM
  69    Q:'$D(^CH MZHOLD("CH MLDME_ZIP" ,CHDLRJ))
  70    N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y
  71    N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN
  72    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMLDME_ ZIP",CHDLR J,CTR)) Q: 'CTR  D
  73    .S (EFFDA TE,ENDDATE ,CHZIP,CHS TNM,CHYR)= ""
  74    .S EFFDAT E=$P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",1)       ; EFFEC TIVE DATE
  75    .S ENDDAT E=$P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",2)       ; END D ATE
  76    .S CHZIP= $P(^CHMZHO LD("CHMLDM E_ZIP",CHD LRJ,CTR)," ^",4)        ; ZIP CO DE
  77    .S CHSTNM =$P(^CHMZH OLD("CHMLD ME_ZIP",CH DLRJ,CTR), "^",3) ; S TATE NAME
  78    .S CHYR=$ E($P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",5),1, 4) ; YEAR  YYYY
  79    .S CHQT=$ E($P(^CHMZ HOLD("CHML DME_ZIP",C HDLRJ,CTR) ,"^",5),5, 6) ; QUART ER
  80    .S CHIEN= CHZIP
  81    .S DIC="^ CHMDIC(741 031.14,",D IC(0)="L", X=CHIEN D  ^DIC
  82    .I Y=-1 D  NEW^CHMLD MEZ Q
  83    .;I Y=-1  K DIC Q
  84    .S DA=+Y
  85    .S DIE=DI C
  86    .S DR="1/ ///"_EFFDA TE   ;EFFD ATE
  87    .S DR(2,7 41031.141) =".02///"_ ENDDATE_"; .03///"_CH STNM_";.04 ///"_CHYR_ ";.05///"_ CHQT_";.06 ///"_DUZ_" ;.07///"_C HFLDT 
  88    .D ^DIE
  89    .K DIE,DI C,DR,DA,Y
  90    D MMMSG^C HMLDMEZ($J )
  91    Q
  92   NEW S DIC= "^CHMDIC(7 41031.14," ,DIC(0)="M L",DLAYGO= DIC,X=CHZI P D ^DIC
  93    S DA=+Y
  94    S DIE=DIC
  95    S DR="1// //"_EFFDAT E   ;EFFDA TE
  96    S DR(2,74 1031.141)= ".02////"_ ENDDATE_"; .03///"_CH STNM_";.04 ///"_CHYR_ ";.05///"_ CHQT_";.06 ///"_DUZ_" ;.07///"_C HFLDT 
  97    D ^DIE
  98    K DIE,DIC ,DR,DA,Y
  99   INIT ;INIT ILIZING VA RIABLES
  100    S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,FILE,CT R,REC,RC1, RC2,ENDDAT E,ANS)=""
  101    ;K ^CHMZH OLD("CHMLD ME_ZIP",$J )
  102     K ^CHMZH OLD("CHMLD ME_ZIP")
  103    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  104    S:'$D(DUZ ) DUZ=1
  105    S CTR=0
  106    S EFFDATE =""
  107    S CHDLRJ= $J
  108    K FNAME
  109    ;DISPLAY  MENU TITLE
  110    S TITLE=" DMEPOS ZIP  Data Load "
  111    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  112    ;SET ENVI RONMENT
  113    ;S ENVIR= $$ENVIR^CH TFLIB
  114    ;S DIR("B ")=ENVIR
  115    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  116    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  117    ;S DIR("L ",2)=""
  118    ;S DIR("L ",3)="   1   LIVE"
  119    ;S DIR("L ",4)="   2   TRAIN"
  120    ;S DIR("L ",5)="   3   TEST"
  121    ;S DIR("L ",6)="   4   DEV"
  122    ;S DIR("L ",7)=""
  123    ;S DIR("L ")="   ^    QUIT"
  124    ;D ^DIR K  DIR
  125    ;Q:$D(DUO UT)
  126    ;Q:Y=""
  127    ;Q:Y="^"! (Y="")
  128    ;S ENVIR= Y(0)
  129    K DIR
  130    ;SET DMEP OS ZIP FIL E
  131    S DIR(0)= "F^3:50"
  132    S DIR("A" )="Enter D ME ZIP fil e name (DM ERuralZIP_ Q12016_V11 23JAN.Ttxt )" D ^DIR  K DIR
  133    Q:$D(DUOU T)
  134    Q:Y="^"!( Y="")
  135    S FNAME=Y  K DIR
  136    K ^CHMZHO LD("CHMLDM E_ZIP",$J)
  137    Q:$D(DUOU T)
  138    ;SET EFFE CTIVE DATE
  139    S EFFDATE ="" K DIR
  140    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D  ^DIR K DI R
  141    Q:$D(DUOU T)
  142    S EFFDATE =Y
  143    ;SET END  DATE
  144    S ENDDATE ="" K DIR
  145    S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR  K DIR
  146    Q:$D(DUOU T)
  147    S ENDDATE =Y
  148    Q
  149   ENDC ;CLOS ING FILE
  150    ;C CHIO
  151    D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT
  152    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  153    Q
  154   END ;END O F ROUTINE
  155    K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE,FI LE
  156    K DIC
  157    W !!,"UPD ATE HAS BE EN TASKED.  MM WILL B E SENT WHE N DONE."
  158    Q
  159   QUEA ;QUE  OR RUN THI S ROUTINE  MANUALLY.
  160    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  161    D NOW^%DT C S DT=X
  162    I '$D(CHF LDT) S CHF LDT=%
  163    S FILE="" ,ZTSAVE("D UZ")="",ZT SAVE("CHFL DT")="" ;D EV016554 D PT
  164    S ZTSAVE( "CHDLRJ")= ""
  165    S ZTRTN=" LDDME^CHML DMEZ",ZTDE SC="PROCES S DME ZIP"
  166    S ZTIO=""
  167    D ^%ZTLOA D
  168    ;D @ZTRTN         ;  USE IF RUN NING HOT
  169    Q
  170   MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE
  171    S CNT=1,^ TMP(CHTODJ ,"CHMLDME_ ZIP",CNT)= "",CNT=CNT +1
  172    S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="GLOBA L 741031.1 4, HAS BEE N UPDATED. ",CNT=CNT+ 1
  173    S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="",CNT =CNT+1
  174    S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="PLEAS E CHECK.", CNT=CNT+1
  175    S ^TMP(CH TODJ,"CHML DME_ZIP",C NT)="",CNT =CNT+1
  176    S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME_ZIP"","
  177    S XMDUZ=. 5
  178    S XMY(DUZ )=""
  179    S XMSUB=" GBL 741031 .14 UPDT-C MPLTD" D ^ XMD
  180    Q
  181   CHTOMSG(CH TODJ,CHTOF DT)   ;GEN ERATE MESS AGE TO RUN  SECOND PA RT OF UPDA TE
  182    S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1
  183    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1
  184    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME_Z IP"","_CHT ODJ_")",CN T=CNT+1
  185    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031.14):", CNT=CNT+1
  186    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1
  187    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  188    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  189    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   D LDD ME^CHMLDME Z",CNT=CNT +1
  190    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1
  191    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  192    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  193    S ^TMP(CH TODJ,"CHML DMEZ",CNT) ="   D QUE A^CHMLDMEZ ",CNT=CNT+ 1
  194    S XMTEXT= "^TMP(CHTO DJ,""CHMLD MEZ"","
  195    S XMDUZ=. 5
  196    S XMY(DUZ )=""
  197    S XMSUB=" GBL 741031 .14 UPDT-N OT CMPLTD"  D ^XMD
  198    Q
  199