source:
WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXTTEDQ.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 359 bytes |
Rev | Line | |
---|---|---|
[613] | 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.