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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 256 |
Changed | 3 | 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 | 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("
|
|
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.