Produced by Araxis Merge on 11/9/2018 12:34:03 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 | CHMLCMA8.m | Mon Nov 5 16:39:14 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMA8.m | Mon Nov 5 17:50:00 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 84 |
Changed | 1 | 2 |
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 | CHMLCMA8 ; CVA/DTP;PR INT-END OF CMAC LOAD WITH RECO RD COUNT;0 2/20/98 7 :52 AM | |
2 | ;;1.0 | |
3 | ;CPTS #13 733 BY DTP (13-FEB-9 8) | |
4 | ; DPT P RINT TO MA IL MAN | |
5 | START S X= DT D DTPRT S DATE=Y, PG=1,X=$P( $H,",",2), H=X\3600,M =X#3600\60 | |
6 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M D HEAD | |
7 | ;INSERT D ATA SORTS/ WRITE HERE | |
8 | S Y=CHBEG DT X ^DD(" DD") | |
9 | S XMY(DUZ )="" ;DUZ THAT LOAD ED CODE ;D PT | |
10 | ;S XMY(" PII ")="" ;HAC PST G ROUP ;DPT | |
11 | S XMDUZ=D UZ,XMSUB=" CMAC REPOR T "_$$FMTE ^XLFDT(DT, "5D") ;DPT | |
12 | S TEXT(1) ="This rep ort signif ies comple tion of CM AC update for: "_Y ;DPT | |
13 | S TEXT(2) ="The tota l number o f records read: "_C M ;DPT | |
14 | S TEXT(2) ="The tota l number o f new adds : "_CHNEW CT ;DPT | |
15 | S XMTEXT= "TEXT(" ; DPT | |
16 | I '$D(^CH MZHOLD("CM AC-DTERR") ) S TEXT(2 )=" Date D iscrepanci es Noted." ; G END | |
17 | D ^XMD | |
18 | ;W !!,"PL EASE SAVE THIS REPOR T FOR CMAC UPDATE PR OGRAMMER!! !" | |
19 | ;W !!!!!! !,"This re port signi fies compl etion of C MAC update for: ",Y | |
20 | ;W !!,"Th e total nu mber of re cords read : ",CM | |
21 | ;W !!,"Th e total nu mber of ne w adds: " ,CHNEWCT,! !! | |
22 | ;I '$D(^C HMZHOLD("C MAC-DTERR" )) S TEXT( 2)=" Date Discrepanc ies Noted. " G END | |
23 | S CM=0 D HEAD1 | |
24 | PR1 S CM=$ O(^CHMZHOL D("CMAC-DT ERR",CM)) G:'CM END | |
25 | S D=^CHMZ HOLD("CMAC -DTERR",CM ) | |
26 | I $Y>56 D HEAD,HEAD 1 | |
27 | W !,CM,?1 2,D | |
28 | G PR1 | |
29 | END Q | |
30 | ; | |
31 | HEAD S TEX T(1)=DUZ_" HEALTH AD MINISTRATI ON CENTER "_" Page: "_PG S PG= PG+1 | |
32 | ;INSERT A PPROPRIATE TITLE IN NEXT LINE- CHECK TAB | |
33 | S TEXT(1) =TIME_" CM AC Update Report"_$E (DT,4,7)_$ L(DATE)/2_ DATE | |
34 | Q | |
35 | ; | |
36 | HEAD1 S TE XT(1)="Rec ord No."_" Recorded D ata (Wrapp ed)"_"---- ------"_"- ---------- ---------- --" | |
37 | Q | |
38 | ; | |
39 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
40 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y | |
41 | Q | |
42 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
43 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.