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 | CHMLCMA9.m | Mon Nov 5 16:39:55 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMA9.m | Mon Nov 5 17:50:00 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 54 |
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 | CHMLCMA9 ; CVA/DTP;PR INT-END OF CMAC ZIP CODE LOAD WITH COUNT ;02/19/98 1:57 PM | |
2 | ;;1.0; | |
3 | ;;CPTS #1 3733 BY DT P (13-FEB- 98) | |
4 | START S X= DT D DTPRT S DATE=Y, PG=1,X=$P( $H,",",2), H=X\3600,M =X#3600\60 | |
5 | S:M<10 M= 0_M S:H<10 H=0_M S T IME=H_M ;D HEAD | |
6 | ;INSERT D ATA SORTS/ WRITE HERE | |
7 | S Y=CHBEG DT X ^DD(" DD") | |
8 | S XMY(" PII ")="" ;HAC PST G ROUP | |
9 | S XMDUZ=D UZ,XMSUB=" CMAC ZIP C ODE LOAD C OMPLETE"_$ $FMTE^XLFD T(DT,"5D") | |
10 | S TEXT(1) ="PLEASE S AVE THIS R EPORT FOR CMAC UPDAT E PROGRAMM ER!!!" | |
11 | S TEXT(1) ="This rep ort signif ies comple tion of CM AC ZIP upd ate for: "_Y | |
12 | S TEXT(2) ="The tota l number o f records read: "_C HX | |
13 | S TEXT(2) ="The tota l number o f zip code s added: "_CHZ | |
14 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB | |
15 | D ^XMD | |
16 | ||
17 | END Q | |
18 | ; | |
19 | HEAD W @IO F,!,DUZ,?2 6,"HEALTH ADMINISTRA TION CENTE R",?72,"Pa ge: ",PG S PG=PG+1 | |
20 | ;INSERT A PPROPRIATE TITLE IN NEXT LINE- CHECK TAB | |
21 | S TEXT(1) =TIME_" C MAC ZIPCOD E Update R eport"_$E( DT,4,7)_$L (DATE)/2_D ATE | |
22 | Q | |
23 | ; | |
24 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
25 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y | |
26 | Q | |
27 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
28 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.