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