source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXTTEDE.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: 613 bytes
RevLine 
[613]1PXTTEDE ;ISL/PKR - Edit an education topic ;6/11/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;
4 ;=======================================================================
5 N DA,DIC,Y
6GETNAME ;
7 S DIC="^AUTTEDT("
8 S DIC(0)="AEMQ",DIC("A")="Select EDUCATION TOPIC: "
9 S DIC("S")="S PXRMSNUM=+$P($$SITE^VASITE,U,3) I $S(PXRMSNUM=5000:1,+$G(Y)'<100000:1,1:0)"
10 W !
11 D ^DIC
12 I Y=-1 G END
13 S DA=$P(Y,U,1)
14 D EDIT(DIC,DA)
15 G GETNAME
16 ;
17END K DIC,PXY
18 Q
19 ;=======================================================================
20 ;
21EDIT(ROOT,DA) ;
22 N DIE,DR
23 S DIE=ROOT
24 S DR="[PXTT EDIT PAT. EDUCATION]"
25 D ^DIE
26 Q
Note: See TracBrowser for help on using the repository browser.