| 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 | ;
|
|---|
