source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WV6PST.m@ 1582

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1WV6PST ;HCIOFO/FT-Patch 6 Post-Installation Routine ;4/6/99 14:42
2 ;;1.0;WOMEN'S HEALTH;**6**;Sep 30, 1998
3 ;
4EN ; Start post-install
5 D QMAIL
6 Q
7QMAIL ; Queue mail message
8 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
9 S ZTRTN="MAIL^WV6PST",ZTDESC="WV*1*6 INSTALLED"
10 S ZTIO="",ZTDTH=$H
11 D ^%ZTLOAD
12 Q
13MAIL ; Send a message to Default Case Managers to answer new site
14 ; parameter question for lab tests.
15 N XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN
16 S WVSITE=0
17 F S WVSITE=$O(^WV(790.02,WVSITE)) Q:'WVSITE D
18 .S WVIEN=$P($G(^WV(790.02,WVSITE,0)),U,2) ;default case manager
19 .Q:'WVIEN
20 .S XMY(WVIEN)=""
21 .Q
22 I '$O(XMY(0)) Q
23SEND ; Create mail message and send
24 S XMDUZ=.5 ;message sender
25 S XMSUB="Women's Health patch #6 installed"
26 S WVMSG(1)="Patch #6 for the Women's Health package was installed. This"
27 S WVMSG(2)="patch provides a link with the Lab package to transfer lab data"
28 S WVMSG(3)="to the Women's Health package. If you would like to activate this"
29 S WVMSG(4)="link in the Women's Health package:"
30 S WVMSG(5)=" "
31 S WVMSG(6)=" Go to the: File Maintenance menu"
32 S WVMSG(7)=" Select the: Edit Site Parameters option"
33 S WVMSG(8)=" Select your: Site/Facility"
34 S WVMSG(9)="Go to page 2:"
35 S WVMSG(10)=" "
36 S WVMSG(11)="Answer YES to the 'Import Tests from Laboratory' prompt"
37 S WVMSG(12)=" "
38 S WVMSG(13)="Exit and save your changes."
39 S XMTEXT="WVMSG("
40 D ^XMD
41 Q
Note: See TracBrowser for help on using the repository browser.