105. EPMO Open Source Coordination Office Redaction File Detail Report

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

105.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMFMPRP.m Mon Nov 5 16:39:34 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMFMPRP.m Mon Nov 5 17:46:10 2018 UTC

105.2 Comparison summary

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

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

105.4 Active regular expressions

No regular expressions were active.

105.5 Comparison detail

  1   CHMFMPRP ; HAC/JPN FM P PROGRAM  MANAGER RE PORT ;04/1 8/2008  09 :10 AM
  2    ;V1 
  3    ;
  4    ;CR DEV00 2556-02
  5    ;ROUTINE  CREATED FO R FMP PROG RAM MANAGE R
  6    ;ISSUE DE SCRIPTION  - FOR FMP  - I NEED A  LIST OF N AMES AND A DRESSES FO R BOTH VET ERANS AND
  7    ;      PR OVIDERS WH O HAVE SUB MITTED A C LAIM FOR P AYMENT UND ER FMP FOR  THE PAST  12 MONTHS
  8     S U="^"
  9   DATE ; LET S THE USER  INPUT A D ATE RANGE
  10    D NOW^%DT C
  11    S DIR(0)= "D" S DIR( "A")="FROM  TODAY, EN TER DAYS B ACK TO STA RT REPORT  IN MMDDYY  FORMAT " D  ^DIR S CH BDT=Y W !
  12    I CHBDT=" ^" S QFLG= 1 Q
  13    S BDT=Y(0 )
  14    S DIR(0)= "D" S DIR( "A")="FROM  "_Y(0)_"  ENTER DAYS  FORWARD D O YOU WANT  TO RUN IN  MMDDYY FO RMAT " D ^ DIR S CHED T=Y
  15    I CHEDT=" ^" S QFLG= 1 Q
  16    S EDT=Y(0 )
  17    I CHEDT<C HBDT W !!, " The end  date must  not be pri or to the  begin date . Please r eenter.",!  G DATE
  18   START ;;ST ARTING POI NT
  19    K ^CHMZHO LD("FMP")
  20    ;D NOW^%D TC S X1=X, X2=-365
  21    ;D C^%DTC
  22    S (CHFMPC L,CHFMP0,C HFMPJ,CHFM P100,CHFMP DT,CHMAHC) =""
  23    F  S CHFM PCL=$O(^CH FMPCL(CHFM PCL)) Q:CH FMPCL=""   D
  24    . S CHFMP 0=$G(^CHFM PCL(CHFMPC L,0))
  25    . F  S CH FMPJ=$O(^C HFMPCL(CHF MPCL,100,C HFMPJ)) Q: CHFMPJ=""   D
  26    .. S CHFM P100=$G(^C HFMPCL(CHF MPCL,100,C HFMPJ,0))
  27    .. S CHFM PDT=$P(CHF MP100,"^", 7)
  28    .. I CHFM PDT<CHBDT  Q
  29    .. I CHFM PDT>CHEDT  Q
  30    .. S CHMA HC=$P(CHFM P0,"^",2)
  31    .. D GETI NFO
  32    D OUTPUT
  33    D CLEANUP
  34    Q
  35   CLEANUP ;K ILLS ALL T HE LOCAL V ARIABLES
  36    K CHFMPCL ,CHFMP0,CH FMPJ,CHFMP 100,CHFMPD T,CHMAHC
  37    K CHNAME, CHADD1,CHA DD2,CHCITY ,CHST,CHZI P,CHAHCJ,C HADD,CHAHC 1
  38    K CHMAHC, DATA,NAME, ADD1,ADD2, CITY,ST,ZI P,DATE
  39    Q
  40    ;
  41   GETINFO ;  COLLECTS T HE ADDRESS  INFORMATI ON FOR TEH  REQUEST 
  42    S (CHNAME ,CHADD1,CH ADD2,CHCIT Y,CHST,CHZ IP,CHAHCJ, CHADD,CHAH C1)=""
  43    F  S CHAH CJ=$O(^AHC HVA(CHMAHC ,100,CHAHC J)) Q:CHAH CJ=""  D
  44    . I $D(^A HCHVA(CHMA HC,11))=0  S CHADD=CH MAHC_"^"_" NO ADDRESS " D SAVE Q
  45    . S CHAHC 1=$G(^AHCH VA(CHMAHC, 11))
  46    . S CHNAM E=$P(^AHCH VA(CHMAHC, 0),"^",1)
  47    . S CHADD 1=$P(CHAHC 1,"^",1)
  48    . S CHADD 2=$P(CHAHC 1,"^",2)
  49    . S CHCIT Y=$P(CHAHC 1,"^",3)
  50    . S CHST= $P(CHAHC1, "^",4)
  51    . I CHST= "" D
  52    .. S CHST =$P(CHAHC1 ,"^",6)
  53    . S CHST= $P(^DIC(5, CHST,0),"^ ",1)
  54    . S CHZIP =$P(CHAHC1 ,"^",5)
  55    . I CHZIP ="" S CHZI P="NO ZIP"
  56    . S CHADD =CHNAME_"^ "_CHADD1_" ^"_CHADD2_ "^"_CHCITY _"^"_CHST_ "^"_CHZIP
  57    . D SAVE
  58    Q
  59    ;
  60   SAVE ;SAVE S THE INFO RAMTION IN TO A STORA GE GLOBAL
  61    S ^CHMZHO LD("FMP",C HMAHC)=CHA DD
  62    Q
  63   OUTPUT  ;W RITES THE  INFORMATIO N TO A FIL E ON FS3BI G
  64    D NOW^%DT C S DATE=$ E(X,2,7)
  65    S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]FMP_PROGR AM_REPORT_ "_DATE_".T XT"
  66    O FIO C F IO:"D"
  67    O FIO:"NW S"
  68    ;D HEADER
  69    S CHMAHC= "",DATA=""
  70    F  S CHMA HC=$O(^CHM ZHOLD("FMP ",CHMAHC))  Q:CHMAHC= ""  D
  71    . S (NAME ,ADD1,ADD2 ,CITY,ST,Z IP)=""
  72    . S DATA= $G(^CHMZHO LD("FMP",C HMAHC))
  73    . S NAME= $P(DATA,"^ ",1) S NAM E=$P(NAME, ",",2)_" " _$P(NAME," ,",1)
  74    . S ADD1= $P(DATA,"^ ",2),ADD2= $P(DATA,"^ ",3)
  75    . S CITY= $P(DATA,"^ ",4),ST=$P (DATA,"^", 5),ZIP=$P( DATA,"^",6 )
  76    . U FIO W  !,NAME,$C (9),ADD1,$ C(9),ADD2, $C(9),CITY ,$C(9),ST, $C(9),ZIP
  77    C FIO
  78    Q
  79   HEADER ;WR ITES OUT A  HEADER LI NE OF INFO RMATION
  80    U FIO W ! ,"Name",?3 0,"Address  Line 1",? 55,"Addres s Line 2", ?80,"City" ,?98,"Stat e",?119,"Z ip"
  81    U FIO W ! !,"------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -"
  82    Q
  83    
  84    
  85    
  86    
  87    
  88