BWLOGO.m

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