WV6PST.m

WV6PST ;HCIOFO/FT-Patch 6 Post-Installation Routine ;4/6/99  14:42

 ;;1.0;WOMEN'S HEALTH;**6**;Sep 30, 1998

 ;

EN ; Start post-install

 D QMAIL

 Q

QMAIL ; Queue mail message

 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 S ZTRTN="MAIL^WV6PST",ZTDESC="WV*1*6 INSTALLED"

 S ZTIO="",ZTDTH=$H

 D ^%ZTLOAD

 Q

MAIL ; Send a message to Default Case Managers to answer new site

 ; parameter question for lab tests.

 N XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN

 S WVSITE=0

 F  S WVSITE=$O(^WV(790.02,WVSITE)) Q:'WVSITE  D

 .S WVIEN=$P($G(^WV(790.02,WVSITE,0)),U,2) ;default case manager

 .Q:'WVIEN

 .S XMY(WVIEN)=""

 .Q

 I '$O(XMY(0)) Q

SEND ; Create mail message and send

 S XMDUZ=.5 ;message sender

 S XMSUB="Women's Health patch #6 installed"

 S WVMSG(1)="Patch #6 for the Women's Health package was installed. This"

 S WVMSG(2)="patch provides a link with the Lab package to transfer lab data"

 S WVMSG(3)="to the Women's Health package. If you would like to activate this"

 S WVMSG(4)="link in the Women's Health package:"

 S WVMSG(5)=" "

 S WVMSG(6)="   Go to the: File Maintenance menu"

 S WVMSG(7)="  Select the: Edit Site Parameters option"

 S WVMSG(8)=" Select your: Site/Facility"

 S WVMSG(9)="Go to page 2:"

 S WVMSG(10)=" "

 S WVMSG(11)="Answer YES to the 'Import Tests from Laboratory' prompt"

 S WVMSG(12)=" "

 S WVMSG(13)="Exit and save your changes."

 S XMTEXT="WVMSG("

 D ^XMD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---WV6PST   1412     printed  Apr 09, 2024@21:50:27                                                                                                                                                                                                      Page 2

WV6PST    ;HCIOFO/FT-Patch 6 Post-Installation Routine ;4/6/99  14:42

 +1       ;;1.0;WOMEN'S HEALTH;**6**;Sep 30, 1998

 +2       ;

EN        ; Start post-install

 +1        DO QMAIL

 +2        QUIT 

QMAIL     ; Queue mail message

 +1        NEW ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 +2        SET ZTRTN="MAIL^WV6PST"

           SET ZTDESC="WV*1*6 INSTALLED"

 +3        SET ZTIO=""

           SET ZTDTH=$HOROLOG

 +4        DO ^%ZTLOAD

 +5        QUIT 

MAIL      ; Send a message to Default Case Managers to answer new site

 +1       ; parameter question for lab tests.

 +2        NEW XMDUZ,XMSUB,XMTEXT,XMY,WVSITE,WVIEN

 +3        SET WVSITE=0

 +4        FOR 

               SET WVSITE=$ORDER(^WV(790.02,WVSITE))

               if 'WVSITE

                   QUIT 

               Begin DoDot:1

 +5       ;default case manager

                   SET WVIEN=$PIECE($GET(^WV(790.02,WVSITE,0)),U,2)

 +6                if 'WVIEN

                       QUIT 

 +7                SET XMY(WVIEN)=""

 +8                QUIT 

               End DoDot:1

 +9        IF '$ORDER(XMY(0))

               QUIT 

SEND      ; Create mail message and send

 +1       ;message sender

           SET XMDUZ=.5

 +2        SET XMSUB="Women's Health patch #6 installed"

 +3        SET WVMSG(1)="Patch #6 for the Women's Health package was installed. This"

 +4        SET WVMSG(2)="patch provides a link with the Lab package to transfer lab data"

 +5        SET WVMSG(3)="to the Women's Health package. If you would like to activate this"

 +6        SET WVMSG(4)="link in the Women's Health package:"

 +7        SET WVMSG(5)=" "

 +8        SET WVMSG(6)="   Go to the: File Maintenance menu"

 +9        SET WVMSG(7)="  Select the: Edit Site Parameters option"

 +10       SET WVMSG(8)=" Select your: Site/Facility"

 +11       SET WVMSG(9)="Go to page 2:"

 +12       SET WVMSG(10)=" "

 +13       SET WVMSG(11)="Answer YES to the 'Import Tests from Laboratory' prompt"

 +14       SET WVMSG(12)=" "

 +15       SET WVMSG(13)="Exit and save your changes."

 +16       SET XMTEXT="WVMSG("

 +17       DO ^XMD

 +18       QUIT