PXCESDA1 ;ISL/dee - PCE List Manager display of appointments by patient ;6/20/96
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;;
;Developed using code from:
SDAM1 ;MJK/ALB - Appt Mgt (Patient); 12/1/91
;;5.3;Scheduling;;Aug 13, 1993
Q
;
;This is the INIT in SDAM1
INTSDAM1 ; -- get init pat appt data
; input: DFN := ifn of pat
; output: ^TMP("SDAM" := appt array
;SDBEG and SDEND are already set.
D SETSDAM1
D LIST^SDAM
Q
;
PATSDAM1 ; -- change pat
D SETSDAM1
D BLD^SDAM1
PATQ Q
;
SETSDAM1 ;
S SDAMTYP="P" ; Type is Patient
S SDFN=PXCEPAT ; Pointer to the Patient file (#2)
K SDCLN ; No pointer to the Hospital Location file (#44)
D CHGCAP^VALM("NAME","Clinic")
S X="ALL"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCESDA1 821 printed Dec 13, 2024@02:28:14 Page 2
PXCESDA1 ;ISL/dee - PCE List Manager display of appointments by patient ;6/20/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;;
+3 ;Developed using code from:
SDAM1 ;MJK/ALB - Appt Mgt (Patient); 12/1/91
+1 ;;5.3;Scheduling;;Aug 13, 1993
+2 QUIT
+3 ;
+4 ;This is the INIT in SDAM1
INTSDAM1 ; -- get init pat appt data
+1 ; input: DFN := ifn of pat
+2 ; output: ^TMP("SDAM" := appt array
+3 ;SDBEG and SDEND are already set.
+4 DO SETSDAM1
+5 DO LIST^SDAM
+6 QUIT
+7 ;
PATSDAM1 ; -- change pat
+1 DO SETSDAM1
+2 DO BLD^SDAM1
PATQ QUIT
+1 ;
SETSDAM1 ;
+1 ; Type is Patient
SET SDAMTYP="P"
+2 ; Pointer to the Patient file (#2)
SET SDFN=PXCEPAT
+3 ; No pointer to the Hospital Location file (#44)
KILL SDCLN
+4 DO CHGCAP^VALM("NAME","Clinic")
+5 SET X="ALL"
+6 QUIT
+7 ;
