WVLOGO ;HCIOFO/FT,JR IHS/ANMC/MWR - DISPLAY LOGO WHEN ENTERING PKG; ;12/7/98 15:55
;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; DISPLAYS LOGO. GETS VERSION FROM LINE 2 OF THIS ROUTINE.
;
D SETVARS^WVUTL5
N WVVER,Y
;
S Y=$P($P($T(WVLOGO+1),";;",2),";")
;
W @IOF
I '$D(DUZ(2)) D Q
.W !!!,"DUZ(2) is undefined. Contact your Site Manager.",!!
.D DIRZ^WVUTL3
W !?3,"Women's Health Main Menu v",Y,?55,$E($P(^DIC(4,DUZ(2),0),U),1,24)
Q
;
CHECK ;EP
;---> UPON ENTRY VIA MAIN MENU (OR LAB DATA ENTRY MENU), CHECKS TO
;---> SEE THAT USER'S DUZ(2) IS SET UP AS A PACKAGE SITE.
I '$G(DUZ(2)) D WARN D D CHKOUT Q
.W !?5,"Your DUZ(2) variable is not defined."
I '$D(^WV(790.02,DUZ(2),0)) D WARN D D CHKOUT,CHKOUT1 Q
.W !?5,"Women's Health Site Parameters have NOT been set for the site"
.W !?5,"you are logged on as: ",$P(^DIC(4,DUZ(2),0),U)
Q
;
WARN ;EP
W @IOF,!!?35,"WARNING",!?34,"---------",!!
Q
CHKOUT ;EP
W !!?5,"At this point you should back out of the Women's Health"
W !?5,"package and contact your site manager or the person in charge"
W !?5,"of the Women's Health Software.",!
Q
CHKOUT1 ; Message when no site parameter entry
W !?5,"Or, if you wish to set up site parameters for this site,"
W !?5,"you may proceed to the Edit Site Parameters option and enter"
W !?5,"parameters for this site. (Synonyms: MF-->FM-->ESP)",!
D DIRZ^WVUTL3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVLOGO 1478 printed Dec 13, 2024@02:47:13 Page 2
WVLOGO ;HCIOFO/FT,JR IHS/ANMC/MWR - DISPLAY LOGO WHEN ENTERING PKG; ;12/7/98 15:55
+1 ;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; DISPLAYS LOGO. GETS VERSION FROM LINE 2 OF THIS ROUTINE.
+4 ;
+5 DO SETVARS^WVUTL5
+6 NEW WVVER,Y
+7 ;
+8 SET Y=$PIECE($PIECE($TEXT(WVLOGO+1),";;",2),";")
+9 ;
+10 WRITE @IOF
+11 IF '$DATA(DUZ(2))
Begin DoDot:1
+12 WRITE !!!,"DUZ(2) is undefined. Contact your Site Manager.",!!
+13 DO DIRZ^WVUTL3
End DoDot:1
QUIT
+14 WRITE !?3,"Women's Health Main Menu v",Y,?55,$EXTRACT($PIECE(^DIC(4,DUZ(2),0),U),1,24)
+15 QUIT
+16 ;
CHECK ;EP
+1 ;---> UPON ENTRY VIA MAIN MENU (OR LAB DATA ENTRY MENU), CHECKS TO
+2 ;---> SEE THAT USER'S DUZ(2) IS SET UP AS A PACKAGE SITE.
+3 IF '$GET(DUZ(2))
DO WARN
Begin DoDot:1
+4 WRITE !?5,"Your DUZ(2) variable is not defined."
End DoDot:1
DO CHKOUT
QUIT
+5 IF '$DATA(^WV(790.02,DUZ(2),0))
DO WARN
Begin DoDot:1
+6 WRITE !?5,"Women's Health Site Parameters have NOT been set for the site"
+7 WRITE !?5,"you are logged on as: ",$PIECE(^DIC(4,DUZ(2),0),U)
End DoDot:1
DO CHKOUT
DO CHKOUT1
QUIT
+8 QUIT
+9 ;
WARN ;EP
+1 WRITE @IOF,!!?35,"WARNING",!?34,"---------",!!
+2 QUIT
CHKOUT ;EP
+1 WRITE !!?5,"At this point you should back out of the Women's Health"
+2 WRITE !?5,"package and contact your site manager or the person in charge"
+3 WRITE !?5,"of the Women's Health Software.",!
+4 QUIT
CHKOUT1 ; Message when no site parameter entry
+1 WRITE !?5,"Or, if you wish to set up site parameters for this site,"
+2 WRITE !?5,"you may proceed to the Edit Site Parameters option and enter"
+3 WRITE !?5,"parameters for this site. (Synonyms: MF-->FM-->ESP)",!
+4 DO DIRZ^WVUTL3
+5 QUIT
