|
Last change
on this file since 635 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
359 bytes
|
| Line | |
|---|
| 1 | PXTTEDQ ;ISL/DLT - PCE Reminder/Maintenance Inquiry ;11/21/95 14:55
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | S U="^",DIC="^AUTTEDT(",DIC(0)="AEMQ",DIC("A")="Select PCE Education Topic: " D ^DIC K DIC("A") G:Y=-1 END S (FR,TO)=$P(Y,U,2),PXY=+Y
|
|---|
| 4 | S BY=.01,DHD="PCE EDUCATION TOPIC INQUIRY",FLDS="[PXTT EDUCATION TOPIC DETAIL]",L=0 D EN1^DIP K PXY
|
|---|
| 5 | END Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
