Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: WVFACE

WVFACE.m

Go to the documentation of this file.
  1. WVFACE ;HCIOFO/JR,FT IHS/ANMC/MWR - PRINT A FACE SHEET (FROM REG.); ;8/10/98 15:40
  1. ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; DISPLAY/PRINT A FACE SHEET.
  1. ;
  1. D SETVARS^WVUTL5 S WVPOP1=0
  1. F D RUN Q:WVPOP1
  1. D EXIT
  1. Q
  1. ;
  1. RUN ;EP
  1. D TITLE^WVUTL5("DISPLAY/PRINT A PATIENT FACE SHEET")
  1. D PATIENT I Y<0 S WVPOP1=1 Q
  1. ;
  1. RUN1 ;EP
  1. ;---> PATIENT ALREADY SELECTED.
  1. D DEVICE Q:WVPOP
  1. D FACE
  1. Q
  1. ;
  1. EXIT ;EP
  1. D KILLALL^WVUTL8
  1. Q
  1. ;
  1. ;
  1. PATIENT ;EP
  1. ;---> SELECT PATIENT (RETURN WVDFN).
  1. W !!," Select the patient whose Face Sheet you wish to display."
  1. D PATLKUP^WVUTL8(.Y)
  1. Q:Y<0 S WVDFN=+Y
  1. Q
  1. ;
  1. ;
  1. DEVICE ;EP
  1. ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
  1. S ZTRTN="DEQUEUE^WVFACE",ZTSAVE("WVDFN")=""
  1. D ZIS^WVUTL2(.WVPOP,1)
  1. Q
  1. ;
  1. ;
  1. FACE ;EP
  1. ;---> DISPLAY CODE FOR FACE SHEET.
  1. U IO
  1. S WVCRT=$S($E(IOST)="C":1,1:0)
  1. I WVCRT N IOF S IOF="!"
  1. D
  1. .I '$D(WVDFN) W !?5,"A Patient has not been selected.",! Q
  1. .S DFN=WVDFN
  1. .;
  1. .;---> VA/STATE SITES MAY SUBSTITUTE AN ALTERNATE CALL BELOW.
  1. .;D ^VA_ROUTINE SUCH AS EN^DGRPD, AND QUIT.
  1. .;EXAMPLE: D EN^DGRPD Q
  1. .D EN^DGRPD Q
  1. .Q
  1. I WVCRT&('$D(IO("S"))) D:'$G(DGRPOUT) DIRZ^WVUTL3 W @IOF
  1. D ^%ZISC
  1. Q
  1. ;
  1. FOLLUP(WVDFN) ;EP
  1. ;---> CALLED BY PROCEDURE FOLLOW-UP MENU (WVPROC1).
  1. D SETVARS^WVUTL5
  1. D RUN1
  1. Q
  1. ;
  1. DEQUEUE ;EP
  1. ;---> EP FOR TASKMAN QUEUE OF PRINTOUT.
  1. D SETVARS^WVUTL5,FACE^WVFACE,EXIT
  1. Q