| 1 | WV6PST ;HCIOFO/FT-Patch 6 Post-Installation Routine ;4/6/99 14:42
|
|---|
| 2 | ;;1.0;WOMEN'S HEALTH;**6**;Sep 30, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Start post-install
|
|---|
| 5 | D QMAIL
|
|---|
| 6 | Q
|
|---|
| 7 | QMAIL ; 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
|
|---|
| 13 | MAIL ; 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
|
|---|
| 23 | SEND ; 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
|
|---|
