Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
613 bytes
|
Rev | Line | |
---|
[628] | 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.