source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCQSA.m@ 1270

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

initial load of WorldVistAEHR
File size: 280 bytes
RevLine 
[613]1FSCQSA ;SLC/STAFF-NOIS Query Search All ;4/22/94 11:57
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ALL ; from FSCQS
5 I LIST=1!(LIST=0) D Q
6 .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 X ACTION
7 I LIST="" D Q
8 .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 X ACTION
9 Q
Note: See TracBrowser for help on using the repository browser.