WVFACE ;HCIOFO/JR,FT IHS/ANMC/MWR - PRINT A FACE SHEET (FROM REG.); ;8/10/98 15:40
;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; DISPLAY/PRINT A FACE SHEET.
;
D SETVARS^WVUTL5 S WVPOP1=0
F D RUN Q:WVPOP1
D EXIT
Q
;
RUN ;EP
D TITLE^WVUTL5("DISPLAY/PRINT A PATIENT FACE SHEET")
D PATIENT I Y<0 S WVPOP1=1 Q
;
RUN1 ;EP
;---> PATIENT ALREADY SELECTED.
D DEVICE Q:WVPOP
D FACE
Q
;
EXIT ;EP
D KILLALL^WVUTL8
Q
;
;
PATIENT ;EP
;---> SELECT PATIENT (RETURN WVDFN).
W !!," Select the patient whose Face Sheet you wish to display."
D PATLKUP^WVUTL8(.Y)
Q:Y<0 S WVDFN=+Y
Q
;
;
DEVICE ;EP
;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
S ZTRTN="DEQUEUE^WVFACE",ZTSAVE("WVDFN")=""
D ZIS^WVUTL2(.WVPOP,1)
Q
;
;
FACE ;EP
;---> DISPLAY CODE FOR FACE SHEET.
U IO
S WVCRT=$S($E(IOST)="C":1,1:0)
I WVCRT N IOF S IOF="!"
D
.I '$D(WVDFN) W !?5,"A Patient has not been selected.",! Q
.S DFN=WVDFN
.;
.;---> VA/STATE SITES MAY SUBSTITUTE AN ALTERNATE CALL BELOW.
.;D ^VA_ROUTINE SUCH AS EN^DGRPD, AND QUIT.
.;EXAMPLE: D EN^DGRPD Q
.D EN^DGRPD Q
.Q
I WVCRT&('$D(IO("S"))) D:'$G(DGRPOUT) DIRZ^WVUTL3 W @IOF
D ^%ZISC
Q
;
FOLLUP(WVDFN) ;EP
;---> CALLED BY PROCEDURE FOLLOW-UP MENU (WVPROC1).
D SETVARS^WVUTL5
D RUN1
Q
;
DEQUEUE ;EP
;---> EP FOR TASKMAN QUEUE OF PRINTOUT.
D SETVARS^WVUTL5,FACE^WVFACE,EXIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVFACE 1467 printed Nov 22, 2024@17:56:47 Page 2
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
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; DISPLAY/PRINT A FACE SHEET.
+4 ;
+5 DO SETVARS^WVUTL5
SET WVPOP1=0
+6 FOR
DO RUN
if WVPOP1
QUIT
+7 DO EXIT
+8 QUIT
+9 ;
RUN ;EP
+1 DO TITLE^WVUTL5("DISPLAY/PRINT A PATIENT FACE SHEET")
+2 DO PATIENT
IF Y<0
SET WVPOP1=1
QUIT
+3 ;
RUN1 ;EP
+1 ;---> PATIENT ALREADY SELECTED.
+2 DO DEVICE
if WVPOP
QUIT
+3 DO FACE
+4 QUIT
+5 ;
EXIT ;EP
+1 DO KILLALL^WVUTL8
+2 QUIT
+3 ;
+4 ;
PATIENT ;EP
+1 ;---> SELECT PATIENT (RETURN WVDFN).
+2 WRITE !!," Select the patient whose Face Sheet you wish to display."
+3 DO PATLKUP^WVUTL8(.Y)
+4 if Y<0
QUIT
SET WVDFN=+Y
+5 QUIT
+6 ;
+7 ;
DEVICE ;EP
+1 ;---> GET DEVICE AND POSSIBLY QUEUE TO TASKMAN.
+2 SET ZTRTN="DEQUEUE^WVFACE"
SET ZTSAVE("WVDFN")=""
+3 DO ZIS^WVUTL2(.WVPOP,1)
+4 QUIT
+5 ;
+6 ;
FACE ;EP
+1 ;---> DISPLAY CODE FOR FACE SHEET.
+2 USE IO
+3 SET WVCRT=$SELECT($EXTRACT(IOST)="C":1,1:0)
+4 IF WVCRT
NEW IOF
SET IOF="!"
+5 Begin DoDot:1
+6 IF '$DATA(WVDFN)
WRITE !?5,"A Patient has not been selected.",!
QUIT
+7 SET DFN=WVDFN
+8 ;
+9 ;---> VA/STATE SITES MAY SUBSTITUTE AN ALTERNATE CALL BELOW.
+10 ;D ^VA_ROUTINE SUCH AS EN^DGRPD, AND QUIT.
+11 ;EXAMPLE: D EN^DGRPD Q
+12 DO EN^DGRPD
QUIT
+13 QUIT
End DoDot:1
+14 IF WVCRT&('$DATA(IO("S")))
if '$GET(DGRPOUT)
DO DIRZ^WVUTL3
WRITE @IOF
+15 DO ^%ZISC
+16 QUIT
+17 ;
FOLLUP(WVDFN) ;EP
+1 ;---> CALLED BY PROCEDURE FOLLOW-UP MENU (WVPROC1).
+2 DO SETVARS^WVUTL5
+3 DO RUN1
+4 QUIT
+5 ;
DEQUEUE ;EP
+1 ;---> EP FOR TASKMAN QUEUE OF PRINTOUT.
+2 DO SETVARS^WVUTL5
DO FACE^WVFACE
DO EXIT
+3 QUIT
