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

FSCLMPQU.m

Go to the documentation of this file.
  1. FSCLMPQU ;SLC/STAFF-NOIS List Manager Protocol Query Utility ;9/6/98 21:08
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. SETUP(VALMCNT,CALL) ; from FSCELL, FSCLMPQA, FSCLMPQR, FSCLMPQS
  1. N LISTNUM
  1. S VALMCNT=VALMCNT+1
  1. S LISTNUM=1+$G(^TMP("FSC LIST CALLS",$J)),^($J)=LISTNUM_U_VALMCNT
  1. S ^TMP("FSC LIST CALLS",$J,VALMCNT,0)=$$SHORT^FSCGETS(CALL,LISTNUM)
  1. S ^TMP("FSC LIST CALLS",$J,"CX",CALL)=""
  1. S ^TMP("FSC LIST CALLS",$J,"ICX",VALMCNT,CALL)=""
  1. S ^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,VALMCNT)=""
  1. I $D(^TMP("FSC LIST CLEANUP",$J,CALL)) D
  1. .S VALMCNT=VALMCNT+1
  1. .S ^TMP("FSC LIST CALLS",$J,VALMCNT,0)=" "_^TMP("FSC LIST CLEANUP",$J,CALL)
  1. Q
  1. ;
  1. COUNT(VALMCNT) ; from FSCELL, FSCLMPQA, FSCLMPQR, FSCLMPQS
  1. N LISTNUM,LNUM
  1. S (LISTNUM,LNUM)=0 F S LISTNUM=$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM)) Q:LISTNUM<1 S LNUM=LNUM+1
  1. S ^TMP("FSC LIST CALLS",$J)=LNUM_U_VALMCNT
  1. D HDR
  1. Q
  1. ;
  1. HDR ; from FSCLMPQA, FSCLMPQQ, FSCLMPQR
  1. S:FSCLNAME'["(MODIFIED)" FSCLNAME=FSCLNAME_" (MODIFIED)" D HEADER^FSCLML
  1. Q
  1. ;
  1. LIST(RLISTS,LIMITS,OK) ; from FSCLMPQA, FSCLMPQR, FSCLMPQS
  1. N FIELD0,INDX,LNAME,LNUM,RLIST
  1. S OK=1 F D Q:'$L(OK)
  1. .N FSCLIMIT,LIST
  1. .D LIST^FSCULOOK(.LIST,.FSCLIMIT,.OK)
  1. .I LIST<1!'OK S OK="" Q
  1. .S LNUM=+LIST,LNAME=$P(LIST,U,2)
  1. .S L0=^FSC("LIST",LNUM,0)
  1. .S RLIST="^FSCD(""LISTS"",""ALC"","_LNUM_")"
  1. .I $L($P(L0,U,4)),'$P(L0,U,5) S RLIST="^FSCD(""CALL"","_$P(L0,U,4)_")"
  1. .I $P(L0,U,5) D Q:'$G(INDX)
  1. ..N DIC,FIELD0 K DIC S FIELD0=$G(^FSC("FLD",$P(L0,U,5),0)),DIC=+$P($P(FIELD0,U,3),"P",2) Q:'DIC
  1. ..S DIC(0)="AEMOQ",DIC("A")="Select "_$P(FIELD0,U,2)_": "
  1. ..I $E(LNAME,1,4)="MRE:"!($E(LNAME,1,4)="MRA:") S DIC("A")=" Select User: ",DIC("B")=DUZ
  1. ..D ^DIC K DIC Q:Y<1
  1. ..S INDX=+Y,LNAME=LNAME_" "_$P(Y,U,2),RLIST="^FSCD(""CALL"","_$P(L0,U,4)_","_INDX_")"
  1. ..I INDX S LIST=+LIST_"."_INDX
  1. .I $P(L0,U,3)="M" D
  1. ..S RLIST="^TMP(""FSC MLC"","_$J_","_LNUM_")"
  1. ..D MANUAL^FSCLP(LNUM)
  1. ..M ^TMP("FSC MLC",$J,LNUM)=^TMP("FSC LIST",$J)
  1. ..K ^TMP("FSC LIST",$J)
  1. .S LISTNUM=+LIST
  1. .S RLISTS(LISTNUM)=RLIST,LIMITS(LISTNUM)=FSCLIMIT
  1. .D MRU^FSCMR(DUZ,+$P(LISTNUM,"."),+$P(LISTNUM,".",2))
  1. I '$L(OK) S OK=1
  1. Q
  1. ;
  1. QUERY(TYPE) ; from FSCLMPQA, FSCLMPQR, FSCLMPQS
  1. N CALL,MSG 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. D BROWSE^FSCQB("",FSCLNAME,.VALMCNT,.MSG,TYPE)
  1. S FSCQUERY=1 S:FSCLNAME'["(MODIFIED)" FSCLNAME=FSCLNAME_" (MODIFIED)"
  1. K VALMQUIT D ENTRY^FSCLML I $D(VALMQUIT) S VALMBCK="Q" Q
  1. D HEADER^FSCLML
  1. Q
  1. ;
  1. EMPTY ; from FSCLML, FSCLMPQA, FSCLMPQR, FSCLMPQS
  1. I '^TMP("FSC LIST CALLS",$J),'$O(^($J,0)) D
  1. .S ^TMP("FSC LIST CALLS",$J,1,0)=" "
  1. .S ^TMP("FSC LIST CALLS",$J,2,0)=" No calls on list."
  1. .S VALMCNT=2
  1. Q