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