Produced by Araxis Merge on 11/9/2018 12:33:45 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 | CHDICNT.m | Mon Nov 5 16:39:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHDICNT.m | Mon Nov 5 17:38:06 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 164 |
Changed | 1 | 12 |
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 | CHDICNT ;C VA/DTP;DIC COUNT UTI LITY-REPOR TS NEW DIC -FLAGGED B ENES FOR W EEK, NO OF DIC "EA" FOR WEEK;1 0/11/02 1 1:18 AM | |
2 | ;;1.0; | |
3 | ;;THIS RO UTINE IS R UN OUT OF THE REPETI TIVE QUEUE ONCE PER WEEK ON WE DNESDAY AT 11:59 P.M . | |
4 | ;;LOOP TH RU ^CHMZHO LD("DIC-FL AG-CNT" BY DATE/TIME AND ADD U P NUMBER O F DIC FLAG GED BENES FOR LAST W EEK NOT AL L READY CO UNTED | |
5 | ;;IF $P-2 OF NODE S ET TO 1, F LAGGED BEN ES HAVE BE EN COUNTED | |
6 | ;;ONCE BE NES COUNTE D FOR THAT DATE/TIME , SET $P-2 OF NODE T O 1 | |
7 | ;;LOOP TH RU ^AHCHVA ("DIC") X- REF, COUNT NUMBER OF BENES IN THIS X-REF WITH "EA" STATUS IN CHDICEA V ARIABLE | |
8 | ;;SET CUR RENT "EA"- "DIC" COUN T IN ^CHMZ HOLD("DIC- EA",DATE) NODE | |
9 | ;;SUBTRAC T LAST COU NT FROM CU RRENT COUN T FOR A WE EKLY COUNT | |
10 | ;;REPORT NUMBER OF NEWLY FLAG GED DIC BE NES (CHDIC FL) AND DI FFERENCE B ETWEEN CHD ICEA COUNT AND LAST WEEK'S COU NT (CHDICN EA) | |
11 | ;;EMAIL T HESE FIGUR ES TO BOBB I BEGAY AN D JANE BLU E IN MS EX CHANGE | |
12 | CQUE S ZTI O="" | |
13 | S ZTRTN=" START^CHDI CNT",ZDESC ="DIC COUN TS",ZTDTH= $H | |
14 | D ^%ZTLOA D | |
15 | D HOME^%Z IS | |
16 | Q | |
17 | ; | |
18 | START S (C HDICFL,CHD ICEA)=0,CH DT=0 | |
19 | S:$D(^CHM ZHOLD("DIC -FLAG-CNT" ,"LAST D/T M")) CHDT= $P(^CHMZHO LD("DIC-FL AG-CNT","L AST D/TM") ,"^",1) | |
20 | S1 S CHDT= $O(^CHMZHO LD("DIC-FL AG-CNT",CH DT)) G:'CH DT EACNT | |
21 | G:$P(^CHM ZHOLD("DIC -FLAG-CNT" ,CHDT),"^" ,2)=1 S1 | |
22 | S CHDICFL =CHDICFL+$ P(^CHMZHOL D("DIC-FLA G-CNT",CHD T),"^",1) | |
23 | S $P(^CHM ZHOLD("DIC -FLAG-CNT" ,CHDT),"^" ,2)=1 | |
24 | G S1 | |
25 | ; | |
26 | EACNT D NO W^%DTC S C HDT=% | |
27 | S ^CHMZHO LD("DIC-FL AGGED",CHD T)=CHDICFL | |
28 | S ^CHMZHO LD("DIC-FL AG-CNT","L AST D/TM") =CHDT | |
29 | S CHDFN=0 | |
30 | E1 S CHDFN =$O(^AHCHV A("DIC",CH DFN)) G:'C HDFN RCDEA | |
31 | S CHBFN=0 | |
32 | E2 S CHBFN =$O(^AHCHV A("DIC",CH DFN,CHBFN) ) G:'CHBFN E1 | |
33 | G:'$D(^AH CHVA(CHDFN ,100,CHBFN ,0)) E2 | |
34 | G:$P(^AHC HVA(CHDFN, 100,CHBFN, 0),"^",5)' ="EA" E2 | |
35 | S CHDICEA =CHDICEA+1 | |
36 | G E2 | |
37 | ; | |
38 | RCDEA S CH LDT=999999 9 | |
39 | R1 S CHLDT =$O(^CHMZH OLD("EA-DI C",CHLDT), -1) | |
40 | G:'$D(^CH MZHOLD("EA -DIC",CHLD T)) R1 | |
41 | S CHCMPCN T=^CHMZHOL D("EA-DIC" ,CHLDT) | |
42 | S ^CHMZHO LD("EA-DIC ",$E(CHDT, 1,7))=CHDI CEA | |
43 | S CHDICNE A=CHDICEA- CHCMPCNT | |
44 | D MMSG | |
45 | K CHDICEA ,CHDICNEA, CHDICFL,CH DT,CHCFNO, CHDFN,CHBF N,CHLDT,CH CMPCNT Q | |
46 | ; | |
47 | MMSG Q:'$D (CHDICNEA) Q:'$D(CH DICFL) | |
48 | D NOW^%DT C S Y=$E(% ,1,7) X ^D D("DD") S CHDTPR=Y | |
49 | F I=1:1 S X=$P($T(M 1TX1+I),"; ",2) Q:X=" END" D MB LD | |
50 | D M1TAB | |
51 | D M1SND K ^UTILITY( $J,"M1") | |
52 | Q | |
53 | ; | |
54 | M1TX1 ; | |
55 | ;The foll owing DIC counts are being rep orted for the week. | |
56 | ;Please c ontact Dan Powell, e xt. 7528, if you sus pect a pro blem | |
57 | ;with the counts. | |
58 | ; | |
59 | ;END | |
60 | MBLD D SPA CE I '$D(^ UTILITY($J ,"M1",1)) S HOLDJ=0 | |
61 | S JJ=HOLD J+1 S ^UTI LITY($J,"M 1",1,JJ,0) =X,HOLDJ=J J | |
62 | Q | |
63 | ; | |
64 | SPACE S LE N=$L(X) S TIMES=74-L EN,SPACE=" " F KK=1:1 :TIMES S S PACE=SPACE _" " | |
65 | S X=X_SPA CE | |
66 | Q | |
67 | ; | |
68 | M1SND S XM SUB="WEEKL Y DIC BENE COUNTS",X MDUZ=DUZ | |
69 | S XMTEXT= "^UTILITY( $J,""M1"", 1," | |
70 | ;S DOMN=" PII ",XMY(DOMN )="" | |
71 | S DOMN="
|
|
72 | ;S DOMN=" PII ",XMY(DOMN )="" | |
73 | S DOMN=" PII ",XMY(DOMN )="" | |
74 | ;S DOMN=" PII ",XMY(DOMN )="" | |
75 | S DOMN="P II ",XMY(DOMN )="" | |
76 | S U="^" D ^XMD | |
77 | Q | |
78 | ; | |
79 | M1TAB S X= "The numbe r of new b enes flagg ed as 'DIC ' for the week: "_CH DICFL | |
80 | D MBLD | |
81 | S X="" D MBLD | |
82 | S X="The number of new eligib le 'DIC' b enes for t he week: " _CHDICNEA | |
83 | D MBLD | |
84 | M1L3 S X=" " D MBLD | |
85 | S X="Repo rted good for week e nding: "_ CHDTPR | |
86 | D MBLD | |
87 | S X="" D MBLD Q | |
88 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.