Produced by Araxis Merge on 11/9/2018 12:33:51 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 | CHLTDACU.m | Mon Nov 5 16:44:59 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHLTDACU.m | Mon Nov 5 17:41:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 244 |
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 | CHLTDACU ; CVA/JLR;TD A UTILITY ROUTINE;02 /25/99 8: 04 AM | |
2 | ;V2.0 | |
3 | ; PT #161 21 (Y2K) | |
4 | ;MTN01390 8-01 12/12 /11 JEH - CITI TDA u pdates, FI X MAILMAN DISTRIBUTI ON LIST | |
5 | START ; | |
6 | D INIT | |
7 | D:'$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR)) S ETALL | |
8 | D:'$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR,CHM TH)) SETMT H ;JEH 12/21/11 - ***TESTI NG*** COMM ENTED OFF TO PREVENT 12/31 DAT E CREATION | |
9 | D SEPT | |
10 | D:'$D(QFL AG) COMPRE | |
11 | END K QFLA G,FL,CHYR, CHMTH,YY,X X,CHDT,HLD DT,X1,X2,X ,Y | |
12 | Q | |
13 | ; | |
14 | INIT I '$D (DT) D NOW ^%DTC S DT =$P(%,".", 1) | |
15 | ; Y2K - C HYR was a 2-digit YR ...fixed t o make it compliant | |
16 | ;S CHYR=$ E(DT,2,3) | |
17 | S CHYR=$E (DT,1,3) | |
18 | S CHMTH=$ E(DT,4,5) | |
19 | Q | |
20 | ; | |
21 | SETALL ; | |
22 | ; Y2K S Y Y=2_CHYR_" 0128" | |
23 | S YY=CHYR _"0128" | |
24 | F CHDT=YY :100:YY+11 00 S HLDDT =CHDT K FL F XX=1:1 D FNDDAT Q :$D(FL) | |
25 | Q | |
26 | ; | |
27 | SETMTH ; | |
28 | ;Y2K S CH DT=2_CHYR_ CHMTH_28 S HLDDT=CHD T K FL F X X=1:1 D FN DDAT Q:$D( FL) | |
29 | S CHDT=CH YR_CHMTH_2 8 S HLDDT= CHDT K FL F XX=1:1 D FNDDAT Q: $D(FL) | |
30 | Q | |
31 | ; | |
32 | FNDDAT S X 1=CHDT,X2= XX D C^%DT C | |
33 | I $E(X,4, 5)'=$E(CHD T,4,5) S F L=1 D SETD AT Q | |
34 | S HLDDT=X | |
35 | Q | |
36 | ; | |
37 | SETDAT Q:$ E(HLDDT,4, 5)="09" | |
38 | S ^CHMIHQ ("A-TDA-RU N-DATE",CH YR,$E(HLDD T,4,5),HLD DT)="" Q | |
39 | ; | |
40 | SEPT K QFL AG Q:$E(DT ,4,5)'="09 " | |
41 | I '$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR,CHM TH)) D MES SGE S QFLA G=1 | |
42 | Q | |
43 | ; | |
44 | COMPRE ; | |
45 | D:$D(^CHM IHQ("A-TDA -RUN-DATE" ,CHYR,CHMT H,DT)) QUE UE | |
46 | Q | |
47 | ; | |
48 | QUEUE S OP T=$O(^CHMT DA(9999999 9),-1) Q:' OPT | |
49 | Q:'$D(^CH MTDA(OPT,0 )) | |
50 | S BDATE=$ P(^CHMTDA( OPT,0),"^" ,3) | |
51 | S X1=BDAT E | |
52 | S X2=1 | |
53 | D C^%DTC | |
54 | S TBDATE= X | |
55 | S EDATE=D T+1,TDATE= DT | |
56 | D ^CHLTDA C1 | |
57 | Q | |
58 | ; | |
59 | MESSGE S ^ UTILITY($J ,"NO-DATE" ,1,1,0)="N o TDA run date for S eptember h as been es tablished. " | |
60 | S ^UTILIT Y($J,"NO-D ATE",1,2,0 )="Please enter a da te so TDA can be pro cessed for this mont h." | |
61 | S XMDUZ=. 5,XMSUB="N o TDA date has been set" | |
62 | S XMTEXT= "^UTILITY( $J,""NO-DA TE"",1," | |
63 | ;S XMY(86 737)="",XM Y(58246)=" ",XMY(2488 )="",XMY(1 260)="",XM Y(2618)="" ;MTN01 3908-01 12 /12/11 JEH | |
64 | S XMY(" PII ")="" ;MTN013908 -01 12/12/ 11 JEH | |
65 | S XMY("G. FTDA")="" ;MTN0139 08-01 12/1 2/11 JEH | |
66 | ;S XMDUZ= 1948,XMY(1 948)="",XM SUB="No TD A date has been set" | |
67 | S U="^" D ^XMD | |
68 | Q | |
69 | ; | |
70 | DATES ;ENT ER/EDIT TD A RUN DATE S | |
71 | W @IOF,!! ,"TDA is s et to run on the fol lowing dat es.",! | |
72 | S NODATES ="Currentl y there ar e no dates set up to run a TDA ." | |
73 | ;Y2K S YR =$E(DT,2,3 ),MN=$E(DT ,4,5)-1 | |
74 | S YR=$E(D T,1,3),MN= $E(DT,4,5) -1 | |
75 | D1 S MN=$O (^CHMIHQ(" A-TDA-RUN- DATE",YR,M N)) G:'MN D3 S DAT=0 | |
76 | D2 S DAT=$ O(^CHMIHQ( "A-TDA-RUN -DATE",YR, MN,DAT)) G :'DAT D1 | |
77 | G:DAT<DT D2 | |
78 | K NODATES S X=DAT D DTPRT | |
79 | W !," ",Y | |
80 | G D2 | |
81 | D3 W:$D(NO DATES) !?1 0,"***** ",NODATES, " *****" W !! | |
82 | D4 K DIR | |
83 | S DIR(0)= "DOA^DT::X ",DIR("A") ="Enter da te for TDA to run on : " | |
84 | D ^DIR G: X="" END G :X="^" END G:X="^^" END G:X="@ " D4 | |
85 | ;Y2K S YR =$E(Y,2,3) ,MN=$E(Y,4 ,5),NDAT=Y ,X=NDAT D DTPRT S PD AT=Y | |
86 | S YR=$E(Y ,1,3),MN=$ E(Y,4,5),N DAT=Y,X=ND AT D DTPRT S PDAT=Y | |
87 | K FL D ED IT G:$D(FL ) DATES | |
88 | K ^CHMIHQ ("A-TDA-RU N-DATE",YR ,MN) | |
89 | S ^CHMIHQ ("A-TDA-RU N-DATE",YR ,MN,NDAT)= "" G DATES | |
90 | EDIT K DIR I $D(^CHM IHQ("A-TDA -RUN-DATE" ,YR,MN)) D | |
91 | .W !!,"A TDA run da te already exists fo r the year and month entered." | |
92 | .W !,"Onl y one run date a mon th is allo wed." | |
93 | W ! S MON TH=$P($T(T EXT+(+MN)) ,";",2) | |
94 | S DIR(0)= "DOA^DT::X ",DIR("A") ="TDA run date for " _MONTH_": " | |
95 | S DIR("B" )=PDAT | |
96 | D ^DIR | |
97 | I X="@" K ^CHMIHQ(" A-TDA-RUN- DATE",YR,M N,NDAT) S FL=1 | |
98 | S:X="" FL =1 S:X="^" FL=1 S:X= "^^" FL=1 | |
99 | Q | |
100 | SBRS D CSB RS^CHSC2 Q ;SKD, 9 -7-05 | |
101 | R Y:$S($D (DTIME):DT IME,1:60) | |
102 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
103 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
104 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
105 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
106 | Q | |
107 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
108 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
109 | Q | |
110 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
111 | TEXT ; | |
112 | ;January | |
113 | ;February | |
114 | ;March | |
115 | ;April | |
116 | ;May | |
117 | ;June | |
118 | ;July | |
119 | ;August | |
120 | ;Septembe r | |
121 | ;October | |
122 | ;November | |
123 | ;December |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.