PXCESDA3.m

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

 ;

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       ;