198. EPMO Open Source Coordination Office Redaction File Detail Report

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

198.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLPR54.m Mon Nov 5 16:43:27 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLPR54.m Mon Nov 5 17:50:36 2018 UTC

198.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 406
Changed 5 10
Inserted 0 0
Removed 0 0

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

198.4 Active regular expressions

No regular expressions were active.

198.5 Comparison detail

  1   CHMLPR54 ; CVA/JEH;PR EVAILING F EE PRE-CAL C LIST;01/ 05/12  1:2 0 PM
  2    ;;1.0
  3    ;;*** CLO NE OF CHML PR53 ***
  4    ;;DEV0128 93-08 YJK  Mar 2014
  5    ;;DEV0128 93-08 YJK  Aug 2015
  6   Z0 
  7    N POP
  8    S POP=0
  9    W @IOF,!! ,"Prevaili ng Fee Pre -Calculati on Listing  routine."
  10    W !!,"    Please rem ember that  this chec ks all the  claims"
  11    W !!,"    and takes  a little t ime to pro cess."
  12    W !!,"    After succ essful com pletion of  the listi ng, a Mail Man messag e"
  13    W !!,"    will be ge nerated le tting you  know the r eport is r eady."
  14    W !!,"Pre ss <RETURN > to conti nue:  " D  SBRS G QUI T:$D(DFOUT )
  15    G QUIT:$D (DUOUT)
  16    D INIT G  QUIT:X=""! (Y=-1)!($D (DUOUT)) G  Z0:Y=-1
  17   Z1 ;
  18    D QUE
  19    Q
  20   Z2 ;
  21   QUE S ZTRT N="A0^CHML PR54",ZTDT H="",ZTIO= "",ZTSAVE( "CN")="",Z TSAVE("CHM DD")=""
  22    S ZTSAVE( "FYRBEG")= "",ZTSAVE( "FYREND")= "",ZTSAVE( "YR")="",Z TSAVE("FNA ME")=""
  23    S ZTSAVE( "RDATE")=" ",ZTSAVE(" ENVIR")="" ,ZTSAVE("D SPLYYR")=" "
  24    ;D ^%ZTLO AD
  25    D A0^CHML PR54
  26   QUIT Q
  27   A0 S KT=0
  28   A1 S CN=$O (^CHMPAY(C N)) G:'CN  CALC
  29    G A1:'$D( ^(CN,0))
  30    G A1:$D(^ CHMPAY(CN, "ZFI"))
  31    S VZIP="" ,KT=KT+1 S :KT#1000=0  ^CHMZHOLD ("PRE_PRVL ","RESTART ")=KT_"^"_ CN
  32    S TYPE=+$ P(^CHMPAY( CN,0),"^", 7)
  33    G:TYPE'=2  A1
  34    G:$P(^CHM PAY(CN,0), "^",2)=0 A 1
  35    S VNUM=+$ P(^(0),"^" ,3),DOS=+$ P(^(0),"^" ,8)\1 
  36    G:'VNUM A 1
  37    G:DOS<FYR BEG A1
  38    G:DOS>FYR END A1
  39    I $D(^CHM VEN(VNUM,2 )) S VZIP= $E($P(^(2) ,"^",5),1, 5)
  40    I VZIP'?5 N S:$D(^CH MVEN(VNUM, 1)) VZIP=$ E($P(^(1), "^",5),1,5 )
  41    I VZIP'?5 N G A1
  42    D LOOP S  J=0 G A1:S MSA="" S S MSA=+SMSA
  43   A6 S J=$O( ^CHMPAY(CN ,"OPT-PROC ",J)) G A1 :'J,A6:'$D (^(J,0))
  44    G A6:+$P( ^(0),"^",4 )
  45    G A6:'$D( ^CHMPAY(CN ,"RULE-PRO C",J,0)) G  A6:$P(^(0 ),"^",1)=0
  46    S SERV=$P (^CHMPAY(C N,"OPT-PRO C",J,0),"^ ",1),CHGAM T=+$P(^(0) ,"^",2) G  A6:'SERV,A 6:'CHGAMT
  47    K CMACFG  D CMAC G:$ D(CMACFG)  A6
  48    G A6:$D(^ CHMDIC(741 002.49,YR_ "0000",1," B",SERV))
  49   A66 I 'SMS A G A1:'VS T S:'$D(^C HMZHOLD("P RE_PRVL"," PRVL",SMSA ,VST,SERV, 0)) ^(0)=0  D  G A6
  50    .S ^(0)=^ (0)+1,CT=^ (0) S X=CT #30 S:X=0  X=30 S Y=( CT\30)+1
  51    .S:CT#30= 0 Y=Y-1 S  $P(^(Y),"^ ",X)=CHGAM T
  52    .S ^CHMZH OLD("PRE_P RVL","REC" ,SERV,VZIP ,CHGAMT,SM SA,VST,CN) =""
  53    S:'$D(^CH MZHOLD("PR E_PRVL","P RVL",SMSA, SERV,0)) ^ (0)=0 S ^( 0)=^(0)+1, CT=^(0)
  54    S X=CT#30  S:X=0 X=3 0 S Y=(CT\ 30)+1 S:CT #30=0 Y=Y- 1
  55    S $P(^(Y) ,"^",X)=CH GAMT,^CHMZ HOLD("PRE_ PRVL","REC ",SERV,VZI P,CHGAMT,S MSA,VST,CN )=""
  56    S:'$D(^CH MZHOLD("PR E_PRVL","P RVL",0,VST ,SERV,0))  ^(0)=0
  57    S ^(0)=^( 0)+1,CT=^( 0) S X=CT# 30 S:X=0 X =30 S Y=(C T\30)+1
  58    S:CT#30=0  Y=Y-1 S $ P(^(Y),"^" ,X)=CHGAMT
  59    G A6
  60   CALC S SMS A=0
  61    S:'$D(^CH MZHOLD("PR E_PRVL",CH MDD,0)) ^( 0)="CHAMPV A PREVAILI NG FEE "_$ $FMYR^CHTF LIB(YR)_"^ "_CHMDD_"P ^^"
  62   C1 S SMSA= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA)) G  CALC2:'SMS A S SERV=0
  63   C2 S SERV= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA,SERV )) G C1:'S ERV S NODE =0,CT=0
  64    G C2:'$O( ^CHMZHOLD( "PRE_PRVL" ,"PRVL",SM SA,SERV,NO DE)) K ^UT ILITY("PRE _PRVL","SM SASORT1")
  65    I $D(^CHM ZHOLD("PRE _PRVL","PR VL",SMSA,S ERV,0)),+^ (0)<5 K ^C HMZHOLD("P RE_PRVL"," PRVL",SMSA ,SERV) G C 2
  66   C3 S NODE= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,SMSA,SERV ,NODE)) G  C4:'NODE S  Z=^(NODE) ,L=$L(Z,"^ ")
  67    F I=1:1:L  I +$P(Z," ^",I) D
  68    .S CT=CT+ 1,^UTILITY ("PRE_PRVL ","SMSASOR T1",+$P(Z, "^",I),CT) =""
  69    G C3
  70   C4 K ^UTIL ITY("PRE_P RVL","SMSA SORT2") S  J=0,CT=0
  71    F I=1:1 S  J=$O(^UTI LITY("PRE_ PRVL","SMS ASORT1",J) ) Q:'J  D
  72    .S K=0 F  L=1:1 S K= $O(^UTILIT Y("PRE_PRV L","SMSASO RT1",J,K))  Q:'K  D
  73    ..S CT=CT +1,^UTILIT Y("PRE_PRV L","SMSASO RT2",CT,J) =""
  74    S PCNT80= CT*.8,PCNT 80=PCNT80- .001
  75    S PCNT80= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0)),DOLAMT =""
  76    S DOLAMT= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0,DOLAMT)) ,I=""
  77    S I=$O(^C HMZHOLD("P RE_PRVL",C HMDD,"B",S ERV,I))
  78    I 'I S $P (^(0),"^", 4)=$P(^CHM ZHOLD("PRE _PRVL",CHM DD,0),"^", 4)+1 D
  79    .S I=$P(^ (0),"^",4) ,$P(^(I,0) ,"^")=SERV ,^CHMZHOLD ("PRE_PRVL ",CHMDD,"B ",SERV,I)= ""
  80    S J=$S(SM SA<21:1,SM SA<41:2,SM SA<61:3,SM SA<81:4,1: 5),K=SMSA# 20
  81    S:K=0 K=2 0 I I S L= "" S:$D(^C HMZHOLD("P RE_PRVL",C HMDD,I,J))  L=$P(^(J) ,"^") D
  82    .S $P(L," ,",K)=(DOL AMT\1)_";P ",$P(^(J), "^")=L
  83    G C2
  84   CALC2 S VS T=0
  85   D1 S VST=$ O(^CHMZHOL D("PRE_PRV L","PRVL", 0,VST)) G  END:'VST S  SERV=0
  86   D2 S SERV= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,0,VST,SER V)) G D1:' SERV S NOD E=0,CT=0
  87    K ^UTILIT Y("PRE_PRV L","SMSASO RT1")
  88    I $D(^CHM ZHOLD("PRE _PRVL","PR VL",0,VST, SERV,0)),+ ^(0)<5 K ^ CHMZHOLD(" PRE_PRVL", "PRVL",0,V ST,SERV) G  D2
  89   D3 S NODE= $O(^CHMZHO LD("PRE_PR VL","PRVL" ,0,VST,SER V,NODE)) G  D4:'NODE  S Z=^(NODE ),L=$L(Z," ^")
  90    F I=1:1:L  I +$P(Z," ^",I) D
  91    .S CT=CT+ 1,^UTILITY ("PRE_PRVL ","SMSASOR T1",+$P(Z, "^",I),CT) =""
  92    G D3
  93   D4 K ^UTIL ITY("PRE_P RVL","SMSA SORT2") S  J=0,CT=0
  94    F I=1:1 S  J=$O(^UTI LITY("PRE_ PRVL","SMS ASORT1",J) ) Q:'J  D
  95    .S K=0 F  L=1:1 S K= $O(^UTILIT Y("PRE_PRV L","SMSASO RT1",J,K))  Q:'K  D
  96    ..S CT=CT +1,^UTILIT Y("PRE_PRV L","SMSASO RT2",CT,J) =""
  97    S PCNT80= CT*.8,PCNT 80=PCNT80- .001
  98    S PCNT80= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0)),DOLAMT =""
  99    S DOLAMT= $O(^UTILIT Y("PRE_PRV L","SMSASO RT2",PCNT8 0,DOLAMT)) ,I=""
  100    S I=$O(^C HMZHOLD("P RE_PRVL",C HMDD,"B",S ERV,I))
  101    I 'I S $P (^(0),"^", 4)=$P(^CHM ZHOLD("PRE _PRVL",CHM DD,0),"^", 4)+1 D
  102    .S I=$P(^ (0),"^",4) ,$P(^(I,0) ,"^")=SERV ,^CHMZHOLD ("PRE_PRVL ",CHMDD,"B ",SERV,I)= ""
  103    S J=$S(VS T<21:101,V ST<41:102, VST<61:103 ,1:0),K=VS T#20 G D2: 'J
  104    S:K=0 K=2 0 I I S L= "" S:$D(^C HMZHOLD("P RE_PRVL",C HMDD,I,J))  L=$P(^(J) ,"^") D
  105    .S $P(L," ,",K)=(DOL AMT\1)_";P ",$P(^(J), "^")=L
  106    G D2
  107   END 
  108    D PRLST
  109    D PRMSG
  110    Q
  111   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  112    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  113   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  114    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  115    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  116    Q
  117   LOOP S VST =0,SMSA="Z Z"
  118   L1 S VST=$ O(^CHMSMSA ("ZIP",VZI P,VST)) Q: 'VST  S CN TY=0
  119   L2 S CNTY= $O(^CHMSMS A("ZIP",VZ IP,VST,CNT Y)) G L1:' CNTY S REV DT=0
  120   L3 S REVDT =$O(^CHMSM SA(VST,1,C NTY,3,REVD T)) G L2:' REVDT,L3:' $D(^(REVDT ,0))
  121    S SMSA=$P (^(0),"^", 2) Q
  122    ;
  123   INIT ;
  124    K ^CHMZHO LD("PRE_PR VL"),^UTIL ITY("PRE_P RVL")
  125    S ENVIR=$ $ENVIR^CHT FLIB
  126    W !! S %D T("A")="En ter the Ye ar to be c alculated  (ie. 2012) :  ",%DT=" AEF" D ^%D T
  127    Q:Y=-1
  128    I ($D(DUO UT))!($D(D TOUT)) Q
  129    S DSPLYYR =X
  130    S YR=$E(Y ,1,3)
  131    S RDATE=Y
  132    S CHMDD=$ $FNSET^CHF BC2A(Y)
  133    S FYRBEG= (YR-2)_"07 01",FYREND =(YR-1)_"0 630"
  134    I (YR-2)< 299 D  ;29 9 is the y r the pdi  was conver ted from 1 3 to 15 di g
  135    .S STPDI= $E((YR-2), 2,3)_18000 000000  ;  13 digit P DI
  136    E  S STPD I=$$FMYR^C HTFLIB(YR- 2)_1800000 0000  ;15  digit PDI
  137    S STPDI=$ O(^CHMPAY( "C",STPDI) ) Q:'STPDI   S CN=$O( ^CHMPAY("C ",STPDI,0) )
  138    ;SET FILE  NAME
  139    S DIR(0)= "F^3:50"
  140    S DIR("A" )="Enter P re-Prevail ings Listi ng name" D  ^DIR K DI R
  141    I ($D(DUO UT))!($D(D TOUT)) Q
  142    S FNAME=Y _"_"_DSPLY YR_".TXT"  K DIR
  143    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY.LIV E]"_FNAME
  144    ;KILL STA TEMENTS
  145    K ^CHMZHO LD("PRVL") ,^CHMZHOLD ("REC")
  146    K ^UTILIT Y("SMSASOR T1"),^UTIL ITY("SMSAS ORT2")
  147    Q
  148   CMAC K CMA CFG
  149    Q:'$D(^CH MSERV(SERV ,0))
  150    S CODE=$P (^CHMSERV( SERV,0),"^ ",1)
  151    Q:CODE=""
  152    Q:'$D(^CH MCPF("B",C ODE))
  153    S CMACI=$ O(^CHMCPF( "B",CODE,0 ))
  154    Q:'CMACI
  155    S DATE=99 99999-DOS
  156    I DOS<298 0201 S DAT E=$O(^CHMC PF(CMACI,1 ,DATE))
  157    I DOS>298 0200 S DAT E=$O(^CHMC PF(CMACI,2 97,DATE))
  158    I DATE S  CMACFG=1 Q
  159    Q
  160   PRMSG ;SEN D MESSAGE  INDICATING  PRE-PRVL  LISTING IS  COMPLETE
  161    S CNT=1,^ TMP($J,"PR E_PRVL-MSG ",CNT)="", CNT=CNT+1
  162    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="PRE-PREV AILING LIS T HAS COMP LETED.",CN T=CNT+1
  163    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1
  164    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="LISTING  OF OUTPATI ENT SERVIC E CODES CA N",CNT=CNT +1
  165    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1
  166    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="BE FOUND  IN:",CNT= CNT+1
  167    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1
  168    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="       DNS     FS3\CODEUP DT\PRVL_FE E\"_ENVIR_ "\"_FNAME, CNT=CNT+1
  169    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="",CNT=CN T+1
  170    S ^TMP($J ,"PRE_PRVL -MSG",CNT) ="SEE FILE  NAME: "_F NAME,CNT=C NT+1
  171    S ^TMP($J ,"PRE_PRVL -MSG",CNT) =""
  172    S XMTEXT= "^TMP($J," "PRE_PRVL- MSG"","
  173    S XMDUZ=. 5
  174    S XMY(DUZ )=""
  175    S XMY("
P II                ")=""
  176    S XMSUB=" PRE-PRVL L ISTING COM PLETED" D  ^XMD
  177    Q
  178   PRLST ;PRE -PRVL LIST ING ON FS3 BIG
  179    N CTR,SRV CD,SIVAL,P RVARY
  180    ;DEV01289 3-08 YJK M ar 2014
  181    ;S CHIO=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. PRVL_FEE." _ENVIR_"]" _FNAME
  182    ;O CHIO:" NWS":2
  183    ;I $T=1 U  CHIO
  184    N FOLDER, CNTR
  185    S FOLDER= "",DIR=""
  186    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  187    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  188    X "D $SYS TEM.Proces s.SetZEOF( 1)"               ;DE V012893-08  YJK Aug 2 015
  189    S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_FNAM E
  190    I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FNAME
  191    S POP=0 
  192    S POP='$$ OPENFIWR^C HTFLIB9(.F ILE,"FILE" )
  193    I POP U F ILE
  194    W "PRE-PR EVAILING L ISTING OF  OUTPATIENT  CODES FOR  ",DSPLYYR
  195    W !,"Line ",?10,"Cod e"
  196    S CTR=0 F   S CTR=$O (^CHMZHOLD ("PRE_PRVL ",CHMDD,CT R)) Q:'CTR   D
  197    .S SIVAL= "",SIVAL=$ P(^CHMZHOL D("PRE_PRV L",CHMDD,C TR,0),"^", 1)
  198    .S SRVCD= "",SRVCD=$ P(^CHMSERV (SIVAL,0), "^",1)
  199    .S PRVARY (SRVCD)=""
  200    S PRVCD=" " F  S PRV CD=$O(PRVA RY(PRVCD))  Q:PRVCD=" "  D
  201    .U FILE W  !,$I(CTR) ,?10,PRVCD
  202    ;C CHIO
  203    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  204    X "D $SYS TEM.Proces s.SetZEOF( 0)"         ;DEV01289 3-08 YJK A ug 2015
  205    S FOLDER= "/FS3BIG/C ODEUPDT/PR VL_FEE/"_E NVIR
  206    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FOLDER," PUT")
  207    Q
  208