Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPQQ

FSCLMPQQ.m

Go to the documentation of this file.
  1. FSCLMPQQ ;SLC/STAFF-NOIS List Manager Protocol Query Query ;4/22/94 11:07
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. QUERY ; from FSCLMP
  1. N CALL,CALLCNT,MSG
  1. S MSG=1
  1. K ^TMP("FSC LIST",$J)
  1. S CALL=0 F S CALL=$O(^TMP("FSC LIST CALLS",$J,"CX",CALL)) Q:CALL<1 S ^TMP("FSC LIST",$J,CALL,0)=CALL ;*** calls should be loaded with internal number of call
  1. S CALLCNT=+^TMP("FSC LIST CALLS",$J)
  1. D BROWSE^FSCQB("",FSCLNAME,.CALLCNT,.MSG)
  1. I CALLCNT S VALMCNT=CALLCNT
  1. S FSCQUERY=1,VALMBG=1 K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
  1. D HDR^FSCLMPQU
  1. Q