|
Last change
on this file since 1036 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
619 bytes
|
| Line | |
|---|
| 1 | LBRYRLE ;ISC2/DJM-NAME LIST ENTRIES ENTER\EDIT ;[ 05/23/97 12:13 PM ]
|
|---|
| 2 | ;;2.5;Library;**2**;Mar 11, 1996
|
|---|
| 3 | I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
|
|---|
| 4 | . D ^LBRYASK
|
|---|
| 5 | LOOP W @IOF,"VA Library Name Entries Update" S Y=DT X ^DD("DD")
|
|---|
| 6 | S YDT=Y W ?60,YDT,!! S DIC="^LBRY(680.4,",DIC(0)="AELMQ"
|
|---|
| 7 | S DIC("A")="Select the name to update: ",DLAYGO=680.4
|
|---|
| 8 | S DIC("S")="I $P(^(0),U,9)=LBRYPTR"
|
|---|
| 9 | L ^LBRY(680.4,0):1 G:$T=0 EXIT D ^DIC K DIC("A"),DLAYGO,DIC("S")
|
|---|
| 10 | L G:Y<1 EXIT
|
|---|
| 11 | S DA=+Y,DIE=DIC,DR="[LBRY CONTACTS ROUTING]" D LOCK^LBRYEDR
|
|---|
| 12 | G:LBRYL=0 EXIT D ^DIE L
|
|---|
| 13 | G LOOP
|
|---|
| 14 | EXIT K DIC,DIE,DR,Y,YDT,LBRYL Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
