- BWLOGO ;IHS/ANMC/MWR - DISPLAY LOGO WHEN ENTERING PKG;15-Feb-2003 21:56;PLS
- ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
- ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
- ;; DISPLAYS LOGO. GETS VERSION FROM LINE 2 OF THIS ROUTINE.
- ;
- D SETVARS^BWUTL5
- N BWVER,Y
- ;
- S Y=$P($P($T(BWLOGO+1),";;",2),";")
- S BWVER="* v"_Y_$E(" *",$L(Y),11)
- ;
- W @IOF
- I '$D(DUZ(2)) D Q
- .W !!!,"DUZ(2) is undefined. Contact your Site Manager.",!!
- .D DIRZ^BWUTL3
- W !?39,"***"
- W !?35,"* *"
- W !?32,"* *"
- W !?30,"* *"
- W !?29,"* W O M E N'S *"
- W !?29,"* H E A L T H *"
- W !?30,"* *"
- W !?32,BWVER
- W !?35,"* *"
- W !?39,"***"
- W !?17,"MAIN MENU",?40,"|",?55,$E($P(^DIC(4,DUZ(2),0),U),1,24)
- W !?37,"---|---"
- W !?40,"|"
- 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(^BWSITE(DUZ(2),0)) D WARN D D CHKOUT 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.",!
- I $D(^VA(200,DUZ,51,$O(^DIC(19.1,"B","BWZ MANAGER",0)),0)) D
- .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^BWUTL3
- Q
- BWLOGO ;IHS/ANMC/MWR - DISPLAY LOGO WHEN ENTERING PKG;15-Feb-2003 21:56;PLS
- +1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
- +2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
- +3 ;; DISPLAYS LOGO. GETS VERSION FROM LINE 2 OF THIS ROUTINE.
- +4 ;
- +5 DO SETVARS^BWUTL5
- +6 NEW BWVER,Y
- +7 ;
- +8 SET Y=$PIECE($PIECE($TEXT(BWLOGO+1),";;",2),";")
- +9 SET BWVER="* v"_Y_$EXTRACT(" *",$LENGTH(Y),11)
- +10 ;
- +11 WRITE @IOF
- +12 IF '$DATA(DUZ(2))
- Begin DoDot:1
- +13 WRITE !!!,"DUZ(2) is undefined. Contact your Site Manager.",!!
- +14 DO DIRZ^BWUTL3
- End DoDot:1
- QUIT
- +15 WRITE !?39,"***"
- +16 WRITE !?35,"* *"
- +17 WRITE !?32,"* *"
- +18 WRITE !?30,"* *"
- +19 WRITE !?29,"* W O M E N'S *"
- +20 WRITE !?29,"* H E A L T H *"
- +21 WRITE !?30,"* *"
- +22 WRITE !?32,BWVER
- +23 WRITE !?35,"* *"
- +24 WRITE !?39,"***"
- +25 WRITE !?17,"MAIN MENU",?40,"|",?55,$EXTRACT($PIECE(^DIC(4,DUZ(2),0),U),1,24)
- +26 WRITE !?37,"---|---"
- +27 WRITE !?40,"|"
- +28 QUIT
- +29 ;
- 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(^BWSITE(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
- 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 IF $DATA(^VA(200,DUZ,51,$ORDER(^DIC(19.1,"B","BWZ MANAGER",0)),0))
- Begin DoDot:1
- +5 WRITE !?5,"Or, if you wish to set up site parameters for this site,"
- +6 WRITE !?5,"you may proceed to the Edit Site Parameters option and enter"
- +7 WRITE !?5,"parameters for this site. (Synonyms: MF-->FM-->ESP)",!
- End DoDot:1
- +8 DO DIRZ^BWUTL3
- +9 QUIT
