- 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 Feb 18, 2025@23:54:31 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 ;