|
Last change
on this file since 841 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
613 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PXTTEDE ;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
|
|---|
| 6 | GETNAME ;
|
|---|
| 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 | ;
|
|---|
| 17 | END K DIC,PXY
|
|---|
| 18 | Q
|
|---|
| 19 | ;=======================================================================
|
|---|
| 20 | ;
|
|---|
| 21 | EDIT(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.
