source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXCESDA1.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 791 bytes
RevLine 
[613]1PXCESDA1 ;ISL/dee - PCE List Manager display of appointments by patient ;6/20/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;;
4 ;Developed using code from:
5SDAM1 ;MJK/ALB - Appt Mgt (Patient); 12/1/91
6 ;;5.3;Scheduling;;Aug 13, 1993
7 Q
8 ;
9 ;This is the INIT in SDAM1
10INTSDAM1 ; -- get init pat appt data
11 ; input: DFN := ifn of pat
12 ; output: ^TMP("SDAM" := appt array
13 ;SDBEG and SDEND are already set.
14 D SETSDAM1
15 D LIST^SDAM
16 Q
17 ;
18PATSDAM1 ; -- change pat
19 D SETSDAM1
20 D BLD^SDAM1
21PATQ Q
22 ;
23SETSDAM1 ;
24 S SDAMTYP="P" ; Type is Patient
25 S SDFN=PXCEPAT ; Pointer to the Patient file (#2)
26 K SDCLN ; No pointer to the Hospital Location file (#44)
27 D CHGCAP^VALM("NAME","Clinic")
28 S X="ALL"
29 Q
30 ;
Note: See TracBrowser for help on using the repository browser.