101. EPMO Open Source Coordination Office Redaction File Detail Report

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

101.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEPRD2.m Mon Nov 5 16:42:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMEPRD2.m Mon Nov 5 17:44:27 2018 UTC

101.2 Comparison summary

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

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

101.4 Active regular expressions

No regular expressions were active.

101.5 Comparison detail

  1   CHMEPRD2 ; AEB/CVA;GE NERATES TH E SU PRODU CTIVITY RE PORT;10/10 /96  3:07  PM
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;Buil d 5
  3    ;CPTS - 1 1061  AEB
  4    ;DEV01219 7-01 YJK 4 /6/11 CARE GIVER
  5    ;MTN01863 1 DPT 7/25 /13 CHANGE  FROM HARD COPY TO FS 2 plus DPT  DEV016554  
  6   START ;
  7     ; W !,"P lease sele ct a wide  printer",!  S IOP="Q"  D ^%ZIS Q :POP
  8    ;S ZTIO=I ON
  9    ;S ZTRTN= "CALC^CHME PRD2",ZTDE SC="PR STA TUS SORT B Y PR DATE"
  10    ;D ^%ZTLO AD
  11    ;Q
  12   CALC ;
  13    K ^TMP($J ,"SORT")
  14    S DFN=0,U ="^"
  15   C1 S DFN=$ O(^AHCHVA( "AF","PS", DFN)),BFN= 0 G CEND:' DFN
  16    G C1:'$D( ^AHCHVA(DF N,0))
  17    S SN=$P(^ (0),U) S:S N="" SN="Z ZNO SPONSN AME"
  18   C2 S BFN=$ O(^AHCHVA( "AF","PS", DFN,BFN))  G C1:'BFN
  19    G C2:'$D( ^AHCHVA(DF N,100,BFN, 0))
  20    D HIST I  CHDT'="" S  ^TMP($J," SORT",CHDT ,SN,DFN,BF N)=CHDUZ
  21    G C2
  22   CEND ;
  23    ;S %ZIS=" Q",IOP="Q; "_CHFIO D  ^%ZIS G:PO P CEND1
  24    ;S ZTRTN= "PRT^CHMEP RD2",ZTDTH =$H,ZTSAVE ("PFLG")=" ",ZTSAVE(" STDAT")=""
  25    ;S ZTSAVE ("ENDT")=" ",ZTSAVE(" TMP($J,""S ORT"",")=" "
  26    ;S ZTSAVE ("SDUZ")=" " K ZTIO
  27    ;D ^%ZTLO AD
  28    D PRT^CHM EPRD2
  29   CEND1 Q
  30   PRT ;
  31    N FOLDER, CNTR ;DPT  DEV016554
  32     D NOW^%D TC S DT=X, TODAY=$$FM TE^XLFDT(D T,"7DZ"),T ODAY=$TR(T ODAY,"/"," "),MON=$E( TODAY,5,6) ,DAY=$E(TO DAY,7,8) ; DPT DEV016 554 
  33    S TIME=$P ($$NOW^XLF DT,".",2)  ; DPT DEV0 16554
  34       W !,"REPOR T WILL PRI NT TO  DNS     FS3\TATREP ORT_"_TODA Y_"_"_TIME _"_.TXT" 
  35    
  36    S FILENM= "TATREPORT _"_TODAY_" _"_TIME_"_ .TXT"  ;DP T DEV01655 4
  37    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D PT DEV0165 54
  38    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DPT  DEV016554
  39    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DPT DE V016554
  40    S FIO=FOL DER_FILENM  ;DPT MTN0 18631    D EV016554
  41    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q ;D PT MTN0186 31    DEV0 16554
  42    I '$T S $ ZE="UNABLE  TO OPEN F IO FILE--R EPORT NOT  WRITTEN" ; DPT MTN018 631    DEV 016554
  43    S Y=DT X  ^DD("DD")  S CHDT=Y S  CHTM="" D  NOW^%DTC  S CHTM=$E( $P(%,".",2 ),1,4)
  44    S PG=0,CT =0
  45    D NOW^%DT C S CHTIM= $E($P(%,". ",2),1,4)
  46    D HEAD
  47    I '$D(^TM P($J,"SORT ")) D  Q
  48    .S TAT="N O ENTRIES  IN PENDING  REVIEW" ; DPT MTN018 631
  49    .Q
  50    S (OLDDAT E,TMPDAT)= ""
  51   PR3 S TMPD AT=$O(^TMP ($J,"SORT" ,TMPDAT))  D:OLDDATE' =""  G:'TM PDAT PEND
  52    .I $Y>55  W # D HEAD  
  53    .U FIO W  !,?20,"TOT ALS FOR ", $$FMTE^XLF DT(OLDDATE ,"5D"),":  ",CHDAYCT  ;DPT MTN01 8631
  54    .Q
  55    S DFG=0,C HDAYCT=0,O LDDATE=TMP DAT
  56    S CHSNAM= ""
  57   PR4 S CHSN AM=$O(^TMP ($J,"SORT" ,TMPDAT,CH SNAM)) G:C HSNAM="" P R3
  58    S DFN=0
  59   PR5 S DFN= $O(^TMP($J ,"SORT",TM PDAT,CHSNA M,DFN)) G: 'DFN PR4
  60    S SFG=0
  61    S BFN=0,B FG=0
  62   PR6 S BFN= $O(^TMP($J ,"SORT",TM PDAT,CHSNA M,DFN,BFN) ) G:'BFN P R4
  63    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  PR6
  64    S BREC0=^ AHCHVA(DFN ,100,BFN,0 )
  65    I $Y>55 U  FIO W # D  HEAD 
  66    I DFG=0 U  FIO W !,$ $FMTE^XLFD T(TMPDAT," 5D") S DFG =1  ;;MTN0 18631 PRIN T DATE 
  67    I SFG=0 U  FIO W !?1 0,$E(CHSNA M,1,20),?3 5,$P(^AHCH VA(DFN,0), "^",7) S S FG=1  ;;MT N018631 PR INT SPONSO R
  68    I BFG=1 U  FIO W ! ; MTN018631
  69    U FIO W ? 46,$E($P(B REC0,"^"), 1,20) S SS N=$P(BREC0 ,"^",9) ;M TN018631
  70    S:SSN?9N  SSN=$E(SSN ,1,3)_"-"_ $E(SSN,4,5 )_"-"_$E(S SN,6,9) ;M TN018631
  71    U FIO  W  ?67,SSN S  REL=$P(BRE C0,"^",4)  ;MTN018631
  72    ;S REL=$S (REL="C":" CHILD",REL ="S":"SPOU SE",REL="X S":"EX-SPO USE",1:"")    ;DEV012 197-01 YJK  4/6/11
  73    S REL=$S( REL="C":"C HILD",REL= "S":"SPOUS E",REL="XS ":"EX-SPOU SE",REL="C G":"CAREGI VER",1:"")    ;DEV012 197-01 YJK  4/6/11
  74    U FIO W ? 84,REL,?98 ,$P(^TMP($ J,"SORT",T MPDAT,CHSN AM,DFN,BFN ),U,1) ;MT N018631
  75    S BFG=1 S  CT=CT+1,C HDAYCT=CHD AYCT+1
  76    G PR6
  77   PEND ;
  78    U FIO W ! !,"Total N umber of B eneficiari es in 'Pen ding Revie w' ",CT ;M TN018631
  79    ;C FIO ;M TN018631
  80    K TIM1,IO SUBS,IOCLM S,IOTIME,M SSUBS,MSCL MS,MSTIME, MMSUBS,MMC LMS,MMTIME
  81    K DIOPDI, DIOCLM,DIO TIM,DMSPDI ,DMSCLM,DM STIM,DMMPD I,DMMCLM,D MMTIM,I1,J 1,CHFILE
  82    K ^TMP($J ,"SORT")
  83    D SEND ;M TN018631
  84    ;D NOTIFY  ;MTN01863 1
  85    Q
  86   HEAD
  87    S PG=PG+1
  88    U FIO  W  !,DUZ,?50, "HEALTH AD MINISTRATI ON CENTER" ,?112,"pag e: ",PG ;M TN018631
  89    S CHTITLE ="BENEFICI ARIES WITH  'PENDING  REVIEW' ST ATUS" ;MTN 018631
  90    U FIO W ! ,CHTM,?124 -$L(CHTITL E)/2,CHTIT LE ;MTN018 631
  91    U FIO W ! ,$E(DT,4,7 ),?55,?124 -$L(CHDT)/ 2,CHDT ;MT N018631
  92    U FIO W ! !,"Dt in P R",?11,"Sp onsor Name ",?33,"Fil e #",?46," Beneficiar y Name",?6 7,"SSN",?8 4,"Rel",?9 8,"Employe e" ;MTN018 631
  93    U FIO W ! ,"-------- ",?11,"--- ---------- -------",? 33,"------ ---",?46," ---------- ---------- ",?67,"--- --------", ?84,"----- ---",?98," ---------"  ;MTN01863 1
  94    I $D(TMPD AT) U FIO  W !,$$FMTE ^XLFDT(TMP DAT,"5D")  ;MTN018631
  95    Q
  96   HIST S CHD T=9999999, CHDUZ="UNK "
  97   HIST1 S CH DT=$O(^AHC HVA(DFN,10 1,CHDT),-1 ) Q:'CHDT
  98    G:'$D(^AH CHVA(DFN,1 01,CHDT,10 0,BFN,0))  HIST1 G:$P (^(0),U,5) '="PS" HIS T1
  99    G:'($D(^A HCHVA(DFN, 101,CHDT,1 00,BFN,99) )!$D(^AHCH VA(DFN,101 ,CHDT,99)) ) HIST1
  100    ;sometime s the bene  99 node i sn't set u p, so this  ensures t hat the be ne 
  101    ;or the s pon 99 is  used - spo n is the c orrect nod e if bene9 9 is missi ng
  102    S:$D(^AHC HVA(DFN,10 1,CHDT,99) ) REC99=^( 99)
  103    S:$D(^AHC HVA(DFN,10 1,CHDT,100 ,BFN,99))  REC99=^(99 )
  104    S CHDUZ=$ P(REC99,U, 2)
  105    S:CHDUZ=" " CHDUZ="U NK" S:$D(^ VA(200,CHD UZ,0)) CHD UZ=$P(^(0) ,U,2)
  106    S:CHDUZ?. N CHDUZ="U NK"
  107    S CHDT=$E (CHDT,4,5) _"/"_$E(CH DT,6,7)_"/ "_$E(CHDT, 2,3)
  108    Q
  109   SEND ;SEND  FILE
  110    I '$D(DT)  D NOW^%DT C S DT=X
  111    K CHFTPTI M,CHFTPWT
  112    D CLOSEF^ CHTFLIB9(F IO,"FIO") 
  113    H 3
  114    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  115    ;S CHFILE ="TATREPOR T.DAT"
  116    ;S CHFILE =$P(FIO,": ",2)_" "
  117    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG. CHAMPVA]RE C_COPY.COM /PARAM=("_ FIO_")")   ;SUBMIT FT P JOB IN L IVE
  118     ;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[DSMMANAG ]TAT_MU_FT P_OUT.COM/ NAME=TAT_M U_FTP_OUT_ JOB/NOPRIN TER/PARAM= ("_FIO_")" )  ;SUBMIT  FTP JOB I N LIVE
  119    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG] TAT_MU_FTP _OUT.COM/N AME=TAT_MU _FTP_OUT_J OB/NOPRINT ER/USER=HA CCACHEMGR/ PARAM=("_F IO_")")  ; SUBMIT FTP  JOB IN LI VE
  120   NOTIFY ;MT N018631
  121    S XMSUB=" TAT Report " ;MTN0186 31
  122    S XMDUZ=" "  ;MTN018 631
  123    S XMY("41 2688")=""    ;MTN0186 31 
  124    D UCI^%ZO SV I $P(Y, ",",1)="DE V" S XMY(" PII             ")="" ;FOR  TESTING P URPOSES
  125    S XMY("
P II                  ")=""        ;MTN018631  
  126    S TEXT(1) ="The TAT  Report is  available  "  ;MTN018 631 
  127    S XMTEXT= "TEXT("    ;MTN018631  
  128    D ^XMD  ; MTN018631 
  129    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB    ;MTN018 631 
  130    
  131    Q ;MTN018 631 
  132