Produced by Araxis Merge on 11/9/2018 12:34:04 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 | CHMLCPTD.m | Mon Nov 5 16:39:54 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCPTD.m | Mon Nov 5 17:50:04 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 134 |
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 | CHMLCPTD ; JEH/HAC;SE T DELETE D ATE OF CPT CODES IN SERVICE FI LE;02/02/0 7 11:40 A M | |
2 | S (CHADD, CHCHA,CHDE L)=0 | |
3 | ||
4 | ; v--- CHAN GE TO CURR ENT EFFECT IVE YEAR | |
5 | ;S A="",D A=9999999- 3070101,U= "^" | |
6 | ;K ^%ZSTA T("AI-COPY ","CPT") | |
7 | ;S K=$P(^ CHMSERV(0) ,U,3)+1 | |
8 | ; | |
9 | ; | |
10 | D SENV | |
11 | D DEL | |
12 | C IO | |
13 | Q | |
14 | DEL ; | |
15 | S CTR=0 | |
16 | ;O IO:"R" :5 | |
17 | ;S $ZE="" ,$ZT="END" | |
18 | ;I '$T W !!,"NOT AB LE TO OPEN FILE" G E ND | |
19 | I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q | |
20 | F U FIO R REC G:$$ STATUS^%ZI SH END D | |
21 | .S CTR=CT R+1 | |
22 | .;Q:CTR>2 | |
23 | .U 0 W !, CTR,?10,RE C | |
24 | .S REC2=" " S REC2=$ O(^CHMSERV ("B",REC,R EC2)) | |
25 | .S J=0 S J=$O(^CHMS ERV(REC2,1 ,J)) Q:'J | |
26 | .;IN DEL | |
27 | .S A="" | |
28 | .S A=REC_ "Z" | |
29 | .; CHANGE D ELETE DATE TO END OF CURRENT Y EAR ---v | |
30 | .I '$D(^C HMSERV(REC 2,1,J,0)) S $P(^CHMS ERV(REC2,1 ,J,0),U,1) =3061231,^ CHMZHOLD(" CPT-DELETE ",A)="" | |
31 | .; CHANGE DEL ETE DATE T O END OF C URRENT YEA R ---v | |
32 | .I ^CHMSE RV(REC2,1, J,0)="" S $P(^CHMSER V(REC2,1,J ,0),U,1)=3 061231,^CH MZHOLD("CP T-DELETE", A)="" | |
33 | .U 0 W ?2 0,"REC2 = ",REC2," J = ",J | |
34 | END ; | |
35 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
36 | Q | |
37 | SENV ;SET ENVIRONMEN T | |
38 | S AYGSYS= XQVOL | |
39 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
40 | S ENVIR=A YGSYS | |
41 | S DIR("B" )=ENVIR | |
42 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
43 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
44 | S DIR("L" ,2)="" | |
45 | S DIR("L" ,3)=" 1 LIVE" | |
46 | S DIR("L" ,4)=" 2 TRAIN" | |
47 | S DIR("L" ,5)=" 3 TEST" | |
48 | S DIR("L" ,6)=" 4 DEV" | |
49 | S DIR("L" ,7)="" | |
50 | S DIR("L" )=" ^ QUIT" | |
51 | D ^DIR K DIR | |
52 | Q:$D(DUOU T) | |
53 | Q:Y="" | |
54 | Q:Y="^"!( Y="") | |
55 | S ENVIR=Y (0) | |
56 | S $ZE="", $ZT="END" | |
57 | ;SET CPT FILE NAME | |
58 | S DIR(0)= "F^3:50" | |
59 | S DIR("A" )="Enter d elete CPT file name (DLTD_CPT_ 2006_CODES .txt)" D ^ DIR K DIR | |
60 | Q:$D(DUOU T) | |
61 | Q:Y="^"!( Y="") | |
62 | S CNAME=Y K DIR | |
63 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME ; NAME OF CPT FILE | |
64 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
65 | S FILENM2 =CNAME | |
66 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
67 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
68 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG /CODEUPDT/ CPT4UPDT", "GET") | |
69 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.