PXCESDA1.m

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

 ;

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       ;