113. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:56 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.

113.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMICBSA.m Mon Nov 5 16:43:33 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMICBSA.m Mon Nov 5 17:48:10 2018 UTC

113.2 Comparison summary

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

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

113.4 Active regular expressions

No regular expressions were active.

113.5 Comparison detail

  1   CHMICBSA ; DRW;DATA L OAD CBSA A ND WAGE RA TE INDEX F ILE; 04/18 /12
  2    ;;1.0;CHA MPVA SYSTE M;;APRIL 1 8, 2012;
  3    ;
  4    ;DEV00642 1 - AUTOMA TE HOSPICE  PAYMENT M ETHODOLOGY
  5    ;
  6    ;THIS ROU TINE LOADS  THE TRICA RE AND OR  MEDICARE W AGE RATE 
  7    ;INDEX BA SED ON CBS A (Core Ba sed Statis tical Area
  8    ;      fo rmat of th e file is 
  9    ;      CB SA (5-Nume ric) Count y and or c ity name,  ST (1-50)   Wage Inde x 0.9999
  10    ;   At th is point i n time, th e county p ortion of  the global  will not  be in use 
  11    ;GLOBAL:
  12    ;               ^CHM DIC(741043 ) - CHAMPV A CBSA HOS PICE WAGE  REATE INDE X
  13    ;               ^CHM ZHOLD("CHM CBSA","WAG ERATE", -  TEMP GLOBA L TO HOUSE  EFFECTIVE  DATE + 
  14    ;                                             CBSA/CO UNTY NAME/ WAGE RATE  INDEX 
  15    ;BUG00642 1-04-02 -  corrected  name tag a nd called  routine to  from pers onal
  16    ;routine  name (ZDRW CBSA) to t he name of  the routi ne (CHMICB SA) 08/17/ 12.       
  17    ;BUG00642 1-08-04 --  corrected  county le ngth name.   Since co unty name  exceeded o ver 40 cha racters, 
  18    ;wage ind ex for tha t particul ar county  failed to  load.  01/ 09/2014 
  19       ;DEV01 2893, DEV0 16554 - DP T replace  decnet
  20       ;INC18 97543 DPT  8/20/2018  REMOVE ENV IR CHECK,  CHANGE FIE LD FOR IND EX
  21       
  22   START ;
  23    D INIT
  24    Q:$D(DUOU T)
  25    G:EFFDATE ="^" END
  26    D CBSALOA D
  27    W !!,"CHM ZHOLD FOR  WAGE INDEX  LOADED"
  28    W !,"THE  NUMBER OF  RECS WRITT EN IS "_CT
  29    I '$D(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ)) G F IN1
  30    S DIR(0)= "Y",DIR("A ")="OK TO  UPDATE CBS A GLOBAL", DIR("B")=" NO" D ^DIR  K DIR
  31    Q:$D(DUOU T)
  32    S ANS=Y
  33    Q:Y="^"!( Y="")
  34    I ANS=1 D  LOADCBSA  D ENDMSG          ;LO ADING URBA N AND RURA L CBSA TO  GLOBAL
  35    I ANS=0 D  CHTOMSG^C HMICBSA(CH DLRJ,CHFLD T)  D ENDM SG1 ; USER  ENTERS "N O" AND MAI L MAN MESS AGE IS GEN ERATED       
  36   FIN1;
  37       D END
  38    Q
  39   CBSALOAD ; READ CBSA( URBAN) FIL E FROM FS3 BIG(FLAT F ILE) INTO  TEMP HOLDI NG AREA
  40    U 0 W !!, "Reading i n CBSA Dat a...",!
  41     X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 012893 DPT
  42       ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0128 93 DPT
  43       ;I UCI '="HAC" S  FOLDER="HA C_HFS$:[DS MMANAG.CHA MPVA]" ;DE V012893 DP T
  44       S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" 
  45       S CHIO =FNAME  ;D EV012893 D PT
  46       S CHIO =FOLDER_CH IO ;DEV012 893 DPT
  47       ;S CHU CI=$S(UCI= "DEV":"DEV ",UCI="TST ":"TEST",U CI="TRN":" TRAIN",UCI ="SLA":"LI VE",UCI="H AC":"LIVE" )  ;INC189 7543 DPT;D EV012893 D PT
  48       ;S FLD R="/FS3BIG /CODEUPDT/ HOSPUPDT/" _CHUCI  ;I NC1897543  DPT;DEV012 893 DPT
  49         ;D FTPFILE ^CHTFLIB9( CHIO," DNS     fs3. DNS             ",FLDR,"GE T")    ;DEV012893  DPT
  50    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HOSPUPDT." _ENVIR_"]" _FNAME ;IN C1897543 D PT
  51    ; H 5
  52       ;S POP =0,CNTR=0  ;DEV016554  DPT
  53       ;F  S  CNTR=CNTR+ 1 Q:(CNTR> 5)!POP  D  ;DEV016554  DPT
  54       ; . X  "D $SYSTEM .Process.S etZEOF(1)"   ;DEV0165 54 DPT
  55       ; .  S  POP=$$OPE NFIRD^CHTF LIB9(.CHIO ,"CHIO") ; DEV016554  DPT
  56       ; .Q ; DEV016554  DPT
  57       ;I 'PO P G FIN ;D EV016554 D PT
  58    O CHIO:"R ":5
  59    ;Q:$T=0     ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN
  60    S CTR=0,C TRA=0
  61    S CTR1=0
  62    F  U CHIO  R REC G:R EC="^^^^"  FIN  D 
  63    .Q:$A(REC )=26   ;ER RONEOUS DA TA IN FILE  CHECK
  64    .S CTR=CT R+1,CTR1=C TR1+1
  65    .S ^CHMZH OLD("CHMCB SA","WAGER ATE",CHDLR J,CTR)=EFF DATE_"^"_R EC
  66   FIN D ENDC
  67    Q
  68   LOADCBSA ; UPDATE CBS A GLOBAL C HMDIC(7410 43 USING F M
  69    Q:'$D(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ))
  70    W !!,"Loa ding HOSPI CE RATE WA GE Global  From ^CHMZ HOLD (may  take up to  6 minutes )",!
  71    S ANS=Y
  72    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMCBSA" ,"WAGERATE ",CHDLRJ,C TR)) Q:'CT R  D
  73    .S (CHCBS A,CHCOUNTY ,CHINDEX,C HIEN,EFFDA TE)=""
  74    .S CHCBSA =$P(^CHMZH OLD("CHMCB SA","WAGER ATE",CHDLR J,CTR),"^" ,2)               ;cb sa code
  75    .I CHCBSA '="" D 
  76    ..S EFFDA TE=$P(^CHM ZHOLD("CHM CBSA","WAG ERATE",CHD LRJ,CTR)," ^",1)                         ;  EFFECTIVE  DATE                                    
  77    ..S CHCOU NTY=$P(^CH MZHOLD("CH MCBSA","WA GERATE",CH DLRJ,CTR), "^",3)                    ; COUN TY NAME (l imit to 39  character s)
  78    ..S CHCOU NTY=$E(CHC OUNTY,1,39 )
  79    ..S CHIND EX=$P(^CHM ZHOLD("CHM CBSA","WAG ERATE",CHD LRJ,CTR)," ^",5)             ; C BSA CODE w age index  ;INC189754 3 DPT
  80    ..I CHIND EX'?0.1N1" ."1.4N  S  CHINDEX=" 
  81    ..S (DIC, DLAYGO)="^ CHMDIC(741 043,",DIC( 0)="FL",X= CHCBSA D ^ DIC
  82    ..S DA(1) =+Y
  83    ..S DIC=D IC_DA(1)_" ,1,"
  84       ..S DI C(0)="L"
  85       ..S X= EFFDATE
  86       ..D ^D IC
  87       ..S DI E=DIC K DI C
  88       ..S DA =+Y
  89    ..S DR="4 ///"_CHCOU NTY_";5/// "_CHINDEX_ ";6///"_DU Z_";7///"_ CHFLDT
  90    ..D ^DIE
  91    ..K DIE,D R,DA,Y
  92    S CTRA=$P (^CHMDIC(7 41043,0)," ^",5)                       ;UPD ATE ACTUAL  COUNTER I N THE FILE
  93    S CTRA=CT RA+CTR1
  94    S $P(^CHM DIC(741043 ,0),"^",5) =CTRA
  95    D MMMSG(C TR1)    ;S ENDING MM  MESSAGE TH AT REPORT  IS READY
  96    Q
  97   INIT ;INIT ILIZING VA RIABLES
  98    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  99    S:'$D(DUZ ) DUZ=1
  100    S CTR=0
  101    S EFFDATE =""
  102    S CHDLRJ= $J
  103    K FNAME
  104    ;DISPLAY  MENU TITLE
  105    W !,@IOF                         ;;force t itle to to p of scree n
  106    S TITLE=" Wage Rate  Index and  CBSA Data  Load"
  107    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  108    ;SET ENVI RONMENT
  109    ;S ENVIR= $$ENVIR^CH TFLIB
  110    ;S DIR("B ")=ENVIR
  111    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  112    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  113    ;S DIR("L ",2)=""
  114    ;S DIR("L ",3)="   1   LIVE"
  115    ;S DIR("L ",4)="   2   TRAIN"
  116    ;S DIR("L ",5)="   3   TEST"
  117    ;S DIR("L ",6)="   4   DEV"
  118    ;S DIR("L ",7)=""
  119    ;S DIR("L ")="   ^    QUIT"
  120    ;D ^DIR K  DIR
  121    ;Q:$D(DUO UT)
  122    ;Q:Y=""
  123    ;Q:Y="^"! (Y="")
  124    ;S ENVIR= Y(0)
  125    ;K DIR
  126    W !
  127    ;ASK for  file name  of the dat a load LOA D
  128    ;SET ZIP5  CODE FILE
  129    S DIR(0)= "F^3:50"
  130    S DIR("A" )="Enter F Y Wage Ind ex File Na me" D ^DIR  K DIR
  131    Q:$D(DUOU T)
  132    Q:Y="^"!( Y="")
  133    S FNAME=Y  K DIR
  134    K ^CHMZHO LD("CHMCBS A","WAGERA TE")
  135    K ^CHMZHO LD("CHMCBS A","WAGERA TE","RR")
  136    Q:$D(DUOU T)
  137    ;SET FY E FFECTIVE D ATE
  138    S EFFDATE ="" K DIR
  139    S DIR(0)= "D" S DIR( "A")="Ente r FY Effec tive date  (mm/dd/yy) " D ^DIR K  DIR
  140    Q:$D(DUOU T)
  141    S EFFDATE =Y
  142    Q
  143   ENDC ;CLOS ING FILE
  144    ;C CHIO
  145       D CLOS EF^CHTFLIB 9(CHIO,"CH IO") ;DEV0 16554 DPT
  146       X "D $ SYSTEM.Pro cess.SetZE OF(0)" ;DE V016554 DP T
  147    ;I $T=1 W  !!,"Hospi ce Wage Ra te data fi le success fully clos ed",!
  148    W !!,"Hos pice Wage  Rate data  file succe ssfully cl osed",!
  149    Q
  150   END ;
  151    K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB
  152    K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF
  153    K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ
  154    K DIC,CTR ,CTR1,CTRA
  155    Q
  156   MMMSG(CTR1 ) ;GENERAT E MM MESSA GE
  157    S CNT=1,^ TMP(CHDLRJ ,"CHMCBSA" ,CNT)="",C NT=CNT+1
  158    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "GLOBAL 74 1043 - HAS  BEEN UPDA TED WITH " ,CNT=CNT+1
  159    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1
  160    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "THESE NUM BER OF REC ORDS "_CTR 1,CNT=CNT+ 1
  161    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1
  162    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "GLOBAL SH OULD BE RE ADY TO CHE CK.",CNT=C NT+1
  163    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "",CNT=CNT +1
  164    S XMTEXT= "^TMP(CHDL RJ,""CHMCB SA"","
  165    S XMDUZ=. 5
  166    S XMY(DUZ )=""
  167    S XMSUB=" GBL 741043  CBSA HOSP ICE WAGE R ATE INDEX  UPDT-CMPLT D" D ^XMD
  168    Q
  169   CHTOMSG(CH DLRJ,CHFLD T)   ;GENE RATE MESSA GE TO RUN  SECOND PAR T OF UPDAT E
  170    S CNT=1,^ TMP(CHDLRJ ,"CHMCBSA" ,CNT)="",C NT=CNT+1
  171    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "NO UDATE  HAS TAKEN  PLACE...", CNT=CNT+1
  172    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "CHECK: ^C HMZHOLD("" CHMCBSA"", ""WAGERATE "","_CHDLR J_")",CNT= CNT+1
  173    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "DO THE FO LLOWING TO  UPDATE ^C HMDIC(7410 43):",CNT= CNT+1
  174    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "RUN (HOT)  TO SCREEN :",CNT=CNT +1
  175    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "   S CHDL RJ="_CHDLR J,CNT=CNT+ 1
  176    S ^TMP(CH DLRJ,"CHMC BSA",CNT)= "   S CHFL DT="_CHFLD T,CNT=CNT+ 1
  177    S ^TMP(CH DLRJ,"CHMD BSA",CNT)= "   D LOAD CBSA^CHMIC BSA",CNT=C NT+1         
  178    S XMTEXT= "^TMP(CHDL RJ,""CHMCB SA"","
  179    S XMDUZ=. 5
  180    S XMY(DUZ )=""
  181    S XMSUB=" GBL 741043  CBSA HOSP ICE WAGE R ATE INDEX  UPDT-NOT C MPLTD" D ^ XMD
  182    Q
  183   ENDMSG;
  184       W !!," GLOBAL 741 043 Update  completed .  Ready t o view "
  185       Q
  186   ENDMSG1
  187       W !!," GLOBAL 741 043 Not up dated.  Fo llow instr uctions to  update gl obal "
  188       Q            
  189    ;KLLAFS ;   use this  only to k ill off en tries in g lobal. Not  to be use d in LIVE  only in DE
  190    ;      Q    ;SAFETY  QUIT
  191    ;      S  I=0 F  { S  I=$O(^CHM DIC(741043 ,I)) Q:'I   S DIK="^C HMDIC(7410 43,",DA=I  D ^DIK }
  192    ;      Q
  193    ;      S  I=0 F  { S  I=$O(^CHM DIC(741045 ,I)) Q:'I   S DIK="^C HMDIC(7410 45,",DA=I  D ^DIK }
  194    ;  Q
  195