32. EPMO Open Source Coordination Office Redaction File Detail Report

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

32.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRFRdemo.m Mon Nov 5 16:42:07 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRFRdemo.m Tue Nov 6 22:11:36 2018 UTC

32.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 9 834
Changed 8 18
Inserted 0 0
Removed 0 0

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

32.4 Active regular expressions

No regular expressions were active.

32.5 Comparison detail

  1   CHCMSRFR ; HAC/SKD;CM S REPLY FI LE READIN  AND GENERA TE DISCREP ANCY REPOR T MODULE;0 6/24/08  
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;;DEV0042 23-01: Add  Medicare  Part D Fie ld and HIC  Number (p art 2) 
  4    ;;DEV???  Added expo rt version  of the re port to a  file..see  variable F ILEOUT2
  5    ;;;^CHMZH OLD("ZSKD_ CMSREPLY", "NAME",CHL NAME,CHFNA ME,CHMI,CH SSN)=^CHMZ HOLD("ZSKD _CMSREPLY" ,BID)=
  6    ;;P1=SSN
  7    ;;P2=SEX
  8    ;;P3=DOB
  9    ;;P4=DOD
  10    ;;P5=FNAM E
  11    ;;P6=MI
  12    ;;P7=LNAM E
  13    ;;P8=CHMA SDT
  14    ;;P9=CHMA EDT
  15    ;;P10=CHM BSDT
  16    ;;P11=CHM BEDT
  17    ;;P13=DIS CREPANCY E RROR CODES
  18    ;;P12=HIC N   
  19    ;
  20    ;JSG;DEV0 05832-02;0 2/10/09;Au to populat e DODs fro m the CMS  Reply File
  21    ;DP; TST0 08413: 5/2 5/2010; CM S Data Mat ch - Codin g change t o load the  CMS data                 ;
  22    ;MTN02877 2 CHANGING  LINES THA T ORIGINAL LY EXECEED ED 255 CHA RACTERS.   DRW 07/28/ 2017
  23    ;;
  24    D ^CHMFSE T X CHRESE T
  25    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"
  26    ;U 0 W !, "For the s ystem to g enerate th e CMS disc repancy re port, five  files lis ted below  " ;DP; The  next 3 li nes are no t needed 
  27    ;U 0 W !, "must exis t in the  DNS     \cms\CMSRe plyFiles d irectory:    ;DP;
  28    ;U 0 W !! ,"            BENENAM E.TXT, HIC N.TXT, MED A.TXT, MED B.TXT, SSN .TXT." ;DP
  29    ;U 0 W !! ,"The disc repancy re port name  is CMS_DIS CREPANCY_R EPORT_MMYY .TXT and w ill be "
  30    ;U 0 W !, "output to  the  DNS     \CMS\CMS_D iscrepanci es directo ry."
  31    ;U 0 W !! ,"In addit ion a disc repancy ex port file  will be cr eated for  the Web Tr acker"
  32    ;U 0 W !, "Utility.  It is stor ed in HAC_ HFS$:[KERM IT.CMS.OUT ] director y with a n ame of "
  33    ;U 0 W !, "CMS_DISCR EPANCY_EXP ORT_MMYY.T XT and is  moved to t he network  using Mov eIt Script "
  34    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"
  35    ;U 0 W !! ,"O.K. con tinue (Y/N ) ?  " 
  36    ;U 0 D CS BRS^CHSC2 
  37    ;Q:$D(DFO UT)  Q:$D( DUOUT)
  38    ;I $P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY")),"^ ",3)'=1 S  ANS=0 D ME SS,STRT Q
  39    U 0 W !!, "Select Op tion: 1. F ull Run"
  40    U 0 W !,"                 2. Re set"
  41    U 0 W !,"                 3. Te st Run"
  42    U 0 W !,"                 4. Pr int Full R un"
  43    U 0 W !,"                 5. Re set All" 
  44    U 0 W !!, "     Opti on #: " R  ANS#2
  45    Q:ANS=""   I (ANS<1! (ANS>5)) Q
  46    I ANS=5 D  ^CHCMS101 0 Q
  47    I ANS=4 D  PRINT1 Q
  48    K:ANS'=2  ^CHMZHOLD( "CMS_RESET ")
  49    I ANS=2 D  RESET^CHC MS1009 Q
  50    I ANS=3 U  0 R "     Number of  test patie nts: ",NTP #3 S NTP1= 1
  51   STRT
  52    S CHRPTNM =""
  53    I $P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY")),"^" ,1)'="" S  CHRPTNM=$P ($G(^VA(20 0,$P(^CHMZ HOLD("ZSKD _CMSREPLY" ),"^",1),0 )),U,1)
  54    I CHRPTNM '="" W !!, "*"_$E(CHR PTNM,1,12) _" is runn ing the re port. Cont inue and o verwrite t he report  (Y/N)? " D  CSBRS^CHS C2 Q:$D(DF OUT)  Q:$D (DUOUT)  Q :$$UP^XLFS TR(Y)'="Y"
  55    S CHPTSK= "",CHPTSK= $P($G(^CHM ZHOLD("ZSK D_CMSREPLY ")),"^",2)
  56    I CHPTSK' ="",$D(^%Z TSCH("TASK ",CHPTSK))  K ^%ZTSCH ("TASK",CH PTSK)
  57    K ^CHMZHO LD("ZSKD_C MSREPLY")
  58    I ANS=3 U  0 W !!,"R emember to  change yo u terminal  setting t o 132 char acters wid e",! r x:2
  59    ;
  60   QUE ;
  61    I '$G(DUZ ) S DUZ=1
  62    S CHFIO=" ",ZTDTH=$H
  63    S ZTRTN=" START^CHCM SRFR",ZTDE SC="HAC CM S CROSS-MA TCH DISCRE PANCY REPO RT"
  64    S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("CH *")="",ZTS AVE("^CHMZ HOLD(""ZSK D_CMSREPLY "",")=""
  65    ;I ANS=3  D RFILE1 Q
  66    D RFILE1  Q:ANS=3
  67    I ANS=1 D  ^%ZTLOAD
  68   END ;
  69    Q
  70    ;
  71   START ;
  72    I ANS<3 D
  73    .S:'$D(ZT SK) ZTSK=1  S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_ZT SK
  74    .;S $ZE=" ",$ZT=""
  75   RFILE1 ;re adin ssn f ile
  76    D ^CHCMS1 009  ;DP;R EAD IN CMS 1009 VERSI ON
  77    ;D PRINT^ CHCMS1009,
  78    D PROCESS 1    ;DP;S KIP OLD FI LE READIN 
  79    Q
  80    S $ZE="", $ZT="RFILE 2^CHCMSRFR "
  81    S READFIL 1="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]SSN.TX T"
  82    O READFIL 1:"R":5 G: $ZE["ENDOF FILE" RFIL E2
  83    F  U READ FIL1 R TMP X G:$ZE["E NDOFFILE"  RFILE2 D
  84    .S (CHBID ,CHSSN,CHS EX)=""
  85    .Q:$E(TMP X,1)="B"
  86    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  87    .S CHSSN= $P(TMPX,", ",2) Q:CHS SN=""  Q:C HSSN'?9N
  88    .S CHSEX= $P(TMPX,", ",3),CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "")
  89    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",1)=CHS SN
  90    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",2)=CHS EX
  91   RFILE2 ;re adin benen ame file
  92    S $ZE="", $ZT="RFILE 3^CHCMSRFR "
  93    S READFIL 2="HACFS3" "
D NS      Welcome1!" "::e:[CMS. CMSREPLYFI LES]BENENA ME.TXT"
  94    O READFIL 2:"R":5 G: $ZE["ENDOF FILE" RFIL E3
  95    F  U READ FIL2 R TMP X G:$ZE["E NDOFFILE"  RFILE3 D
  96    .S (CHBID ,CHDOB,CHD OD,CHFNAME ,CHMI,CHLN AME,CHHICN )=""
  97    .Q:$E(TMP X,1)="B"
  98    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  99    .S CHDOB= $P(TMPX,", ",2) I CHD OB'="" S C HDOB=$$CON VDT(CHDOB)
  100    .S CHDOD= $P(TMPX,", ",3) I CHD OD'="" S C HDOD=$$CON VDT(CHDOD)
  101    .S CHFNAM E=$P(TMPX, ",",4),CHF NAME=$$TRI M^CHTFLIB( CHFNAME),C HFNAME=$$L TRIM^CHTFL IB(CHFNAME )
  102    .S CHMI=$ P(TMPX,"," ,5),CHMI=$ $TRIM^CHTF LIB(CHMI), CHMI=$$LTR IM^CHTFLIB (CHMI)
  103    .S CHLNAM E=$P(TMPX, ",",6),CHL NAME=$$TRI M^CHTFLIB( CHLNAME),C HLNAME=$$L TRIM^CHTFL IB(CHLNAME )
  104    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",3)=CHD OB
  105    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",4)=CHD OD
  106    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",5)=CHF NAME
  107    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",6)=CHM I
  108    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",7)=CHL NAME
  109   RFILE3 ;re adin MEDA  file
  110    S $ZE="", $ZT="RFILE 4^CHCMSRFR "
  111    S READFIL 3="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDA.T XT"
  112    O READFIL 3:"R":5 G: $ZE["ENDOF FILE" RFIL E4
  113    F  U READ FIL3 R TMP X G:$ZE["E NDOFFILE"  RFILE4 D
  114    .S (CHBID ,CHMASDT,C HMAEDT,CHM ARNCD,CHMA STCD)=""
  115    .Q:$E(TMP X,1)="B"
  116    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  117    .S CHMASD T=$P(TMPX, ",",2) I C HMASDT'=""  S CHMASDT =$$CONVDT( CHMASDT)
  118    .S CHMAED T=$P(TMPX, ",",3) I C HMAEDT'=""  S CHMAEDT =$$CONVDT( CHMAEDT)
  119    .S CHMARN CD=$P(TMPX ,",",4)
  120    .S CHMAST CD=$P(TMPX ,",",5)
  121    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",8)=CHM ASDT
  122    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",9)=CHM AEDT
  123   RFILE4 ;re adin MEDB  file
  124    S $ZE="", $ZT="RFILE 5^CHCMSRFR "
  125    S READFIL 4="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDB.T XT"
  126    O READFIL 4:"R":5 G: $ZE["ENDOF FILE" RFIL E5
  127    F  U READ FIL4 R TMP X G:$ZE["E NDOFFILE"  RFILE5 D
  128    .S (CHBID ,CHMBSDT,C HMBEDT,CHM BRNCD,CHMB STCD)=""
  129    .Q:$E(TMP X,1)="B"
  130    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  131    .S CHMBSD T=$P(TMPX, ",",2) I C HMBSDT'=""  S CHMBSDT =$$CONVDT( CHMBSDT)
  132    .S CHMBED T=$P(TMPX, ",",3) I C HMBEDT'=""  S CHMBEDT =$$CONVDT( CHMBEDT)
  133    .S CHMBRN CD=$P(TMPX ,",",4)
  134    .S CHMBST CD=$P(TMPX ,",",5)
  135    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",10)=CH MBSDT
  136    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",11)=CH MBEDT
  137   RFILE5 ;re adin HICN  file
  138    S $ZE="", $ZT="PROCE SS^CHCMSRF R"
  139    S READFIL 5="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]HICN.T XT"
  140    O READFIL 5:"R":5 G: $ZE["ENDOF FILE" PROC ESS
  141    F  U READ FIL5 R TMP X G:$ZE["E NDOFFILE"  PROCESS D
  142    .S (CHBID ,CHHICN)=" "
  143    .Q:$E(TMP X,1)="B"
  144    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  145    .S CHHICN =$P(TMPX," ,",2)
  146    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",12)=CH HICN
  147   PROCESS ;
  148    S $ZE="", $ZT="",$EC ODE=$ZE 
  149    I $D(READ FIL1) C RE ADFIL1
  150    I $D(READ FIL2) C RE ADFIL2
  151    I $D(READ FIL3) C RE ADFIL3
  152    I $D(READ FIL4) C RE ADFIL4
  153   PROCESS1 ; DP;new sta rting poin t
  154    ;compare  CMS data a gainst the  HAC's
  155    D NOW^%DT C S CHDTTM =%
  156    S (CHTDSC RE,CHTSSN, CHTNAME,CH TDOB,CHTDO D,CHTHICN, CHTMABD,CH TMAED,CHTM BBD,CHTMBE D)=0
  157    S CHBID=0
  158    F  S CHBI D=$O(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID)) G :'CHBID PR INT D
  159    .S (CHSSN ,CHSEX,CHD OB,CHDOD,C HFNAME,CHM I,CHLNAME, CHMASDT,CH MAEDT,CHMB SDT,CHMBED T,CHHICN)= ""
  160    .S CHSSN= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 1)
  161    .I CHSSN' ="" S CHTS SN=CHTSSN+ 1
  162    .S CHSEX= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 2) ;,CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "");DP
  163    .S CHDOB= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 3)
  164    .S CHDOD= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 4)
  165    .S CHFNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",5)
  166    .S CHMI=$ P(^CHMZHOL D("ZSKD_CM SREPLY",CH BID),"^",6 )
  167    .S CHLNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",7)
  168    .S CHMASD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",8)
  169    .S CHMAED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",9)
  170    .S CHMBSD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",10)
  171    .S CHMBED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",11)
  172    .S CHHICN =$P(^CHMZH OLD("ZSKD_ CMSREPLY", CHBID),"^" ,12)
  173    .S CHNOSS N=0,CHERR= ""
  174    .D GHACDA TA
  175    .;Set NO  HAC SSN MA TCH error  to error c ode "I"
  176    .;I CHNOS SN S CHERR ="NO HAC S SN MATCH"  D SETERR Q
  177    .I CHNOSS N S CHERR= "I" D SETE RR Q
  178    .;I CHLNA ME'=CHHLNA ME!(CHMI'= CHHMI)!(CH FNAME'=CHH FNAME) S C HERR="A,", CHTNAME=CH TNAME+1,CH TDSCRE=CHT DSCRE+1
  179    .I $$UP^X LFSTR(CHLN AME)'=$$UP ^XLFSTR(CH HLNAME) S  CHERR="A," ,CHTNAME=C HTNAME+1,C HTDSCRE=CH TDSCRE+1
  180    .S:CHHDOB '="" CHHDO B=$$GETDT( CHHDOB)
  181    .I CHDOB' =CHHDOB S  CHERR=CHER R_"B,",CHT DOB=CHTDOB +1,CHTDSCR E=CHTDSCRE +1
  182    .S:CHHDOD ?7N CHHDOD =$$GETDT(C HHDOD)
  183    .I CHDOD' =CHHDOD S  CHERR=CHER R_"C,",CHT DOD=CHTDOD +1,CHTDSCR E=CHTDSCRE +1
  184    .I CHHHIC N'="" D
  185    ..I $$UP^ XLFSTR(CHH ICN)'=$$UP ^XLFSTR(CH HHICN) S C HERR=CHERR _"D,",CHTH ICN=CHTHIC N+1,CHTDSC RE=CHTDSCR E+1
  186    .S:CHHMAS DT'="" CHH MASDT=$$GE TDT(CHHMAS DT)
  187    .I CHMASD T'=CHHMASD T S CHERR= CHERR_"E," ,CHTMABD=C HTMABD+1,C HTDSCRE=CH TDSCRE+1
  188    .S:CHHMAE DT'="" CHH MAEDT=$$GE TDT(CHHMAE DT)
  189    .I CHMAED T'=CHHMAED T S CHERR= CHERR_"F," ,CHTMAED=C HTMAED+1,C HTDSCRE=CH TDSCRE+1
  190    .S:CHHMBS DT CHHMBSD T=$$GETDT( CHHMBSDT)
  191    .I CHMBSD T'=CHHMBSD T S CHERR= CHERR_"G," ,CHTMBBD=C HTMBBD+1,C HTDSCRE=CH TDSCRE+1
  192    .S:CHHMBE DT'="" CHH MBEDT=$$GE TDT(CHHMBE DT)
  193    .I CHMBED T'=CHHMBED T S CHERR= CHERR_"H", CHTMBED=CH TMBED+1,CH TDSCRE=CHT DSCRE+1
  194    .D SETERR
  195    .D DODCHK ^CHCMSAP1( CHDOD,CHHD OD,CHDOB,C HHDOB,DFN, BFN,CHSSN, CHBNAME)   ;JSG;DEV00 5832;2/20/ 09
  196    .;U 0 W ! ,CHHICN,"   ",CHHHICN  R XXX
  197    .I CHHICN '="",CHHHI CN="" D  
  198    ..S $P(^A HCHVA(DFN, 100,BFN,0) ,"^",39)=$ $UP^XLFSTR (CHHICN)
  199    ..S ^AHCH VA("M",CHH ICN,DFN,BF N)=""
  200    ..Q:'$D(^ AHCHVA(DFN ,100,BFN))
  201    ..S CHK=9 99999,CHK= $O(^AHCHVA (DFN,100,B FN,110,CHK ),-1)
  202    ..I 'CHK  S CHK=1
  203    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",28)=1
  204    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",29)=1
  205    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",30)=CHD TTM
  206   PRINT ;
  207    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  208    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  209    D GETDATE
  210    I ANS=3 S  (FILEOUT, FILEOUT2)= 0 D PRINT1  Q
  211    ;HIPAA Re ady Team T rack #: 53 10 Begin
  212    ;Added ex port versi on of the  report see  variable  FILEOUT2
  213    S FILEOUT ="HACFS3""
D NS      Welcome1!" "::e:[CMS. CMS_Discre pancies]CM S_DISCREPA NCY_REPORT _"_MMYY_". TXT"     ;SKD, 3-5- 09, BUG004 223-06-01
  214    I UCI'="H AC" S FILE OUT="HACFS 3""
D NS      Welcome1!" "::e:[CMS. CMS_Discre pancies]CM S_DISCREPA NCY_REPORT _"_MMYY_"_ "_UCI_".TX T"     ;SKD, 3-5- 09, BUG004 223-06-01
  215    S FILEOUT 2="HAC_HFS $:[KERMIT. CMS.OUT]CM S_"_MMYY_" _DATA.TXT"    
  216    O FILEOUT  C FILEOUT :"D"
  217    O FILEOUT :"NWS"
  218    O FILEOUT 2 C FILEOU T2:"D"
  219    O FILEOUT 2:"NWS"
  220    ;HIPAA Re ady Team T rack #: 53 10 END
  221   PRINT1
  222    S PG=1
  223    D HEAD
  224    D DETAIL
  225    D TAIL
  226    C FILEOUT
  227    C FILEOUT 2
  228    D KILLVAR
  229   DODPOP ;JS G;DEV00583 2;2/20/09;
  230    S ZTRTN=" DODAUTO^CH CMSAP1",ZT DESC="AUTO  POPULATE  CMS DODs", ZTIO="",ZT DTH=$H ;JS G;DEV00583 2;2/20/09
  231    I ANS<3 D  ^%ZTLOAD
  232    D DODAUTO ^CHCMSAP1                                          ;JS G;DEV00583 2;2/20/09; Start DOD  auto popul ate job
  233    Q
  234    ;
  235   SETERR ;
  236    S $P(^CHM ZHOLD("ZSK D_CMSREPLY ",CHBID)," ^",13)=$S( $E(CHERR,$ L(CHERR))= ",":$E(CHE RR,1,$L(CH ERR)-1),1: CHERR)
  237    I CHFNAME ="" S CHFN AME="XXX"
  238    I CHMI=""  S CHMI="X XX"
  239    I CHLNAME ="" S CHLN AME="XXX"
  240    S ^CHMZHO LD("ZSKD_C MSREPLY"," NAME",CHLN AME,CHFNAM E,CHMI,CHS SN)=^CHMZH OLD("ZSKD_ CMSREPLY", CHBID)
  241    Q
  242    ;
  243   GHACDATA ; get data f rom the HA C Bene fil e
  244    S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)=""
  245    S CHNOSSN =0
  246    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  247    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  248    S (DFN,BF N)=""
  249    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  250    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  251    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  252    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  253    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  254    S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1)
  255    S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME)
  256    S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI)
  257    S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME)
  258    D HACMEDA ,HACMEDB
  259    S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39)
  260    S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN)
  261    Q
  262    ;
  263   HACMEDA ;
  264    Q:'$D(^AH CHVA(DFN,1 00,BFN,111 ))
  265    S CHHMADT P=99999999 99
  266    S CHHMADT P=$O(^AHCH VA(DFN,100 ,BFN,111,C HHMADTP),- 1)
  267    I CHHMADT P D
  268    .S CHHMAS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 1)
  269    .S CHHMAE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 4)
  270    Q
  271    ;
  272   HACMEDB ;
  273    Q:'$D(^AH CHVA(DFN,1 00,BFN,112 ))
  274    S CHHMBDT P=99999999 99
  275    S CHHMBDT P=$O(^AHCH VA(DFN,100 ,BFN,112,C HHMBDTP),- 1)
  276    I CHHMBDT P D
  277    .S CHHMBS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 1)
  278    .S CHHMBE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 4)
  279    Q 
  280    ;
  281   CONVDT(D)   ;Converts  external  date (01SE P2007) to  FileMan da te (307090 1)
  282    S X=D D ^ %DT K X,%D T
  283    Q Y
  284    ;
  285   KILLVAR ;
  286    S $ZE="", $ZT=""
  287    ;K ^CHMZH OLD("ZSKD_ CMSREPLY")
  288    K CHRPTNM ,Y
  289    K CHCMS,R EADFIL1,RE ADFIL2,REA DFIL3,READ FIL4,TMPX, CHBID,CHSS N,CHSEX,CH DOB,CHDOD, CHFNAME,CH MI,CHLNAME ,CHHICN
  290    K CHMASDT ,CHMAEDT,C HMARNCD,CH MASTCD,CHM BSDT,CHMBE DT,CHMBRNC D,CHMBSTCD ,CHERR,CHN OSSN
  291    K CHHSEX, CHHDOB,CHH DOD,CHHFNA ME,CHHMI,C HHLNAME,CH HMASDT,CHH MAEDT,CHHM BSDT,CHHMB EDT,CHHHIC N,DFN,BFN, BNAME,CHSS N
  292    K CHHMADT P,CHHMBDTP ,CHTDSCRE, CHTSSN,CHT NAME,CHTDO B,CHTDOD,C HTHICN,CHT MABD,CHTMA ED,CHTMBBD ,CHTMBED
  293    Q
  294    ;
  295   HEAD ;
  296    I '$G(DUZ ) S DUZ=1
  297    S TITLE1= "HEALTH AD MINISTRATI ON CENTER"
  298    S TITLE2= "HAC CMS C ROSS-MATCH  DISCREPAN CIES REPOR T"
  299    S:'$D(MMY YYY) MMYYY Y=$ZD($H)  S:ANS=4 FI LEOUT=0
  300    S TITLE3= "For Time  Period "_M MYYYY
  301    S TITLE4= "Discrepan t Name, DO B, DOD, HI CN & Medic are Enroll ment Dates "
  302    U FILEOUT  W !,DUZ,? 55,TITLE1, ?123,"page : ",PG
  303    U FILEOUT  W !,$$FMT E^XLFDT(DT ,"5D"),?49 ,TITLE2 
  304    U FILEOUT  I $D(M) W  !,H_":"_M ,?56,TITLE 3
  305    U FILEOUT  W !!,?37, TITLE4
  306    U FILEOUT  W !!,?116 ,"ERROR"
  307    U FILEOUT  W !,"SSN" ,?12,"NAME ",?30,"DOB ",?42,"DOD ",?54,"HIC N",?68,"A  BEG",?80," A END",?92 ,"B BEG",? 104,"B END ",?116,"CO DE(S)"
  308    U FILEOUT  W !,"---- -----",?12 ,"-------- -------",? 30,"------ ----",?42, "--------- -",?54,"-- --------", ?68,"----- -----",?80 ,"-------- --",?92,"- ---------" ,?104,"--- -------",? 116,"----- -----"
  309    U FILEOUT  W !
  310    S PG=PG+1
  311    Q
  312    ;
  313   DETAIL ;
  314    S DL="^"
  315    S CHLNAME ="" F  S C HLNAME=$O( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME )) Q:CHLNA ME=""  D
  316    .S CHFNAM E="" F  S  CHFNAME=$O (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME) ) Q:CHFNAM E=""  D  
  317    ..S CHMI= "" F  S CH MI=$O(^CHM ZHOLD("ZSK D_CMSREPLY ","NAME",C HLNAME,CHF NAME,CHMI) ) Q:CHMI=" "  D  
  318    ...S CHSS N=0 F  S C HSSN=$O(^C HMZHOLD("Z SKD_CMSREP LY","NAME" ,CHLNAME,C HFNAME,CHM I,CHSSN))  Q:'CHSSN   D  
  319    ....S (CH NAME,CHDOB ,CHDOD,CHH ICN,CHMASD T,CHMAEDT, CHMBSDT,CH MBEDT,CHER R)=""
  320    ....S CHN AME=$S(CHL NAME="XXX" :"",1:CHLN AME)_", "_ $S(CHFNAME ="XXX":"", 1:CHFNAME) _" "_$S(CH MI="XXX":" ",1:CHMI)
  321    ....S CHD OB=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",3)
  322    ....S CHD OD=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",4)
  323    ....S CHM ASDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",8)
  324    ....S CHM AEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",9)
  325    ....S CHM BSDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",10)
  326    ....S CHM BEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",11)
  327    ....S CHH ICN=$P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME ,CHFNAME,C HMI,CHSSN) ),"^",12)
  328    ....S CHE RR=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",13) Q :CHERR=""   
  329    ....U FIL EOUT I $Y> 56 R:ANS=4  XXX W !!! ,# D HEAD
  330    ....I ANS >2 U FILEO UT W !,CHS SN,?12,$E( CHLNAME_",  "_CHFNAME _" "_CHMI, 1,15),?30, $$FMTE^XLF DT(CHDOB," 5D")
  331    ....W ?42 ,$$FMTE^XL FDT(CHDOD, "5D"),?54, CHHICN,?68 ,$$FMTE^XL FDT(CHMASD T,"5D")
  332    ....W ?80 ,$$FMTE^XL FDT(CHMAED T,"5D"),?9 2,$$FMTE^X LFDT(CHMBS DT,"5D")
  333    ....W ?10 4,$$FMTE^X LFDT(CHMBE DT,"5D"),? 116,CHERR 
  334    ....I ANS >2 U FILEO UT D DATA  W !,CHHSSN ,?12,$E(CH BNAME,1,15 ),?30,$$FM TE^XLFDT(C HHDOB,"5D" ),?42,$$FM TE^XLFDT(C HHDOD,"5D" ),?54,CHHH ICN,?68,$$ FMTE^XLFDT (CHHMASDT, "5D")
  335    ....W ?80 ,$$FMTE^XL FDT(CHHMAE DT,"5D"),? 92,$$FMTE^ XLFDT(CHHM BSDT,"5D") ,?104,$$FM TE^XLFDT(C HHMBEDT,"5 D"),!
  336    ....;HIPA A Ready Te am Track # : 5310 Beg in
  337    ....;Adde d export v ersion of  the report  see varia ble FILEOU T2
  338    ....;CJM  long line  split 2017 0729
  339    ....;"--- ------",?1 2,"------- --------", ?30,"----- -----",?42 ,"-------- --",?54,"- ---------" ,?68,"---- ------",?8 0,"------- ---",?92," ---------- ",?104,"-- --------", ?116,"---- ------"
  340    ....;---- ------160- ---------- -------190 -------200 ---------- ---------- ---------- ----238                                              1 85                       200          
  341    ....I FIL EOUT2'=0 D  
  342    .....U FI LEOUT2 W ! ,CHSSN_DL_ $E(CHNAME, 1,15)_DL_$ $FMTE^XLFD T(CHDOB,"5 D")_DL_$$F MTE^XLFDT( CHDOD,"5D" )_DL_CHHIC N_DL_$$FMT E^XLFDT(CH MASDT,"5D" )_DL
  343    .....U FI LEOUT2 W $ $FMTE^XLFD T(CHMAEDT, "5D")_DL_$ $FMTE^XLFD T(CHMBSDT, "5D")_DL_$ $FMTE^XLFD T(CHMBEDT, "5D")_DL_C HERR,!
  344    ....;HIPA A Ready Te am Track # : 5310 End
  345    Q
  346   DATA ;get  data from  the HAC Be ne file
  347    S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)=""
  348    S CHNOSSN =0
  349    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  350    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  351    S (DFN,BF N)=""
  352    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  353    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  354    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  355    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  356    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  357    S CHHSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9)
  358    S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1)
  359    S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME)
  360    S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI)
  361    S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME)
  362    D HACMEDA ,HACMEDB
  363    S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39)
  364    S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN)
  365    Q       
  366   TAIL ;
  367    Q:ANS=4
  368    U FILEOUT
  369    W !!!,"To tal Number  of Possib le Discrep ancies: ", $G(CHTDSCR E)
  370    W !,"Tota l Number o f SSNs: ", $G(CHTSSN)
  371    W !,"Tota l Number o f Name Dis crepancies : ",$G(CHT NAME)
  372    W !,"Tota l Number o f DOB Disc repancies:  ",$G(CHTD OB)
  373    W !,"Tota l Number o f DOD Disc repancies:  ",$G(CHTD OD)
  374    W !,"Tota l Number o f HICN Dis crepancies : ",$G(CHT HICN)
  375    W !,"Tota l Number o f A Begin  Date Discr epancies:  ",$G(CHTMA BD)
  376    W !,"Tota l Number o f A End Da te Discrep ancies: ", $G(CHTMAED )
  377    W !,"Tota l Number o f B Begin  Date Discr epancies:  ",$G(CHTMB BD)
  378    W !,"Tota l Number o f B End Da te Discrep ancies: ", $G(CHTMBED )
  379    W !,"Tota l Number o f records  sent in fi nder file:  ",$G(^CHM ZHOLD("ZSK DCMS_LASTF NDRFILECT" ))
  380    W !!!,"ER ROR CODE L EGEND:"
  381    W !,"A =  Name Discr epancy"
  382    W !,"B =  Date of Bi rth Discre pancy"
  383    W !,"C =  Date of De ath Discre pancy"
  384    W !,"D =  Health Ins urance Cla im Number  (HICN) Dis crepancy"
  385    W !,"E =  Medicare A  Begin Dat e Discrepa ncy"
  386    W !,"F =  Medicare A  End Date  Discrepanc y"
  387    W !,"G =  Medicare B  Begin Dat e Discrepa ncy"
  388    W !,"H =  Medicare B  End Date  Discrepanc y"
  389    Q
  390    ;
  391   GETDATE ;
  392    I '$D(DT)  D NOW^%DT C S DT=X
  393    S X=DT D  DTPRT S CH DT=Y
  394    S H=$P($H ,",",2)\36 00,M=$P($H ,",",2)#36 00\60 S:H< 10 H=0_H S :M<10 M=0_ M
  395    S (YY,MM, PMM)=""
  396    S YY=$E(D T,1,3),MM= $E(DT,4,5)
  397    I MM="01"  S YY=YY-1
  398    S PMM=$S( MM="01":"1 2",MM="02" :"01",MM=" 03":"02",M M="04":"03 ",MM="05": "04",MM="0 6":"05",MM ="07":"06" ,MM="08":" 07",MM="09 ":"08",MM= "10":"09", MM="11":"1 0",MM="12" :"11",1:"" )
  399    Q:PMM=""
  400    S MMYY=PM M_$E(YY,2, 3)
  401    S MMYYYY= PMM_"/"_(Y Y+1700)
  402    Q
  403    ;
  404   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  405    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  406    Q
  407   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  408    Q
  409    ;
  410   GETDT(D1)  ;;Convert  filman dat e to MM/DD /YYYY
  411           ;;  In some i nstances t he year 20 00 indicat ion is mis sing and I  need to
  412           ;; concatenat e it to th e rest of  the date.
  413           S  (D1,X)=$P( D1,".",1)
  414           S: D1?6N D1=3 _D1 Q:D1'? 7N
  415           S  (YY,MM,DD) =""
  416           S  YY=20 S:$E (X,1)=2 YY =19
  417           S  MM=$E(X,4, 5),DD=$E(X ,6,7),YY=Y Y_$E(X,2,3 )
  418           Q  YY_MM_DD
  419           Q
  420   MESS ;
  421    U 0 W !," Initializa tion will  take about  90 min an d will run  in the ba ckground."
  422    R X:10
  423    Q
  424    
  425           
  426