236. EPMO Open Source Coordination Office Redaction File Detail Report

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

236.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVOIS.m Mon Nov 5 16:43:31 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMVOIS.m Mon Nov 5 17:51:57 2018 UTC

236.2 Comparison summary

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

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

236.4 Active regular expressions

No regular expressions were active.

236.5 Comparison detail

  1   CHMVOIS ;H AC/JPN AUT OMATED PRO CESS FOR V OIS REPORT ;03/27/200 8  09:10 A M
  2    ;V1 12/03 /2007
  3    ;ROUTINE  CREATED TO  PRINT A L IST OF BEN EFICIARIES  IN THE DA TABASE THA T HAVE VOI S
  4    ;UPDATED  WITH MEDIC ARE INFORA MTION AND  APP IN NUL L IN THE M EDICARE FI ELD
  5    ;THE REPO RT IS TO L IST THE BE NEFICIARY  NAME AND S SN
  6    S U="^"
  7    K ^CHMZHO LD("MDCARE ")
  8   START ;;ST ARTING POI NT WILL se nd the rep ort out to  fs3big
  9    D RRCHK
  10    D OUTPUT
  11    Q
  12    ;
  13   END K
  14    Q
  15    ;
  16   RRCHK ;
  17    S CHMOHI= "",CHMDFN= "",CHMBFN= 0,CHM100=" ",CHMK="", CHMBPT=0
  18    ;S CHMDFN =129593
  19    W !!,"Gat hering dat a, please  wait:"
  20    ;F  S CHM DFN=$O(^CH MDFN(CHMDF N)) Q:CHMD FN=129595   D
  21    F  S CHMD FN=$O(^CHM DFN(CHMDFN )) Q:CHMDF N=""  D
  22    . F  S CH MBFN=$O(^C HMDFN(CHMD FN,100,"B" ,CHMBFN))  Q:CHMBFN=" "  D
  23    .. S CHMB PT=9999
  24    .. S CHMB PT=$O(^CHM DFN(CHMDFN ,100,"B",C HMBFN,CHMB PT),-1)
  25    .. Q:CHMB FN=0
  26    .. S CHMK =9999999
  27    .. S CHMK =$O(^CHMDF N(CHMDFN,1 00,CHMBPT, 2,CHMK),-1 )
  28    .. Q:'$D( ^CHMDFN(CH MDFN,100,C HMBPT,2))
  29    .. S CHM1 00=$G(^CHM DFN(CHMDFN ,100,CHMBP T,2,CHMK,0 ))
  30    .. S CHMO HI=$P(CHM1 00,"^",3)
  31    .. I CHMO HI="" Q
  32    .. S CHMO HI=$P(^CHM DIC(741002 .76,CHMOHI ,0),"^",1)
  33    .. Q:CHMO HI'["Med"     ;ADDED  5/14/08  F OR BUG TO  ONLY GET M EDICARE
  34    .. S (AHA DFN,CHMSTA T)=""
  35    .. S AHAD FN=$P(^CHM DFN(CHMDFN ,0),"^",1)
  36    .. Q:AHAD FN=""
  37    .. S AHAB FN=""
  38    .. F  S A HABFN=$O(^ AHCHVA(AHA DFN,100,AH ABFN)) Q:A HABFN=""   D
  39    ... Q:AHA BFN'=CHMBF N
  40    ... S AHA 100=$G(^AH CHVA(AHADF N,100,AHAB FN,0))
  41    ... S MDC ARE=$P(AHA 100,"^",32 )
  42    ... I MDC ARE=1 S MD CARE="Med  A"
  43    ... I MDC ARE=3 S MD CARE="Med  B"
  44    ... I MDC ARE=2 S MD CARE="Medi care A&B"
  45    ... I MDC ARE="" S M DCARE="NOT  ENTERED"
  46    ... Q:MDC ARE["Med"
  47    ... I MDC ARE=0 S MD CARE="NO"
  48    ... S CHM STAT=$P(AH A100,"^",5 )
  49    ... ;I MD CARE=""  D
  50    ... I MDC ARE'=CHMOH I  D
  51    .... D GE TNAM
  52    .... Q:NA ME=""
  53    .... Q:SS N=""
  54    .... S ^C HMZHOLD("M DCARE",AHA DFN)=NAME_ "^"_SSN_"^ "_CHMOHI_" ^"_CHMSTAT _"^"_REASO N_"^"_MDCA RE
  55    Q
  56   GETNAM ;GE TS THE BEN E NAME AND  SSN
  57    S NAME="" ,SSN="",RE A="",REAS= "",REASON= ""
  58    S NAME=$P (AHA100,"^ ",1)
  59    S SSN=$P( AHA100,"^" ,9)
  60    S REA=$P( AHA100,"^" ,12)
  61    I REA'=""   D
  62    . Q:'$D(^ AHADIC(554 801.7,"B", REA))
  63    . S REAS= $O(^AHADIC (554801.7, "B",REA,RE AS))
  64    . S REASO N=$P(^AHAD IC(554801. 7,REAS,0), "^",2)
  65    Q
  66   OUTPUT ;WR ITES OUT T O SCREEN
  67    S AHADFN= "",DATA="" ,CNT=0
  68    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]CHMVOIS.T XT"
  69    O FIO:"NW S" ;APPEND S TO FILE 
  70    U FIO W !
  71    D HEADER
  72    F  S AHAD FN=$O(^CHM ZHOLD("MDC ARE",AHADF N)) Q:AHAD FN=""  D
  73    . S DATA= $G(^CHMZHO LD("MDCARE ",AHADFN))
  74    . S NAME= "",SSN="", STATUS=""
  75    . S NAME= $P(DATA,"^ ",1),SSN=$ P(DATA,"^" ,2),CHMOHI =$P(DATA," ^",3),STAT US=$P(DATA ,"^",4),RE ASON=$P(DA TA,"^",5), MDCARE=$P( DATA,"^",6 )
  76    . W !,NAM E,?27,SSN, ?40,CHMOHI ,?55,STATU S,?63,REAS ON,?95,MDC ARE
  77    . S CNT=C NT+1
  78    W !!!,"To tal Benefi ciary = ", CNT
  79    C FIO
  80    Q
  81   HEADER ;WR ITES THE H EADER OUT
  82    S BNAME=" Beneficiar y Name",BS SN="Bene S SN"
  83    W !,BNAME ,?27,BSSN, ?40,"VOIS" ,?55,"STAT US",?63,"R EASON",?95 ,"MDCARE"
  84    W !,"---- ---------- ---------- ------",?3 0,"------- --------", ?42,"----- ---------- ----",?60, "--------- ---------- ",?68,"--- ---------- -----",?95 ,"-------- ----",!
  85    Q
  86    
  87    
  88