1 | SD53B204 ;bp/cmf - Patch SD*5.3*204 post-init routine ; 12/06/99
|
---|
2 | ;;5.3;Scheduling;**204**;AUG 13, 1993
|
---|
3 | ;
|
---|
4 | POST ;update c/s files
|
---|
5 | ;
|
---|
6 | ;initialize new pcmm parameter file fields
|
---|
7 | ; add default value to RPC Time Limit field
|
---|
8 | ; add default value to HL7 Transmit Limit field
|
---|
9 | D BMESS("Updating PCMM files.")
|
---|
10 | D MESS("Updating PCMM Parameter file.")
|
---|
11 | N SCFDA,SC1ERR,SCX
|
---|
12 | K SCFDA(1)
|
---|
13 | S SCFDA(1,404.44,"1,",14)=30
|
---|
14 | S SCFDA(1,404.44,"1,",15)=999999
|
---|
15 | D FILE^DIE("","SCFDA(1)","SC1ERR")
|
---|
16 | I $D(SC1ERR) D WMESS("PCMM Parameter file not updated properly.")
|
---|
17 | ;
|
---|
18 | DSER ;disable old server entries (build active client list)
|
---|
19 | D MESS("Disabling obsolete entries in Server Patch file.")
|
---|
20 | N SC2LIST,SC2ERR,SCY,SC3LIST
|
---|
21 | S SCX=$$ACTSER^SCMCUT("","SC2LIST")
|
---|
22 | I 'SCX D MESS("No active Server Patch entries.") G P205
|
---|
23 | S SCX=""
|
---|
24 | F S SCX=$O(SC2LIST(SCX)) Q:SCX']"" D
|
---|
25 | . ;build active client list
|
---|
26 | . S SCY=$$CLNLST^SCMCUT(SCX,"SC3LIST",1)
|
---|
27 | . S SCY=0
|
---|
28 | . F S SCY=$O(^SCTM(404.45,"ACT",SCX,0)) Q:'SCY D
|
---|
29 | . . K SCFDA(2)
|
---|
30 | . . S SCFDA(2,404.45,SCY_",",.04)=0
|
---|
31 | . . D FILE^DIE("","SCFDA(2)","SC2ERR")
|
---|
32 | . . Q
|
---|
33 | . Q
|
---|
34 | I $D(SC2ERR) D WMESS("Obsolete Server Patch entries not disabled.")
|
---|
35 | ;
|
---|
36 | DCLI ;disable old client entries
|
---|
37 | D MESS("Disabling obsolete entries in Client Patch file.")
|
---|
38 | I '$D(SC3LIST) D MESS("No active Client Patch entries.") G P205
|
---|
39 | N SC3ERR
|
---|
40 | S SCX=""
|
---|
41 | F S SCX=$O(SC3LIST(SCX)) Q:SCX']"" D
|
---|
42 | . K SCFDA(3)
|
---|
43 | . S SCY=$O(^SCTM(404.46,"B",SCX,0))
|
---|
44 | . S SCFDA(3,404.46,SCY_",",.02)=0
|
---|
45 | . D FILE^DIE("","SCFDA(3)","SC3ERR")
|
---|
46 | . Q
|
---|
47 | I $D(SC3ERR) D WMESS("Obsolete Client Patch entries not disabled.")
|
---|
48 | ;
|
---|
49 | P205 ;patch 205 record keeping
|
---|
50 | D MESS("Updating SD*5.3*205 related entries.")
|
---|
51 | S SCX=$$UPCLNLST^SCMCUT("SD*5.3*205^NullClient^1^0^0")
|
---|
52 | I +SCX<1 D WMESS("SD*5.3*205 related entries not updated.")
|
---|
53 | ;
|
---|
54 | P204 ;patch 204 record keeping
|
---|
55 | D MESS("Updating SD*5.3*204 related entries.")
|
---|
56 | S SCX=$$UPCLNLST^SCMCUT("SD*5.3*204^1.2.2.0^1^1^1")
|
---|
57 | I +SCX<1 D WMESS("SD*5.3*204 related entries not updated.")
|
---|
58 | ;
|
---|
59 | Q D MESS("")
|
---|
60 | D MESS("PCMM files update finished.")
|
---|
61 | Q
|
---|
62 | ;
|
---|
63 | BMESS(SCX) ;
|
---|
64 | D BMES^XPDUTL("******")
|
---|
65 | D MESS(SCX)
|
---|
66 | D MESS("")
|
---|
67 | Q
|
---|
68 | ;
|
---|
69 | WMESS(SCX) ;
|
---|
70 | D MESS(" WARNING:")
|
---|
71 | D MESS(" ."_SCX)
|
---|
72 | Q
|
---|
73 | ;
|
---|
74 | MESS(SCX) ;
|
---|
75 | D MES^XPDUTL("."_SCX)
|
---|
76 | Q
|
---|
77 | ;
|
---|