| 1 | KMPDPOST ;OAK/RAK - CM Tools Post Install ;4/2/04 08:55
|
|---|
| 2 | ;;2.0;CAPACITY MANAGEMENT TOOLS;**1,2,5**;Mar 22, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | EN ;-entry point
|
|---|
| 5 | N BTIEN,ERROR,FDA,MGIEN,ZIEN
|
|---|
| 6 | D MES^XPDUTL(" Adding CURRENT PATCH data to CP PARAMETERS file...")
|
|---|
| 7 | S FDA($J,8973,"1,",.04)=$P($$VERSION^KMPDUTL,"^",2)
|
|---|
| 8 | S FDA($J,8973,"1,",.05)=$$NOW^XLFDT
|
|---|
| 9 | D FILE^DIE("","FDA($J)","ERROR")
|
|---|
| 10 | ; if error
|
|---|
| 11 | I $D(ERROR) D MSG^DIALOG("W","",60,10,"ERROR")
|
|---|
| 12 | ;
|
|---|
| 13 | D MES^XPDUTL(" Adding 'VISTA MONITOR TRANSFER TO' data to CP PARAMETERS file...")
|
|---|
| 14 | ; ad vista monitor 'transmit to' entries
|
|---|
| 15 | ;
|
|---|
| 16 | K ERROR,FDA,ZIEN
|
|---|
| 17 | S FDA($J,8973.05,"?+1,1,",.01)="S.KMP7SRV@FO-ALBANY.MED.VA.GOV"
|
|---|
| 18 | ; file data
|
|---|
| 19 | D UPDATE^DIE("","FDA($J)","ZIEN","ERROR")
|
|---|
| 20 | ; if error
|
|---|
| 21 | I $D(ERROR) D MSG^DIALOG("W","",60,10,"ERROR")
|
|---|
| 22 | ;
|
|---|
| 23 | ; bulletin ien
|
|---|
| 24 | S BTIEN=$O(^XMB(3.6,"B","KMPD ECHO",0))
|
|---|
| 25 | ; mail group ien
|
|---|
| 26 | S MGIEN=$O(^XMB(3.8,"B","KMP-CAPMAN",0))
|
|---|
| 27 | I BTIEN&(MGIEN) D
|
|---|
| 28 | .D MES^XPDUTL(" Adding mail group KMP-CAPMAN to bulletin KMPD ECHO...")
|
|---|
| 29 | .K ERROR,FDA,ZIEN
|
|---|
| 30 | .S FDA($J,3.62,"?+1,"_BTIEN_",",.01)=MGIEN
|
|---|
| 31 | .D UPDATE^DIE("","FDA($J)","ZIEN","ERROR")
|
|---|
| 32 | .; if error
|
|---|
| 33 | .I $D(ERROR) D MSG^DIALOG("W","",60,10,"ERROR")
|
|---|
| 34 | ;
|
|---|
| 35 | D MES^XPDUTL(" Complete!")
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
