Last change
on this file since 952 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
791 bytes
|
Rev | Line | |
---|
[628] | 1 | PXCESDA1 ;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:
|
---|
| 5 | SDAM1 ;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
|
---|
| 10 | INTSDAM1 ; -- 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 | ;
|
---|
| 18 | PATSDAM1 ; -- change pat
|
---|
| 19 | D SETSDAM1
|
---|
| 20 | D BLD^SDAM1
|
---|
| 21 | PATQ Q
|
---|
| 22 | ;
|
---|
| 23 | SETSDAM1 ;
|
---|
| 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.