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

FSCLD.m

Go to the documentation of this file.
  1. FSCLD ;SLC/STAFF-NOIS List Definition ;1/17/98 17:06
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. DEFINE ; from FSCLMP
  1. N DESC,EVENT,METHOD,NAME,NOTIFY,NUM,OK,OWNER,TYPE K DESC
  1. S NOTIFY=""
  1. W !!,"Please use the following conventions for personal lists:"
  1. W !,"Manual or Active update lists should begin with your LASTNAME and then"
  1. W !,"something descriptive (separate your name and description with a '-')"
  1. W !,"Storage-Only lists should be TEMP-LASTNAME"
  1. W !,"If the list is to be used by your office or site, use your NOIS location"
  1. W !,"abbreviation instead of your last name."
  1. W !,"Examples: SMITH-SUPPORT, SMITH-DEV, or TEMP-SMITH, ISL-OLD CALLS",!
  1. D NAME^FSCMU("",.NAME,.OK) I 'OK Q
  1. D OWNER^FSCMU(DUZ,.OWNER,.OK) I 'OK Q
  1. D DESC^FSCMU1(0,.DESC,.OK) I OK="" Q
  1. D TYPE^FSCMU("",.TYPE,.OK) I 'OK Q
  1. I TYPE="A"!(TYPE="M") D I 'OK Q
  1. .I TYPE="A" D METHOD^FSCMU1("",.METHOD,.OK) I 'OK Q
  1. .I TYPE="A",$L(METHOD) D EVENT^FSCMU1("",.EVENT,.OK) I 'OK Q
  1. .I TYPE="A",$L(METHOD),$L(EVENT) S NOTIFY=METHOD_U_EVENT
  1. .W ! D DEF(NAME,0,.OK) I 'OK Q
  1. W ! D ASK(.OK) I 'OK Q
  1. S NUM=0 D SAVE^FSCLDS(NAME,.NUM,OWNER,.DESC,TYPE,NOTIFY)
  1. S FSCLNAME=NAME,FSCLNUM=NUM
  1. Q
  1. ;
  1. DEF(FSCLNAME,FSCLNUM,OK) ; from FSCLDR
  1. N FSCQUERY
  1. S FSCLNUM=+$G(FSCLNUM),FSCQUERY=1,OK=1 K ^TMP("FSC DEFINE",$J)
  1. W !,"Query Definition:"
  1. D BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add","^TMP(""FSC DEFINE"",$J)")
  1. I $D(DTOUT) S OK=""
  1. Q
  1. ;
  1. ASK(OK) ; from FSCLMPS
  1. N DIR,Y K DIR S OK=0
  1. S DIR(0)="YAO",DIR("A")="Save this list definition: ",DIR("B")="YES"
  1. S DIR("?",1)="Enter YES to save this list definition."
  1. S DIR("?",2)="Enter NO or '^' to exit without saving the list, '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. I Y'=1 W !,"List Definition was NOT Saved." H 2 Q
  1. S OK=1
  1. Q