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 | CHMLCPT5.m | Mon Nov 5 16:44:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCPT5.m | Mon Nov 5 17:50:04 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 214 |
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 | CHMLCPT5 ; JEH/HAC;SE T END DATE OF CPT CO DES IN SER VICE FILE YRLY UPDAT E;12/21/07 11:40 AM | |
2 | S (CHADD, CHCHA,CHDE L)=0 | |
3 | S CHENDDT ="" ;ADD P ROMPT FOR TERMINATIO N DATE DPT | |
4 | ; | |
5 | W !! S %D T="AEX",%D T("A")="En ter termin ation date : (MM/DD/Y Y) " D ^%D T Q:X="" Q:Y=-1 S CHENDDT=Y ; DPT | |
6 | S DIR(0)= "Y",DIR("B ")="NO" | |
7 | S DIR("A" )="*ONLY* TO SET ENV IR AND REA D IN DATA" D ^DIR K DIR | |
8 | Q:$D(DIRU T) | |
9 | I Y=1 D | |
10 | .D SENV | |
11 | .D TMPHLD ;READ IN DATE AN ST ORE IN TEM P GBL - ^C HMZHOLD("C PT-DEL-LIS T") | |
12 | D DSPLY | |
13 | ;D DEL | |
14 | D END | |
15 | Q | |
16 | DSPLY ;DIS PLY CODES NEEDING TO BE DELETE D | |
17 | S DIR(0)= "Y",DIR("B ")="YES" | |
18 | S DIR("A" )="*ONLY* display CP T codes ne eding dele tion date" D ^DIR K DIR | |
19 | W ! | |
20 | Q:$D(DIRU T) | |
21 | S DONLY=Y | |
22 | S CTR=0 | |
23 | U 0 W:'$D (^CHMZHOLD ("CPT-DEL- LIST")) !, "*** TEMP GLOBAL ^CH MZHOLD(""C PT-DEL-LIS T"") DOES NOT EXIST ***" H 5 | |
24 | W !,"CPT Codes tage d to have end date a ssigned.", ! | |
25 | S IVAL=0 F S IVAL= $O(^CHMSER V(IVAL)) Q :'IVAL D | |
26 | .I $D(^CH MSERV(IVAL ,0)) D | |
27 | ..I $P(^C HMSERV(IVA L,0),"^",5 )="CPT" D | |
28 | ...S CODE ="" S CODE =$P(^CHMSE RV(IVAL,0) ,"^",1) | |
29 | ...I '$D( ^CHMZHOLD( "CPT-DEL-L IST",CODE) ) D | |
30 | ....S JVA L=0 S JVAL =$O(^CHMSE RV(IVAL,1, JVAL)) Q:' JVAL | |
31 | ....I $D( ^CHMSERV(I VAL,1,JVAL ,0)) D | |
32 | .....I $P (^CHMSERV( IVAL,1,JVA L,0),"^",1 )="" D | |
33 | ......W ! ,?5,CODE,? 20,"IVAL = ",IVAL | |
34 | ......S C TR=CTR+1 | |
35 | ......I D ONLY=0 D C DEL | |
36 | ....I '$D (^CHMSERV( IVAL,1,JVA L,0)) D | |
37 | .....W !, ?5,CODE,?2 0,"IVAL = ",IVAL | |
38 | .....S CT R=CTR+1 | |
39 | .....I DO NLY=0 D CD EL | |
40 | W !!,"CTR = ",CTR | |
41 | Q | |
42 | TMPHLD ;RE AD IN DATE AN STORE IN TEMP GB L - ^CHMZH OLD("CPT-D EL-LIST") | |
43 | ;O IO:"R" :5 | |
44 | ;S $ZE="" ,$ZT="ETMP HLD^CHMLCP T5" | |
45 | ;I '$T W !!,"NOT AB LE TO OPEN FILE" G E ND | |
46 | I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q | |
47 | F U FIO R REC G:$$ STATUS^%ZI SH END D | |
48 | .S CODE=$ E(REC,1,5) | |
49 | .S ^CHMZH OLD("CPT-D EL-LIST",C ODE)="" | |
50 | Q | |
51 | ETMPHLD ; | |
52 | ;C IO | |
53 | Q | |
54 | CDEL ;ADD DELETE DAT E TO CPT C ODE | |
55 | S A="" S A=CODE_"Z" | |
56 | ; CHANGE D ELETE DATE TO END OF CURRENT Y EAR ---v | |
57 | I '$D(^CH MSERV(IVAL ,1,JVAL,0) ) S $P(^CH MSERV(IVAL ,1,JVAL,0) ,U,1)=CHEN DDT,^CHMZH OLD("CPT-D ELETE",A)= "" ;DPT | |
58 | ;I '$D(^C HMSERV(IVA L,1,JVAL,0 )) S $P(^C HMSERV(IVA L,1,JVAL,0 ),U,1)=310 1231,^CHMZ HOLD("CPT- DELETE",A) ="" | |
59 | ; CHANGE DEL ETE DATE T O END OF C URRENT YEA R ---v | |
60 | I ^CHMSER V(IVAL,1,J VAL,0)="" S $P(^CHMS ERV(IVAL,1 ,JVAL,0),U ,1)=CHENDD T,^CHMZHOL D("CPT-DEL ETE",A)="" ;DPT | |
61 | ;I ^CHMSE RV(IVAL,1, JVAL,0)="" S $P(^CHM SERV(IVAL, 1,JVAL,0), U,1)=31012 31,^CHMZHO LD("CPT-DE LETE",A)=" " | |
62 | W !,"CODE = ",CODE, " - Deleti on date ha s been set " | |
63 | Q | |
64 | END ; | |
65 | ;C:$D(IO) IO | |
66 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
67 | Q | |
68 | SENV ;SET ENVIRONMEN T | |
69 | K ^CHMZHO LD("CPT-DE L-LIST") | |
70 | S AYGSYS= XQVOL | |
71 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
72 | S ENVIR=A YGSYS | |
73 | S DIR("B" )=ENVIR | |
74 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
75 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
76 | S DIR("L" ,2)="" | |
77 | S DIR("L" ,3)=" 1 LIVE" | |
78 | S DIR("L" ,4)=" 2 TRAIN" | |
79 | S DIR("L" ,5)=" 3 TEST" | |
80 | S DIR("L" ,6)=" 4 DEV" | |
81 | S DIR("L" ,7)="" | |
82 | S DIR("L" )=" ^ QUIT" | |
83 | D ^DIR K DIR | |
84 | Q:$D(DUOU T) | |
85 | Q:Y="" | |
86 | Q:Y="^"!( Y="") | |
87 | S ENVIR=Y (0) | |
88 | ;S $ZE="" ,$ZT="END" | |
89 | ;SET CPT FILE NAME | |
90 | S DIR(0)= "F^3:50" | |
91 | S DIR("A" )="Enter d elete CPT file name (SHORTU.tx t)" D ^DIR K DIR | |
92 | Q:$D(DUOU T) | |
93 | Q:Y="^"!( Y="") | |
94 | S CNAME=Y K DIR | |
95 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME ; NAME OF CPT FILE | |
96 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
97 | S FILENM2 =CNAME | |
98 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
99 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
100 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG /CODEUPDT/ CPT4UPDT", "GET") | |
101 | Q | |
102 | DSPLYDC ;D ISPLAY DEL ETED CODES | |
103 | S I=0 F S I=$O(^CH MSERV(I)) Q:'I D | |
104 | .Q:'$D(^C HMSERV(I,0 )) | |
105 | .Q:$P(^CH MSERV(I,0) ,"^",5)'=" CPT" | |
106 | .S J=0 F S J=$O(^C HMSERV(I,1 ,J)) Q:'J D | |
107 | ..I $D(^C HMSERV(I,1 ,J,0)) D | |
108 | ...W !,"I = ",I,?20 ,^CHMSERV( I,1,J,0) | |
109 | ..E W !, "I = ",I,? 30,"*** MI SSING 0 I, 1,J,0 NODE ***" |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.