source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRCSL.m@ 1046

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

initial load of WorldVistAEHR

File size: 327 bytes
Line 
1LBRCSL ;ALB/MRY; Library CoreFLS ;[ 03/15/02 11:35 AM]
2 ;;2.5;Library;**9**;Mar 11, 1996
3 ;
4STAND ; Standalone query.
5 I $G(LBRYPTR)="" D I $G(LBRYPTR)="" W !!,$C(7),"No Site has been selected" Q
6 . D ^LBRYASK
7 I '$P($G(^LBRY(680.6,LBRYPTR,0)),"^",10) D Q
8 . W !,"CoreFLS Vendor interface is not active."
9 D STAND^DGBTCSL
10 Q
Note: See TracBrowser for help on using the repository browser.