source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SD53B204.m@ 1446

Last change on this file since 1446 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1SD53B204 ;bp/cmf - Patch SD*5.3*204 post-init routine ; 12/06/99
2 ;;5.3;Scheduling;**204**;AUG 13, 1993
3 ;
4POST ;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 ;
18DSER ;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 ;
36DCLI ;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 ;
49P205 ;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 ;
54P204 ;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 ;
59Q D MESS("")
60 D MESS("PCMM files update finished.")
61 Q
62 ;
63BMESS(SCX) ;
64 D BMES^XPDUTL("******")
65 D MESS(SCX)
66 D MESS("")
67 Q
68 ;
69WMESS(SCX) ;
70 D MESS(" WARNING:")
71 D MESS(" ."_SCX)
72 Q
73 ;
74MESS(SCX) ;
75 D MES^XPDUTL("."_SCX)
76 Q
77 ;
Note: See TracBrowser for help on using the repository browser.