Produced by Araxis Merge on 11/9/2018 12:34:08 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 | CHMSN12A.m | Mon Nov 5 16:42:56 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMSN12A.m | Mon Nov 5 17:51:31 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 138 |
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 | CHMSN12A ; HBG/DEN;AU TOMATED PI CKUP OF TR ANS942;03/ 26/99 4:1 5 PM | |
2 | ;V1.0 | |
3 | ;TT #MTN0 15348: Add ed ADHOC v endor upda te - JEH 7 /27/12 | |
4 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
5 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
6 | ZNAM ; | |
7 | A S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]DE LETE_S741C H04.COM") | |
8 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG.C HAMPVA]ASS IGN_VA5540 _PR1.COM/L OG=HAC_HFS $:[DSMMANA G]/QUEUE=7 41A01$BATC H/USER=HAC CACHEMGR") H 15 | |
9 | S ZTRTN=" START^CHMS N12A",ZTDE SC="PICKUP TRANS942' S",ZTDTH=$ H | |
10 | S ZTIO="" D ^%ZTLOA D S IOP="H OME" D HOM E^%ZIS | |
11 | Q | |
12 | START ;S D UMMY="NL:" K CHMERR D START^CH MSN11B | |
13 | Q:$D(CHME RR) | |
14 | EN1 ;S X=$ ZF(-1,"SUB MIT HAC_HF S$:[DSMMAN AG.CHAMPVA ]PICKUP_VL OG_GDG_FTP .COM/LOG=H AC_HFS$:[D SMMANAG]/Q UEUE=741A0 1$BATCH/US ER=HACCACH EMGR") H 2 00 | |
15 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]CO PY_TO_S741 CH27.COM") | |
16 | END S ZTRT N="^CHMI10 0A",ZTDESC ="PROCESS VLOG FILE" ,ZTIO="" | |
17 | S PICKDT= $$FMADD^XL FDT($$DT^X LFDT_.063, 1,0,0,0) S ZTDTH=$H ; JEH 6/ 29/06 CHG D TIME FRO M '.053' T O '.6' | |
18 | S ZTDTH=P ICKDT,ZTIO ="" D ^%ZT LOAD | |
19 | ;D ^CHMI1 00A | |
20 | S ZTRTN=" VADHOC^CHM SN12A",ZTD ESC="PROCE SS ADHOC V LOG FILE", ZTIO="" ;JEH MTN01 5348 7/27/ 12 | |
21 | S PICKDT= $$FMADD^XL FDT($$DT^X LFDT_.0900 00,1,0,0,0 ) S ZTDTH= $H ; SCH EDULED TO RUN AT 9:0 0A | |
22 | S ZTDTH=P ICKDT,ZTIO ="" D ^%ZT LOAD | |
23 | ;D VADHOC ;JEH M TN015348 7 /27/12 | |
24 | Q | |
25 | VADHOC ; QUEUE ADHO C VENDOR U PDATE ;JEH MTN015348 7/27/12 | |
26 | Q:$D(^CHM ZHOLD("VLO G_RUNNING" )) ;DON' T RUN IF R EGULAR VLO G IS RUNNI NG | |
27 | N IOFILE, OFLG,PCKDT ,SVDUZ,SVD UZ0,RC,CHA VFG | |
28 | S OFLG=0 ;FILE OP EN FLAG: 0=CLOSED/1 =OPEN | |
29 | S (SVDUZ, SVDUZ0,PCK DT,IOFILE) ="" | |
30 | S SVDUZ=D UZ,SVDUZ0= DUZ(0) ;S AVING DUZ AND SETTIN G DUZ TO T ASKMAN,PRO XY | |
31 | S IOFILE= "HAC_HFS$: [DSMMANAG. CHAMPVA]S7 41CH28.1PA RT" | |
32 | O IOFILE: "R":2 S:$T =1 OFLG=1 | |
33 | I OFLG=1 D | |
34 | .S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]VA DHOC_UPDAT E.COM/LOG= DHCP$CHAMP VA") S:$T= 0 OFLG=0 ;USE THIS LINE RVS | |
35 | .C IOFILE | |
36 | .Q:OFLG=0 | |
37 | .I $$ENVI R^CHTFLIB= "LIVE" S D UZ=398103, DUZ(0)="@" ;TASKMA N,PROXY US ER (DUZ#3 98103) | |
38 | .S CHAVFG =1 | |
39 | .S ZTRTN= "^CHMI100A ",ZTDESC=" PROCESS AD HOC VNDR F ILE" | |
40 | .S PICKDT =$$FMADD^X LFDT($$DT^ XLFDT_.100 000,1,0,0, 0) S ZTDTH =$H ; SC HEDULED TO RUN AT 10 :00A | |
41 | .S ZTSAVE ("CHAVFG") ="" | |
42 | .S ZTDTH= PICKDT,ZTI O="" D ^%Z TLOAD | |
43 | .;D ^CHMI 100A | |
44 | .D MMSG(1 ) | |
45 | .Q | |
46 | I OFLG=0 D | |
47 | .C IOFILE | |
48 | .D MMSG(0 ) | |
49 | S DUZ=SVD UZ,DUZ(0)= SVDUZ0 | |
50 | Q | |
51 | MMSG(MTYP) ;FILE FAI LED/QUEUED MESSAGE | |
52 | S MSGTYP= $S(MTYP=0: "FAILED",M TYP=1:"QUE UED",1:"") | |
53 | S CNT=1,^ TMP($J,"VN -UPDT-MSG" ,CNT)="",C NT=CNT+1 | |
54 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "PLEASE DO NOT REPLY TO THIS M ESSAGE.",C NT=CNT+1 | |
55 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
56 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "AITC ADHO C VENDOR U PDATE "_MS GTYP_".",C NT=CNT+1 | |
57 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
58 | S:MTYP=0 ^TMP($J,"V N-UPDT-MSG ",CNT)="FI LE NOT AVA ILABLE.",C NT=CNT+1 | |
59 | S:MTYP=1 ^TMP($J,"V N-UPDT-MSG ",CNT)="AD HOC VENDOR UPDATE QU EUED FOR " _$$FMTE^XL FDT(PICKDT ,1),CNT=CN T+1 | |
60 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
61 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "SEE FILE HAC_HFS$:[ DSMMANAG.C HAMPVA]S74 1CH28.1PAR T.",CNT=CN T+1 | |
62 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "",CNT=CNT +1 | |
63 | S ^TMP($J ,"VN-UPDT- MSG",CNT)= "" | |
64 | S XMTEXT= "^TMP($J," "VN-UPDT-M SG""," | |
65 | S XMDUZ=. 5 | |
66 | I $$ENVIR ^CHTFLIB=" LIVE" S XM Y(" PII ")="" | |
67 | S XMY(SVD UZ)="" | |
68 | S XMSUB=" ADHOC VN/A ITC UPDT { "_MSGTYP_" } *** " D ^XMD | |
69 | Q | |
70 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.