source: FOIAVistA/tag/r/LIBRARY-LBR-LBRS/LBRYRLE.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 619 bytes
Line 
1LBRYRLE ;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
5LOOP 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
14EXIT K DIC,DIE,DR,Y,YDT,LBRYL Q
Note: See TracBrowser for help on using the repository browser.