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