277. EPMO Open Source Coordination Office Redaction File Detail Report

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

277.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSPNRPT.m Mon Nov 5 16:39:42 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHSPNRPT.m Mon Nov 5 17:55:33 2018 UTC

277.2 Comparison summary

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

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

277.4 Active regular expressions

No regular expressions were active.

277.5 Comparison detail

  1   CHSPNRPT ;  RFE ;12/2 6/17
  2    ;;1.0;CHA MPVA SYSTE M;; 26 DEC  2017;
  3    ; VADIR/C BOPC file  exchange,  cloned fro m ZZSBBUTL 1
  4    ;;
  5    Q
  6    ;;
  7   MAIN ;
  8    I '$G(DUZ ) S DUZ=1
  9    S MMYY="I NITIAL"
  10    S CHFIO=" ",ZTDTH=$H
  11    S ZTRTN=" GETSPONS^C HSPNRPT",Z TDESC="VAD IR/CBOPC f ile exchan ge"
  12    S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("MM YY")=""
  13    D ^%ZTLOA D
  14    Q
  15    ;
  16   GETSPONS ;
  17    ;
  18    ;set MMYY .
  19    N MAXCNT, YY
  20    S MAXCNT= 500
  21    D NOW^%DT C
  22    S MMYY=$E (X,4,5)_$E (X,2,3),YY =$E(X,1,3)
  23    S CURYRBG =YY_"0000"
  24    S CURYRBG =+CURYRBG
  25    S U="^",C NT=0
  26       S FOLD ER="hac_hf s$:[scr.te mp_files]"   
  27    S FILENM= "SPONFILE_ "_MMYY_".D AT"
  28    S FLDR="/ FS3BIG/"
  29    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  30    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  31    ;S FILE=" DISK$SCRAT CH:[TEMP_F ILES]"_FIL ENM
  32    S FILE=FO LDER_FILEN M
  33    I UCI'="H AC" S FILE ="DHCP$CHA MPVA:"_$P( FILENM,"." )_UCI_"."_ $P(FILENM, ".",2)
  34    O FILE:"N WS":2
  35    E  U 0 W  !,"Can't o pen" Q
  36    ;I '$$OPE NFIWR^CHTF LIB9(.FILE ,"FILE") Q  
  37    ;
  38    ;for max  count
  39    ;S DFN=0        F  S  DFN=$O(^A HCHVA(DFN) ) Q:('DFN) !(CNT=MAXC NT)  D  
  40    ;for all  RET/RES on  file.
  41    S DFN=0         F  S  DFN=$O(^A HCHVA(DFN) ) Q:('DFN)   D  
  42    . Q:'$D(^ AHCHVA(DFN ,0))              ;Qu it if no 0  node
  43    . Q:($P(^ AHCHVA(DFN ,0),U,5)'= "E")   ;Qu it for non  eligible  sponsors
  44    . ;Q:($P( ^AHCHVA(DF N,0),U,25) '=1)    ;Q uit for no n RET/RES  sponsors
  45    . I $D(^A HCHVA(X,15 )),$P(^AHC HVA(X,15), U) Q    ;Q uit for Sp ina Bifida  sponsors
  46    . S (SNAM E,SLNAME,S FNAME,SSSN ,SDOB,ERR) =""
  47    . S RES=$ $GETVALS(. SNAME,.SSS N,.SDOB)
  48    . Q:'RES
  49    . S SLNAM E=$P(SNAME ,",")
  50    . S SFNAM E=$P(SNAME ,",",2)
  51    . U FILE  W SFNAME_" |"_SLNAME_ "|"_SSSN_" |"_SDOB
  52    . U FILE  W !
  53    . S CNT=C NT+1
  54    . Q
  55    ;
  56    /*
  57    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  58    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ","FS3BIG" ,"PUT")
  59    */
  60    C FILE
  61         D FTPFILE^ CHTFLIB9(F ILE," DNS     fs3. DNS             ",FLDR,"PU T")
  62    W !,"Tota l Records  Found : ", CNT
  63    I UCI="HA C" D EMAIL
  64    Q
  65    ;
  66   GETVALS(SN AME,SSSN,S DOB) ;
  67    N RESULT
  68    S RESULT= 0
  69    S RESULT= $$SPONELIG ()
  70    ;
  71    I RESULT  S RESULT=0  D  
  72    . S SNAME =$P(^AHCHV A(DFN,0),U ) Q:SNAME= ""
  73    . ;
  74    . S SSSN= $P(^AHCHVA (DFN,0),U, 9)
  75    . S SSSN= $$LTRIM^CH TFLIB(SSSN )
  76    . S SSSN= $$TRIM^CHT FLIB(SSSN)
  77    . I SSSN' ?9N S ^CHM ZHOLD("ZSP ONFILE","E XCEPTION", SNAME,"SSN ")="SSN =  "_SSSN S E RR=1
  78    . Q:ERR
  79    . ;
  80    . S SDOB= $P(^AHCHVA (DFN,0),U, 3)
  81    . I SDOB' ?7N S ^CHM ZHOLD("ZSP ONFILE","E XCEPTION", SNAME,"DOB ")="DOB =  "_SDOB S E RR=1
  82    . I SDOB= "" S ^CHMZ HOLD("ZSPO NFILE","EX CEPTION",S NAME,"DOB" )="DOB = " _SDOB S ER R=1
  83    . Q:ERR
  84    . S SDOB= $$FMTE^XLF DT(SDOB,"5 D")   ;m/d /yyyy form at
  85    . S SDOB= $$CONVDT5^ CHCMSFFI(S DOB)  ;mm/ dd/yyyy fo rmat
  86    . ;
  87    . S RESUL T=1
  88    . Q
  89    Q RESULT
  90    ;
  91   SPONELIG()  ;
  92    ;
  93    N RESULT, BFN,ELIG,B EBDATE,BEE DATE
  94    S (RESULT ,BFN)=0
  95    S (ELIG,B EBDATE,BEE DATE)=""
  96    ;
  97    F  S BFN= $O(^AHCHVA (DFN,100,B FN)) Q:('B FN)!RESULT   D  
  98    . Q:'$D(^ AHCHVA(DFN ,100,BFN,0 ))
  99    . Q:$P(^A HCHVA(DFN, 100,BFN,0) ,U,5)'="EA "
  100    . I ($P(^ AHCHVA(DFN ,100,BFN,0 ),U,11)<CU RYRBG) S R ESULT=1 Q
  101    . Q
  102    ;
  103    Q RESULT
  104    ;
  105   EMAIL ;
  106    Q:$$ENVIR ^CHTFLIB'= "LIVE"
  107    S SUBJECT ="VADIR/CB OPC Sponso r Report"
  108    K ZML
  109    S ZML(1)= "VADIR/CBO PC Sponsor  Report is  completed  on FS3BIG "
  110    S TEXT="Z ML("
  111    K LXMY
  112    S LXMY("G .PST")=""
  113    S LXMY("
P II                ")=""
  114    ;S LXMY(" PII                       ")=""
  115    ;S LXMY(6 98378)=""
  116    N DUZ
  117    D VMAIL(S UBJECT,TEX T,.LXMY)
  118    Q
  119   VMAIL(SUBJ ECT,TEXT,L XMY) ;
  120    ;  SUBJEC T              SUBJEC T LINE FOR  THE EMAIL
  121    ;  TEXT                  TEXT F OR THE EMA IL
  122    ;  LXMY                  TARGET ED RECIPIE NTS FOR TH E EMAIL
  123    N EMLID
  124    S U="^"
  125    S XMDUZ=. 5
  126    ; POSTMAN  DUZ
  127    S XMSUB=S UBJECT
  128    ;SUBJECT  LINE FOR E MAIL
  129    S XMTEXT= TEXT
  130    ;TEXT ARR AY FOR BOD Y OF EMAIL
  131    S EMLID=0
  132    F  S EMLI D=$O(LXMY( EMLID)) Q: EMLID=""   D
  133    . S XMY($ S(EMLID?1. N:$P(^VA(2 00,EMLID,0 ),"^",1),1 :EMLID))=" "
  134    D ^XMD
  135    ; SEND IT  OFF
  136    Q