- 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 Feb 19, 2025@00:13:24 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