source: FOIAVistA/tag/r/NOIS-FSC/FSCQSA.m@ 628

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

initial load of FOIAVistA 6/30/08 version
File size: 280 bytes
Line 
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.