Produced by Araxis Merge on 11/9/2018 12:34:03 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 | CHMLCMA7.m | Mon Nov 5 16:45:19 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCMA7.m | Mon Nov 5 17:49:59 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 432 |
Changed | 3 | 6 |
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 | CHMLCMA7 ; CR/DEN;LOA D CMAC DAT A INTO ^CH MCPF FILE; 06/18/99 11:39 AM | |
2 | ;V1.0 | |
3 | ;CPTS #13 733 BY DTP (13-FEB-9 8) | |
4 | ;MOD TO A CCEPT NEW FILE BY JE H (2/24/04 ) | |
5 | ;MC016 BY JEH (7/24 /06) CMAC STANDARD F ILE CONVER SION | |
6 | ;MTN0198 53 DEV0165 54 DPT 1/9 /13 CODE U PDATES, EO F, REPLACE DECNET | |
7 | ;MTN02406 9 DPT LOAD CMAC REVI SED RATES | |
8 | ; MTN DPT BY P ASS 383 AN D 391 this will elim inate chan ging file REMOVE REF ERENCE TO ENVIRONMEN T MANAULLY MOVE FILE TO CACHE | |
9 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
10 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
11 | 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 | |
12 | ; | |
13 | BEGIN ;SET CURRENT A ND LAST EF FECT DATE | |
14 | W !! S %D T="AEX",%D T("A")="En ter effect ive date: (MM/DD/YY) " D ^%DT Q:X="" Q: Y=-1 S CH BEGDT=Y | |
15 | W !! S %D T="AEX",%D T("A")="La st effecti ve date: ( MM/DD/YY) " D ^%DT Q :X="" Q:Y =-1 S CHL SRNDT=9999 999-Y | |
16 | ;AUTO GET LAST EFF DATE | |
17 | ;S I=0,I= $P(^CHMCPF (0),"^",3) | |
18 | ;S J=0,J= $O(^CHMCPF (I,J)) | |
19 | ;S K=9999 999,K=$O(^ CHMCPF(I,J ,K),-1) | |
20 | ;S CHLSRN DT=K | |
21 | ; | |
22 | ;SET ENVI RONMENT | |
23 | ;S AYGSYS =XQVOL | |
24 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
25 | ;S ENVIR= AYGSYS | |
26 | ;S DIR("B ")=ENVIR | |
27 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
28 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
29 | ;S DIR("L ",2)="" | |
30 | ;S DIR("L ",3)=" 1 LIVE" | |
31 | ;S DIR("L ",4)=" 2 TRAIN" | |
32 | ;S DIR("L ",5)=" 3 TEST" | |
33 | ;S DIR("L ",6)=" 4 DEV" | |
34 | ;S DIR("L ",7)="" | |
35 | ;S DIR("L ")=" ^ QUIT" | |
36 | ;D ^DIR K DIR | |
37 | ;Q:$D(DUO UT) | |
38 | ;Q:Y="" | |
39 | ;Q:Y="^"! (Y="") | |
40 | ;S ENVIR= Y(0) | |
41 | S $ZE="", $ZT="END" | |
42 | ;SET CMAC FILE NAME | |
43 | S DIR(0)= "F^3:50" | |
44 | S DIR("A" )="Enter C MAC Standa rd file na me (CMAC07 R2.TXT)" D ^DIR K DI R | |
45 | Q:$D(DUOU T) | |
46 | Q:Y="^"!( Y="") | |
47 | S CNAME=Y K DIR | |
48 | ; N FOLDE R,CNTR | |
49 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
50 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
51 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
52 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
53 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
54 | ;S FILE=F OLDER_FILE | |
55 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893 DPT | |
56 | ;S FLDR=" /FS3BIG/CO DEUPDT/CMA CUPDT/"_CH UCI ;DEV01 2893 DPT | |
57 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
58 | ; S POP=0 ,CNTR=0 | |
59 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D | |
60 | ;. X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 DPT | |
61 | .; S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") | |
62 | ;.Q | |
63 | ;I 'POP G END | |
64 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME | |
65 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CMACUPDT." _ENVIR_"]" _CNAME ; NAME OF CMAC FILE | |
66 | W !,FILE | |
67 | O FILE:"R ":5 ;MTN DPT | |
68 | W !!,"Inp ut Device: ",!,FILE | |
69 | W !!,"Eff ective Dat e: ",CHBE GDT | |
70 | W !,"Last Run Date: ",99999 99-CHLSRND T | |
71 | W !!,"Is this corre ct? " D SB RS | |
72 | W ! | |
73 | Q:$D(DFOU T) Q:$D(D UOUT) I $ D(DQOUT) D G BEGIN | |
74 | .W !!,"En ter 'Y' or 'N'. " | |
75 | Q:Y="" | |
76 | S Y=$E(Y, 1) I "ynYN "'[Y W *7, " ??" G BE GIN | |
77 | ;G F1:"Nn "[Y | |
78 | G BEGIN:" Nn"[Y | |
79 | S STARTFL ="" | |
80 | QUEC ;S IO P="Q" D ^% ZIS G QEND :POP | |
81 | S CHFIO=I ON | |
82 | S ZTRTN=" START^CHML CMA7",ZTDE SC="LOAD C MAC UPDATE ",ZTIO="" | |
83 | S ZTSAVE( "CHFIO")=" ",ZTSAVE(" FILE")="", ZTSAVE("CH LSRNDT")=" ",ZTSAVE(" CHBEGDT")= "" | |
84 | S:$D(STAR TFL) ZTSAV E("STARTFL ")="" | |
85 | D ^%ZTLOA D | |
86 | G START ; JEH <- ---------- ---------- ---------- -REMOVE AF TER TESTIN G | |
87 | QEND K CM, CHBEGDT,CH FIO,FILE,D ,PG,TIME,D ATE,CHNEWC T Q | |
88 | ; | |
89 | ;CAN TEST BE ENTERI NG AT STAR T BELOW--M UST SET FI LE,CHBEGDT ,CHLSRNDT | |
90 | START K X, ^CHMZHOLD( "CMAC-DTER R") S (CM, CHNEWCT)=0 | |
91 | F CHY=297 :1:304 S X (CHY)="" ; USED TO L IMIT SAMPL E TO FRONT END OF FI LE | |
92 | F CHY=377 :1:384 S X (CHY)="" ; USED TO L IMIT SAMPL E TO BACK END OF FIL E | |
93 | S $ZE="", $ZT="END^C HMLCMA7" | |
94 | ;O FILE:" R":5 | |
95 | ;D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV016554 DPT | |
96 | ;S POP=0, CNTR=0 ;DE V016554 DP T | |
97 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V016554 DP T | |
98 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
99 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ;DEV016554 DPT | |
100 | ; .Q ;DEV 016554 DPT | |
101 | ;I 'POP G END ;DEV 016554 DPT | |
102 | ||
103 | A1 U FILE R X G:$$ST ATUS^%ZISH END ;DEV0 16554 DPT | |
104 | ;U FILE R X G END:( $ZA\1024#2 ) G END:($ ZA\16384#2 ) G A1:$L( X)=0 | |
105 | S CHCPDT= $E(X,41,48 ),CHCMPDT= $$YR8FMYR^ CHTFLIB(CH CPDT) ;E FFECTIVE D ATE | |
106 | S CHBEGDT =CHCMPDT ;<------ ---------- ---------- ---------- ---------- ---------- JEH 4/22/0 8 ADDED | |
107 | ;I CHCMPD T'=CHBEGDT D DTERR G A1 ; DATE DISCREPAN CIES IN FI LE | |
108 | ;CHNG CHB EGDT IN NX T LINE YEA RLY AS NEC ESSARY OR ADD PROMPT | |
109 | S CHREVDT =9999999-C HBEGDT ; , CHBEGDT=29 80201 | |
110 | ;S CHREVD T1=7029498 ; 2-13-98 NOT PRESE NTLY USED | |
111 | S CHCLOC= $E(X,1,3), CHCLOC=+CH CLOC,CHCPT =$E(X,4,8) | |
112 | I CHCLOC= 383 G A1 ; mtn dpt | |
113 | I CHCLOC= 391 G A1 ; mtn dpt | |
114 | S CHM1=$E (X,9,16) S B=CHM1 DO ZEROOUT,D EC S CHM1= B ;NONF ACILITY CM AC FOR PHY SICIAN/LLP CLASS | |
115 | S CHM2=$E (X,17,24) S B=CHM2 D O ZEROOUT, DEC S CHM2 =B ;FACI LITY CMAC FOR PHYSIC IAN/LLP CL ASS | |
116 | S CHM3=$E (X,25,32) S B=CHM3 D O ZEROOUT, DEC S CHM3 =B ;NONF ACILITY CM AC FOR NON DOC CLASS | |
117 | S CHM4=$E (X,33,40) S B=CHM4 D O ZEROOUT, DEC S CHM4 =B ;FACI LITY CMAC FOR NONDOC CLASS | |
118 | ;BELOW 4 LINES NEW 4/19/96 | |
119 | S CHM5=$E (X,65,72) S B=CHM5 D O ZEROOUT, DEC S CHM5 =B ;PHYS ICIAN CLAS S PROF COM PONENT CMA C | |
120 | S CHM6=$E (X,73,80) S B=CHM6 D O ZEROOUT, DEC S CHM6 =B ;PHYS ICIAN CLAS S TECH COM PONENT CMA C | |
121 | S CHM7=$E (X,81,88) S B=CHM7 D O ZEROOUT, DEC S CHM7 =B ;NONP HYSICIAN C LASS PC C MAC | |
122 | S CHM8=$E (X,89,96) S B=CHM8 D O ZEROOUT, DEC S CHM8 =B ;NONP HYSICIAN C LASS TC CM AC | |
123 | S CHCPTZ= CHCPT_"Z" | |
124 | G:('$D(^C HMSERV("BF ",CHCPTZ)) )&('$D(^CH MSERV("BC" ,CHCPT))) A1 | |
125 | I '$D(^CH MCPF("B",C HCPT)) D N EW G CONT | |
126 | S DA=$O(^ CHMCPF("B" ,CHCPT,0)) I 'DA D N EW G CONT | |
127 | ;B:CHCPT= 90842 ; 2- 13-98 OLD MONITOR ON SPECIFIC CODE | |
128 | S CM=CM+1 ; Q:('$D( STARTFL))& (CM=4) ; NEED TO CO MMENT QUIT CMD OFF I F RUNNING THE ENTIRE UPDATE HO T | |
129 | S CHI=DA | |
130 | CONT D A2 | |
131 | ;BELOW CR EATES NEW DATE PRICI NG FOR CLO NED CODES | |
132 | I $D(^CHM CPF(CHI,10 00)) D ; | |
133 | .S CHG=0 F S CHG=$ O(^CHMCPF( CHI,1000," B",CHG)) Q :'CHG I $ D(^CHMCPF( CHG,0)) S DA=CHG D A 2 | |
134 | G A1 | |
135 | A2 F I=CHC LOC:-1 Q:I #8=1 | |
136 | ;BELOW NE W 4/15/96 | |
137 | ;S ^CHMCP F(DA,I,999 9999-CHBEG DT,0)=CHBE GDT | |
138 | S $P(^CHM CPF(DA,I,9 999999-CHB EGDT,0),U, 1)=CHBEGDT | |
139 | ;BELOW LI NE NEW 4/1 8/96 (OFF- -2/13/98 S ET IN PROF TECH IF NE EDED) | |
140 | ;S $P(^CH MCPF(DA,I, 9999999-CH BEGDT,1),U ,1)=CHBEGD T | |
141 | S CHPC=1 F J=CHCLOC :-1 Q:J#8= 1 S CHPC= CHPC+1 | |
142 | D PROFTEC H | |
143 | S STR=CHM 1_";"_CHM2 _";"_CHM3_ ";"_CHM4_" ;C" | |
144 | I '$D(^CH MCPF(DA,I, CHREVDT,0) ) S ^CHMCP F(DA,I,CHR EVDT,0)="" | |
145 | S STR2=$P (^CHMCPF(D A,I,CHREVD T,0),"^",2 ) | |
146 | ;Q:(DA=1) &(I=9) ;N EW 5/3/96 ONLY TO RE DO ONE NOD E TAKE OUT *****88 | |
147 | S $P(STR2 ,",",CHPC) =STR | |
148 | .;K X | |
149 | I '(DA#50 0)!(CM=2) I $D(X(CHC LOC)) D ;SAMPLE EV ERY 500TH AT FRONT/B ACK | |
150 | .S CHY=29 7 S:CHCLOC >305 CHY=3 77 | |
151 | .;S CHOLD DT=$O(^CHM CPF(DA,CHY ,CHREVDT)) ; NO OLD DT FOR BRA ND NEW LOC ALITY | |
152 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"CODE")=C HCPT | |
153 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"OLD",999 9999-CHLSR NDT)="NOT SET" | |
154 | .S:$D(^CH MCPF(DA,CH Y,CHLSRNDT ,0)) ^CHMZ HOLD("CMAC 3",DA,CHY, 0,"OLD",99 99999-CHLS RNDT)=^CHM CPF(DA,CHY ,CHLSRNDT, 0) | |
155 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,0 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STR2 | |
156 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,C HPC,"VMS", 9999999-CH REVDT)=X | |
157 | S ^CHMCPF (DA,I,CHRE VDT,0)=CHB EGDT_"^"_S TR2 | |
158 | Q ; G A1 | |
159 | END | |
160 | C FILE | |
161 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
162 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
163 | ;I $ZE'[" ENDOFFILE" D ^%ET ; JEH | |
164 | K CHCLOC, CHCPT,CHI, CHM1,CHM2, CHM3,CHM4, CHM5,CHM6, CHM7,CHM8, CHPC,CHREV DT,CHA | |
165 | K CHC,CHD ,CHE,FILE, CHY,DA,DIE ,DR,I,J,ST R,STR2,STR G,STRG2,X, Y,CHLSRNDT | |
166 | K NOSTFL, CHCPDT,CHC MPDT | |
167 | ;Q:('$D(C HFIO))!('$ D(STARTFL) ) | |
168 | ;U 0 W | |
169 | ;CHANGE TO PRINT R EPORT TO F S3BIG VERS US PRINTER TESTING | |
170 | QUEP ;S %Z IS="Q",IOP ="Q;"_CHFI O D ^%ZIS G QPEND:PO P | |
171 | S ZTRTN=" ^CHMLCMA8" ,ZTDTH=$H K ZTIO | |
172 | S ZTSAVE( "CM")="",Z TSAVE("CHB EGDT")="", ZTSAVE("CH NEWCT")="" | |
173 | D ^%ZTLOA D | |
174 | QPEND Q | |
175 | ; | |
176 | NEW L ^CHM CPF(0) S ( CHI,DA)=$P (^CHMCPF(0 ),"^",3)+1 | |
177 | S $P(^CHM CPF(0),"^" ,3)=DA,$P( ^CHMCPF(0) ,"^",4)=$P (^CHMCPF(0 ),"^",4)+1 L | |
178 | S ^CHMCPF ("B",CHCPT ,DA)="" | |
179 | S ^CHMCPF (DA,0)=CHC PT,CHNEWCT =CHNEWCT+1 | |
180 | ;S:'$D(^C HMCPF(0)) ^CHMCPF(0) ="CHAMPVA CMAC^74101 4^0^0" | |
181 | ;S DA=$O( ^CHMCPF("A "),-1),DA= DA+1 | |
182 | ;S $P(^CH MCPF(0),"^ ",3)=$P(^( 0),"^",3)+ 1 | |
183 | ;S $P(^CH MCPF(0),"^ ",4)=$P(^( 0),"^",4)+ 1 | |
184 | ;S DIE="^ CHMCPF(",D R=".01///^ S X=CHCPT" D ^DIE K DIE | |
185 | Q | |
186 | SBRS D CSB RS^CHSC2 Q | |
187 | R Y:$S($D (DTIME):DT IME,1:60) | |
188 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
189 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
190 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
191 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
192 | Q | |
193 | DEC F A=1: 1:5 Q:$E(B ,A)'=0 | |
194 | S B=$E(B, A,8) S LEN =$L(B),LEN 1=LEN-1,LE N2=LEN-2 | |
195 | S B=$E(B, 1,LEN2)_". "_$E(B,LEN 1,LEN) | |
196 | Q | |
197 | ZEROOUT ;R EMOVES PRE CEEDING NO NSIGNIFICA NT DIGITS | |
198 | Q | |
199 | F P=1:1:$ L(B)-1 Q:$ E(B,1)'=0 S B=$E(B, 2,8) | |
200 | Q | |
201 | PROFTECH ; PROFESIONA L/TECHNICA L COMPONEN TS | |
202 | ;NOSTFL S ET UP IF P ROF/TECH C OMPONENTS ALL ZERO | |
203 | K NOSTFL S:('CHM5)& ('CHM6)&(' CHM7)&('CH M8) NOSTFL ="" | |
204 | S STRG=CH M5_";"_CHM 6_";"_CHM7 _";"_CHM8_ ";C" | |
205 | S:$D(^CHM CPF(DA,I,C HREVDT,1)) STRG2=$P( ^CHMCPF(DA ,I,CHREVDT ,1),"^",2) | |
206 | S $P(STRG 2,",",CHPC )=STRG | |
207 | ; | |
208 | I '(DA#50 0)!(CM=2) I $D(X(CHC LOC)) D ; SAMPLE E VERY 500TH AT FRONT/ BACK | |
209 | .S CHY=29 7 S:CHCLOC >305 CHY=3 77 | |
210 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"OLD",999 9999-CHLSR NDT)="NOT SET" | |
211 | .I $D(^CH MCPF(DA,CH Y,CHLSRNDT ,1)) S ^CH MZHOLD("CM AC3",DA,CH Y,1,"OLD", 9999999-CH LSRNDT)=^C HMCPF(DA,C HY,CHLSRND T,1) | |
212 | .S ^CHMZH OLD("CMAC3 ",DA,CHY,1 ,"NEW",999 9999-CHREV DT)=CHBEGD T_"^"_STRG 2 | |
213 | .S:$D(NOS TFL) ^CHMZ HOLD("CMAC 3",DA,CHY, 1,"NEW",99 99999-CHRE VDT)="NOT SET" | |
214 | .;S ^CHMZ HOLD("CMAC 3",DA,I,1, "VMS",9999 999-CHREVD T)=X ; 2-1 3-98 NOT N EEDED-ALWA YS SET IN A2 ABOVE | |
215 | Q:$D(NOST FL) ; DON 'T SET UP NODE IF NO DATA | |
216 | S ^CHMCPF (DA,I,CHRE VDT,1)=CHB EGDT_"^"_S TRG2 | |
217 | Q | |
218 | ; | |
219 | DTERR S CM =CM+1,^CHM ZHOLD("CMA C-DTERR",C M)=X Q ;F IND DATE D ISCREPANCI ES IN FILE |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.