Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
833 bytes
|
Line | |
---|
1 | PXCESDA3 ;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:
|
---|
5 | SDAM3 ;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
|
---|
10 | INTSDAM3 ; -- 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 | ;
|
---|
19 | CLNSDAM3 ; -- change clinic
|
---|
20 | D SETSDAM3
|
---|
21 | D BLD^SDAM3
|
---|
22 | CLNQ Q
|
---|
23 | ;
|
---|
24 | SETSDAM3 ;
|
---|
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.