56. EPMO Open Source Coordination Office Redaction File Detail Report

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

56.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIDMERT.m Mon Nov 5 16:38:52 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIDMERT.m Fri Nov 9 01:23:13 2018 UTC

56.2 Comparison summary

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

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

56.4 Active regular expressions

No regular expressions were active.

56.5 Comparison detail

  1   CHIDMERT ; HAC/TLH;ID ME FILE RE AD; 06-15- 2001;
  2    ;
  3    ;S $ZE="" ,$ZT="END^ ZAEBFT1",T =$C(9)
  4    ;VARIABLE  LIST 
  5    ;CHBDATE. ..Start da te for rep ort 
  6    ;CHEDATE. ..End date  for repor t
  7    ;CHIFIO.. .File name  for incom ing file
  8    ;CHOFIO.. .File name  for outgo ing file 
  9    ;REC....I DMEProvide rs file 
  10    ;CHVTAX.. ..Vendor T ax ID 
  11    ;CHVENPT. ..Vendor P ointer num ber 
  12    ;CHCLMPT. ..Claim po inter numb er 
  13    ;CHTOS... .Type of s ervice 
  14    ;CHIDME.. .IDME Calc ulation nu mber 
  15    ;TMPI.... .Temporary  I value 
  16    ;CHVENNAM ....Vendor  Name
  17    ;CHDRGAMT ...Base DR G Amount
  18    ;CHNDRGAM T....New D RG Amount
  19    ;CHPERCNT ....Percen t differen ce from Ba se DRG to  New DRG
  20    ;CHDIFF.. ...Differe nce betwee n Base DRG  and New D RG
  21    ;CHCLNUM. ...Claim N umber
  22    ;CHDATE.. ..Claim Co mpletion d ate 
  23    ;CHSTAT.. ..Claim st atus  
  24    ;
  25   A11 S CHIF IO=""
  26    W !,"Ente r the file name+exten sion: "  D  CSBRS^CHS C2
  27    ;This wil l read the  file that  P&C set u p for the  IDME calcu lation fac tors for s pecified v endors.
  28    Q:$D(DFOU T)  Q:$D(D UOUT)  I $ D(DQOUT) D   G A11
  29    .W !,"Ent er the fil ename with  it's exte nsion (tes t.txt)"
  30    .Q
  31    Q:Y=""
  32    S CHIFIO= Y
  33   S1 ;ENTER  START DATE  PARAMITER S FOR REPO RT
  34    W !!,"Ent er the sta rt date fo r this rep ort: " D C SBRS^CHSC2
  35    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the firs t date for  report."  G S1
  36    Q:$D(DUOU T)  Q:$D(D FOUT)
  37    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 1
  38    S CHBDATE =Y
  39   S2 ;ENTER  END DATE P ARAMITERS  FOR REPORT  
  40    W !!,"Ent er the end  date for  this repor t:  " D CS BRS^CHSC2
  41    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the end  date for r eport." G  S2
  42    G:$D(DUOU T) S2  Q:$ D(DFOUT)
  43    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 2
  44    S CHEDATE =Y
  45    S CHOFIO= ""
  46    S ZTRTN=" Q",ZTDESC= "CREATE CO UNTS BY ZI P CODE FIL E"
  47    S ZTIO="P RT^CHIDMER T",ZTSAVE( "CHIFIO")= "",ZTSAVE( "CHBDATE") ="",ZTSAVE ("CHEDATE" )=""
  48    ;D ^%ZTLO AD
  49    ;W !!,"Yo ur task nu mber is ", ZTSK
  50    D PRT^CHI DMERT
  51    Q
  52   PRT ;Print ing of IDM E COMPARIS ON REPORT
  53    S $ZE="", $ZT="END^C HIDMERT"
  54    I '$D(DT)  D NOW^%DT C S DT=X
  55    D ARRY^CH FCD001
  56   A1 S IFIO= "HACFS3"" DNS      Welcome1!" "::D:[FS3B IG]"_CHIFI O
  57    O IFIO:"R "
  58    S CHOFIO= "IDME"_$P( CHIFIO,"." ,1)
  59    S OFIO="H ACFS3"" DNS      Welcome1!" "::D:[FS3B IG]"_CHOFI O_".TXT"
  60    O OFIO:"N WS"
  61    D HEAD
  62   A2 U IFIO  R REC
  63    S CHVTAX= $P(REC,T,1 )
  64    S CHVENPT =0
  65   A3 S CHVEN PT=$O(^CHM VEN("D",CH VTAX,CHVEN PT)) G:'CH VENPT A2
  66    I $P(^CHM VEN(CHVENP T,0),"^",2 3)'="  " G  A3  ;SKIP  IF NOT BA SE TAX ID
  67    I $P(^CHM VEN(CHVENP T,14),"^", 1)'="  " G  A3  ;SKIP  IF NOT 2  SPACES
  68    S GLP=""
  69   A4 S GLP=$ O(CHPGARY( GLP)) G:GL P="" A3
  70    S GLPAY=" ^"_GLP
  71    S CHCLMPT =0
  72   A5 S CHCLM PT=$O(@(GL PAY_"""AD" ",CHVENPT, CHCLMPT)") ) G:'CHCLM PT A4
  73    G:'$D(@(G LPAY_"CHCL MPT,0)"))  A5
  74    S CHTOS=$ P(@(GLPAY_ "CHCLMPT,0 )"),"^",7)
  75    G:CHTOS'= 1 A5
  76    G:'$D(@(G LPAY_"CHCL MPT,""COMM ON"")")) A 5
  77    S CHIDME= $P(REC,T,1 9)
  78    D DRGCALC
  79    G A5
  80   DRGCALC ;T his will u se the DRG  calculati on and the n factor i n the IDME  factors t o calculat e the new  DRG amount  for certa in teachin g hospital s.
  81    S CHVENAM ="",CHDRGA MT=0,CHNDR GAMT=0,CHC LNUM=""
  82    S CHVENAM =$P(^CHMVE N(CHVENPT, 0),"^",1)
  83    S TMPI=CH CLMPT
  84    S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1)  Q:CHCLNUM= ""
  85    S CHDRGAM T=+$P(@(GL PAY_"TMPI, ""COMMON"" )"),"^",7)
  86    S CHNDRGA MT=(CHDRGA MT*CHIDME) +CHDRGAMT
  87    S CHDIFF= CHNDRGAMT- CHDRGAMT
  88    S:CHDRGAM T=0 CHDRGA MT=1
  89    S CHPERCN T=CHDIFF/C HDRGAMT
  90    S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1)
  91    S CHDATE= $P(@(GLPAY _"TMPI,0)" ),"^",10)
  92    S CHSTAT= $P(@(GLPAY _"TMPI,0)" ),"^",2) I  CHSTAT'=4  Q
  93    I (CHDATE <CHBDATE)! (CHDATE>CH EDATE) Q
  94    U OFIO W  !,CHCLNUM_ T_CHVTAX_T _CHVENAM_T _$J($FN(CH DRGAMT,"," ,2),10)_T_ CHIDME_T_$ J($FN(CHND RGAMT,",", 2),10)_T_$ J($FN(CHDI FF,",",2), 10)_T_CHPE RCNT
  95    Q
  96   HEAD S TIT LE="HEALTH  ADMINISTR ATION CENT ER"
  97    S TAB=(80 -$L(TITLE) )/2
  98    U OFIO W  DUZ_T_TITL E
  99    S TITLE=" IDME COMPA RISION REP ORT"
  100    S TAB=(80 -$L(TITLE) )/2
  101    U OFIO W  !,$$FMTE^X LFDT(DT,"5 D")_T_TITL E,!
  102   HDRS U OFI O W !,"CLA IM #"_T_"B ASE-9 TIN" _T_"PROVID ER NAME"_T _"FULL DRG  AMT"_T_"I DME FACTOR "_T_"NEW D RG AMT"_T_ "DIFFERNCE "_T_"PERCE NT DIFF"
  103    Q
  104   END C IFIO  C OFIO
  105    K REC,CHV TAX,CHVENP T,CHCLMPT, CHTOS,CHID ME,TMPI,CH VENNAM,CHD RGAMT
  106    K CHNDRGA MT,CHCLNUM ,CHPERCNT, CHDIFF,CHD ATE,CHSTAT ,STDATE,ED DATE
  107    Q