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

185.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDME3.m Mon Nov 5 16:39:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLDME3.m Mon Nov 5 17:50:05 2018 UTC

185.2 Comparison summary

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

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

185.4 Active regular expressions

No regular expressions were active.

185.5 Comparison detail

  1   CHMLDME3 ; JEH/CHV;DA TA LOAD L- CODE PRICI NG FILES;0 8/13/13  8 :40 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil d 1
  3    ;
  4    ;DEV00369 8 - INTALL  DMEPOS FE E SCHEDULE
  5    ;
  6    ;THIS ROU TINE LOADS  THE FOLLO WING DATA  FILES INTO  CP&E:
  7    ;       L -CODE PRIC ING UPDATE      (EXAM PLE: JAN13 _CodePrici ngUpdate.t xt)
  8    ;
  9    ;GLOBALS:
  10    ;     ^CH MDIC(74103 1)  - CHAM PVA DMEPOS  FEE SCHED ULE
  11    ;     ^CH MZHOLD("CH MLDME",     - TEMP GL OBAL TO HO LD EFF & E ND DATE +  FEE SCHED  DATA
  12    ;
  13    ;JEH 9/5/ 13 - ENC01 8925 Post- SLLA/DMEPO S, to add  a history  piece & lo okup optio n to view  DMEPOS fil es
  14    ;DPT 2/1/ 14 - DEV01 6554,DEV01 2893 EOF,  REPLACE DE CNET
  15    ;mtn02731 1 DPT 12/0 1/14 - CHA NGE CAT TO  LOOK UP C AT IN NEW  GLOBAL CHM DIC(741031 .12
  16    ;MTN   DP T - FY2018  OMIT CHEC K FOR ENVI RONMENT MA NUALLY MOV E FILE FRO M FS3 TO C ACHE
  17   START   ;
  18    D INIT
  19    Q:$D(DUOU T)
  20    G:EFFDATE ="^" END
  21    D GTDME
  22    I $D(^CHM ZHOLD("CHM LDME",CHDL RJ)) D
  23    .S DIR(0) ="Y",DIR(" A")="OK TO  UPDATE DM EPOS GLOBA L",DIR("B" )="NO" D ^ DIR K DIR
  24    .Q:Y=-1
  25    .S ANS=Y
  26    .I ANS=1  D
  27    ..D QUEA^ CHMLDME3    ;TASKING  GLOBAL DAT A UPDATE
  28    .I ANS=""   D CHTOMS G^CHMLDME1 (CHDLRJ,CH FLDT)  ; U PDATE TIME D OUT MESS AGE
  29    E  W !,"N OTHING UPD ATED...PLE ASE CHECK  FILES!"
  30    D END
  31    Q
  32   GTDME ;GAT HERING L-C ODE PRICIN G DATA
  33    U 0 W !!, "Reading i n L-CODE P RICING Dat a...",!
  34    N CHIO,RE C,ST,JUR,C AT,CTR,CD, RECARY,COD E
  35    ;S $ZE="" ,$ZT="GT1^ CHMLDME3"
  36    ; N FOLDE R,CNTR  ;D EV012893 D PT
  37     S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72"  ;DEV012893  DPT
  38    ;S FILE=F NAME,FOLDE R="" ;DEV0 12893 DPT
  39    ;X ^%ZOSF ("UCI") S  UCI=$P(Y," ,",1) ;DEV 012893 DPT
  40    ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV012893  DPT
  41    ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT
  42    ;S FILE=F OLDER_FILE  ;DEV01289 3 DPT
  43    ;S FLDR=" /FS3BIG/CO DEUPDT/DME POSUPDT/"_ UCI ;DEV01 2893 DPT
  44    ;D FTPFIL E^CHTFLIB9 (FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 2893 DPT
  45    
  46    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. DMEPOSUPDT ."_ENVIR_" ]"_FNAME
  47    ;O CHIO:" R":3 Q:$T= 0
  48    ;  S POP= 0,CNTR=0 ; DEV016554  DPT
  49    ;F  S CNT R=CNTR+1 Q :(CNTR>5)! POP  D ;DE V016554 DP T
  50    ; . X "D  $SYSTEM.Pr ocess.SetZ EOF(1)"  ; DEV016554  DPT
  51    ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT
  52    ; .Q ;DEV 016554 DPT
  53    ;I 'POP G  GT1  ;DEV 016554 DPT
  54    S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME ;MTN    DPT
  55    O FILE:"R ":3 Q:$T=0
  56    ;
  57    U FILE R  REC G:$$ST ATUS^%ZISH  GT1 ;DEV0 16554 DPT
  58    F I=1:1 S  CD=$P(REC ,"^",I) Q: CD=""  S C ODE(CD)=""     ;SET C ODES INTO  ARRAY
  59    F  U FILE  R REC G:$ $STATUS^%Z ISH GT1 D  ;DEV016554  DPT
  60    .S REC=$T R(REC,"~", "^")
  61    .F I="$", ","," ","" "" S REC=$ TR(REC,I)    ;REMOVE  UNWANTED C HARACTERS
  62    .S ST=$P( REC,"^",1)     ;STATE
  63    .S JUR=$P (REC,"^",2 )   ;JURIS
  64    .S CAT=$P (REC,"^",3 )   ;CATG
  65    .S CTR=0
  66    .S CD=""  F  S CD=$O (CODE(CD))  Q:CD=""   D
  67    ..S RECAR Y(CD,ST)=J UR_"^"_CAT _"^"_$P(RE C,"^",$I(C TR)+3)
  68   GT1 ;
  69    ;C CHIO
  70    C FILE ;M TN   DPT
  71     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  72      X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT
  73    S CTR=0
  74    S CD="" F   S CD=$O( RECARY(CD) ) Q:CD=""   D
  75    .S ST=""  F  S ST=$O (RECARY(CD ,ST)) Q:ST =""  D
  76    ..S ^CHMZ HOLD("CHML DME",CHDLR J,$I(CTR)) =EFFDATE_" ^"_ENDDATE _"^"_CD_"^ "_ST_"^"_R ECARY(CD,S T)
  77    Q
  78   LDDME ;UPD ATE DMEPOS  FEE SCHED ULE GLOBAL  USING FM
  79    Q:'$D(^CH MZHOLD("CH MLDME",CHD LRJ))
  80    N EFFDATE ,ENDDATE,C HHCCD,CHMO D1,CHMOD2, CHMOD3,CHM OD4,CHJURI SD,CHCATEG Y
  81    N CHSTATU S,CHSTNM,C HCEILING,C HFLOOR,CHS TRATE,CHDE SC,CHMLRZT N,CHIEN
  82    S CTR=0 F   S CTR=$O (^CHMZHOLD ("CHMLDME" ,CHDLRJ,CT R)) Q:'CTR   D
  83    .S (EFFDA TE,ENDDATE ,CHHCCD,CH MOD1,CHMOD 2,CHMOD3,C HMOD4,CHML RZTN,CHJUR ISD,CHRDC) =""  ;mtn0 2448 dpt
  84    .S (CHCEI LING,CHFLO OR,CHSTFEA MT,CHCATEG Y,CHDESC,C HSTAT)=""
  85    .S EFFDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,1)   ; EF FECTIVE DA TE
  86    .S ENDDAT E=$P(^CHMZ HOLD("CHML DME",CHDLR J,CTR),"^" ,2)   ; EN D DATE
  87    .S CHHCCD =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 3)    ; HC PCS CODE
  88    .S CHSTNM =$P(^CHMZH OLD("CHMLD ME",CHDLRJ ,CTR),"^", 4)    ; ST ATE NAME
  89    .S CHJURI SD=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",5)  ; JU RISDICTION
  90    .D EDITCA T  I CHCAT EGY=CHCATI   ; CATEGO RY  mtn023 711 DPT  
  91    .;S CHCAT EGY=$P(^CH MZHOLD("CH MLDME",CHD LRJ,CTR)," ^",6) ; CA TEGORY
  92    .S CHSTRA TE=$P(^CHM ZHOLD("CHM LDME",CHDL RJ,CTR),"^ ",7)  ; ST ATE RATE/U PDATED FEE  SCHEDULE  AMOUNT
  93    .S CHSTAT US="A"                                                                                        ; ST ATUS   A-A CTIVE CODE
  94    .S CHMLRZ TN=CHJURIS D_"*"_CHCA TEGY_"*"_C HMOD1_"*"_ CHMOD2_"*" _CHMOD3_"* "_CHMOD4    ; MODIFIE RIZATION P OINTER
  95    .S CHIEN= CHHCCD
  96    .D HSTUPD ^CHMLDME1    ;UPDATE  HISTORY NO DE / QUIT  IF NO CHAN GES          ;JEH 9/5 /13 - ENC0 18925
  97    .S DIC="^ CHMDIC(741 031,",DIC( 0)="L",X=C HIEN D ^DI C
  98    .I Y=-1 K  DIC Q
  99    .S DA=+Y
  100    .S DIE=DI C
  101    .S DR="1/ ///"_EFFDA TE   ; EFF ECTIVE DAT E
  102    .S DR(2,7 41031.01)= "1////"_EN DDATE_";5/ ///"_CHMLR ZTN
  103    .S DR(3,7 41031.15)= "1////"_CH MOD1_";2// /"_CHMOD2_ ";3///"_CH MOD3_";4// /"_CHMOD4_ ";5///"_CH JURISD_";6 ///"_CHCAT EGY_";7/// "_CHSTATUS _";8///"_C HSTNM_";9/ //"_CHDESC _";10///"_ DUZ_";11// /"_CHFLDT_ ";12////"_ CHCEILING_ ";13////"_ CHFLOOR
  104    .S DR(4,7 41031.158) ="1////"_C HSTRATE 
  105    .D ^DIE
  106    .K DIE,DI C,DR,DA,Y
  107    D MMMSG^C HMLDME1($J )
  108    Q
  109   INIT ;INIT ILIZING VA RIABLES
  110    S (EFFDAT E,CHDLRJ,Y ,CHFLDT,CH IO,CTR,REC ,RC1,RC2,E NDDATE,ANS )=""
  111    K ^CHMZHO LD("CHMLDM E",$J)
  112    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  113    S:'$D(DUZ ) DUZ=1
  114    S CTR=0
  115    S EFFDATE =""
  116    S CHDLRJ= $J
  117    K FNAME
  118    ;DISPLAY  MENU TITLE
  119    S TITLE=" L-Code Pri cing Data  Load"
  120    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  121    ;SET ENVI RONMENT
  122    ;S ENVIR= $$ENVIR^CH TFLIB
  123    ;S DIR("B ")=ENVIR
  124    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  125    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  126    ;S DIR("L ",2)=""
  127    ;S DIR("L ",3)="   1   LIVE"
  128    ;S DIR("L ",4)="   2   TRAIN"
  129    ;S DIR("L ",5)="   3   TEST"
  130    ;S DIR("L ",6)="   4   DEV"
  131    ;S DIR("L ",7)=""
  132    ;S DIR("L ")="   ^    QUIT"
  133    ;D ^DIR K  DIR
  134    ;Q:$D(DUO UT)
  135    ;Q:Y=""
  136    ;Q:Y="^"! (Y="")
  137    ;S ENVIR= Y(0)
  138    K DIR
  139    W !
  140    ;SET L-CO DE PRICING  FILE
  141    S DIR(0)= "F^3:50"
  142    S DIR("A" )="Enter L -Code Pric ing file n ame (JAN13 _CodePrici ngUpdate_M OD.txt)" D  ^DIR K DI R
  143    Q:$D(DUOU T)
  144    Q:Y="^"!( Y="")
  145    S FNAME=Y  K DIR
  146    K ^CHMZHO LD("CHMLDM E",$J)
  147    Q:$D(DUOU T)
  148    ;SET EFFE CTIVE DATE
  149    S EFFDATE ="" K DIR
  150    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D  ^DIR K DI R
  151    Q:$D(DUOU T)
  152    S EFFDATE =Y
  153    ;SET END  DATE
  154    S ENDDATE ="" K DIR
  155    S DIR(0)= "DO" S DIR ("A")="Ent er End dat e (mm/dd/y y)" D ^DIR  K DIR
  156    Q:$D(DUOU T)
  157    S ENDDATE =Y
  158    Q
  159   ENDC ;CLOS ING FILE
  160    ;C CHIO
  161      D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT
  162     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  163    Q
  164   END ;END O F ROUTINE
  165    K EFFDATE ,CHDLRJ,Y, CHFLDT,CHI O,CTR,REC, ENDDATE
  166    K DIC
  167    W !!,"UPD ATE HAS BE EN TASKED.  MM WILL B E SENT WHE N DONE."
  168    Q
  169   QUEA ;QUE  OR RUN THI S ROUTINE  MANUALLY.
  170    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  171    D NOW^%DT C S DT=X
  172    I '$D(CHF LDT) S CHF LDT=%
  173    S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")=""
  174    S ZTSAVE( "CHDLRJ")= ""
  175    S ZTRTN=" LDDME^CHML DME3",ZTDE SC="PROCES S L-CODE P RICING FIL E"
  176    S ZTIO=""
  177    ;D ^%ZTLO AD
  178    D @ZTRTN         ; U SE IF RUNN ING HOT
  179    Q
  180   MMMSG(CHTO DJ) ;GENER ATE MM MES SAGE
  181    S CNT=1,^ TMP(CHTODJ ,"CHMLDME" ,CNT)="",C NT=CNT+1
  182    S ^TMP(CH TODJ,"CHML DME",CNT)= "GLOBAL 74 1031, HAS  BEEN UPDAT ED.",CNT=C NT+1
  183    S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1
  184    S ^TMP(CH TODJ,"CHML DME",CNT)= "PLEASE CH ECK.",CNT= CNT+1
  185    S ^TMP(CH TODJ,"CHML DME",CNT)= "",CNT=CNT +1
  186    S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME"","
  187    S XMDUZ=. 5
  188    S XMY(DUZ )=""
  189    S XMSUB=" GBL 741031  UPDT-CMPL TD" D ^XMD
  190    Q
  191   CHTOMSG(CH TODJ,CHTOF DT)   ;GEN ERATE MESS AGE TO RUN  SECOND PA RT OF UPDA TE
  192    S CNT=1,^ TMP(CHTODJ ,"CHMLDME2 ",CNT)="", CNT=CNT+1
  193    S ^TMP(CH TODJ,"CHML DME2",CNT) ="UPDATE H AS TIMED O UT...",CNT =CNT+1
  194    S ^TMP(CH TODJ,"CHML DME2",CNT) ="CHECK: ^ CHMZHOLD(" "CHMLDME"" ,"_CHTODJ_ ")",CNT=CN T+1
  195    S ^TMP(CH TODJ,"CHML DME2",CNT) ="DO THE F OLLOWING T O UPDATE ^ CHMDIC(741 031):",CNT =CNT+1
  196    S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (HOT ) TO SCREE N:",CNT=CN T+1
  197    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  198    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  199    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   D LDD ME^CHMLDME 1",CNT=CNT +1
  200    S ^TMP(CH TODJ,"CHML DME2",CNT) ="RUN (TAS K) TO TASK MAN:",CNT= CNT+1
  201    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHD LRJ="_CHTO DJ,CNT=CNT +1
  202    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   S CHF LDT="_CHTO FDT,CNT=CN T+1
  203    S ^TMP(CH TODJ,"CHML DME2",CNT) ="   D QUE A^CHMLDME1 ",CNT=CNT+ 1
  204    S XMTEXT= "^TMP(CHTO DJ,""CHMLD ME2"","
  205    S XMDUZ=. 5
  206    S XMY(DUZ )=""
  207    S XMSUB=" GBL 741031  UPDT-NOT  CMPLTD" D  ^XMD
  208    Q
  209   EDITCAT  ; MTN022145  DPT
  210    ; THIS SE CTION WILL  USE THE P OINTER FOR  THE CATEG ORY CODE
  211    S CHCAT=$ P(^CHMZHOL D("CHMLDME ",CHDLRJ,C TR),"^",6)   ; CATEGO RY MTN0221 45 DPT
  212    N K,K1  ; MTN022145  DPT
  213    
  214    I CHCAT=" " S CHCATI ="" Q  ;MT N022145 DP T
  215    
  216    I $D(^CHM DIC(741031 .12,"B",CH CAT)) S CH CATI=0  ;M TN022145 D PT
  217    S CHCATI= $O(^CHMDIC (741031.12 ,"B",CHCAT ,CHCATI))  Q ;MTN0221 45 DPTT
  218    ;IF CATEG ORY NOT IN  DME CATEG ORY GLOBAL  ADD TO GL OBAL PLACE  NEW POINT ER IN DMEP OS 
  219    I '$D(^CH MDIC(74103 1.12,"B",C HCAT)) D ; MTN022145  DPT
  220     .S K=$P( ^CHMDIC(74 1031.12,0) ,"^",3),K1 =$P(^CHMDI C(741031.1 2,0),"^",4 )  ;MTN022 145 DPT
  221     .S K=K+1 ,K1=K1+1,^ CHMDIC(741 031.12,K,0 )=CHCAT,^C HMDIC(7410 31,"B",CHC AT)="",$P( ^CHMDIC(74 1031.12,0) ,"^",3)=K, $P(^CHMDIC (741031.12 ,0),"^",4) =K1  ;ENC0 22145 DPT
  222     .S CHCAT I=K ;MTN02 2145 DPT
  223     .U 0 W ! ,"ADDED NE W CATEGORY  = ",CHCAT ," AT POIN TER = ",K  ;MTN022145  DPT
  224    
  225    Q  ;MTN02 2145 DPT
  226