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

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

initial load of WorldVistAEHR

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