Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXCESDA3

PXCESDA3.m

Go to the documentation of this file.
  1. 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
  1. ;;
  1. ;Developed using code from:
  1. SDAM3 ;MJK/ALB - Appt Mgt (Clinic) ; 12/1/91
  1. ;;5.3;Scheduling;;Aug 13, 1993
  1. Q
  1. ;
  1. ;This is the INIT in SDAM3
  1. INTSDAM3 ; -- get init clinic appt data
  1. ; input: SDCLN := ifn of pat
  1. ; output: ^TMP("SDAM" := appt array
  1. ;SDBEG and SDEND are already set.
  1. D SETSDAM3
  1. D LIST^SDAM
  1. K VALMB,VALMBEG,VALMEND
  1. Q
  1. ;
  1. CLNSDAM3 ; -- change clinic
  1. D SETSDAM3
  1. D BLD^SDAM3
  1. CLNQ Q
  1. ;
  1. SETSDAM3 ;
  1. S SDAMTYP="C" ; Type is clinic
  1. S SDCLN=PXCEHLOC ; Pointer to the Hospital Location file (#44)
  1. K SDFN ; No pointer to the patient file (#2)
  1. D CHGCAP^VALM("NAME","Patient")
  1. S X="ALL"
  1. Q
  1. ;