157. EPMO Open Source Coordination Office Redaction File Detail Report

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

157.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAFS2.m Mon Nov 5 16:42:23 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLAFS2.m Mon Nov 5 17:49:53 2018 UTC

157.2 Comparison summary

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

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

157.4 Active regular expressions

No regular expressions were active.

157.5 Comparison detail

  1   CHMLAFS2 ; JEH/CHV;DA TA LOAD CM S AMB SRVS  FEE SCHED ULE FILES; 07/26/10   8:40 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;
  4    ;DEV00369 8 - INTALL  PPS AMBUL ANCE FEE S CHEDULE
  5    ;
  6    ;THIS ROU TINE LOADS  THE FOLLO WING DATA  FILES INTO  CP&E:
  7    ;      AS FS CODE TO  LOCALITY  RECORD     (EXAMPLE:  ASFS_APR10 .TXT, ASFS _JUL10_V2)
  8    ;      ZI P9 CODE TO  LOCALITY  RECORD     (EXAMPLE:  ZIP9_APR10 .TXT, ZIP9 _JUL10_V2)
  9    ;
  10    ;GLOBAL:
  11    ;               ^CHM DIC(741040 ) - CHAMPV A CMS AMB  SRVS FEE S CHEDULE
  12    ;               ^CHM ZHOLD("CHM LAFS","ASF S",     -  TEMP GLOBA L TO HOUSE  AMB SRVC  FEE SCHED  DATA
  13    ;
  14    ;MTN02009 3 DEV01655 4 CODE UPD ATE EOF RE PLACE DECN ET 1/13/14
  15       ;MTN02 7620 DPT 2 017 UPDATE  REMOVE UP DATE OF CH STNM 12/23 /16
  16   START ;
  17    D INIT
  18    Q:$D(DUOU T)
  19    G:EFFDATE ="^" END
  20    ;GETTING  & LOADING  ASF DATA I NTO ^CHMDI C(741040)
  21    D GTASFS
  22    I $D(^CHM ZHOLD("CHM LAFS","ASF S",CHDLRJ) ) {
  23           S  DIR(0)="Y" ,DIR("A")= "OK TO UPD ATE ASFS G LOBAL",DIR ("B")="NO"  D ^DIR K  DIR
  24           I  Y=1 D QUEA ^CHMLAFS2    ;TASKING  GLOBAL DA TA UPDATE
  25           E   D CHTOMSG ^CHMLAFS2( CHDLRJ,CHF LDT)  ; UP DATE MESSA GE
  26    }
  27    D END
  28    Q
  29   GTASFS ;GA THERING AS FS DATA
  30    U 0 W !!, "Reading i n ASFS Dat a...",!
  31    ;S $ZE="" ,$ZT="ENDC ^CHMLAFS2"
  32       ;N FOL DER,CNTR   ;DEV016554  DPT
  33       ;S IOF ="#,*27,*9 1,*50,*74, *27,*91,*7 2" ;DEV016 554 DPT
  34       ;S FIL E=FNAME,FO LDER="" ;D EV016554 D PT
  35       ;X ^%Z OSF("UCI")  S UCI=$P( Y,",",1) ; DEV016554  DPT
  36       ;S FOL DER="HAC_H FS$:[SCR.T EMP_FILES] " ;DEV0165 54 DPT
  37       ;I UCI '="HAC" S  FOLDER="HA C_HFS$:[DS MMANAG.CHA MPVA]" ;DE V016554 DP T
  38       ;S FIL E=FOLDER_F ILE ;DEV01 6554 DPT
  39       ;S FLD R="/FS3BIG /CODEUPDT/ AMBUPDT/"_ UCI ;DEV01 6554 DPT
  40         ;D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FLDR,"GE T") ;DEV01 6554 DPT
  41    
  42    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. AMBUPDT."_ ENVIR_"]"_ FNAME
  43    ;O CHIO:" R":5
  44    ;I $T=0 W  !,"UNABLE  TO OPEN F ILE." Q
  45    ; S POP=0 ,CNTR=0 ;D EV016554 D PT
  46       ;F  S  CNTR=CNTR+ 1 Q:(CNTR> 5)!POP  D  ;DEV016554  DPT
  47       ;.X "D  $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554  DPT
  48       ;. S P OP=$$OPENF IRD^CHTFLI B9(.FILE," FILE") ;DE V016554 DP T
  49       ;.Q ;D EV016554 D PT
  50       ;I 'PO P Q  ;DEV0 16554 DPT
  51       S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FNAME
  52       O FILE :"R":5
  53       U FILE  
  54    S CTR=0
  55    S CTR2=0
  56    F  {
  57           U  FILE R REC  
  58           G: $$STATUS^% ZISH ENDC  ;DEV016554  DPT
  59           Q: $A(REC)=26    ;ERRONE OUS DATA I N FILE CHE CK
  60           S  CHTMP=$P(R EC,"^",2)
  61           IF  $G(CHTMP) ="" {
  62                    S CT R2=CTR2+1
  63                    S CH STNM=$$UPP ER^CHTFLIB ($P(REC,"^ ",1))   ;S TATE NAME
  64           }
  65           EL SE  { 
  66                    S CT R=CTR+1 S  REC=$TR(RE C,"""$,n/a ")
  67                    S CH STNM=""
  68    
  69                    S ^C HMZHOLD("C HMLAFS","A SFS",CHDLR J,CTR)=EFF DATE_"^"_E NDDATE_"^" _CHSTNM_"^ "_REC
  70           }
  71    }
  72    Q
  73   LDASFS ;UP DATE ASFS  GLOBAL USI NG FM
  74    Q:'$D(^CH MZHOLD("CH MLAFS","AS FS",CHDLRJ ))
  75    W !!,"Upd ating Ambu lance FS d ata.",!
  76    S CTR=0 F   {
  77           S  CTR=$O(^CH MZHOLD("CH MLAFS","AS FS",CHDLRJ ,CTR)) Q:' CTR  
  78           ;D  US09FMT    ;USE CY09  FILE FORM AT
  79           D  US17FMT     ;MTN  DPT  USE CY201 7 FORMAT
  80           S  (DLAYGO,DI C)="^CHMDI C(741040," ,DIC(0)="L ",X=CHCAR  D ^DIC   ; ADD CARRIE R NODE
  81           I  Y=-1 K DIC  Q
  82           S  DIE=DIC
  83           S  DA=+Y
  84           S  DR="1////" ";2////"_C HLOC
  85    
  86           S  DR="1////" _CHSTNM_"; 2////"_CHL OC
  87           S  DR(2,74104 0.02)="1// //"_CHHCD
  88           S  DR(3,74104 0.21)="1// //"_EFFDAT E
  89           S  DR(4,74104 0.211)="1/ //"_ENDDAT E_";2///"_ CHBSRT_";3 ///"_CHRVU _";4///"_C HGPCI_";5/ //"_CHUBRU M_";6///"_ CHRBRRM_"; 7///"_CHRB RLQ_";8/// "_CHRGM117 _";11///"_ DUZ_";12// /"_CHFLDT    ;EFFECTI VE DATE PR OMPT
  90           D  ^DIE
  91    }
  92           D  MMMSG    ; SENDING MM  MESSAGE T HAT REPORT  IS READY
  93    Q
  94   INIT ;INIT ILIZING VA RIABLES
  95    D NOW^%DT C S CHFLDT =%  ;FILE  LOAD DATE
  96    S:'$D(DUZ ) DUZ=1
  97    S CTR=0
  98    S EFFDATE =""
  99    S CHDLRJ= $J
  100    K FNAME
  101    ;DISPLAY  MENU TITLE
  102    S TITLE=" Ambulance  Services F EE Schedul e Data Loa d"
  103    W ?(39-($ L(TITLE)/2 )),TITLE,! !!
  104    ;SET ENVI RONMENT
  105    ;S ENVIR= $$ENVIR^CH TFLIB
  106    ;S DIR("B ")=ENVIR
  107    ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV"
  108    ;S DIR("L ",1)="Sele ct one of  the follow ing enviro nments"
  109    ;S DIR("L ",2)=""
  110    ;S DIR("L ",3)="   1   LIVE"
  111    ;S DIR("L ",4)="   2   TRAIN"
  112    ;S DIR("L ",5)="   3   TEST"
  113    ;S DIR("L ",6)="   4   DEV"
  114    ;S DIR("L ",7)=""
  115    ;S DIR("L ")="   ^    QUIT"
  116    ;D ^DIR K  DIR
  117    ;Q:$D(DUO UT)
  118    ;Q:Y=""
  119    ;Q:Y="^"! (Y="")
  120    ;S ENVIR= Y(0)
  121    ;K DIR
  122    W !
  123    ;SET ASFS  CODE FILE
  124    W !,"FILE  EXAMPLE:   ambfspuf_ 2010_ACA_u pdate_fina l.txt",!
  125    S DIR(0)= "F^3:50"
  126    S DIR("A" )="Enter A SFS file n ame" D ^DI R K DIR
  127    Q:$D(DUOU T)
  128    Q:Y="^"!( Y="")
  129    S FNAME=Y  K DIR
  130    K ^CHMZHO LD("CHMLAF S","ASFS")
  131    ;SET ASFS  EFFECTIVE  DATE
  132    S EFFDATE ="" K DIR
  133    S DIR(0)= "D" S DIR( "A")="Ente r ASFS Eff ective dat e (mm/dd/y y)" D ^DIR  K DIR
  134    Q:$D(DUOU T)
  135    S EFFDATE =Y
  136    ;SET ASFS  END DATE
  137    S ENDDATE ="" K DIR
  138    S DIR(0)= "DO" S DIR ("A")="Ent er ASFS En d date (mm /dd/yy)" D  ^DIR K DI R
  139    Q:$D(DUOU T)
  140    S ENDDATE =Y
  141    Q
  142   ENDC ;CLOS ING FILE
  143     C FILE
  144     D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT
  145     X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT
  146    Q
  147   END ;
  148    K EFFDATE ,AYGSYS,EN VIR,CHIO,F NAME,REC,C HLDGB
  149    K CHZPST, CHZPCD,CHZ PCR,CHZPPL ,CHZPRI,CH ZPPFF
  150    K CHZPPF, CHZPYQ,CTR ,EDSPLY,FT YPE,CHIEN, CHDLRJ
  151    K DIC
  152    Q
  153   QUEA ;QUE  OR RUN THI S ROUTINE  MANUALLY.
  154    I '$D(DUZ ) S DUZ=1, DUZ(0)="@"
  155    D NOW^%DT C S DT=X
  156    S CHFIO=" ",ZTSAVE(" DUZ")="",Z TSAVE("CHF LDT")=""
  157    S ZTSAVE( "CHDLRJ")= ""
  158    S ZTRTN=" LDASFS^CHM LAFS2",ZTD ESC="PROCE SS AFS FIL E"
  159    S ZTIO=""
  160    ;D ^%ZTLO AD
  161    D @ZTRTN                 ; USE  IF RUNNING  HOT
  162    W !!,"UDA TE HAS BEE N TASKED.  MM WILL BE  SENT WHEN  DONE."
  163    Q
  164   MMMSG ;GEN ERATE MM M ESSAGE
  165    S CNT=1,^ TMP(CHDLRJ ,"CHMLAFS" ,CNT)="",C NT=CNT+1
  166    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "GLOBAL 74 1040 HAS B EEN UPDATE D.",CNT=CN T+1
  167    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1
  168    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "PLEASE CH ECK.",CNT= CNT+1
  169    S ^TMP(CH DLRJ,"CHML AFS",CNT)= "",CNT=CNT +1
  170    S XMTEXT= "^TMP(CHDL RJ,""CHMLA FS"","
  171    S XMDUZ=. 5
  172    S XMY(DUZ )=""
  173    S XMSUB=" GBL 741040  UPDT-CMPL TD" D ^XMD
  174    Q
  175   CHTOMSG(CH TODJ,CHTOF DT)   ;GEN ERATE MESS AGE TO RUN  SECOND PA RT OF UPDA TE
  176    W !,"TO R UN SECOND  PART OF UP DATE..."
  177    W !,"CHEC K: ^CHMZHO LD(""CHMLA FS"",""ASF S"",",CHTO DJ,")"
  178    W !,"DO T HE FOLLOWI NG TO UPDA TE ^CHMDIC (741040):"
  179    W !,?5,"R UN (HOT) T O SCREEN:" ,?30,"S CH DLRJ=",CHT ODJ
  180    W !,?30," S CHFLDT=" ,CHTOFDT
  181    W !,?30," D LDASFS^C HMLAFS2"
  182    W !!,?5," RUN (TASK)  TO TASKMA N:",?30,"S  CHDLRJ=", CHTODJ
  183    W !,?30," S CHFLDT=" ,CHTOFDT
  184    W !,?30," D QUEA^CHM LAFS2"
  185    W !
  186    Q
  187   US09FMT ;U SE CY09 FI LE FORMAT
  188    S (CHZPST ,CHZPCD,CH ZPCR,CHZPP L,CHZPRI,C HZPPFF,CHZ PPF,CHZPYQ ,EFFDATE)= ""
  189    S (EFFDAT E,ENDDATE, CHSTNM,CHC AR,CHLOC,C HHCD,CHBSR T,CHRVU)=" "
  190    S (CHGPCI ,CHUBRUM,C HRBRRM,CHR BRLQ,CHRGM 117)=""
  191    S EFFDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",1)               ; EFFECT IVE DATE
  192    S ENDDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",2)               ; END DA TE
  193    S CHSTNM= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",3)                ; STATE  NAME mtn02 7620 dpt 1 2/23/16
  194    S CHCAR=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",4)                 ; CARRIE R
  195    S CHLOC=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",5)                 ; LOCALI TY
  196    S CHHCD=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",6)                 ; HCPCS  CODE
  197    S CHBSRT= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",7)                ; BASE R ATE
  198    S CHRVU=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",8)                 ; RELATI VE VALUE U NITS (RVU)
  199    S CHGPCI= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",9)                ; GEOGRA PHIC PRACT ICE COST I NDEX (GPCI )
  200    S CHUBRUM =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",10)              ; URBAN  BASE RATE/ URBAN MILE AGE
  201    S CHRBRRM =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",11)              ; RURAL  BASE RATE/ RURAL MILE AGE
  202    S CHRBRLQ =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",12)              ; RURAL  BASE RATE/ LOWEST QUA RTILE
  203    S CHRGM11 7=$P(^CHMZ HOLD("CHML AFS","ASFS ",CHDLRJ,C TR),"^",13 )   ; RURA L GROUND M ILES 1-17
  204    Q
  205   US17FMT ;L AYOUT FOR  2017 AND F ORWARD
  206    S (CHZPST ,CHZPCD,CH ZPCR,CHZPP L,CHZPRI,C HZPPFF,CHZ PPF,CHZPYQ ,EFFDATE)= ""
  207    S (EFFDAT E,ENDDATE, CHSTNM,CHC AR,CHLOC,C HHCD,CHBSR T,CHRVU)=" "
  208    S (CHGPCI ,CHUBRUM,C HRBRRM,CHR BRLQ,CHRGM 117)=""
  209    S EFFDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",1)               ; EFFECT IVE DATE
  210    S ENDDATE =$P(^CHMZH OLD("CHMLA FS","ASFS" ,CHDLRJ,CT R),"^",2)               ; END DA TE
  211    S CHSTNM= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",3)                ; STATE  NAME mtn02 7620 dpt 1 2/23/16
  212    S CHCAR=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",4)                 ; CARRIE R
  213    S CHLOC=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",5)                 ; LOCALI TY
  214    S CHHCD=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",6)                 ; HCPCS  CODE
  215    S CHRVU=$ P(^CHMZHOL D("CHMLAFS ","ASFS",C HDLRJ,CTR) ,"^",7)                 ; RELATI VE VALUE U NITS (RVU)
  216    S CHGPCI= $P(^CHMZHO LD("CHMLAF S","ASFS", CHDLRJ,CTR ),"^",8)                ; GEOGRA PHIC PRACT ICE COST I NDEX (GPCI )