source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRVCON9.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1LBRVCON9 ;SSI/JSR-START CHECKPOINTS ;[ 04/19/2000 10:29 AM ]
2 ;;2.5;Library;**8**;APR 19, 2000
3START ;
4 S NUM=0
5 S ^XTMP("LBRY",LBRVSTA,0)=""
6 S ^XTMP("LBRY",LBRVSTA,"STA")=$H
7 S LBRTIM=$$NOW^XLFDT
8 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA1")) ^XTMP("LBRY",LBRVSTA,"ODA1")=NUM_"^"_LBRTIM
9 S LBRTIM=$$NOW^XLFDT
10 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA2")) ^XTMP("LBRY",LBRVSTA,"ODA2")=NUM_"^"_LBRTIM
11 S LBRTIM=$$NOW^XLFDT
12 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA3")) ^XTMP("LBRY",LBRVSTA,"ODA3")=NUM_"^"_LBRTIM
13 S LBRTIM=$$NOW^XLFDT
14 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA4")) ^XTMP("LBRY",LBRVSTA,"ODA4")=NUM_"^"_LBRTIM
15 S LBRTIM=$$NOW^XLFDT
16 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA5")) ^XTMP("LBRY",LBRVSTA,"ODA5")=NUM_"^"_LBRTIM
17 S LBRTIM=$$NOW^XLFDT
18 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA6")) ^XTMP("LBRY",LBRVSTA,"ODA6")=NUM_"^"_LBRTIM
19 S LBRTIM=$$NOW^XLFDT
20 S:'$D(^XTMP("LBRY",LBRVSTA,"ODA7")) ^XTMP("LBRY",LBRVSTA,"ODA7")=NUM_"^"_LBRTIM
21 S LBRTIM=$$NOW^XLFDT
22 S:'$D(^XTMP("LBRY",LBRVSTA,"CON3")) ^XTMP("LBRY",LBRVSTA,"CON3")=NUM_"^"_LBRTIM
23 S LBRTIM=$$NOW^XLFDT
24 S:'$D(^XTMP("LBRY",LBRVSTA,"CON2")) ^XTMP("LBRY",LBRVSTA,"CON2")=NUM_"^"_LBRTIM
25
26END ;
27 Q
Note: See TracBrowser for help on using the repository browser.