Produced by Araxis Merge on 11/9/2018 12:34:02 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 | CHMLCMA6.m | Mon Nov 5 16:44:47 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMA6.m | Mon Nov 5 17:49:59 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 112 |
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 | CHMLCMA6 ; JEH/HAC; U PDATE SERV ICE FILE W ITH CPT RV U DATA;09/ 6/06 12:3 9 PM | |
2 | ;V1.0 | |
3 | ;MTN02069 7 DPT 3/20 /14 anest hesia upda te new fie ld | |
4 | ;DEV01655 4 DEV01289 3 DPT EOF REPLACE DE CNET 1/27/ 14 3/24/15 | |
5 | ;MTN02552 4 DPT CMAC 2016 EFF 4/1/16 | |
6 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
7 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
8 | ;set var IOF for cl ear screen | |
9 | S:'$D(IOF ) IOF="#,$ C(27,91,50 ,74,27,91, 72)" | |
10 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
11 | S:$D(IOF) IOZF=IOF | |
12 | ZNAM ; | |
13 | ; | |
14 | BEGIN ; | |
15 | D INIT ; INITIALI ZE AND SET VARIABLES | |
16 | D FLOAD ; LOAD DAT A INTO TEM P GLOBAL | |
17 | D GLOAD ; LOAD DAT A IN CHMSE RV GLOBAL | |
18 | D:$D(^CHM ZHOLD("CPT -RVU","ERR OR")) ERRF L | |
19 | W !!,"END OF LOADIN G RVU DATA " | |
20 | G END | |
21 | Q | |
22 | INIT ;MASS UPDATE (R EAD IN EXT ERNAL FILE ) | |
23 | S AYGSYS= XQVOL | |
24 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
25 | S ENVIR=A YGSYS | |
26 | S DIR(0)= "F",DIR("A ")="Enter File Name (include f ile extens ion - ANES RVG1.Y06)" D ^DIR K DIR S FNAM E=Y | |
27 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _FNAME ;<---JEH PUT FILE N AME HERE "ANESRVG1. Y06" - TEST "AN ESRVG1TEST .Y06" | |
28 | ;S FILE=F NAME,FOLDE R="" ;DEV0 16554 DPT | |
29 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
30 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
31 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
32 | ;S FILE=F OLDER_FILE | |
33 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="HADTST ":"DEV",UC I="TST":"T EST",UCI=" HACTST":"T EST",UCI=" SLA":"LIVE ",UCI="HAC ":"LIVE",U CI="TRN":" TRAIN") ;D EV012893 D PT MTN0255 24 DPT | |
34 | ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI | |
35 | ;U 0 W !! ,"ENVIRONM ENT = ",UC I," ",CHUC I | |
36 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 2893 DPT | |
37 | ;S POP=0, CNTR=0 ;DE V012893 DP T | |
38 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;D EV012893 D PT | |
39 | ; . X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 DPT | |
40 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 12893 DPT | |
41 | ; .Q ;DEV 012893 DPT | |
42 | ;I 'POP W !!,"NOT A BLE TO OPE N FILE" Q ;DEV012893 DPT | |
43 | S CTR=0,I 1=0 | |
44 | K ^CHMZHO LD("CPT-RV U") | |
45 | S CHDUZ=1 | |
46 | S:$G(DUZ) CHDUZ=DUZ | |
47 | I '$D(DT) D NOW^%DT C S DT=X | |
48 | S CHMODDT =DT ;SETT ING MODIFY DATE | |
49 | S TAB=$C( 9) | |
50 | Q | |
51 | FLOAD ;LOA D DATA INT O TEMP GLO BAL | |
52 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME | |
53 | S POP=0,C NTR=0 ;DEV 012893 DPT | |
54 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DE V012893 DP T | |
55 | . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;D EV016554 D PT | |
56 | . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV01 2893 DPT | |
57 | .Q ;DEV0 12893 DPT | |
58 | I 'POP W !!,"NOT AB LE TO OPEN FILE" Q ; DEV012893 DPT |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.