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

PXCESDA1.m

Go to the documentation of this file.
  1. PXCESDA1 ;ISL/dee - PCE List Manager display of appointments by patient ;6/20/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
  1. ;;
  1. ;Developed using code from:
  1. SDAM1 ;MJK/ALB - Appt Mgt (Patient); 12/1/91
  1. ;;5.3;Scheduling;;Aug 13, 1993
  1. Q
  1. ;
  1. ;This is the INIT in SDAM1
  1. INTSDAM1 ; -- get init pat appt data
  1. ; input: DFN := ifn of pat
  1. ; output: ^TMP("SDAM" := appt array
  1. ;SDBEG and SDEND are already set.
  1. D SETSDAM1
  1. D LIST^SDAM
  1. Q
  1. ;
  1. PATSDAM1 ; -- change pat
  1. D SETSDAM1
  1. D BLD^SDAM1
  1. PATQ Q
  1. ;
  1. SETSDAM1 ;
  1. S SDAMTYP="P" ; Type is Patient
  1. S SDFN=PXCEPAT ; Pointer to the Patient file (#2)
  1. K SDCLN ; No pointer to the Hospital Location file (#44)
  1. D CHGCAP^VALM("NAME","Clinic")
  1. S X="ALL"
  1. Q
  1. ;