20. EPMO Open Source Coordination Office Redaction File Detail Report

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

20.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGWLK1.m Mon Nov 5 16:45:00 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGWLK1.m Tue Nov 6 22:02:13 2018 UTC

20.2 Comparison summary

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

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

20.4 Active regular expressions

No regular expressions were active.

20.5 Comparison detail

  1   CHCGWLK1 ; AEB/CVA;CG  STIPEND L OOKUP FUNC TIONS;1/12 /2014  4:2 3 PM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil d 5
  3   PAY;
  4    S CHST=""  K ^TMP($J ,"CG-STIPE NDS"),^TMP ($J,"CG-RE SENDS")
  5   A1 S CHST= $O(^CHCGPA Y(741850.6 ,"D",CHST) ) G:'CHST  END
  6    S CGI=0
  7   A10 S CGI= $O(^CHCGPA Y(741850.6 ,"D",CHST, CGI)) G:'C GI A1
  8    I '$D(^CH CGPAY(7418 50.6,CGI,0 )) G A10
  9    S CGPREC0 =$G(^CHCGP AY(741850. 6,CGI,0))  G:CGPREC0= "" A10
  10    S CGVPT=$ P(CGPREC0, "^",5)  ;P OINTER TO  VETERAN
  11    G:CGVPT=" " A10
  12    S CGCPT=$ P(CGPREC0, "^",6)  ;P OINTER TO  CAREGIVER
  13    G:CGCPT=" " A10
  14    S CGBDAT= $P(CGPREC0 ,"^",9)  ; RANGE BEG  DATE
  15    G:CGBDAT= "" A10
  16    S CGEDAT= $P(CGPREC0 ,"^",10)   ;RANGE END  DATE
  17    G:CGEDAT= "" A10
  18    S CGSSN=$ P($G(^CHCG VETS(74185 0.7,CGVPT, 100,CGCPT, 0)),"^",4)  S:CGSSN=" " CGSSN="U NKNOWN" S  CGSSN="Z"_ CGSSN
  19    I '$D(^TM P($J,"CG-S TIPENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-STI PENDS",CGS SN,CGVPT,C GCPT,CGBDA T,CGEDAT)= CGI G A10
  20   T I $D(^TM P($J,"CG-S TIPENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) I $D(^T MP($J,"CG- RESENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-RES ENDS",CGSS N,CGVPT,CG CPT,CGBDAT ,CGEDAT)=^ TMP($J,"CG -RESENDS", CGSSN,CGVP T,CGCPT,CG BDAT,CGEDA T)_"^"_CGI
  21    I $D(^TMP ($J,"CG-ST IPENDS",CG SSN,CGVPT, CGCPT,CGBD AT,CGEDAT) ) I '$D(^T MP($J,"CG- RESENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-RES ENDS",CGSS N,CGVPT,CG CPT,CGBDAT ,CGEDAT)=^ TMP($J,"CG -STIPENDS" ,CGSSN,CGV PT,CGCPT,C GBDAT,CGED AT)_"^"_CG I
  22    G A10
  23   END ;
  24    K ^TMP($J ,"CG-STIPE NDS")
  25    ;D PRT
  26    Q
  27   PRT0 D PAY ^CHCGWLK1
  28    D HEAD
  29   PRT ;
  30    I '$D(^TM P($J,"CG-R ESENDS"))  D  Q
  31    .W !?20," No resent  stipends f ound"
  32    S TCGSSN= ""
  33   PR S TCGSS N=$O(^TMP( $J,"CG-RES ENDS",TCGS SN)) Q:TCG SSN=""
  34    S TVPT=0
  35   PR1 S TVPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT)) G :'TVPT PR
  36    S TCPT=0
  37   PR2 S TCPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT,TCP T)) G:'TCP T PR1
  38    S TBDAT=0
  39   PR3 S TBDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT))  G:'TBDAT  PR2
  40    S TEDAT=0
  41   PR4 S TEDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT)) G:' TEDAT PR3
  42    S ^CHMZHO LD("TONY") ="PRT4"
  43    S NPCE=$L (^TMP($J," CG-RESENDS ",TCGSSN,T VPT,TCPT,T BDAT,TEDAT ),"^")  ;S TORE THE N UMBER OF T IMES SENT
  44    F I=1:1:N PCE S PT(I )=$P(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT),"^", I)
  45    S CGNAME= $P(^CHCGVE TS(741850. 7,TVPT,100 ,TCPT,0)," ^",1)
  46    S CGSSN=$ P(^CHCGVET S(741850.7 ,TVPT,100, TCPT,0),"^ ",4)
  47    S CGAMT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",7)
  48    S CGBDAT= $$FMTE^XLF DT(TBDAT," 5D")
  49    S CGEDAT= $$FMTE^XLF DT(TEDAT," 5D")
  50    S CGPDT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",3)
  51    S CGPDT=$ $FMTE^XLFD T(CGPDT,"5 D")
  52    S CGSTAT= $P(^CHCGPA Y(741850.6 ,PT(1),0), "^",2)
  53    S CGST=$S (CGSTAT=0: "REJ",CGST AT=1:"INPR OGRESS",CG STAT=2:"PA Y REQ",CGS TAT=3:"COM PL",CGSTAT =4:"REWORK ",CGSTAT=5 :"RESEND", 1:"")
  54    W !,CGNAM E,?35,CGSS N
  55    W !,CGPDT ,?15,CGAMT ,?30,CGBDA T,?45,CGED AT,?60,CGS T
  56    F I=2:1:N PCE D
  57    .S CGAMT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",7)
  58    .S CGPDT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",3)
  59    .S CGPDT= $$FMTE^XLF DT(CGPDT," 5D")
  60    .S CGSTAT =$P(^CHCGP AY(741850. 6,PT(I),0) ,"^",2)
  61    .S CGST=$ S(CGSTAT=0 :"REJ",CGS TAT=1:"INP ROGRESS",C GSTAT=2:"P AY REQ",CG STAT=3:"CO MPL",CGSTA T=4:"REWOR K",CGSTAT= 5:"RESEND" ,1:"")
  62    .W !,CGPD T,?15,CGAM T,?30,CGBD AT,?45,CGE DAT,?60,CG ST
  63    W !
  64    G PR4
  65    Q
  66   PRT2 ;
  67    N IVALUE
  68    S TMPI=IN PUT
  69    ;S DUZ=%s ession.Dat a("CG","DU Z")
  70    D NOW^%DT C S RDT=%
  71    I INPUT=" F" D FILE  Q  ;PRINT  REPORT TO  FILE
  72    S IVALUE= 0 S IVALUE =$O(^%ZIS( 1,"B",INPU T,IVALUE))  I 'IVALUE  D  Q
  73    .W "Print er name no t valid"
  74    S ION=$P( $G(^%ZIS(1 ,IVALUE,0) ),"^",1)
  75    S ZTIO=IO N
  76    S ZTDTH=R DT
  77    S PFLG=""
  78    S ZTRTN=" PRT0^CHCGW LK1",ZTDES C="PRINT R ESENT STIP END PAYMEN TS"
  79    K ZTIO S  ZTSAVE("PF LG")=""    ;,ZTSAVE(D UZ)=""
  80    D ^%ZTLOA D
  81    W "Reques t queued."
  82    Q
  83   FILE;
  84    D PAY^CHC GWLK1
  85    Q:'$D(^TM P($J,"CG-R ESENDS"))
  86    D NOW^%DT C S TMPDT= % S T=$C(9 ) S CON(". ")="_" S T MPDT=$$REP LACE^XLFST R(%,.CON)
  87    S TMPIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]CGR ESENDS_"_T MPDT_".XLS "
  88    I '$$OPEN FIWR^CHTFL IB9(.TMPIO ,"FIO") W  !,"NOT OPE NED  ",TMP IO Q
  89    U TMPIO W  "Printed  on: ",$$FM TE^XLFDT(% ,"5D")
  90    S TCGSSN= ""
  91   FL S TCGSS N=$O(^TMP( $J,"CG-RES ENDS",TCGS SN)) G:TCG SSN="" FEN D
  92    S TVPT=0
  93   FL1 S TVPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT)) G :'TVPT FL
  94    S TCPT=0
  95   FL2 S TCPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT,TCP T)) G:'TCP T FL1
  96    S TBDAT=0
  97   FL3 S TBDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT))  G:'TBDAT  FL2
  98    S TEDAT=0
  99   FL4 S TEDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT)) G:' TEDAT FL3
  100    S NPCE=$L (^TMP($J," CG-RESENDS ",TCGSSN,T VPT,TCPT,T BDAT,TEDAT ),"^")  ;S TORE THE N UMBER OF T IMES SENT
  101    F I=1:1:N PCE S PT(I )=$P(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT),"^", I)
  102    S CGNAME= $P(^CHCGVE TS(741850. 7,TVPT,100 ,TCPT,0)," ^",1)
  103    S CGSSN=$ P(^CHCGVET S(741850.7 ,TVPT,100, TCPT,0),"^ ",4)
  104    S CGAMT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",7)
  105    S CGBDAT= $$FMTE^XLF DT(TBDAT," 5D")
  106    S CGEDAT= $$FMTE^XLF DT(TEDAT," 5D")
  107    S CGPDT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",3)
  108    S CGPDT=$ $FMTE^XLFD T(CGPDT,"5 D")
  109    S CGSTAT= $P(^CHCGPA Y(741850.6 ,PT(1),0), "^",2)
  110    U TMPIO W  !,CGNAME_ T_CGSSN
  111    F I=2:1:N PCE D
  112    .S CGAMT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",7)
  113    .S CGPDT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",3)
  114    .S CGPDT= $$FMTE^XLF DT(CGPDT," 5D")
  115    .S CGSTAT =$P(^CHCGP AY(741850. 6,PT(I),0) ,"^",2)
  116    .S CGST=$ S(CGSTAT=0 :"REJ",CGS TAT=1:"INP ROGRESS",C GSTAT=2:"P AY REQ",CG STAT=3:"CO MPL",CGSTA T=4:"REWOR K",CGSTAT= 5:"RESEND" ,1:"")
  117    .U TMPIO  W !,CGPDT_ T_CGAMT_T_ CGBDAT_T_C GEDAT_T_CG ST
  118    G FL4
  119   FEND ;
  120    D CLOSEF^ CHTFLIB9(T MPIO,"FIO" )
  121    D FTPFILE ^CHTFLIB9( TMPIO," DNS     . DNS             ","/FS3BIG /Caregiver _Reports", "PUT")
  122    Q
  123   HEAD ;
  124    W !,?20," CBOPC"
  125    W !,?10," List of Re sent Stipe nd Payment s"
  126    Q