Produced by Araxis Merge on 11/9/2018 12:33:54 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 | CHMEDRRD.m | Mon Nov 5 16:39:33 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMEDRRD.m | Mon Nov 5 17:44:09 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 652 |
Changed | 2 | 8 |
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 | CHMEDRRD ; CVA/AEB;PR OCESS RETU RN DATA FI LE FROM DE ERS;12/08/ 97 1:06 P M | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 2 | |
3 | ;MTN01574 8 DPT 8/7/ 12 DEACTIV E REPORT H AC DOD DOE S NOT MATC H DEERS : HAC DOD NO T ACCEPTED INTO DEER S | |
4 | ;MTN01659 4 DPT 10/2 9/12 CHANG E EMAIL | |
5 | ;MTN01734 9 DPT 2/14 /13 ACTIVA TE CODE "X " GENERATI ON 6 | |
6 | ;DEV00634 9 JAK 6/26 /13 FROM P RINT TO EX CEL FORMAT (FS3BIG) | |
7 | ;MTN02454 4 DPT 10/2 8/15 OMIT CODES 7 & 8 FROM REP ORT, ADD C ODE E CORR ECT DOD FO R CODE I | |
8 | ;MTN02480 8 DPT 12/4 /15 exclud e code E a nd I from report | |
9 | ;MTN02570 7 DPT 4/4/ 16 exclude code X | |
10 | ;MTN02581 0 DPT 4/14 /16 EXCLUD E CODES 1, 3,5,6,B,D, J,K,M,N,O | |
11 | ;MTN02581 0-01 DPT 4 /14/16 LEA VE CODE X ACTIVE EXC LUDE CODES 1,3,5,6,B ,D,J,K,M,N ,O | |
12 | ;MTN02685 8 DPT 8/29 /16 CHANGE POC FOR E EV | |
13 | ;MTN02713 4 DPT 10.6 .16 ACTIVA TE CODES E AND O | |
14 | ;MTN02802 0 DPT 3/16 /17 DEACTI VATE CODE L | |
15 | ;MTN02877 2 DPT 7/6/ 17 REGION 1 DATA CEN TER LOGICA L NAME CHA NGE | |
16 | START S CT =1,RCT=0,T ="^" | |
17 | D NOW^%DT C S DT=X,T ODAY=$$FMT E^XLFDT(DT ,"7DZ"),TO DAY=$TR(TO DAY,"/","" ),MON=$E(T ODAY,5,6), DAY=$E(TOD AY,7,8) ;D EV006349 J AK 11/19/2 013 | |
18 | S $ZE="" | |
19 | S $ZT="" | |
20 | S TIME=$P ($$NOW^XLF DT,".",2) ;DEV006349 JAK 11/19 /2013 | |
21 | S TYPE="W EEKLY" ;DE V006349 JA K 11/19/20 13 | |
22 | I MON="01 "!((MON="0 4")!((MON= "07")!(MON ="10"))) D ;DEV00634 9 JAK 11/1 9/2013 | |
23 | .I DAY<8 D ; first run in quarter ;DEV00634 9 JAK 11/1 9/2013 | |
24 | ..S TYPE="QUAR TERLY" ;DE V006349 JA K 11/19/20 13 | |
25 | S DRSR1=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_T YPE_"_DEER S_REPORT_" _TODAY_"_" _TIME_".xl s" ;MTN028 772 DPT DE V006349 JA K 11/19/20 13 | |
26 | ;S DRSR1= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ TYPE_"_DEE RS_REPORT_ "_TODAY_"_ "_TIME_".x ls" ;MTN02 8772 DPT D EV006349 J AK 11/19/2 013 | |
27 | S:'$D(U) U="^" | |
28 | ;S DRSR1= "HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .REPORTS.W eekly_Quar terly_DEER S_Reports] "_FILE ;DE V006349 JA K 11/19/20 13 | |
29 | W !,"DATA WILL BE W RITTEN TO [FS3BIG\] "_$P(DRSR1 ,":",2) ;D EV006349 J AK 11/19/2 013 | |
30 | S ION="", ICODE=0 | |
31 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
32 | S CHFIO=" " | |
33 | ;S ZTRTN= "CALC^CHME DRRD",ZTDE SC="PROCES S REPORT F ROM RETURN DEERS FIL E",ZTDTH=$ H,ZTIO="" ; REACTIVE AFTER TES T | |
34 | ;S ZTSAVE ("CHFIO")= "",ZTSAVE( "DRSR1")=" " ;REACTIVE AFTER TEST | |
35 | K ZTIO ;DEACTIVAT E AFTER TE ST | |
36 | D CALC^CH MEDRRD ;DEACTIVAT E AFTER TE ST | |
37 | ;D ^%ZTLO AD | |
38 | D HOME^%Z IS | |
39 | Q | |
40 | CALC ; | |
41 | D LOOP,CE ND | |
42 | D PRT | |
43 | Q | |
44 | LOOP ;S CH FILE="DRIH AC.DAT " | |
45 | D NOW^%DT C S FMDATE =X | |
46 | S CHFTPMS G=0,CHFTPT IM=60,CHFT PSUC=0 | |
47 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DEERS_MU_F TP_IN_DAT. COM/NAME=D EERS_MU_FT P_IN_DAT_J OB/NOPRINT ER/USER=HA CCACHEMGR, CHFILE,FMD ATE") ; SU BMIT FTP J OB IN LIVE | |
48 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DEERS_MU_F TP_IN_DAT. COM/NAME=D EERS_MU_FT P_IN_DAT_J OB/NOPRINT ER/USER=HA CCACHEMGR/ PARAM=("_C HFILE_","_ FMDATE_")" ) ;AEB M ATCH ^CHME DRSD 8/5/ 2005 | |
49 | ;H 120 ; WAIT 5 MI NUTES BEFO RE TRYING TO RUN REP ORT | |
50 | LA S CNT=0 ,$ZE="",$Z T="LE^CHME DRRD" | |
51 | I '$D(DT) D NOW^%DT C S DT=X | |
52 | S FILE="H AC_HFS$:[D SMMANAG]DR IHAC.DAT" ;O FILE:"R ":10 C FIL E ;MAKES FILE READ AT TOP.;MT N028772 DP T | |
53 | D INIT | |
54 | O FILE:"R ":10 | |
55 | L1 U FILE R TEMPX | |
56 | G:$G(TEMP X)="" L1 | |
57 | D RECSET | |
58 | ;I RECONS T'=2 I REC ONST'=4 I RECONST'=" A" I RECON ST'="I" I RECONST'=" L" I RECON ST'="S" I RECONST'=" C" I RECON ST'="Z" I RECONST'=" X" G L1 ; AEB 10/22/ 2007 ;JAK commented out 11/19/ 2013 | |
59 | I RECONST =7!(RECONS T=8) G L1 ;TEST | |
60 | I RECONST '="" D | |
61 | .I '$D(^C HMZHOLD("D EERSERR",$ J,RECONST, SPNPNID,DP NSSN)) D | |
62 | ..S ^CHMZ HOLD("DEER SERR",$J,R ECONST,SPN PNID,DPNSS N)=TEMPX | |
63 | ..S:'$D(^ CHMZHOLD(" DEERSERR", $J,RECONST ,0)) ^CHMZ HOLD("DEER SERR",$J,R ECONST,0)= 0 ;AEB 3/ 22/07 | |
64 | ..S $P(^C HMZHOLD("D EERSERR",$ J,RECONST, 0),"^",1)= $P(^CHMZHO LD("DEERSE RR",$J,REC ONST,0),"^ ",1)+1 | |
65 | ..Q | |
66 | .Q | |
67 | G L1 | |
68 | LE Q | |
69 | CEND K DFN ,BFN,SNAME ,SSSN,SAD1 ,SAD2,ACIT Y,SST,SZIP ,SZIP1,BNA ME,BSSN | |
70 | K BAD1,BA D2,BCITY,B ST,CZIP,BZ IP1,RNAME, RAD,RAD2,R ST,SZIP,RZ IP1 | |
71 | I $ZE'["E NDOFFILE" D ^%ET Q | |
72 | C FILE | |
73 | S $ZE="" | |
74 | S $ZT="" ;AEB 8/5 /2005 REM OVED SINCE IT CAUSED A LOOP | |
75 | Q | |
76 | RECSET ;CH ECK THE FI LE LAYOUT | |
77 | S SPNPNID =$E(TEMPX, 1,9) | |
78 | S SPNIDTP =$E(TEMPX, 10) | |
79 | S SPNLNME =$E(TEMPX, 11,36),SPN LNME=$$STR IP^XLFSTR( SPNLNME," ") | |
80 | S SPNFNME =$E(TEMPX, 37,56),SPN FNME=$$STR IP^XLFSTR( SPNFNME," ") | |
81 | S SPNMNME =$E(TEMPX, 57,76),SPN MNME=$$STR IP^XLFSTR( SPNMNME," ") | |
82 | S SNAME=S PNLNME_"," _SPNFNME_" "_SPNMNME ,SNAME=$E( SNAME,1,30 ) | |
83 | S SNAME=$ $STRIP^XLF STR(SNAME, " ") | |
84 | S SPBRDT= $E(TEMPX,7 7,84) | |
85 | S SPNPTDT =$E(TEMPX, 85,92) | |
86 | S SPNDTDT =$E(TEMPX, 93,100) | |
87 | S SPNSVCD =$E(TEMPX, 101) | |
88 | S SPNSTAT =$E(TEMPX, 102) | |
89 | S PNLBDT= $E(TEMPX,1 03,110) | |
90 | S PNLEDT= $E(TEMPX,1 11,118) | |
91 | S PNLSTNM E=$E(TEMPX ,119,144) S PNLSTNME =$$STRIP^X LFSTR(PNLS TNME," ") | |
92 | S PNFNME= $E(TEMPX,1 45,164) S PNFNME=$$S TRIP^XLFST R(PNFNME," ") | |
93 | S PNMNME= $E(TEMPX,1 65,184) S PNMNME=$$S TRIP^XLFST R(PNMNME," ") | |
94 | S BNAME=P NLSTNME_", "_PNFNME_" "_PNMNME S BNAME=$E (BNAME,1,3 0) | |
95 | S BNAME=$ $STRIP^XLF STR(BNAME, " ") | |
96 | S PNBDT=$ E(TEMPX,18 5,192) | |
97 | S PNDTDT= $E(TEMPX,1 93,200) | |
98 | S PNSEX=$ E(TEMPX,20 1) | |
99 | S PNREL=$ E(TEMPX,20 2) | |
100 | S PNABDT= $E(TEMPX,2 03,210) | |
101 | S PNAEDT= $E(TEMPX,2 11,218) | |
102 | S PNATRSN =$E(TEMPX, 219) | |
103 | S PNECTYP =$E(TEMPX, 220,221) | |
104 | S PNECBST =$E(TEMPX, 222,229) | |
105 | S PNECEDT =$E(TEMPX, 230,237) | |
106 | S CVAEFFD T=$E(TEMPX ,238,245) | |
107 | S CVAEXPD T=$E(TEMPX ,246,253) | |
108 | S DPNSSN= $E(TEMPX,2 54,262) | |
109 | S RECONST =$E(TEMPX, 263) | |
110 | S DFN=0,( SPREC,BREC )="" | |
111 | Q:DPNSSN= "" | |
112 | S DFN=$O( ^AHCHVA("G ",DPNSSN,D FN)) I 'DF N D Q:'DF N | |
113 | .S DFN=0, DFN=$O(^AH CHVA("F",B NAME,DFN)) | |
114 | S BFN=0,B FN=$O(^AHC HVA("G",DP NSSN,DFN,B FN)) I 'BF N D Q:'BF N | |
115 | .S BFN=0, BFN=$O(^AH CHVA("F",B NAME,DFN,B FN)) | |
116 | S SPREC=^ AHCHVA(DFN ,0) | |
117 | S BREC=^A HCHVA(DFN, 100,BFN,0) | |
118 | Q | |
119 | INIT ;SET ERROR CODE S | |
120 | K CODES | |
121 | O FILE:"R ":5 C FILE | |
122 | ;S ^CHMZH OLD("DEERS ERR",$J,"1 ",0)="0^SP ONSOR SSN CONFLICT : HAC SSN P ROCESSED ( 1)" ;MTN02 5810 DPT 4 /14/16 | |
123 | S ^CHMZHO LD("DEERSE RR",$J,"A" ,0)="0^SPO NSOR STATU S CONFLICT : MAYBE T RICARE ELI GIBLE (A)" | |
124 | ;S ^CHMZH OLD("DEERS ERR",$J,"B ",0)="0^HA C DOB DOES NOT MATCH DEERS : H AC DOB NOT ACCEPTED INTO DEERS (B)" ;MTN 02581-01 D PT 4/28/16 | |
125 | S ^CHMZHO LD("DEERSE RR",$J,"C" ,0)="0^HAC DOD DOES NOT MATCH DEERS : HA C DOD NOT ACCEPTED I NTO DEERS (C)" ;MTN 015748 DPT ;DEV00634 9 JAK 11/1 9/2013 | |
126 | ;S ^CHMZH OLD("DEERS ERR",$J,"D ",0)="0^HA C SPONSOR NAME DOES NOT MATCH DEERS : HA C NAME NOT ACCEPTED INTO DEERS (D)" ;MTN 025810 DPT 4/14/16 | |
127 | ;S ^CHMZH OLD("DEERS ERR",$J,"J ",0)="0^BE NE SSN DOE S NOT MATC H DEERS : FILE NOT P ROCESSED B Y DEERS (J )" ;MTN025 810 DPT 4/ 14/16 | |
128 | ;S ^CHMZH OLD("DEERS ERR",$J,"K ",0)="0^BE NE DOB DOE S NOT MATC H DEERS : HAC DOB NO T ACCEPTED INTO DEER S (K)" ;MT N025810 DP T 4/14/16 | |
129 | ;S ^CHMZH OLD("DEERS ERR",$J,"L ",0)="0^HA C GENDER D OES NOT MA TCH DEERS : HAC GEND ER NOT ACC EPTED INTO DEERS (L) " ;MTN028 020 DPT | |
130 | ;S ^CHMZH OLD("DEERS ERR",$J,"M ",0)="0^HA C RELATION SHIP DOES NOT MATCH DEERS : RE LATIONSHIP NOT ACCEP TED INTO D EERS (M)"; MTN025810 DPT 4/14/1 6 | |
131 | ;S ^CHMZH OLD("DEERS ERR",$J,"N ",0)="0^NA ME CONFLIC T : DEPEND ENT NAME D OES NOT MA TCH DEERS (N)" ;MTN0 25810 DPT 4/14/16 DE V006349 JA K 11/19/20 13 | |
132 | S ^CHMZHO LD("DEERSE RR",$J,"O" ,0)="0^DEP ENDENT SSN CONFLICT : DEPENDEN T SSN BELO NGS TO SOM EONE ELSE OR IS MISS ING (O)" ; MTN027134 DPT MTN025 810 DPT 4/ 14/16 DEV0 06349 JAK 11/19/2013 | |
133 | S ^CHMZHO LD("DEERSE RR",$J,"S" ,0)="0^HAC AND TRICA RE HAVE OV ERLAPPING PERIODS OF ELIG : CH ECK SPONSO R (S)" ;S PELLING CO RRECTION 2 /1/2009 -R VS | |
134 | S ^CHMZHO LD("DEERSE RR",$J,"X" ,0)="0^UND EFINED PRO CESSING ER ROR : CHEC K WITH DEE RS (X)" ; MTN025810- 01 DPT | |
135 | S ^CHMZHO LD("DEERSE RR",$J,"Z" ,0)="0^UND EFINED PRO CESSING ER ROR : CHEC K WITH DEE RS (Z)" ;M TN025707 D PT | |
136 | ;S ^CHMZH OLD("DEERS ERR",$J,"I ",0)="0^HA C DOD DOES NOT MATCH SSA : HAC SHOULD PR OVIDE DOD TO DEERS ( I)" ;MTN0 25810 DPT 4/14/16 ;M TN024808 D PT | |
137 | S ^CHMZHO LD("DEERSE RR",$J,"2" ,0)="0^HAC IS MISSIN G BENEFICI ARY DATE O F DEATH : DEERS WILL RETURN BE NEFICIARY DOD (2)" | |
138 | ;S ^CHMZH OLD("DEERS ERR",$J,"3 ",0)="0^DE ERS HAS DI FFERENT SP OUSE FOR V ET : HAC T RANSACTION NOT PROCE SSED (3)" ;MTN025810 DPT 4/14/ 16 | |
139 | S ^CHMZHO LD("DEERSE RR",$J,"4" ,0)="0^DEE RS HAS BEN EFICIARY A S TRICARE ELIG : HAC TRANSACTI ON NOT PRO CESSED (4) " | |
140 | ;S ^CHMZH OLD("DEERS ERR",$J,"5 ",0)="0^DE ERS HAS BE NEFICIARY AS A SPONS OR : HAC T RANSACTION NOT PROCE SSED (5)" ;MTN025810 DPT 4/14/ 16 | |
141 | ;S ^CHMZH OLD("DEERS ERR",$J,"6 ",0)="0^CH AMPVA BEG/ END ELIGIB ILITY DATE INVALID : RECORD NO T ADDED TO DATABASE (6)" ;MTN0 25810 DPT 4/14/16 | |
142 | S ^CHMZHO LD("DEERSE RR",$J,"E" ,0)="0^CHA MPVA EFFEC TIVE DATE IS BEFORE THE SPONSO R DISABILI TY DATE (E )" ;MTN02 7134 DPT M TN024808 D PT | |
143 | Q | |
144 | PRT ; | |
145 | S $ZE="" | |
146 | S $ZT="" | |
147 | S PG=0 | |
148 | S CHCODE= "" | |
149 | S TB=$C(9 ) ;; TAB D ELIMITED A SCII CHARA CTER | |
150 | O DRSR1:" WRNS":5 Q: $T=0 | |
151 | PRT1 S CHC ODE=$O(^CH MZHOLD("DE ERSERR",$J ,CHCODE)) G:CHCODE=" " PEND | |
152 | I CHCODE= "C" G PRT1 ;TEST | |
153 | D PHEAD | |
154 | S CHCNT=0 | |
155 | I '$D(^CH MZHOLD("DE ERSERR",$J ,CHCODE,0) ) D G PRT 1 ;DEV0063 49 JAK 11/ 19/2013 | |
156 | .U DRSR1 W !,CHCODE ,!," NO RE CORDS FOR THIS ERROR CONDITION ." | |
157 | .Q | |
158 | I $D(^CHM ZHOLD("DEE RSERR",$J, CHCODE,0)) D ;DEV006 349 JAK 11 /19/2013 | |
159 | .S CHCNT= $P(^CHMZHO LD("DEERSE RR",$J,CHC ODE,0),"^" ,1) ;DEV00 6349 JAK 1 1/19/2013 | |
160 | .S CHDESC =$P(^CHMZH OLD("DEERS ERR",$J,CH CODE,0),"^ ",2) ;DEV0 06349 JAK 11/19/2013 | |
161 | .Q | |
162 | U DRSR1 W !,CHDESC | |
163 | D HEAD | |
164 | S CHSSSN= "" | |
165 | PRT2A I CH CODE=7!(CH CODE=8)!(C HCODE="E") !(CHCODE=" I") G PRT1 ;MTN024 544 DPT MT N024808 DP T | |
166 | S CHSSSN= $O(^CHMZHO LD("DEERSE RR",$J,CHC ODE,CHSSSN )) I CHSSS N="" D G PRT1 | |
167 | .U DRSR1 W !!,"NUMB ER OF RECO RDS ",CHCN T | |
168 | .Q | |
169 | I CHCNT=0 D G PRT2 A | |
170 | .U DRSR1 W !,"NO RE CORDS" | |
171 | .Q | |
172 | I CHSSSN= 0 G PRT2A | |
173 | S TPSSN=" " | |
174 | PRT2 S TPS SN=$O(^CHM ZHOLD("DEE RSERR",$J, CHCODE,CHS SSN,TPSSN) ) G:TPSSN= "" PRT2A ; DEV006349 JAK 11/19/ 2013 | |
175 | S TEMPX=^ CHMZHOLD(" DEERSERR", $J,CHCODE, CHSSSN,TPS SN) ;DEV 006349 JAK 11/19/201 3 | |
176 | D RECSET | |
177 | S SPNLNME =$$STRIP^X LFSTR(SPNL NME," ") | |
178 | S SPNFNME =$$STRIP^X LFSTR(SPNF NME," ") | |
179 | S PNLSTNM E=$$STRIP^ XLFSTR(PNL STNME," ") | |
180 | S PNFNME= $$STRIP^XL FSTR(PNFNM E," ") | |
181 | I CHCODE= 7!(CHCODE= 8)!(CHCODE ="I")!(CHC ODE=1) G PRT2 ;MTN027134 DPT MTN02 5810-01 DP T MTN02581 0 DPT 4/14 /16 MTN024 544 DPT MT N024808 DP T MTN02570 7 DPT | |
182 | ||
183 | I CHCODE= 1!(CHCODE= 4!(CHCODE= 5)) D G P RT2 | |
184 | .U DRSR1 W !,SPNPNI D,TB,SNAME ,TB,DPNSSN ,TB,PNLSTN ME_","_PNF NME | |
185 | .Q | |
186 | I CHCODE= 2 D G PRT 2 | |
187 | .U DRSR1 W !,SPNPNI D,TB,SNAME ,TB,DPNSSN ,TB,$E(PND TDT,1,4)_" /"_$E(PNDT DT,5,6)_"/ "_$E(PNDTD T,7,8) | |
188 | .Q | |
189 | ;I CHCODE =3 D G PR T2 ;MTN02 5810 DPT 4 /14/16 | |
190 | ;.U DRSR1 W !,SPNPN ID,TB,DPNS SN,TB,$E(B NAME,1,20) ,TB,$P(BRE C,"^",1)_" / "_$P(BR EC,"^",9) ;MTN02581 0 DPT 4/14 /16 | |
191 | ;.Q ;MTN 025810 DPT 4/14/16 | |
192 | ;I CHCODE =6 D G PR T2 ;MTN02 5810 DPT 4 /14/16 | |
193 | ;.U DRSR1 W !,SPNPN ID,TB,DPNS SN,TB,$E(B NAME,1,20) ,TB,$E(CVA EFFDT,1,2) _"/"_$E(CV AEFFDT,3,4 )_"/"_$E(C VAEFFDT,5, 8),TB,$E(C VAEXPDT,1, 2)_"/"_$E( CVAEXPDT,3 ,4)_"/"_$E (CVAEXPDT, 5,8) ;MTN 025810 DPT 4/14/16 | |
194 | ;.Q ;MT N025810 DP T 4/14/16 | |
195 | I CHCODE= "A" D G P RT2 | |
196 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,DP NSSN,TB,PN LSTNME_"," _PNFNME | |
197 | .Q | |
198 | ;I CHCODE ="B" D G PRT2 ;MTN0 25810-01 D PT | |
199 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,$ E(SPBRDT,1 ,4)_"/"_$E (SPBRDT,5, 6)_"/"_$E( SPBRDT,7,8 ) ;MTN0258 10-01 DPT | |
200 | ;.Q ;MTN0 25810-01 D PT | |
201 | I CHCODE= "C" D G P RT2 ;DEV00 6349 JAK 1 1/19/2013 | |
202 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,$E (SPNDTDT,1 ,4)_"/"_$E (SPNDTDT,5 ,6)_"/"_$E (SPNDTDT,7 ,8),TB,$$F MTE^XLFDT( $P(SPREC," ^",4),"7D" ) ;DEV0063 49 JAK 11/ 19/2013 | |
203 | .Q ;DEV00 6349 JAK 1 1/19/2013 | |
204 | ;I CHCODE ="D" D G PRT2 ;MTN0 25810 DPT 4/14/16 | |
205 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,$ P(SPREC,"^ ",1) ;MTN0 25810 DPT 4/14/16 | |
206 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
207 | ; I CHCOD E="I" D G PRT2 ;MT N025810 DP T 4/14/16; MTN024808 DPT | |
208 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,D PNSSN,TB,$ E(SPNDTDT, 1,4)_"/"_$ E(SPNDTDT, 5,6)_"/"_$ E(SPNDTDT, 7,8),TB,$$ FMTE^XLFDT ($P(SPREC, "^",4),"7D ") ;MTN02 5810 DPT 4 /14/16;MTN 024808 DPT | |
209 | ;.Q ;MTN 025810 DPT 4/14/16;M TN024808 D PT | |
210 | ;I CHCODE ="J" D G PRT2 ;MTN0 25810 DPT 4/14/16 | |
211 | ;.S HACSS N=$P(BREC, "^",9) S:H ACSSN="" H ACSSN="UNK NOWN" ;MTN 025810 DPT 4/14/16 | |
212 | ;.U DRSR1 W !,SPNPN ID,TB,SNAM E,TB,$E(BN AME,1,20), TB,DPNSSN, TB,HACSSN ;MTN025810 DPT 4/14/ 16 | |
213 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
214 | ;I CHCODE ="K" D G PRT2 ;MTN0 25810 DPT 4/14/16 | |
215 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,D PNSSN,TB,$ E(PNBDT,1, 4)_"/"_$E( PNBDT,5,6) _"/"_$E(PN BDT,7,8),T B,$$FMTE^X LFDT($P(BR EC,"^",3), "7D") ;MTN 025810 DPT 4/14/16 | |
216 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
217 | ;I CHCODE ="L" D G PRT2 MTN02 8020 DPT | |
218 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,P NSEX,TB,DP NSSN,TB,BN AME MTN02 8020 DPT | |
219 | ;.Q MTN0 28020 DPT | |
220 | ;I CHCODE ="M" D G PRT2 ;MTN0 25810 DPT 4/14/16 | |
221 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,P NREL,TB,DP NSSN,TB,$E (BNAME,1,1 5),TB,$P(B REC,"^",4) ;MTN02581 0 DPT 4/14 /16 | |
222 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
223 | ;I CHCODE ="N" D G PRT2 ;MTN0 25810 DPT 4/14/16;DE V006349 JA K 11/19/20 13 | |
224 | ;.U DRSR1 W !,SPNPN ID,TB,SPNL NME_","_SP NFNME,TB,D PNSSN,TB,$ E(BNAME,1, 12),TB,$E( CVAEFFDT,1 ,4)_"/"_$E (CVAEFFDT, 5,6)_"/"_$ E(CVAEFFDT ,7,8),TB,$ E(CVAEXPDT ,1,4)_"/"_ $E(CVAEXPD T,5,6)_"/" _$E(CVAEXP DT,7,8) ;M TN025810 D PT 4/14/16 ;DEV006349 JAK 11/19 /2013 | |
225 | ;.Q ;MTN0 25810 DPT 4/14/16;DE V006349 JA K 11/19/20 13 | |
226 | I CHCODE= "O" D G P RT2 ;MTN02 7134 DPT M TN025810 D PT 4/14/16 | |
227 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,DP NSSN,TB,$E (BNAME,1,1 2),TB,$E(C VAEFFDT,1, 4)_"/"_$E( CVAEFFDT,5 ,6)_"/"_$E (CVAEFFDT, 7,8),TB,$E (CVAEXPDT, 1,4)_"/"_$ E(CVAEXPDT ,5,6)_"/"_ $E(CVAEXPD T,7,8) | |
228 | .;MTN0271 34 DPT MTN 025810 DPT 4/14/16;D EV006349 J AK 11/19/2 013 | |
229 | .Q ;MTN02 7134 DPT M TN025810 D PT 4/14/16 ;DEV006349 JAK 11/19 /2013 | |
230 | I CHCODE= "S" D G P RT2 | |
231 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,DP NSSN,TB,$E (BNAME,1,1 2),TB,$E(C VAEFFDT,1, 4)_"/"_$E( CVAEFFDT,5 ,6)_"/"_$E (CVAEFFDT, 7,8),TB,$E (CVAEXPDT, 1,4)_"/"_$ E(CVAEXPDT ,5,6)_"/"_ $E(CVAEXPD T,7,8) ;DE V006349 JA K 11/19/20 13 | |
232 | .Q | |
233 | I CHCODE= "X"!(CHCOD E="Y"!(CHC ODE="Z")) D G PRT2 ;MTN025810 -01 DPT DE V006349 JA K 11/19/20 13 MTN025 707 DPT | |
234 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,DP NSSN,TB,BN AME ;MTN02 5810-01 DP T MTN02570 7 DPT | |
235 | .Q ;MTN0 25810-01 D PT | |
236 | I CHCODE= "E" D G P RT2 ;MTN 027134 DPT MTN024808 DPT | |
237 | .U DRSR1 W !,SPNPNI D,TB,SPNLN ME_","_SPN FNME,TB,DP NSSN,TB,$E (BNAME,1,1 2),TB,$E(C VAEFFDT,1, 4)_"/"_$E( CVAEFFDT,5 ,6)_"/"_$E (CVAEFFDT, 7,8),TB,$E (SPNDTDT,1 ,4)_"/"_$E (SPNDTDT,5 ,6)_"/"_$E (SPNDTDT,7 ,8) ;MTN0 27134 DPT MTN024808 DPT | |
238 | .Q ;MTN 027134 DPT MTN024808 DPT | |
239 | ||
240 | G PRT2 | |
241 | PEND I '$D (DT) D NOW ^%DTC S DT =X | |
242 | C DRSR1 | |
243 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG.C HAMPVA]REC _COPY.COM/ PARAM=("_D RSR1_")") ;DEV006349 JAK 11/19 /2013 | |
244 | ;S XMY("9 887")="" ; DPT 10/29 /12 | |
245 | ;S XMY(" PII ")="" | |
246 | S XMY(" PII ")="" ;HAC PST G ROUP | |
247 | S XMY(" P I I ")="" ;MTN026858 DPT 8/29/ 16 DEV0063 49 JAK 11/ 19/2013 | |
248 | S XMDUZ=D UZ,XMSUB=" DEERS Retu rn file on "_$$FMTE^ XLFDT(DT," 5D") | |
249 | S TEXT(1) ="The DEER S FTP succ essfully r eturned a file." | |
250 | S TEXT(2) ="DEERS co nflict rep orts have been creat ed and nee d to be wo rked." | |
251 | S TEXT(2) ="DEERS co nflict rep orts are l ocated on [FS3BIG\]. " ;DEV0063 49 JAK 11/ 19/2013 | |
252 | D ^XMD | |
253 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB | |
254 | K CHSSSN, CHCNT,CHDE SC,CODES,T ITLE,TAB,C HTM,CHDT,P G | |
255 | K ^CHMZHO LD("DEERSE RR",$J) ;D EV006349 J AK 11/19/2 013 | |
256 | K DTOUT,D FOUT,DUOUT ,DQOUT,X,Y ,CHBEG,CHE ND,CHEDT,C HPT,CHFIO, TODAY,MON, DAY,TYPE | |
257 | K %ZIS,%D T,%DT(0),% DT("A"),DI C,DIC(0),D IC("A"),TM PX | |
258 | ||
259 | W !!! | |
260 | Q | |
261 | PHEAD ; | |
262 | I CHCODE= 7!(CHCODE= 8)!(CHCODE ="E")!(CHC ODE="I") Q | |
263 | D NOW^%DT C S CHTM=$ P($$FMTE^X LFDT(%,"2P ")," ",2,3 ) S CHDT=$ $FMTE^XLFD T($P(%,"." ,1),"5D") I '$D(DT) S DT=X | |
264 | U DRSR1 W !!! S PG= PG+1 | |
265 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
266 | S TAB=(80 -$L(TITLE) )/2 | |
267 | U DRSR1 W DUZ,TB,TI TLE,TB,"Pa ge ",PG | |
268 | S TITLE=" EXCEPTIONS FROM RETU RN DEERS F ILE FOR "_ $$FMTE^XLF DT(DT,"5D" ) | |
269 | S TAB=(80 -$L(TITLE) )/2 | |
270 | U DRSR1 W !,CHTM,TB ,TITLE | |
271 | U DRSR1 W !,CHDT | |
272 | U DRSR1 W !! | |
273 | Q | |
274 | HEAD ; | |
275 | I CHCODE= 7!(CHCODE= 8)!(CHCODE ="E")!(CHC ODE="I")!( CHCODE=1)! (CHCODE=5) Q ;MTN 025810 DPT 4/14/16;M TN024808 D PT | |
276 | ||
277 | I CHCODE= 1!(CHCODE= 4!(CHCODE= 5)) D Q | |
278 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E" | |
279 | .Q | |
280 | I CHCODE= 2 D Q | |
281 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS DATE OF DEATH" | |
282 | .Q | |
283 | ;I CHCODE =3 D Q ;M TN025810 D PT 4/14/16 | |
284 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS BENEF ICIARY SSN ",TB,"DEER S BENEFICI ARY NAME", TB,"HAC SP OUSE/SSN" ;MTN025810 DPT 4/14/ 16 | |
285 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
286 | ;I CHCODE =6 D Q ;M TN025810 D PT 4/14/16 | |
287 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS B SSN ",TB,"DEER S BENEFICI ARY NAME", TB,"DEERS BEGIN DATE ",TB,"DEER S END DATE " ;MTN0258 10 DPT 4/1 4/16 | |
288 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
289 | I CHCODE= "A" D Q | |
290 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E" | |
291 | .Q | |
292 | ; I CHCOD E="B" D Q ;MTN02581 0-01 DPT | |
293 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS S PONSOR DAT E OF BIRTH " ;MTN0258 10-01 DPT | |
294 | ;.Q ;MTN0 25810-01 D PT | |
295 | I CHCODE= "C" D Q ; DEV006349 JAK 11/19/ 2013 | |
296 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"SPONSOR DATES OF D EATH HAC" ;DEV006349 JAK 11/19 /2013 | |
297 | .Q ;DEV00 6349 JAK 1 1/19/2013 | |
298 | ;I CHCODE ="D" D Q ;MTN025810 DPT 4/14/ 16 | |
299 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS NAME" ,TB,"HAC S PONSOR NAM E" ;MTN025 810 DPT 4/ 14/16 | |
300 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
301 | ;I CHCODE ="I" D Q ;MTN02480 8 DPT | |
302 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS B ENEFICIARY SSN",TB," SSA DOD",T B,"HAC DOD " ;MTN0248 08 DPT | |
303 | ;.Q ;MTN0 24808 DPT | |
304 | ;I CHCODE ="J" D Q ;MTN025810 DPT 4/14/ 16 | |
305 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS B ENEFICIARY NAME",TB, "DEERS SSN ",TB,"HAC SSN" ;MTN0 25810 DPT 4/14/16 | |
306 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
307 | ;I CHCODE ="K" D Q ;MTN025810 DPT 4/14/ 16 | |
308 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS B ENEFICIARY SSN",TB," DEERS BENE FICIARY DO B",TB,"HAC BENEFICIA RY DOB" ;M TN025810 D PT 4/14/16 | |
309 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
310 | ;I CHCODE ="L" D Q ; MTN02802 0 DPT | |
311 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS S EX",TB,"DE ERS BENEFI CIARY SSN" ,TB,"DEERS BENEFICIA RY NAME" ; MTN028020 DPT | |
312 | ;.Q ; MTN 028020 DPT | |
313 | ;I CHCODE ="M" D Q ;MTN025810 DPT 4/14/ 16 | |
314 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS R EL",TB,"DE ERS BENEFI CIARY SSN" ,TB,"DEERS BENEFICIA RY NAME",T B,"HAC REL " ;MTN0258 10 DPT 4/1 4/16 | |
315 | ;.Q ;MTN0 25810 DPT 4/14/16 | |
316 | ;I CHCODE ="N" D Q ;MTN02581 0 DPT 4/14 /16 ;DEV00 6349 JAK 1 1/19/2013 | |
317 | ;.U DRSR1 W !,"DEER S SPONSOR SSN",TB,"D EERS SPONS OR NAME",T B,"DEERS B ENEFICIARY SSN",TB," DEERS BENE FICIARY NA ME",TB,"DE ERS BEGIN DATE",TB," DEERS END DATE" ;MTN 025810 DPT 4/14/16 ;DEV006349 JAK 11/19 /2013 | |
318 | ;.Q ;MTN 025810 DPT 4/14/16 ; DEV006349 JAK 11/19/ 2013 | |
319 | I CHCODE= "O" D Q ; MTN027134 DPT MTN025 810 DPT 4/ 14/16 ;DE V006349 JA K 11/19/20 13 | |
320 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E",TB,"DEE RS BEGIN D ATE",TB,"D EERS END D ATE" ;MTN0 27134 DPT MTN025810 DPT 4/14/1 6 ;DEV006 349 JAK 11 /19/2013 | |
321 | .Q ;MTN0 25810 DPT 4/14/16 ;M TN027134 D PT DEV0063 49 JAK 11/ 19/2013 | |
322 | I CHCODE= "S" D Q | |
323 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E",TB,"DEE RS BEGIN D ATE",TB,"D EERS END D ATE" | |
324 | .Q | |
325 | I CHCODE= "X"!(CHCOD E="Y"!(CHC ODE="Z")) D Q ;DEV0 06349 JAK 11/19/2013 | |
326 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E" | |
327 | .Q | |
328 | I CHCODE ="E" D Q ;MTN027134 DPT MTN02 4808 DPT | |
329 | .U DRSR1 W !,"DEERS SPONSOR S SN",TB,"DE ERS SPONSO R NAME",TB ,"DEERS BE NEFICIARY SSN",TB,"D EERS BENEF ICIARY NAM E",TB,"CHA MPA EFF DA TE",TB,"SP ON DISABIL ITY DATE" ;MTN027134 DPT MTN02 4808 DPT | |
330 | .Q ;MTN02 7134 DPT M TN024808 D PT |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.