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