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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 284 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 P | |
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.