- 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 Mar 13, 2025@21:52:11 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
