source: WorldVistAEHR/trunk/r/CAPACITY_MANAGEMENT_TOOLS-KMPD-KMPL/KMPDPOST.m@ 975

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1KMPDPOST ;OAK/RAK - CM Tools Post Install ;4/2/04 08:55
2 ;;2.0;CAPACITY MANAGEMENT TOOLS;**1,2,5**;Mar 22, 2002
3 ;
4EN ;-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
Note: See TracBrowser for help on using the repository browser.