| 1 | WVLOGO ;HCIOFO/FT,JR IHS/ANMC/MWR - DISPLAY LOGO WHEN ENTERING PKG; ;12/7/98 15:55
|
|---|
| 2 | ;;1.0;WOMEN'S HEALTH;**3**;Sep 30, 1998
|
|---|
| 3 | ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
|
|---|
| 4 | ;; DISPLAYS LOGO. GETS VERSION FROM LINE 2 OF THIS ROUTINE.
|
|---|
| 5 | ;
|
|---|
| 6 | D SETVARS^WVUTL5
|
|---|
| 7 | N WVVER,Y
|
|---|
| 8 | ;
|
|---|
| 9 | S Y=$P($P($T(WVLOGO+1),";;",2),";")
|
|---|
| 10 | ;
|
|---|
| 11 | W @IOF
|
|---|
| 12 | I '$D(DUZ(2)) D Q
|
|---|
| 13 | .W !!!,"DUZ(2) is undefined. Contact your Site Manager.",!!
|
|---|
| 14 | .D DIRZ^WVUTL3
|
|---|
| 15 | W !?3,"Women's Health Main Menu v",Y,?55,$E($P(^DIC(4,DUZ(2),0),U),1,24)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | CHECK ;EP
|
|---|
| 19 | ;---> UPON ENTRY VIA MAIN MENU (OR LAB DATA ENTRY MENU), CHECKS TO
|
|---|
| 20 | ;---> SEE THAT USER'S DUZ(2) IS SET UP AS A PACKAGE SITE.
|
|---|
| 21 | I '$G(DUZ(2)) D WARN D D CHKOUT Q
|
|---|
| 22 | .W !?5,"Your DUZ(2) variable is not defined."
|
|---|
| 23 | I '$D(^WV(790.02,DUZ(2),0)) D WARN D D CHKOUT,CHKOUT1 Q
|
|---|
| 24 | .W !?5,"Women's Health Site Parameters have NOT been set for the site"
|
|---|
| 25 | .W !?5,"you are logged on as: ",$P(^DIC(4,DUZ(2),0),U)
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | WARN ;EP
|
|---|
| 29 | W @IOF,!!?35,"WARNING",!?34,"---------",!!
|
|---|
| 30 | Q
|
|---|
| 31 | CHKOUT ;EP
|
|---|
| 32 | W !!?5,"At this point you should back out of the Women's Health"
|
|---|
| 33 | W !?5,"package and contact your site manager or the person in charge"
|
|---|
| 34 | W !?5,"of the Women's Health Software.",!
|
|---|
| 35 | Q
|
|---|
| 36 | CHKOUT1 ; Message when no site parameter entry
|
|---|
| 37 | W !?5,"Or, if you wish to set up site parameters for this site,"
|
|---|
| 38 | W !?5,"you may proceed to the Edit Site Parameters option and enter"
|
|---|
| 39 | W !?5,"parameters for this site. (Synonyms: MF-->FM-->ESP)",!
|
|---|
| 40 | D DIRZ^WVUTL3
|
|---|
| 41 | Q
|
|---|
