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

16.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGDAT2.m Mon Nov 5 16:43:15 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCGDAT2.m Tue Nov 6 21:57:41 2018 UTC

16.2 Comparison summary

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

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  1   CHCGDAT2 ; HAC/AEB;MO VE VET/CG/ STIPEND ED IT HISTORY  DATA TO V MS FILES;9 -13-12
  2    ;;1.0
  3    ;;DEF0165 54, SBB, 1 1/25/13 -  Modified W riting to  a file as  per VHA st andard.
  4    ;;DEF0165 54, SBB, 0 7/30/15 -  Adding cha nges for D ECNET
  5    ;
  6    ;THIS ROU TINE WILL  MOVE CAREG IVER DATA  FORM THE D ATABASES T O A VMS AS CII FILE.
  7    ;GLOBALS:
  8    ;                        ^CHCGV ETS(741850 .7) - CARE GIVERS/VET ERANS
  9    ;                        ^CHCGP AY(741850. 6) - STIPE ND PAYMENT S
  10    ;VARIABLE S:
  11    ;      CH VREC0 - ^C HCGVETS(74 1850.7,I,0 )
  12    ;               CHVE TNAM - VET ERAN NAME
  13    ;               CHVE TGND - VET ERAN GENDE R
  14    ;               CHVE TBDT - VET ERAN BIRTH
  15    ;               CHVE TSSN - VET ERAN SSN
  16    ;      CH VREC1 - ^C HCGVETS(74 1850.7,I,1 )
  17    ;               CHVE TAD1 - VET ERAN ADDRE SS LINE 1
  18    ;               CHVE TAD2 - VET ERAN ADDRE SS LINE 2
  19    ;               CHVE TCTY - VET ERAN CITY
  20    ;               CHVE TST - VETE RAN STATE
  21    ;               CHVE TZIP - VET EARN ZIP
  22    ;  CHCGRE C0 - ^CHCG VETS(74185 0.7,I,100, J,0)
  23    ;               CHCG NAM - CARG EGIVER NAM E
  24    ;               CHCG GND - CARE GIVER GEND ER
  25    ;               CHCG BDT - CARE GIVER BIRT HDAY
  26    ;               CHCG SSN - CARE GIVER SSN
  27    ;      CH CGREC1 - ^ CHCGPAY(74 1850.7,I,1 00,J,1)
  28    ;               CHVE TAD1 - CAR GEGIVER AD DRESS LINE  1
  29    ;               CHVE TAD2 - CAR GEGIVER AD DRESS LINE  2
  30    ;               CHVE TCTY - CAR GEGIVER CI TY
  31    ;               CHVE TST - CARG EGIVER STA TE
  32    ;               CHVE TZIP - CAR GEGIVER ZI P       
  33    ;      CH CGREC10 -  ^CHCGPAY(7 41850.7,I, 100,J,10)
  34    ;               CHCG SSTAT - ST IPEND STAT US 
  35    ;                                          0-INACTIVE
  36    ;                                          1-PENDING  VERIFICATI ON
  37    ;                                          2-ACTIVE
  38    ;               CHCG SSDT - STI PEND START  DATE
  39    ;               CHCG SEDT - STI PEND END D ATE
  40    ;               CHCG STIER - ST IPEND TIER  LEVEL
  41    ;               CHCG SAMT - STI PEND AMT
  42    ;
  43   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  44    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  45    D HOME^%Z IS
  46    K ^TMP($J ,"CAREGIVE R_STIPEND_ DATA")
  47    D VET  ;G ET VET + C G + STIPEN D DATA
  48    D WRT
  49    Q
  50    ;
  51   VET ;GET V ETERAN INF ORMATION
  52    S CHCGDFN =0,NEXTI=0
  53   VET1 S CHC GDFN=$O(^C HCGVETS(74 1850.7,CHC GDFN)) Q:' CHCGDFN
  54    S CHVREC0 =$G(^CHCGV ETS(741850 .7,CHCGDFN ,0)) G:CHV REC0="" VE T1
  55    S CHVETNA M=$P(CHVRE C0,"^",1)   ;VETERAN  NAME
  56    S CHVETGN D=$P(CHVRE C0,"^",2)   ;VETERAN  GENDER
  57    S CHVETBD T=$P(CHVRE C0,"^",3)   ;VETERAN  BIRTH
  58    S CHVETBD T=$$FMTE^X LFDT(CHVET BDT,"7D")   ;CONVERT  B-DAY TO Y YYYMMDD
  59    S CHVETSS N=$P(CHVRE C0,"^",4)   ;VETERAN  SSN
  60    S CHVREC1 =$G(^CHCGV ETS(741850 .7,CHCGDFN ,1))
  61    S CHVETAD 1=$P(CHVRE C1,"^",1)   ;VETERAN  ADDRESS LI NE 1
  62    S CHVETAD 2=$P(CHVRE C1,"^",2)   ;VETERAN  ADDRESS LI NE 2
  63    S CHVETCT Y=$P(CHVRE C1,"^",3)   ;VETERAN  CITY
  64    S CHVETST =$P(CHVREC 1,"^",4)   ;VETERAN S TATE
  65    S CHVETST =$P($G(^DI C(5,CHVETS T,0)),"^", 2)
  66    S CHVETZI P=$P(CHVRE C1,"^",5)   ;VETEARN  ZIP
  67    D CG
  68    G VET1
  69   CG ;CAREGI VER INFORM ATION
  70    S CHCGBFN =0
  71   CG1 S CHCG BFN=$O(^CH CGVETS(741 850.7,CHCG DFN,100,CH CGBFN)) Q: 'CHCGBFN
  72    I '$D(^CH CGVETS(741 850.7,CHCG DFN,100,CH CGBFN,0))  G CG1
  73    S CHCGREC 0=^CHCGVET S(741850.7 ,CHCGDFN,1 00,CHCGBFN ,0) G:CHCG REC0="" CG 1
  74    S CHCGNAM =$P(CHCGRE C0,"^",1)   ;CARGEGIV ER NAME
  75    S CHCGGND =$P(CHCGRE C0,"^",2)   ;CAREGIVE R GENDER
  76    S CHCGBDT =$P(CHCGRE C0,"^",3)   ;CAREGIVE R BIRTHDAY
  77    S CHCGBDT =$$FMTE^XL FDT(CHCGBD T,"7D")  ; CONVERT B- DAY TO YYY YMMDD
  78    S CHCGSSN =$P(CHCGRE C0,"^",4)   ;CAREGIVE R SSN
  79    S CHCGREC 1=$G(^CHCG VETS(74185 0.7,CHCGDF N,100,CHCG BFN,1))
  80    S CHCGAD1 =$P(CHCGRE C1,"^",1)   ;CARGEGIV ER ADDRESS  LINE 1
  81    S CHCGAD2 =$P(CHCGRE C1,"^",2)   ;CARGEGIV ER ADDRESS  LINE 2
  82    S CHCGCTY =$P(CHCGRE C1,"^",3)   ;CARGEGIV ER CITY
  83    S CHCGST= $P(CHCGREC 1,"^",4)   ;CARGEGIVE R STATE
  84    S CHCGST= $P($G(^DIC (5,CHCGST, 0)),"^",2)
  85    S CHCGZIP =$P(CHCGRE C1,"^",5)   ;CARGEGIV ER ZIP  
  86    S CHCGREC 10=$G(^CHC GVETS(7418 50.7,CHCGD FN,100,CHC GBFN,10))
  87    S CHCGSST AT=$P(CHCG REC10,"^", 1)  ;STIPE ND STATUS  0-INACTIVE ,1-PENDING  VERIFICAT ION,2-ACTI VE
  88    S CHCGSST AT=$S(CHCG SSTAT=0:"I NACTIVE",C HCGSSTAT=1 :"PENDING  VERIFICATI ON",CHCGSS TAT=2:"ACT IVE",1:"UN KNOWN")
  89    S CHCGSSD T=$P(CHCGR EC10,"^",2 )  ;STIPEN D START DA TE
  90    S CHCGSSD T=$$FMTE^X LFDT(CHCGS SDT,"7D")   ;CONVERT  DAY TO YYY YMMDD
  91    S CHCGSED T=$P(CHCGR EC10,"^",3 )  ;STIPEN D END DATE
  92    S CHCGSED T=$$FMTE^X LFDT(CHCGS EDT,"7D")   ;CONVERT  DAY TO YYY YMMDD
  93    S CHCGSTI ER=$P(CHCG REC10,"^", 4)  ;STIPE ND TIER LE VEL
  94    S CHCGSAM T=$P(CHCGR EC10,"^",5 )  ;STIPEN D AMT
  95    S CHCGSTY P=$P(CHCGR EC10,"^",7 )  ;STIPEN D TYPE 0-R EOCCURING, 1-BACKDATE D
  96    S CHCGSTY P=$S(CHCGS TYP=0:"RE- OCCURING", CHCGSTYP=1 :"BACK DAT ED",1:"UNK NOWN")
  97    S WREC=""
  98    S WREC=CH VETNAM_"*" _CHVETGND_ "*"_CHVETB DT_"*"_CHV ETSSN
  99    S WREC=WR EC_"*"_CHV ETAD1_"*"_ CHVETAD2_" *"_CHVETCT Y_"*"_CHVE TST_"*"_CH VETZIP
  100    S WREC=WR EC_"*"_CHC GNAM_"*"_C HCGGND_"*" _CHCGBDT_" *"_CHCGSSN
  101    S WREC=WR EC_"*"_CHC GAD1_"*"_C HCGAD2_"*" _CHCGCTY_" *"_CHCGST_ "*"_CHCGZI
  102    S WREC=WR EC_"*"_CHC GSSTAT_"*" _CHCGSSDT_ "*"_CHCGSE DT_"*"_CHC GSTIER_"*" _CHCGSAMT_ "*"_CHCGST YP
  103    S NEXTI=N EXTI+1
  104    S ^TMP($J ,"CAREGIVE R_STIPEND_ DATA",NEXT I)=WREC
  105    K WREC
  106    G CG1
  107   WRT ;
  108    
  109    Q:'$D(^TM P($J,"CARE GIVER_STIP END_DATA") )
  110    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  111    IF CHUCI= "HAC" D
  112                    .;S  IOFILE="HA C_SCRZ$:CA REGIVER_ST IPEND_MIGR ATION.DAT"
  113           .S  IOFILE="H AC_HFS$:[D SMMANAG.CH AMPVA]CARE GIVER_STIP END_MIGRAT ION.DAT"
  114    I CHUCI'= HAC D
  115           .S  IOFILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CH UCI_"CAREG IVER_STIPE ND_MIGRATI ON.DAT"
  116    ;DEF01655 4-11/25/13 -SBB use O PEN^%ZISH  to open fi le
  117    ;O IOFILE :"NWS" C I OFILE:"DEL ETE" O IOF ILE:"NWS"
  118    ;SBB 07/3 0/15 DEF01 6554
  119       X "D $ SYSTEM.Pro cess.SetZE OF(1)"
  120    D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE")
  121    S X=$ZF(- 1,"DELETE  "_IOFILE_" ;*")
  122    I '$$OPEN FIWR^CHTFL IB9(.IOFIL E,"IOFILE" ) X "D $SY STEM.Proce ss.SetZEOF (0)" Q
  123    S TMPI=0, SFLG=0
  124   PRT1 S TMP I=$O(^TMP( $J,"CAREGI VER_STIPEN D_DATA",TM PI)) G:'TM PI PRT2
  125    I SFLG=1  W !
  126    S OREC=^T MP($J,"CAR EGIVER_STI PEND_DATA" ,TMPI)
  127    U IOFILE  W OREC S S FLG=1
  128    ;W OREC S  SFLG=1
  129    G PRT1
  130   PRT2 ;
  131    ;DEF01655 4-11/25/13 -SBB use C LOSE^%ZISH  to close  file
  132    ;C IOFILE
  133    D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE")
  134    ;
  135    ;SBB 07/3 0/15 DEF01 6554
  136       X "D $ SYSTEM.Pro cess.SetZE OF(0)"
  137    ;I CHUCI= "HAC" S X= $ZF(-1,"SU BMIT HAC_H FS$:[DSMMA NAG.CHAMPV A]REC_COPY .COM/PARAM =("_IOFILE _")")
  138    I CHUCI=" HAC" D FTP FILE^CHTFL IB9(IOFILE ," DNS    . DNS             ","/FS3BIG ","PUT")
  139    I CHUCI'= "HAC" Q  ; STOP AND D O NOT MOVE  DATA INTO  PRODUCTIO N  AEB 2/2 7/2007
  140    Q
  141   END ;
  142    Q
  143