31. EPMO Open Source Coordination Office Redaction File Detail Report

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

31.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRFR.m Mon Nov 5 16:44:08 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRFR.m Tue Nov 6 22:10:38 2018 UTC

31.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 11 986
Changed 10 22
Inserted 0 0
Removed 0 0

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

31.4 Active regular expressions

No regular expressions were active.

31.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    ;;COMMENT ED OFF DUE  $$GETDT F UNCTION TO  KEEP DATE S IN FILEM AN FORMAT  - AEB 4/27 /2011
  7    ;;P1=SSN
  8    ;;P2=SEX
  9    ;;P3=DOB
  10    ;;P4=DOD
  11    ;;P5=FNAM E
  12    ;;P6=MI
  13    ;;P7=LNAM E
  14    ;;P8=CHMA SDT
  15    ;;P9=CHMA EDT
  16    ;;P10=CHM BSDT
  17    ;;P11=CHM BEDT
  18    ;;P13=DIS CREPANCY E RROR CODES
  19    ;;P12=HIC N   
  20    ;
  21    ;JSG;DEV0 05832-02;0 2/10/09;Au to populat e DODs fro m the CMS  Reply File
  22    ;DP; TST0 08413: 5/2 5/2010; CM S Data Mat ch - Codin g change t o load the  CMS data                 ;
  23    ;JEH; DEV 013737-11/ 14/11;CMS  End of Fil e clean up  
  24    ;SBB; DEF 018404-06/ 27/13 - In itializing  variable  CHBNAME to  "Not Foun d", that w ay when a
  25    ;;                            r ecord is n ot found i n ^AHCHVA  it wont di splay prev ious name.
  26    ;SBB; DEF 016554-11/ 19/13 - Mo dified Wri ting to a  file as pe r VHA stan dard.
  27    ;SBB; DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET
  28    ;;
  29    D ^CHMFSE T  X CHRES ET
  30    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"
  31    ;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 
  32    ;U 0 W !, "must exis t in the  DNS     \cms\CMSRe plyFiles d irectory:    ;DP;
  33    ;U 0 W !! ,"            BENENAM E.TXT, HIC N.TXT, MED A.TXT, MED B.TXT, SSN .TXT." ;DP
  34    ;U 0 W !! ,"The disc repancy re port name  is CMS_DIS CREPANCY_R EPORT_MMYY .TXT and w ill be "
  35    ;U 0 W !, "output to  the  DNS     \CMS\CMS_D iscrepanci es directo ry."
  36    ;U 0 W !! ,"In addit ion a disc repancy ex port file  will be cr eated for  the Web Tr acker"
  37    ;U 0 W !, "Utility.  It is stor ed in HAC_ HFS$:[KERM IT.CMS.OUT ] director y with a n ame of "
  38    ;U 0 W !, "CMS_DISCR EPANCY_EXP ORT_MMYY.T XT and is  moved to t he network  using Mov eIt Script "
  39    ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********"
  40    ;U 0 W !! ,"O.K. con tinue (Y/N ) ?  " 
  41    ;U 0 D CS BRS^CHSC2 
  42    ;Q:$D(DFO UT)  Q:$D( DUOUT)
  43    ;I $P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY")),"^ ",3)'=1 S  ANS=0 D ME SS,STRT Q
  44    
  45    /* ;JEH;  DEV013737- 11/14/11 -  NOT USED  AT THIS TI ME - BEGIN
  46    U 0 W !!, "Select Op tion: 1. F ull Run"
  47    U 0 W !,"                 2. Re set"
  48    U 0 W !,"                 3. Te st Run"
  49    U 0 W !,"                 4. Pr int Full R un"
  50    U 0 W !,"                 5. Re set All"
  51    U 0 W !,"                 6. Ju lia"
  52    U 0 W !!, "     Opti on #: " R  ANS#2
  53    Q:ANS=""   I (ANS<1! (ANS>6)) Q
  54    I ANS=6 D  PRINT^CHC MS1009 Q
  55    I ANS=5 D  ^CHCMS101 0 Q
  56    I ANS=4 D  PRINT1 Q
  57    K:ANS'=2  ^CHMZHOLD( "CMS_RESET ")
  58    I ANS=2 D  RESET^CHC MS1009 Q
  59    I ANS=3 U  0 R "     Number of  test patie nts: ",NTP #3 S NTP1= 1
  60    */ ;JEH;  DEV013737- 11/14/11 -  NOT USED  AT THIS TI ME - END
  61    S ANS=1 ; JEH; DEV01 3737-11/14 /11 - GIVI NG USER ON LY 1 OPTIO N {Full Ru n}
  62   STRT
  63    S CHRPTNM =""
  64    I $P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY")),"^" ,1)'="" S  CHRPTNM=$P ($G(^VA(20 0,$P(^CHMZ HOLD("ZSKD _CMSREPLY" ),"^",1),0 )),U,1)
  65    ;I CHRPTN M'="" W !! ,"*"_$E(CH RPTNM,1,12 )_" is run ning the r eport. Con tinue and  overwrite  the report  (Y/N)? "  D CSBRS^CH SC2 Q:$D(D FOUT)  Q:$ D(DUOUT)   Q:$$UP^XLF STR(Y)'="Y "
  66    S CHPTSK= "",CHPTSK= $P($G(^CHM ZHOLD("ZSK D_CMSREPLY ")),"^",2)
  67    I CHPTSK' ="",$D(^%Z TSCH("TASK ",CHPTSK))  K ^%ZTSCH ("TASK",CH PTSK)
  68    K ^CHMZHO LD("ZSKD_C MSREPLY")
  69    I ANS=3 U  0 W !!,"R emember to  change yo u terminal  setting t o 132 char acters wid e",! r x:2
  70    ;
  71   QUE ;
  72    I '$G(DUZ ) S DUZ=1
  73    S CHFIO=" ",ZTDTH=$H
  74    S ZTRTN=" START^CHCM SRFR",ZTDE SC="HAC CM S CROSS-MA TCH DISCRE PANCY REPO RT"
  75    S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("CH *")="",ZTS AVE("^CHMZ HOLD(""ZSK D_CMSREPLY "",")=""
  76    S ZTSAVE( "ANS")=""      ;JEH;  DEV013737- 11/14/11
  77    ;I ANS=3  D RFILE1 Q
  78    ;D RFILE1  Q:ANS=3       ;JEH;  DEV013737- 11/14/11 -  NOT USED  AT THIS TI ME.
  79    D ^%ZTLOA D     ;JEH ; DEV01373 7-11/14/11
  80    Q
  81    I ANS=1 D  ^%ZTLOAD      ;JEH;  DEV013737- 11/14/11 -  NOT USED  AT THIS TI ME.
  82   END ;
  83    Q
  84    ;
  85   START ;
  86    I ANS<3 D
  87    .S:'$D(ZT SK) ZTSK=1  S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_ZT SK
  88    .S $ZE="" ,$ZT="PROC ESS1^CHCMS RFR"
  89   RFILE1 ;re adin ssn f ile
  90    U 0 W !!, "..."
  91    D ^CHCMS1 009  ;DP;R EAD IN CMS 1009 VERSI ON
  92    ;D PRINT^ CHCMS1009,
  93   P U 0 W !! ,"..." D P ROCESS1     ;DP;SKIP  OLD FILE R EADIN 
  94    Q
  95    S $ZE="", $ZT="RFILE 2^CHCMSRFR "
  96    S READFIL 1="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]SSN.TX T"
  97    O READFIL 1:"R":5 G: $ZE["ENDOF FILE" RFIL E2
  98    F  U READ FIL1 R TMP X G:$ZE["E NDOFFILE"  RFILE2 D
  99    .S (CHBID ,CHSSN,CHS EX)=""
  100    .Q:$E(TMP X,1)="B"
  101    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  102    .S CHSSN= $P(TMPX,", ",2) Q:CHS SN=""  Q:C HSSN'?9N
  103    .S CHSEX= $P(TMPX,", ",3),CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "")
  104    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",1)=CHS SN
  105    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",2)=CHS EX
  106   RFILE2 ;re adin benen ame file
  107    S $ZE="", $ZT="RFILE 3^CHCMSRFR "
  108    S READFIL 2="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]BENENA ME.TXT"
  109    O READFIL 2:"R":5 G: $ZE["ENDOF FILE" RFIL E3
  110    F  U READ FIL2 R TMP X G:$ZE["E NDOFFILE"  RFILE3 D
  111    .S (CHBID ,CHDOB,CHD OD,CHFNAME ,CHMI,CHLN AME,CHHICN )=""
  112    .Q:$E(TMP X,1)="B"
  113    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  114    .S CHDOB= $P(TMPX,", ",2) I CHD OB'="" S C HDOB=$$CON VDT(CHDOB)
  115    .S CHDOD= $P(TMPX,", ",3) I CHD OD'="" S C HDOD=$$CON VDT(CHDOD)
  116    .S CHFNAM E=$P(TMPX, ",",4),CHF NAME=$$TRI M^CHTFLIB( CHFNAME),C HFNAME=$$L TRIM^CHTFL IB(CHFNAME )
  117    .S CHMI=$ P(TMPX,"," ,5),CHMI=$ $TRIM^CHTF LIB(CHMI), CHMI=$$LTR IM^CHTFLIB (CHMI)
  118    .S CHLNAM E=$P(TMPX, ",",6),CHL NAME=$$TRI M^CHTFLIB( CHLNAME),C HLNAME=$$L TRIM^CHTFL IB(CHLNAME )
  119    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",3)=CHD OB
  120    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",4)=CHD OD
  121    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",5)=CHF NAME
  122    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",6)=CHM I
  123    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",7)=CHL NAME
  124   RFILE3 ;re adin MEDA  file
  125    S $ZE="", $ZT="RFILE 4^CHCMSRFR "
  126    S READFIL 3="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDA.T XT"
  127    O READFIL 3:"R":5 G: $ZE["ENDOF FILE" RFIL E4
  128    F  U READ FIL3 R TMP X G:$ZE["E NDOFFILE"  RFILE4 D
  129    .S (CHBID ,CHMASDT,C HMAEDT,CHM ARNCD,CHMA STCD)=""
  130    .Q:$E(TMP X,1)="B"
  131    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  132    .S CHMASD T=$P(TMPX, ",",2) I C HMASDT'=""  S CHMASDT =$$CONVDT( CHMASDT)
  133    .S CHMAED T=$P(TMPX, ",",3) I C HMAEDT'=""  S CHMAEDT =$$CONVDT( CHMAEDT)
  134    .S CHMARN CD=$P(TMPX ,",",4)
  135    .S CHMAST CD=$P(TMPX ,",",5)
  136    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",8)=CHM ASDT
  137    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",9)=CHM AEDT
  138   RFILE4 ;re adin MEDB  file
  139    S $ZE="", $ZT="RFILE 5^CHCMSRFR "
  140    S READFIL 4="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]MEDB.T XT"
  141    O READFIL 4:"R":5 G: $ZE["ENDOF FILE" RFIL E5
  142    F  U READ FIL4 R TMP X G:$ZE["E NDOFFILE"  RFILE5 D
  143    .S (CHBID ,CHMBSDT,C HMBEDT,CHM BRNCD,CHMB STCD)=""
  144    .Q:$E(TMP X,1)="B"
  145    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  146    .S CHMBSD T=$P(TMPX, ",",2) I C HMBSDT'=""  S CHMBSDT =$$CONVDT( CHMBSDT)
  147    .S CHMBED T=$P(TMPX, ",",3) I C HMBEDT'=""  S CHMBEDT =$$CONVDT( CHMBEDT)
  148    .S CHMBRN CD=$P(TMPX ,",",4)
  149    .S CHMBST CD=$P(TMPX ,",",5)
  150    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",10)=CH MBSDT
  151    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",11)=CH MBEDT
  152   RFILE5 ;re adin HICN  file
  153    S $ZE="", $ZT="PROCE SS^CHCMSRF R"
  154    S READFIL 5="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMSREPLYFI LES]HICN.T XT"
  155    O READFIL 5:"R":5 G: $ZE["ENDOF FILE" PROC ESS
  156    F  U READ FIL5 R TMP X G:$ZE["E NDOFFILE"  PROCESS D
  157    .S (CHBID ,CHHICN)=" "
  158    .Q:$E(TMP X,1)="B"
  159    .S CHBID= $P(TMPX,", ",1) Q:CHB ID=""
  160    .S CHHICN =$P(TMPX," ,",2)
  161    .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",12)=CH HICN
  162   PROCESS ;
  163    S $ZE="", $ZT="",$EC ODE=$ZE 
  164    I $D(READ FIL1) C RE ADFIL1
  165    I $D(READ FIL2) C RE ADFIL2
  166    I $D(READ FIL3) C RE ADFIL3
  167    I $D(READ FIL4) C RE ADFIL4
  168   PROCESS1 ; DP;new sta rting poin t
  169    ;compare  CMS data a gainst the  HAC's
  170    D NOW^%DT C S CHDTTM =%
  171    S (CHTDSC RE,CHTSSN, CHTNAME,CH TDOB,CHTDO D,CHTHICN, CHTMABD,CH TMAED,CHTM BBD,CHTMBE D)=0
  172    S CHBID=0
  173    F  S CHBI D=$O(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID)) G :'CHBID PR INT D
  174    .S (CHSSN ,CHSEX,CHD OB,CHDOD,C HFNAME,CHM I,CHLNAME, CHMASDT,CH MAEDT,CHMB SDT,CHMBED T,CHHICN)= ""
  175    .S CHSSN= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 1)
  176    .I CHSSN' ="" S CHTS SN=CHTSSN+ 1
  177    .S CHSEX= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 2) ;,CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "");DP
  178    .S CHDOB= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 3)
  179    .S CHDOD= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 4)
  180    .S CHFNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",5)
  181    .S CHMI=$ P(^CHMZHOL D("ZSKD_CM SREPLY",CH BID),"^",6 )
  182    .S CHLNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",7)
  183    .S CHMASD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",8)
  184    .S CHMAED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",9)
  185    .S CHMBSD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",10)
  186    .S CHMBED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",11)
  187    .S CHHICN =$P(^CHMZH OLD("ZSKD_ CMSREPLY", CHBID),"^" ,12)
  188    .S CHNOSS N=0,CHERR= ""
  189    .D GHACDA TA
  190    .;Set NO  HAC SSN MA TCH error  to error c ode "I"
  191    .;I CHNOS SN S CHERR ="NO HAC S SN MATCH"  D SETERR Q
  192    .I CHNOSS N S CHERR= "I" D SETE RR Q
  193    .;I CHLNA ME'=CHHLNA ME!(CHMI'= CHHMI)!(CH FNAME'=CHH FNAME) S C HERR="A,", CHTNAME=CH TNAME+1,CH TDSCRE=CHT DSCRE+1
  194    .I $$UP^X LFSTR(CHLN AME)'=$$UP ^XLFSTR(CH HLNAME) S  CHERR="A," ,CHTNAME=C HTNAME+1,C HTDSCRE=CH TDSCRE+1
  195    .;S:CHHDO B'="" CHHD OB=$$GETDT (CHHDOB)    ;COMMENTE D OFF DUE  TO DATE FO RMAT ISSUE  MUST BE F ILEMAN  AE B 4/27/201 1
  196    .I CHDOB' =CHHDOB S  CHERR=CHER R_"B,",CHT DOB=CHTDOB +1,CHTDSCR E=CHTDSCRE +1
  197    .;S:CHHDO D?7N CHHDO D=$$GETDT( CHHDOD)  ; COMMENTED  OFF DUE TO  DATE FORM AT ISSUE M UST BE FIL EMAN  AEB  4/27/2011
  198    .I CHDOD' =CHHDOD S  CHERR=CHER R_"C,",CHT DOD=CHTDOD +1,CHTDSCR E=CHTDSCRE +1
  199    .;I CHHHI CN'="" D
  200    .I $$UP^X LFSTR(CHHI CN)'=$$UP^ XLFSTR(CHH HICN) S CH ERR=CHERR_ "D,",CHTHI CN=CHTHICN +1,CHTDSCR E=CHTDSCRE +1
  201    .;S:CHHMA SDT'="" CH HMASDT=$$G ETDT(CHHMA SDT)  ;COM MENTED OFF  DUE TO DA TE FORMAT  ISSUE MUST  BE FILEMA N  AEB 4/2 7/2011
  202    .I CHMASD T'=CHHMASD T S CHERR= CHERR_"E," ,CHTMABD=C HTMABD+1,C HTDSCRE=CH TDSCRE+1
  203    .;S:CHHMA EDT'="" CH HMAEDT=$$G ETDT(CHHMA EDT)  ;COM MENTED OFF  DUE TO DA TE FORMAT  ISSUE MUST  BE FILEMA N  AEB 4/2 7/2011
  204    .I CHMAED T'=CHHMAED T S CHERR= CHERR_"F," ,CHTMAED=C HTMAED+1,C HTDSCRE=CH TDSCRE+1
  205    .;S:CHHMB SDT CHHMBS DT=$$GETDT (CHHMBSDT)   ;COMMENT ED OFF DUE  TO DATE F ORMAT ISSU E MUST BE  FILEMAN  A EB 4/27/20 11
  206    .I CHMBSD T'=CHHMBSD T S CHERR= CHERR_"G," ,CHTMBBD=C HTMBBD+1,C HTDSCRE=CH TDSCRE+1
  207    .;S:CHHMB EDT'="" CH HMBEDT=$$G ETDT(CHHMB EDT)  ;COM MENTED OFF  DUE TO DA TE FORMAT  ISSUE MUST  BE FILEMA N  AEB 4/2 7/2011
  208    .I CHMBED T'=CHHMBED T S CHERR= CHERR_"H", CHTMBED=CH TMBED+1,CH TDSCRE=CHT DSCRE+1
  209    .D SETERR
  210    .D DODCHK ^CHCMSAP1( CHDOD,CHHD OD,CHDOB,C HHDOB,DFN, BFN,CHSSN, CHBNAME)   ;JSG;DEV00 5832;2/20/ 09
  211    .;U 0 W ! ,CHHICN,"   ",CHHHICN  R XXX
  212    .I CHERR= "D," D         ;DEV01 4327 EW 12 /14/12
  213    ..S $P(^A HCHVA(DFN, 100,BFN,0) ,"^",39)=$ $UP^XLFSTR (CHHICN)
  214    ..I $D(CH HHICNK) K  ^AHCHVA("M ",CHHHICN, DFN,BFN)         ;DEV 014327 EW  12/14/12
  215    ..S ^AHCH VA("M",CHH ICN,DFN,BF N)=""      ;DEV014327  EW 12/14/ 12
  216    ..Q:'$D(^ AHCHVA(DFN ,100,BFN))
  217    ..S CHK=9 99999,CHK= $O(^AHCHVA (DFN,100,B FN,110,CHK ),-1)
  218    ..I 'CHK  S CHK=1
  219    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",28)=1
  220    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",29)=1
  221    ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",30)=CHD TTM
  222   PRINT ;
  223    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  224    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  225    D GETDATE
  226    I ANS=3 S  (FILEOUT, FILEOUT2)= 0 D PRINT1  Q
  227    ;HIPAA Re ady Team T rack #: 53 10 Begin
  228    ;Added ex port versi on of the  report see  variable  FILEOUT2
  229    S:'$D(MMY Y) MMYY=08 10
  230    ;SBB-DEF0 16554-11/1 9/13 - Mod ified from  DECNET to  FTP as pe r VHA stan dard.
  231    ;S FILEOU T="HACFS3" "
D NS       Welcome1!" "::e:[CMS. CMS_Discre pancies]CM S_DISCREPA NCY_REPORT _"_MMYY_". TXT"     ;SKD, 3-5- 09, BUG004 223-06-01
  232    ;I UCI'=" HAC" S FIL EOUT="HACF S3""
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
  233    S FILEOUT ="HAC_HFS$ :[SCR.TEMP _FILES]CMS _DISCREPAN CY_REPORT_ "_MMYY_".T XT"
  234    I UCI'="H AC" S FILE OUT="HAC_H FS$:[DSMMA NAG.CHAMPV A]CMS_DISC REPANCY_RE PORT_"_MMY Y_"_"_UCI_ ".TXT"
  235    ;
  236    S FILEOUT 2="HAC_HFS $:[KERMIT. CMS.OUT]CM S_"_MMYY_" _DATA.TXT"    
  237    I UCI'="H AC" S FILE OUT2="HAC_ HFS$:[KERM IT.CMS.OUT ]CMS_"_MMY Y_"_"_UCI_ "_DATA.TXT "
  238    ;SBB-DEF0 16554-11/1 9/13 - Mod ified open  to follow  VHA stand ard.
  239    ;O FILEOU T C FILEOU T:"D"
  240    ;O FILEOU T:"NWS"
  241    ;O FILEOU T2 C FILEO UT2:"D"
  242    ;O FILEOU T2:"NWS"
  243    ;SBB 07/3 0/15 DEF01 6554
  244    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  245    I '$$OPEN FIWR^CHTFL IB9(.FILEO UT,"FILEOU T") X "D $ SYSTEM.Pro cess.SetZE OF(0)" Q
  246    I '$$OPEN FIWR^CHTFL IB9(.FILEO UT2,"FILEO UT2") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q
  247    ;
  248    ;HIPAA Re ady Team T rack #: 53 10 END
  249   PRINT1
  250    S PG=1
  251    D HEAD
  252    D DETAIL
  253    D TAIL
  254    ;C FILEOU T
  255    ;C FILEOU T2
  256    D CLOSEF^ CHTFLIB9(F ILEOUT,"FI LEOUT")
  257    D CLOSEF^ CHTFLIB9(F ILEOUT2,"F ILEOUT2")
  258    ;SBB 07/3 0/15 DEF01 6554
  259    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  260    D FTPFILE ^CHTFLIB9( FILEOUT," DNS     . DNS             ","/CMS/CM S_Discrepa ncies","PU T")
  261    D KILLVAR
  262   DODPOP ;JS G;DEV00583 2;2/20/09;
  263    ;S ZTRTN= "DODAUTO^C HCMSAP1",Z TDESC="AUT O POPULATE  CMS DODs" ,ZTIO="",Z TDTH=$H ;J SG;DEV0058 32;2/20/09    ;JEH; D EV013737-1 1/14/11 -  NOT NEEDED , TASKED E ARLIER & C AUSED DUPL ICATE FILE S ON FS3BI G
  264    ;I $D(AND ) I ANS<3  D ^%ZTLOAD    ;JEH; D EV013737-1 1/14/11 -  NOT NEEDED , TASKED E ARLIER & C AUSED DUPL ICATE FILE S ON FS3BI G
  265    D DODAUTO ^CHCMSAP1                                          ;JS G;DEV00583 2;2/20/09; Start DOD  auto popul ate job
  266    D MMMSG     ;SENDING  MM MESSAG E THAT CMS  DISCREPAN CY REPORT  IS READY    ;JEH; DEV 013737-11/ 14/11
  267    Q
  268    ;
  269   SETERR ;
  270    S $P(^CHM ZHOLD("ZSK D_CMSREPLY ",CHBID)," ^",13)=$S( $E(CHERR,$ L(CHERR))= ",":$E(CHE RR,1,$L(CH ERR)-1),1: CHERR)
  271    I CHFNAME ="" S CHFN AME="XXX"
  272    I CHMI=""  S CHMI="X XX"
  273    I CHLNAME ="" S CHLN AME="XXX"
  274    I CHERR=" D," S CHTH ICN=CHTHIC N-1,CHTDSC RE=CHTDSCR E-1   ;DEV 014327 EW  12/14/12
  275    I CHERR'= "D," S ^CH MZHOLD("ZS KD_CMSREPL Y","NAME", CHLNAME,CH FNAME,CHMI ,CHSSN)=^C HMZHOLD("Z SKD_CMSREP LY",CHBID)   ;DEV0143 27 EW 12/1 4/12
  276    Q
  277    ;
  278   GHACDATA ; get data f rom the HA C Bene fil e
  279    S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)=""
  280    S CHNOSSN =0
  281    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  282    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  283    S (DFN,BF N)=""
  284    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  285    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  286    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  287    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  288    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  289    S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1)
  290    S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME)
  291    S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI)
  292    S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME)
  293    D HACMEDA ,HACMEDB
  294    S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39)
  295    S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN)
  296    Q
  297    ;
  298   HACMEDA ;
  299    Q:'$D(^AH CHVA(DFN,1 00,BFN,111 ))
  300    S CHHMADT P=99999999 99
  301    S CHHMADT P=$O(^AHCH VA(DFN,100 ,BFN,111,C HHMADTP),- 1)
  302    I CHHMADT P D
  303    .S CHHMAS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 1)
  304    .S CHHMAE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 4)
  305    Q
  306    ;
  307   HACMEDB ;
  308    Q:'$D(^AH CHVA(DFN,1 00,BFN,112 ))
  309    S CHHMBDT P=99999999 99
  310    S CHHMBDT P=$O(^AHCH VA(DFN,100 ,BFN,112,C HHMBDTP),- 1)
  311    I CHHMBDT P D
  312    .S CHHMBS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 1)
  313    .S CHHMBE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 4)
  314    Q 
  315    ;
  316   CONVDT(D)   ;Converts  external  date (01SE P2007) to  FileMan da te (307090 1)
  317    S X=D D ^ %DT K X,%D T
  318    Q Y
  319    ;
  320   KILLVAR ;
  321    S $ZE="", $ZT=""
  322    ;K ^CHMZH OLD("ZSKD_ CMSREPLY")
  323    K CHRPTNM ,Y
  324    K CHCMS,R EADFIL1,RE ADFIL2,REA DFIL3,READ FIL4,TMPX, CHBID,CHSS N,CHSEX,CH DOB,CHDOD, CHFNAME,CH MI,CHLNAME ,CHHICN
  325    K CHMASDT ,CHMAEDT,C HMARNCD,CH MASTCD,CHM BSDT,CHMBE DT,CHMBRNC D,CHMBSTCD ,CHERR,CHN OSSN
  326    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
  327    K CHHMADT P,CHHMBDTP ,CHTDSCRE, CHTSSN,CHT NAME,CHTDO B,CHTDOD,C HTHICN,CHT MABD,CHTMA ED,CHTMBBD ,CHTMBED
  328    Q
  329    ;
  330   HEAD ;
  331    I '$G(DUZ ) S DUZ=1
  332    S TITLE1= "HEALTH AD MINISTRATI ON CENTER"
  333    S TITLE2= "HAC CMS C ROSS-MATCH  DISCREPAN CIES REPOR T"
  334    S:'$D(MMY YYY) MMYYY Y=$ZD($H)  ;S:ANS=4 F ILEOUT=0
  335    S TITLE3= "For Time  Period "_M MYYYY
  336    S TITLE4= "Discrepan t Name, DO B, DOD, HI CN & Medic are Enroll ment Dates "
  337    U FILEOUT  W !,DUZ,? 55,TITLE1, ?123,"page : ",PG
  338    U FILEOUT  W !,$$FMT E^XLFDT(DT ,"5D"),?49 ,TITLE2 
  339    U FILEOUT  I $D(M) W  !,H_":"_M ,?56,TITLE 3
  340    U FILEOUT  W !!,?37, TITLE4
  341    U FILEOUT  W !!,?116 ,"ERROR"
  342    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)"
  343    U FILEOUT  W !,"---- -----",?12 ,"-------- -------",? 30,"------ ----",?42, "--------- -",?54,"-- --------", ?68,"----- -----",?80 ,"-------- --",?92,"- ---------" ,?104,"--- -------",? 116,"----- -----"
  344    U FILEOUT  W !
  345    S PG=PG+1
  346    Q
  347    ;
  348   DETAIL ;
  349    S DL="^", ANS=1
  350    S CHLNAME ="" F  S C HLNAME=$O( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME )) Q:CHLNA ME=""  D
  351    .S CHFNAM E="" F  S  CHFNAME=$O (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME) ) Q:CHFNAM E=""  D  
  352    ..S CHMI= "" F  S CH MI=$O(^CHM ZHOLD("ZSK D_CMSREPLY ","NAME",C HLNAME,CHF NAME,CHMI) ) Q:CHMI=" "  D  
  353    ...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  
  354    ....S (CH NAME,CHDOB ,CHDOD,CHH ICN,CHMASD T,CHMAEDT, CHMBSDT,CH MBEDT,CHER R)=""
  355    ....S CHN AME=$S(CHL NAME="XXX" :"",1:CHLN AME)_", "_ $S(CHFNAME ="XXX":"", 1:CHFNAME) _" "_$S(CH MI="XXX":" ",1:CHMI)
  356    ....S CHD OB=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",3)
  357    ....S CHD OD=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",4)
  358    ....S CHM ASDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",8)
  359    ....S CHM AEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",9)  S:+CHMAEDT =3 CHMAEDT =""
  360    ....S CHM BSDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",10)
  361    ....S CHM BEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",11)  S:+CHMBED T=3 CHMBED T=""
  362    ....S CHH ICN=$P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME ,CHFNAME,C HMI,CHSSN) ),"^",12)
  363    ....S CHE RR=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",13) Q :CHERR=""   
  364    ....U FIL EOUT I $Y> 56 R:ANS=4  XXX W !!! ,# D HEAD
  365    ....;I AN S>2 
  366    ....;SPLI T LONG LIN ES CJM 201 70718
  367    ....U FIL EOUT W !,C HSSN,?12,$ E(CHLNAME_ ", "_CHFNA ME_" "_CHM I,1,15),?3 0,$$FMTE^X LFDT(CHDOB ,"5D"),?42 ,$$FMTE^XL FDT(CHDOD, "5D"),?54, CHHICN,?68 ,$$FMTE^XL FDT(CHMASD T,"5D"),?8 0,$$FMTE^X LFDT(CHMAE DT,"5D")
  368    ....W ?92 ,$$FMTE^XL FDT(CHMBSD T,"5D"),?1 04,$$FMTE^ XLFDT(CHMB EDT,"5D"), ?116,CHERR
  369    ....;I AN S>2 
  370    ....U FIL EOUT D DAT A W !,CHHS SN,?12,$E( CHBNAME,1, 15),?30,$$ FMTE^XLFDT (CHHDOB,"5 D"),?42,$$ FMTE^XLFDT (CHHDOD,"5 D")
  371    ....W ?54 ,CHHHICN,? 68,$$FMTE^ XLFDT(CHHM ASDT,"5D") ,?80,$$FMT E^XLFDT(CH HMAEDT,"5D "),?92,$$F MTE^XLFDT( CHHMBSDT," 5D"),?104, $$FMTE^XLF DT(CHHMBED T,"5D"),!
  372    ....;HIPA A Ready Te am Track # : 5310 Beg in
  373    ....;Adde d export v ersion of  the report  see varia ble FILEOU T2
  374    ....I FIL EOUT2'=0 D  ;SPLIT LO NG LINES C JM 2017071 8
  375    .....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_$$FMT E^XLFDT(CH MAEDT,"5D" )_DL_$$FMT E^XLFDT(CH MBSDT,"5D" )_DL_$$FMT E^XLFDT(CH MBEDT,"5D" )_DL_CHERR ,!
  376    ....;HIPA A Ready Te am Track # : 5310 End
  377    Q
  378   DATA ;get  data from  the HAC Be ne file
  379    S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN,CHHSSN) =""
  380    S CHNOSSN =0
  381    S CHBNAME ="Not Foun d"  ;;DEF0 18404;SBB; 06/27/13
  382    S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN
  383    I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q
  384    S (DFN,BF N)=""
  385    S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S  CHNOSSN=1  Q
  386    S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q
  387    I '$D(^AH CHVA(DFN,1 00,BFN,0))  S CHNOSSN =1 Q
  388    S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3)
  389    S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6)
  390    S CHHSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9)
  391    S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1)
  392    S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME)
  393    S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI)
  394    S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME)
  395    D HACMEDA ,HACMEDB
  396    S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39)
  397    S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN)
  398    Q       
  399   TAIL ;
  400    Q:ANS=4
  401    U FILEOUT
  402    W !!!,"To tal Number  of Possib le Discrep ancies: ", $G(CHTDSCR E)
  403    W !,"Tota l Number o f SSNs: ", $G(CHTSSN)
  404    W !,"Tota l Number o f Name Dis crepancies : ",$G(CHT NAME)
  405    W !,"Tota l Number o f DOB Disc repancies:  ",$G(CHTD OB)
  406    W !,"Tota l Number o f DOD Disc repancies:  ",$G(CHTD OD)
  407    W !,"Tota l Number o f HICN Dis crepancies : ",$G(CHT HICN)
  408    W !,"Tota l Number o f A Begin  Date Discr epancies:  ",$G(CHTMA BD)
  409    W !,"Tota l Number o f A End Da te Discrep ancies: ", $G(CHTMAED )
  410    W !,"Tota l Number o f B Begin  Date Discr epancies:  ",$G(CHTMB BD)
  411    W !,"Tota l Number o f B End Da te Discrep ancies: ", $G(CHTMBED )
  412    W !,"Tota l Number o f records  sent in fi nder file:  ",$G(^CHM ZHOLD("ZSK DCMS_LASTF NDRFILECT" ))
  413    W !!!,"ER ROR CODE L EGEND:"
  414    W !,"A =  Name Discr epancy"
  415    W !,"B =  Date of Bi rth Discre pancy"
  416    W !,"C =  Date of De ath Discre pancy"
  417    W !,"D =  Health Ins urance Cla im Number  (HICN) Dis crepancy"
  418    W !,"E =  Medicare A  Begin Dat e Discrepa ncy"
  419    W !,"F =  Medicare A  End Date  Discrepanc y"
  420    W !,"G =  Medicare B  Begin Dat e Discrepa ncy"
  421    W !,"H =  Medicare B  End Date  Discrepanc y"
  422    Q
  423    ;
  424   GETDATE ;
  425    I '$D(DT)  D NOW^%DT C S DT=X
  426    S X=DT D  DTPRT S CH DT=Y
  427    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
  428    S (YY,MM, PMM)=""
  429    S YY=$E(D T,1,3),MM= $E(DT,4,5)
  430    I MM="01"  S YY=YY-1
  431    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:"" )
  432    Q:PMM=""
  433    S MMYY=PM M_$E(YY,2, 3)
  434    S MMYYYY= PMM_"/"_(Y Y+1700)
  435    Q
  436    ;
  437   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  438    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  439    Q
  440   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  441    Q
  442    ;
  443   GETDT(D1)  ;;Convert  filman dat e to MM/DD /YYYY
  444           ;;  In some i nstances t he year 20 00 indicat ion is mis sing and I  need to
  445           ;; concatenat e it to th e rest of  the date.
  446           S  (D1,X)=$P( D1,".",1)
  447           S: D1?6N D1=3 _D1 Q:D1'? 7N
  448           S  (YY,MM,DD) =""
  449           S  YY=20 S:$E (X,1)=2 YY =19
  450           S  MM=$E(X,4, 5),DD=$E(X ,6,7),YY=Y Y_$E(X,2,3 )
  451           Q  YY_MM_DD
  452           Q
  453   MESS ;
  454    U 0 W !," Initializa tion will  take about  90 min an d will run  in the ba ckground."
  455    R X:10
  456    Q
  457   MMMSG ;GEN ERATE MM M ESSAGE ;JE H; DEV0137 37-11/14/1 1
  458    S CNT=1,^ TMP($J,"CH CMSRFR",CN T)="",CNT= CNT+1
  459    S ^TMP($J ,"CHCMSRFR ",CNT)="DI SCREPANCY  REPORT MOD ULE HAS CO MPLETED.", CNT=CNT+1
  460    S ^TMP($J ,"CHCMSRFR ",CNT)="", CNT=CNT+1
  461    S ^TMP($J ,"CHCMSRFR ",CNT)="PL EASE CHECK .",CNT=CNT +1
  462    S ^TMP($J ,"CHCMSRFR ",CNT)="", CNT=CNT+1
  463    S XMTEXT= "^TMP($J," "CHCMSRFR" ","
  464    S XMDUZ=. 5
  465    S XMY(DUZ )=""
  466    S XMSUB=" DISCREPANC Y REPORT M ODULE-CMPL TD" D ^XMD
  467    Q
  468    ;
  469    ;SBB-DEF0 16554-11/1 9/13 - New  Tag to ft p files fr om VMS to  Windows.
  470    ; Impleme nted since  DECNET is  going awa y.
  471    ; I/P Par ameters
  472    ;    : FI LENAME  -  Filename t o FTP from  VMS to WI NDOWS
  473    ;      EX : HAC_HFS$ :[SCR.TEMP _FILES]CMS _DISCREPAN CY_REPORT. TXT for HA C
  474    ;           HAC_HFS$ :[DSMMANAG .CHAMPVA]C MS_DISCREP ANCY_REPOR T_UCI_.TXT  for non H AC areas
  475    ;    : SE RVER    -  Server to  connect to  for FTP
  476    ;        EX:  DNS     . DNS                fully Qual ified Dns  Name(FQDN)
  477    ;    : FO LDER    -  PATH to pl ace the fi le @ on WI NDOWS
  478    ;      EX : /FS3BIG  or /CMS/CM S_Discrepa ncies etc
  479    ;    : DI RECTION -  'PUT' or ' GET'
  480    ;      EX : PUT or G ET dependi ng on Writ e or Read
  481    ;
  482   FTPFILE(FI LENAME,SER VER,FOLDER ,DIRECTION ) ;
  483    ;
  484    N CHUCI,L OCALDIR,FI LENAME1,PU TFILE,GETF ILE,PARAMS ,CMD,X
  485    S LOCALDI R=$S(FILEN AME["]":$P (FILENAME, "]")_"]",1 :$P(FILENA ME,":")_": ")
  486    S FILENAM E1=$S(FILE NAME["]":$ P(FILENAME ,"]",2),1: $P(FILENAM E,":",2))
  487    S PUTFILE ="FTP_FILE _PUT.COM"
  488    S GETFILE ="FTP_FILE _GET.COM"
  489    S CMD="SU BMIT "_LOC ALDIR
  490    ;
  491    I DIRECTI ON="PUT" D   
  492    . S CHTMP ="SET PROT ECTION=(W: RWED) "_FI LENAME
  493    . S X=$ZF (-1,CHTMP)
  494    . S CMD=C MD_PUTFILE
  495    . S PARAM S=""""_FIL ENAME_""", """_SERVER _""","""_F OLDER_""""
  496    . Q
  497    I DIRECTI ON="GET" D
  498    . S CMD=C MD_GETFILE
  499    . S PARAM S=""""_FIL ENAME1_""" ,"""_SERVE R_""","""_ FOLDER_""" "
  500    . Q
  501    S CMD=CMD _"/PARAMET ERS=("_PAR AMS_")"
  502    I DIRECTI ON="PUT" H  5
  503    S X=$ZF(- 1,CMD)
  504    Q