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

55.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIDMEPT.m Mon Nov 5 16:40:08 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIDMEPT.m Fri Nov 9 01:22:51 2018 UTC

55.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 194
Changed 1 2
Inserted 0 0
Removed 0 0

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

55.4 Active regular expressions

No regular expressions were active.

55.5 Comparison detail

  1   CHIDMEPT ; HAC/TLH;ID ME FILE RE AD; 12/09/ 04;
  2    ;
  3    ;S $ZE="" ,$ZT="END^ CHIDMEPT"
  4    ;VARIABLE  LIST 
  5    ;CHBDATE. ..Start da te for rep ort 
  6    ;CHEDATE. ..End date  for repor t
  7    ;CHDATE.. ..Claim co mpletion d ate
  8    ;CHDISDT. ..Discharg e Date 
  9    ;CHVTAX.. ..Vendor T ax ID 
  10    ;CHVNAM.. ..Vendor N ame 
  11    ;CHCLMPT. ..Claim po inter 
  12    ;CHTOS... .Type of s ervice  
  13    ;TMPI.... .Temporary  I value 
  14    ;CHVENNAM ....Vendor  Name
  15    ;CHAMTPD. ..Amount P aid
  16    ;CHDRGNM. ..DRG Numb er
  17    ;CHCLNUM. ...Claim N umber
  18    ;CHBNAM.. ...Bene na me
  19    ;CHBNUM.. ...Bene nu mber
  20    ;CHPGPT.. ...Program  Indicator
  21    ;CHPGNAM. ...Program  Name 
  22    ;
  23   A11 S FIO= "HACFS3"" DNS       Welcome1!" "::D:[FS3B IG]CVA_RET ORPT.DAT"
  24    ;S FIO="H AC_HFS$:[D SMMANAG]CV A_RETRORPT .DAT"
  25    O FIO:"NW S"
  26    S T=$C(9)
  27   S1 ;ENTER  START DATE  PARAMITER S FOR REPO RT
  28    W !!,"Ent er the sta rt date fo r this rep ort: " D C SBRS^CHSC2
  29    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the firs t date for  report."  G S1
  30    Q:$D(DUOU T)  Q:$D(D FOUT)
  31    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 1
  32    S CHBDATE =Y
  33   S2 ;ENTER  END DATE P ARAMITERS  FOR REPORT  
  34    W !!,"Ent er the end  date for  this repor t:  " D CS BRS^CHSC2
  35    Q:Y=""  I  $D(DQOUT)  W !,"Ente r the end  date for r eport." G  S2
  36    G:$D(DUOU T) S2  Q:$ D(DFOUT)
  37    S X=Y,%DT ="EPX" D ^ %DT I Y=-1  K %DT G S 2
  38    S CHEDATE =Y
  39    S ZTRTN=" Q",ZTDESC= "CREATE A  REPORT OF  CLAIMS PAI D"
  40    S ZTIO="P RT^CHIDMEP T",ZTSAVE( "CHIFIO")= "",ZTSAVE( "CHBDATE") ="",ZTSAVE ("CHEDATE" )=""
  41    D ^%ZTLOA D
  42    W !!,"You r task num ber is ",Z TSK
  43    D PRT^CHI DMEPT
  44    Q
  45   PRT ;Print ing of RET OACTIVE CL AIM REVIEW  REPORT
  46    ;S $ZE="" ,$ZT="END^ CHIDMEPT"
  47    I '$D(DT)  D NOW^%DT C S DT=X
  48    D HEAD
  49    S CHCLMPT =25000000, CHPGPT="", CHPGNAM="" ,CNT=0
  50   A1 S CHCLM PT=$O(^CHM INDEX(CHCL MPT)) G:'C HCLMPT END
  51    S X1=CHCL MPT
  52    D PROGTYP ^CHFCD001
  53    S CHPGNAM =$P(^CHMDI C(741002.9 4,CHPGPT,0 ),"^",5)
  54    G:'$D(@(G LPAY_"CHCL MPT,0)"))  A1
  55    S CHTOS=" ",CHVENPT= "",CHVTAX= "" 
  56    S CHTOS=$ P(@(GLPAY_ "CHCLMPT,0 )"),"^",7)
  57    G:CHTOS'= 1 A1
  58    G:'$D(@(G LPAY_"CHCL MPT,""COMM ON"")")) A 1
  59    S CHVENPT =$P(@(GLPA Y_"CHCLMPT ,0)"),"^", 3) G:CHVEN PT="" A1
  60    I '$D(^CH MVEN(CHVEN PT,0)) G A 1
  61    S CHVTAX= $P(^CHMVEN (CHVENPT,0 ),"^",3)
  62    G:'$D(@(G LPAY_"CHCL MPT,1)"))  A1
  63    S CHAMTPD =+$P(@(GLP AY_"CHCLMP T,1)"),"^" ,1) I CHAM TPD=0 G A1
  64    D RPT
  65    G A1
  66   RPT ;Upon  getting cl aims that  are inpati ent pull v endor name , claim nu mber, DOS,  DRG Amoun t Bene nam e and BFN.
  67    S CHVENAM ="",CHDRGN UM="",CHCL NUM="",CHD FN="",CHBN AM="",CHBN UM="",CHDI SDT=""
  68    S CHVENAM =$P(^CHMVE N(CHVENPT, 0),"^",1)
  69    S TMPI=CH CLMPT
  70    S CHCLNUM =$P(@(GLPA Y_"TMPI,0) "),"^",1)  Q:CHCLNUM= ""
  71    S CHCLNUM =CHPGNAM_C HCLNUM
  72    I '$D(@(G LPAY_"TMPI ,""INP"")" )) Q 
  73    S CHDISDT =$P(@(GLPA Y_"TMPI,"" INP"")")," ^",1)
  74    S CHDRGNU M=$P(@(GLP AY_"TMPI," "COMMON"") "),"^",8)
  75    I '$D(@(G LPAY_"TMPI ,""COMMON" ")")) Q
  76    I CHDRGNU M'?3N Q
  77    S CHBNUM= $P(@(GLPAY _"TMPI,0)" ),"^",22)
  78    S CHDFN=$ P(@(GLPAY_ "TMPI,0)") ,"^",21)
  79    Q:'$D(^AH CHVA(CHDFN ,100,CHBNU M,0))
  80    S CHBNAM= $P(^AHCHVA (CHDFN,100 ,CHBNUM,0) ,"^",1)
  81    ;S CHDATE =$P(@(GLPA Y_"TMPI,0) "),"^",10)
  82    I (CHDISD T<CHBDATE) !(CHDISDT> CHEDATE) Q
  83    U FIO W ! ,CHCLNUM_T _CHVTAX_T_ CHVENAM_T_ $$FMTE^XLF DT(CHDISDT ,"5D")_T_C HDRGNUM_T_ $J($FN(CHA MTPD,",",2 ),10)_T_CH BNAM_T_CHB NUM
  84    S CNT=CNT +1
  85    Q
  86   HEAD S TIT LE="HEALTH  ADMINISTR ATION CENT ER"
  87    S TAB=(80 -$L(TITLE) )/2
  88    U FIO W D UZ_T_TITLE
  89    S TITLE=" RETROACTIV E CLAIMS R EPORT"
  90    S TAB=(80 -$L(TITLE) )/2
  91    U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_T_TITLE ,!
  92   HDRS U FIO  W !,"CLAI M #"_T_"PR OVIDER TIN "_T_"PROVI DER NAME"_ T_"DISCHAR GE DATE"_T _"DRG NUMB ER"_T_"AMO UNT PAID"_ T_"BENE NA ME"_T_"BEN E ID #"
  93    Q
  94   END U FIO  W !,"TOTAL  # OF CLAI MS "_CNT
  95    C FIO
  96    K CHVTAX, CHVENPT,CH CLMPT,CHTO S,TMPI,CHV ENNAM,CHDR GAMT,CHCLN UM
  97    K STDATE, EDDATE,CHD ISDT,CHBNA M,CHBNUM
  98    Q