194. EPMO Open Source Coordination Office Redaction File Detail Report

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

194.1 Files compared

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

194.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 438
Changed 2 6
Inserted 0 0
Removed 0 0

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

194.4 Active regular expressions

No regular expressions were active.

194.5 Comparison detail

  1   CHMLIDMQ ; JEH/DEN;RE AD IN IDME  FACTOR;01 /24/05  8: 40 AM
  2    ;V1.0
  3    ;
  4    D INIT
  5    Q:$D(DUOU T)
  6    G:EFFDATE ="^"!(ENDD ATE="^") E ND
  7   START ;
  8    D GTPDATA    ; GETTI NG FI PROV IDER DATA
  9    D:CNAME'= "" GTCDATA    ; GETTI NG ZIP COD E TO WAGE  INDEX CROS SWALK DATA
  10    D ^CHMLID MC
  11    D ^CHMLID MP
  12    G END
  13    ;
  14   GTPDATA ;G ATHERING P ROVIDER DA TA
  15    U 0 W !," Reading in  Provider  Data..."
  16    S $ZE="", $ZT="END1^ CHMLIDMQ"
  17    ;*** INIT IAL LOAD F ILE - FOR  LIVE ***
  18    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _PNAME
  19    O IO:"R": 5
  20    I '$T W ! !,"NOT ABL E TO OPEN  FILE" G EN D
  21   A1 ;
  22   FMTP1 ;
  23    U IO 
  24    R A
  25    S CTRPT=C TRPT+1
  26    ;Q:CTRP=3 3!(CTRC=33 )       ;R EMOVE/COMM ENT OUT TO  PROCESS E NTIRE/PART IAL FILE    JEH
  27    G:EFFDATE =3041001 F MTP3    ;M ODIFIED FO RMAT - UNC OMMENT OUT  FOR INTIT IAL LOAD -  provfi_re vised_2004 _USE_THIS_ FILE.TXT &  ZIP2WAGE. TXT (FY05)
  28    G:EFFDATE '=3041001  FMTP4   ;M ODIFIED FO RMAT - UNC OMMENT OUT  FOR FY06  LOAD  - Pr ovFI2005.T XT & ZIP2W AGE.TXT
  29    S TPP(1)= $P(A,"^",1 )     ;TMA  NUMBER
  30    S TPP(2)= $P(A,"^",2 )     ;MUL TI-PROVIDE R ID
  31    S TPP(3)= $P(A,"^",3 )     ;MED ICARE NUMB ER
  32    S TPP(4)= $P(A,"^",4 )     ;HOS PITAL NAME
  33    S TPP(5)= $P(A,"^",5 )     ;HOS PITAL ADDR ESS
  34    S TPP(6)= $P(A,"^",6 )     ;HOS PITAL CITY
  35    S TPP(7)= $P(A,"^",7 )     ;HOS PITAL STAT E
  36    S TPP(8)= $P(A,"^",8 )     ;HOS PITAL ZIP
  37    S TPP(9)= $P(A,"^",9 )     ;TYP E OF HOSPI TAL
  38    S TPP(10) =$P(A,"^", 10)   ;SPE CIAL UNIT  1
  39    S TPP(11) =$P(A,"^", 11)   ;SPE CIAL UNIT  2
  40    S TPP(12) =$P(A,"^", 12)   ;SPE CIAL UNIT  3
  41    S TPP(13) =$P(A,"^", 13)   ;RAT IO OF INTE RNS AND RE SIDENTS
  42    S TPP(14) =$P(A,"^", 14)   ;NUM BER OF BED S
  43    S TPP(15) =$P(A,"^", 15)   ;MSA  CODE
  44    S TPP(16) =$P(A,"^", 16)   ;WAG E INDEX
  45    S TPP(17) =$P(A,"^", 17)   ;FOO TNOTE TO W AGE INDEX
  46    S TPP(18) =$P(A,"^", 18)   ;TYP E OF ASA
  47    S TPP(19) =$P(A,"^", 19)   ;IDM E FACTOR ( 4 IMPLIED  DECI)
  48    ;                          (USE  1 + IDME  FACTOR IN  CALCS)
  49    S TPP(20) =$P(A,"^", 20)   ;CBS A
  50    G LOADP
  51   FMTP2 ;MOD IFED FORMA T
  52    S TPP(1)= $P(A,"^",1 )     ;TMA  NUMBER
  53    S TPP(3)= $P(A,"^",2 )     ;MED ICARE NUMB ER
  54    S TPP(4)= $P(A,"^",3 )     ;HOS PITAL NAME
  55    S TPP(5)= $P(A,"^",4 )     ;HOS PITAL ADDR ESS
  56    S TPP(6)= $P(A,"^",5 )     ;HOS PITAL CITY
  57    S TPP(7)= $P(A,"^",6 )     ;HOS PITAL STAT E
  58    S TPP(8)= $P(A,"^",7 )     ;HOS PITAL ZIP
  59    S TPP(16) =$P(A,"^", 9)    ;WAG E INDEX
  60    S TPP(19) =$P(A,"^", 10)   ;IDM E FACTOR ( 4 IMPLIED  DECI)
  61    ;                          (USE  1 + IDME  FACTOR IN  CALCS)
  62    G LOADP
  63   FMTP3 ;INI TIAL LOAD  FORMAT  (  FY04/05 )     
  64    ;S TPP(1) =$E(A,8,16 )                                                ;TMA  NUMBER
  65    S TPP(1)= $$LTRIM^CH TFLIB($E(A ,8,16))
  66    S TPP(3)= $$LTRIM^CH TFLIB($E(A ,21,26))                              ;MEDI CARE NUMBE R
  67    S TPP(4)= $$TRIM^CHT FLIB($E(A, 27,59))                               ;HOSP ITAL NAME
  68    S TPP(5)= $$TRIM^CHT FLIB($E(A, 60,86))                               ;HOSP ITAL ADDRE SS
  69    S TPP(6)= $$TRIM^CHT FLIB($E(A, 87,102))                              ;HOSP ITAL CITY
  70    S TPP(7)= $E(A,103,1 04)                                              ;HOSP ITAL STATE
  71    S TPP(8)= $E(A,106,1 10)                                              ;HOSP ITAL ZIP
  72    S TPP(16) =$E(A,138, 143)                                             ;WAGE  INDEX
  73    I TPP(16) '=""!(TPP( 16)'=0) D
  74    .S TPP(16 )=$$LTRIM^ CHTFLIB(TP P(16))/100 00   ;THIS  IS TO SET  TO >nnnn  DIGITS
  75    S TPP(19) =$E(A,204, 209)                                             ;IDME  FACTOR (4  IMPLIED D ECI)
  76    ;                                                            (US E 1 + IDME  FACTOR IN  CALCS)
  77    I TPP(19) '=""!(TPP( 19)'=0) D
  78    .S TPP(19 )=$$LTRIM^ CHTFLIB(TP P(19))/100 00   ; THI S IS TO SE T TO >nnnn  DIGITS
  79    G LOADP
  80   FMTP4 ;INI TIAL LOAD  FORMAT  (  FY06 )    
  81    S TPP(3)= $E(A,1,6)                                                   ;MCR  PROVIDER N UMBER
  82    S TPP(1)= $E(A,7,15)                                                  ;TMA  NUMBER
  83    S TPP(4)= $$TRIM^CHT FLIB($E(A, 26,75))                               ;PROV IDER/HOSPI TAL NAME
  84    S TPP(5)= $$TRIM^CHT FLIB($E(A, 81,130))                              ;HOSP ITAL ADDRE SS LINE 1
  85    S TPP(6)= $$TRIM^CHT FLIB($E(A, 181,205))                             ;HOSP ITAL CITY
  86    S TPP(7)= $E(A,206,2 07)                                              ;HOSP ITAL STATE
  87    S TPP(8)= $E(A,208,2 12)                                              ;HOSP ITAL ZIP
  88    S TPP(16) =$E(A,239, 244)                                             ;WAGE  INDEX
  89    I TPP(16) '=""!(TPP( 16)'=0) D
  90    .S TPP(16 )=$$LTRIM^ CHTFLIB(TP P(16))/100 00   ;THIS  IS TO SET  TO >nnnn  DIGITS
  91    S TPP(19) =$E(A,297, 302)                                             ;IDME  FACTOR (4  IMPLIED D ECI)
  92    ;                                                            (US E 1 + IDME  FACTOR IN  CALCS)
  93    I TPP(19) '=""!(TPP( 19)'=0) D
  94    .S TPP(19 )=$$LTRIM^ CHTFLIB(TP P(19))/100 00   ; THI S IS TO SE T TO >nnnn  DIGITS
  95   LOADP ;LOA DING TEMP  FI PROVIDE R FILE GLO BAL
  96    I TPP(1)= ""!(TPP(1) =0)!(TPP(3 )="")!(TPP (3)=0) D
  97    .S ECTR=E CTR+1
  98    .S ^CHMZH OLD("IDME" ,"EXCPTN", "PROV",ECT R)=TPP(1)_ "^"_TPP(3) _"^"_TPP(4 )_"^"_TPP( 5)_"^"_TPP (6)_"^"_TP P(7)_"^"_T PP(8)_"^"_ TPP(16)_"^ "_TPP(19)_ "^"_EFFDAT E_"^"_ENDD ATE
  99    E  D
  100    .S CTRP=C TRP+1
  101    .S ^CHMZH OLD("IDME" ,"PROV",CT RP)=TPP(1) _"^"_TPP(3 )_"^"_TPP( 4)_"^"_TPP (5)_"^"_TP P(6)_"^"_T PP(7)_"^"_ TPP(8)_"^" _TPP(16)_" ^"_TPP(19) _"^"_EFFDA TE_"^"_END DATE
  102    .S ^CHMZH OLD("IDME" ,"PROV","B ",TPP(1),T PP(3),CTRP )=""
  103    G A1
  104   END1 ;
  105    C IO
  106    Q
  107   GTCDATA ;G ATHERING P ROVIDER DA TA
  108    U 0 W !," Reading in  Zip Code  to Wage In dex Crossw alk Data.. ."
  109    S $ZE="", $ZT="END1^ CHMLIDMQ"
  110    ;*** INIT IAL LOAD F ILE - FOR  LIVE ***
  111    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]Z IP2WAGE.TX T"
  112    S IO="HAC FS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _CNAME
  113    O IO:"R": 5
  114    ;I '$T W  !!,"NOT AB LE TO OPEN  FILE" G E ND
  115   B1 ;
  116    U IO 
  117    R A
  118    S CTRC=CT RC+1
  119    S CTRCT=C TRCT+1
  120   FMTC1 ; IN ITIAL LAOD  FORMAT (F Y06)
  121    S TPC(1)= $E(A,1,5)                             ; ZIP  CODE
  122    .S TPC(2) =$E(A,6,7)                            ; FIL LER (FORMA T BEFORE 1 0/1/06)
  123    I EFFDATE >3060930 D                                                  ; DAT E ZIP2WAGE  FILE FORM AT CHANGED
  124    .S TPC(3) =$E(A,6,7)                            ; STA TE ABBREVI ATION
  125    E  S TPC( 3)=$E(A,8, 9)
  126    S TPC(4)= $E(A,10,18 )                          ; FIL LER
  127    S TPC(5)= $$LTRIM^CH TFLIB($E(A ,19,20))        ; STA TE CODE
  128    S TPC(6)= $E(A,21,22 )                          ; FIL LER
  129    S TPC(7)= $E(A,23,27 )                          ; CBS A (right j ustified)
  130    S TPC(8)= $$LTRIM^CH TFLIB($E(A ,28,35))        ; WAG E INDEX (r ight justi fied, form at is 1.00 00)
  131    S TPC(9)= DFLTIDME                              ; DEF AULT IDME  FACTOR
  132    G LOADC
  133   LOADC ;LOA DING TEMP  ZIP CODE T O WAGE IND EX CROSSWA LK FILE GL OBAL
  134    I TPP(1)= ""!(TPP(1) =0) D
  135    .S ECTR=E CTR+1
  136    .S ^CHMZH OLD("IDME" ,"EXCPTN", "ZIP",ECTR )=TPC(1)_" ^"_TPC(3)_ "^"_TPC(5) _"^"_TPC(8 )_"^"_TPC( 9)_"^"_EFF DATE_"^"_E NDDATE
  137    E  D
  138    .S CTRC=C TRC+1
  139    .S ^CHMZH OLD("IDME" ,"ZIP",CTR C)=TPC(1)_ "^"_TPC(3) _"^"_TPC(5 )_"^"_TPC( 8)_"^"_TPC (9)_"^"_EF FDATE_"^"_ ENDDATE
  140    .S ^CHMZH OLD("IDME" ,"ZIP","B" ,TPC(1),CT RC)=""
  141    G B1
  142    ;
  143   INIT ;INIT ILIZING VA RIABLES
  144    S (CTRP,C TRPT,CTRC, CTRCT)=0
  145    S ECTR=0
  146    S (EFFDAT E,ENDDATE) =""
  147    K ^CHMZHO LD("IDME")
  148    K PNAME,C NAME
  149    ;DISPLAY  MENU TITLE
  150    W @IOF,?2 8,"DRG Ini tial Load  (IDME)",!
  151    ;SET ENVI RONMENT
  152    S AYGSYS= XQVOL
  153    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  154    S ENVIR=A YGSYS
  155    S DIR("B" )=ENVIR
  156    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  157    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  158    S DIR("L" ,2)=""
  159    S DIR("L" ,3)="   1   LIVE"
  160    S DIR("L" ,4)="   2   TRAIN"
  161    S DIR("L" ,5)="   3   TEST"
  162    S DIR("L" ,6)="   4   DEV"
  163    S DIR("L" ,7)=""
  164    S DIR("L" )="   ^    QUIT"
  165    D ^DIR K  DIR
  166    Q:$D(DUOU T)
  167    Q:Y=""
  168    Q:Y="^"!( Y="")
  169    S ENVIR=Y (0)
  170    K DIR
  171    Q:ENDDATE ="^"
  172    W !
  173    ;SET FI P ROVIDER FI LE NAME
  174    S DIR(0)= "F^3:50"
  175    S DIR("A" )="Enter F I Provider  file name " D ^DIR K  DIR
  176    Q:$D(DUOU T)
  177    Q:Y="^"!( Y="")
  178    S PNAME=Y  K DIR
  179    ;SET ZIP  TO WAGE IN DEX CROSSW ALK FILE
  180    S DIR(0)= "FO^3:50"
  181    S DIR("A" )="Enter W age Index  Crosswalk  file name"  D ^DIR K  DIR
  182    Q:$D(DUOU T)
  183    S CNAME=Y  K DIR
  184    ;SET DEFA ULT IDME F ACTOR
  185    S DIR("B" )=0 S DIR( 0)="NA^-10 :10:4"
  186    S DIR("A" )="Enter D efault IDM E Factor "  D ^DIR K  DIR
  187    Q:$D(DUOU T)
  188    S DFLTIDM E=Y K DIR
  189    ;SET EFFE CTIVE DATE
  190    S EFFDATE ="" K DIR
  191    S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e date (mm /dd/yy)" D  ^DIR K DI R
  192    Q:$D(DUOU T)
  193    S (EFFDAT E,FEFFDATE )=Y
  194    ;SET END  DATE
  195    S DIR(0)= "D;O" S DI R("A")="En ter End da te (mm/dd/ yy)" D ^DI R K DIR
  196    Q:$D(DUOU T)
  197    S ENDDATE =Y
  198    W !!,"Rea ding in Da ta...",! 
  199    Q
  200   END ;
  201    K DIC
  202    ;U 0 W !
  203    ;U 0 W !, "Total num ber of FI  Provider r ecords rea d in: ",CT RPT
  204    ;U 0 W:$D (^CHMZHOLD ("IDME","Z IP")) !,"T otal numbe r of Zip C ode to Wag e Index Cr osswalk re cords read  in: ",CTR CT
  205    ;U 0 W !! ,"Total nu mber of re cords adde d to Excep tion Repor t: ",ECTR
  206    Q
  207   END2 ;W !! ,"*** DATA  FILE ERRO R HAS OCCU RED ***",! !
  208    G END
  209    Q
  210   QUEA ;QUE  THIS ROUTI NE MANUALL Y.
  211    I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@"
  212    D NOW^%DT C S DT=X
  213    S U="^"
  214    S CHFIO=" "
  215    S ZTRTN=" START^CHML IDMQ",ZTDE SC="PROCES S AWI RATE S"
  216    S ZTIO="" ,ZTSAVE("^ CHMZHOLD(" "IDME"")") ="",ZTSAVE ("ECTR")=" "
  217    S ZTSAVE( "CTRPT")=" ",ZTSAVE(" CNAME")="" ,ZTSAVE("P NAME")="", ZTSAVE("DF LTIDME")=" "
  218    S ZTSAVE( "EFFDATE") ="",ZTSAVE ("FEFFDATE ")="",ZTSA VE("ENDDAT E")=""
  219    S ZTSAVE( "ENVIR")=" ",ZTSAVE(" CTRP")="", ZTSAVE("CT RPT")="",Z TSAVE("CTR C")="",ZTS AVE("CTRCT ")=""
  220    D ^%ZTLOA D
  221    Q
  222