Produced by Araxis Merge on 11/9/2018 12:33:40 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 | CH835VUP.m | Mon Nov 5 16:44:47 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CH835VUP.m | Mon Nov 5 17:36:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 158 |
Changed | 2 | 4 |
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 | CH835VUP ; CVA/JEH;AU TO/ADHOC V EN UPDATE FROM AITC VNDR FILE; 06/12/12 3:21 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JUNE 13 , 2012; | |
3 | ;; | |
4 | ;;CALLED FROM CH835 DRV | |
5 | ;;USE THE FOLLOWING GLOBAL - ^TMP($J,"N OEFT" | |
6 | START ; | |
7 | D INIT | |
8 | I $$OFILE ()=1 D | |
9 | .D GDATA | |
10 | .D WFILE | |
11 | .D CFILE | |
12 | .D MMMSG1 | |
13 | E D MMMS G2 | |
14 | D END | |
15 | Q | |
16 | INIT ;INIT IALIZE VAR IABLES | |
17 | S (CHVID, CHVTIN,CHV NUP)="" | |
18 | S CTR=0 | |
19 | Q | |
20 | GDATA ;GET TING DATA FROM ^TMP GLOBAL | |
21 | Q:'$D(^TM P($J,"NOEF T")) | |
22 | S I=0 F S I=$O(^TM P($J,"NOEF T",I)) Q:' I D | |
23 | .S CHVID= $P(^TMP($J ,"NOEFT",I ),"^",4) | |
24 | .Q:CHVID= "" | |
25 | .S CHVTIN =$P(^CHMVE N(CHVID,0) ,"^",3) ;TIN | |
26 | .Q:CHVTIN ="" | |
27 | .S CHVACD =$P(^CHMVE N(CHVID,0) ,"^",23) ;VENDOR ADDRESS CO DE | |
28 | .S CHVNUP ="" S CHVN UP=$$LJ^XL FSTR(CHVTI N_CHVACD,1 04," ") | |
29 | .S ^CHMZH OLD($J,"VN UPDT",$I(C TR))=CHVNU P | |
30 | Q | |
31 | WFILE ;WRI TE DATA TO FILE | |
32 | S I=0 F S I=$O(^CH MZHOLD($J, "VNUPDT",I )) Q:'I D | |
33 | .D ZWCHAR ^CHMSNUTL( CHFIO,^CHM ZHOLD($J," VNUPDT",I) ) ;FOR AITC FILE ATTRIBUTES | |
34 | Q | |
35 | OFILE() ;O PEN FILE | |
36 | N CHFLNOP | |
37 | S CHFLNOP =1 | |
38 | S CHFIO=" HAC_HFS$:[ DSMMANAG]F MS_VNUPDT_ FILE.DAT" | |
39 | O CHFIO:" NWU":5 I $ T=0 D | |
40 | .;W !,"** * [HAC_HFS $:[DSMMANA G]FMS_VNUP DT_FILE.DA T *** DID NOT OPEN" ;USE FO R TESTING | |
41 | .S CHFLNO P=0 | |
42 | Q CHFLNOP | |
43 | CFILE ;CLO SE FILE | |
44 | C CHFIO | |
45 | D ZWCLOSE ^CHMSNUTL( CHFIO,104, 1024) ; FOR AITC F ILE ATTRIB UTES | |
46 | Q | |
47 | END ; | |
48 | K CHVID,C HVTIN,CHVN UP | |
49 | K CHFIO,C TR | |
50 | Q | |
51 | MMMSG1 ;SE ND MAILMAN MESSAGE I NDICATING VENDOR UPD ATE IS COM PLETE | |
52 | S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1 | |
53 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO NOT REPLY TO THIS M ESSAGE.",C NT=CNT+1 | |
54 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
55 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AUSTIN VE NDOR UPDAT E HAS COMP LETED.",CN T=CNT+1 | |
56 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
57 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "SEE FILE HAC_HFS$:[ DSMMANAG]F MS_VNUPDT_ FILE.DAT F OR DATA OU TPUT.",CNT =CNT+1 | |
58 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
59 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "" | |
60 | S XMTEXT= "^TMP($J," "VN-UPDT-M SG""," | |
61 | S XMDUZ=. 5 | |
62 | I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII ")="" | |
63 | S XMY(DUZ )="" | |
64 | S XMSUB=" VN (AITC) NTLY UPDT PROC {COMP LTD}" D ^X MD | |
65 | Q | |
66 | MMMSG2 ;SE ND MAILMAN MESSAGE I NDICATING VENDOR UPD ATE ISSUE | |
67 | S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1 | |
68 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO NOT REPLY TO THIS M ESSAGE.",C NT=CNT+1 | |
69 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
70 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AUSTIN VE NDOR UPDAT E DID NOT COMPLETE." ,CNT=CNT+1 | |
71 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
72 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "FILE HAC_ HFS$:[DSMM ANAG]FMS_V NUPDT_FILE .DAT NOT C REATED.",C NT=CNT+1 | |
73 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
74 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "" | |
75 | S XMTEXT= "^TMP($J," "VN-UPDT-M SG""," | |
76 | S XMDUZ=. 5 | |
77 | I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII ")="" | |
78 | S XMY(DUZ )="" | |
79 | S XMSUB=" VN (AITC) NTLY UPDT PROC {FAIL ED}" D ^XM D | |
80 | Q | |
81 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.