Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHBPACR1.m | Mon Nov 5 16:42:27 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPACR1.m | Mon Nov 5 17:37:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 104 |
Changed | 1 | 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 | CHBPACR1 ; CVA/AEB;CH K TO VERIF Y TRANSMIS SION TO AU STIN HAS O CCURED;10/ 09/08 8:2 9 AM | |
2 | ;V1.0 | |
3 | ;C HTDT - STA RT DATE | |
4 | ;C HEDT - END DATE | |
5 | ;C HIVAL I PO INTER TO ^ CHBPACL | |
6 | ;T MP(1) LOG DATE,TMP(2 )=EOB,TMP( 3)=EOB1,TM P(4)=ZEOB, TMP(5)=CAP P | |
7 | ;T MP(6)=CALM ,TMP(7)=CA PP VTXT,TM P(8)=CLAM VTXT,TMP(9 )=S741CH21 | |
8 | ;T MP(10)=S74 1CH22,TMP( 11)=S741CH 23,TMP(12) =S741CH24, TMP(13)=S7 41CH27 | |
9 | ;T MP(14)=DUZ ,TMP(15)=D ATE SENT O R RECEV'D | |
10 | S ZTRTN=" A^CHBPACR1 ",ZTDESC=" CHECK FOR AAC " | |
11 | S ZTIO="" D ^%ZTLOA D | |
12 | W !!,"You r task num ber is ",Z TSK | |
13 | Q | |
14 | A I '$D(DT ) D NOW^%D TC S DT=X | |
15 | I DT="" D NOW^%DTC S DT=X | |
16 | K TMP F I =1:1:13 S TMP(I)=0 ;SET ALL F ILES TO NO T RECEIVED | |
17 | S $P(TMP( 1),"^",2) ="LOG DATE ",$P(TMP(2 ),"^",2)=" EOB" | |
18 | S $P(TMP( 3),"^",2)= "EOB1",$P( TMP(4),"^" ,2)="ZEOB" | |
19 | S $P(TMP( 5),"^",2)= "CAPP",$P( TMP(6),"^" ,2)="CALM" | |
20 | S $P(TMP( 7),"^",2)= "CAPP VTXT ",$P(TMP(8 ),"^",2)=" CALM VTXT" | |
21 | S $P(TMP( 9),"^",2)= "S741CH21" ,$P(TMP(10 ),"^",2)=" S741CH22" | |
22 | S $P(TMP( 11),"^",2) ="S741CH23 ",$P(TMP(1 2),"^",2)= "S741CH24" | |
23 | S $P(TMP( 13),"^",2) ="S741CH27 " | |
24 | S CHTDT=D T-1 | |
25 | A1 S CHTDT =$O(^CHBPA CL("B",CHT DT)) G:'CH TDT END | |
26 | S CHIVAL= 0 | |
27 | A2 S CHIVA L=$O(^CHBP ACL("B",CH TDT,CHIVAL )) G:'CHIV AL A1 | |
28 | G:'$D(^CH BPACL(CHIV AL,0)) A2 | |
29 | F I=2:1:1 3 S $P(TMP (I),"^",1) =$P(TMP(I) ,"^",1)+$P (^CHBPACL( CHIVAL,0), "^",I) | |
30 | G A2 | |
31 | END ; | |
32 | F CHSORT= 2:1:13 I $ P(TMP(CHSO RT),"^",1) =0 D | |
33 | .S TMP("E XCEP",CHSO RT)=$P(TMP (CHSORT)," ^",2) | |
34 | .Q | |
35 | D MAIL ; SEND MAILM AN MESSAGE AND OUTLO OK MESSAGE S | |
36 | Q | |
37 | MAIL S TMP CT=1 | |
38 | S ^TMP($J ,"BATCH-FI LES",TMPCT )="",TMPCT =TMPCT+1 | |
39 | S ^TMP($J ,"BATCH-FI LES",TMPCT )="The sta tus for th e AITC fil e transfer process o n "_$$FMT E^XLFDT(DT ,"1D") | |
40 | S TMPCT=T MPCT+1 | |
41 | S ^TMP($J ,"BATCH-FI LES",TMPCT )="is as f ollows:" | |
42 | I '$D(TMP ("EXCEP")) S TMPCT=T MPCT+1,^TM P($J,"BATC H-FILES",T MPCT)="All files sen t or retur ned." G M1 0 | |
43 | I $D(TMP( "EXCEP")) D | |
44 | .S IV=0 | |
45 | M1 .S IV=$ O(TMP("EXC EP",IV)) Q :'IV | |
46 | .S TMPCT= TMPCT+1,^T MP($J,"BAT CH-FILES", TMPCT)="Th e "_TMP("E XCEP",IV)_ " File has not been sent or re ceived." | |
47 | .G M1 | |
48 | .Q | |
49 | M10 S XMDU Z=.5,XMY(" 9887")="", XMY("23249 ")=""="",X MY("58243" )="" | |
50 | S XMY(" PII ")="" | |
51 | S XMY(" PII ")="" | |
52 | ;S XMY(" P I I ")="" | |
53 | ;S XMY(" PII ")="" | |
54 | S XMTEXT= "^TMP($J," "BATCH-FIL ES""," | |
55 | S XMSUB=" DAILY BATC H CHECK LI ST" D ^XMD | |
56 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.