98. EPMO Open Source Coordination Office Redaction File Detail Report

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.

98.1 Files compared

# 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

98.2 Comparison summary

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

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

98.4 Active regular expressions

No regular expressions were active.

98.5 Comparison detail

  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
  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                 ")=""    ;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