| 1 | FSCLD ;SLC/STAFF-NOIS List Definition ;1/17/98 17:06
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | DEFINE ; from FSCLMP
|
|---|
| 5 | N DESC,EVENT,METHOD,NAME,NOTIFY,NUM,OK,OWNER,TYPE K DESC
|
|---|
| 6 | S NOTIFY=""
|
|---|
| 7 | W !!,"Please use the following conventions for personal lists:"
|
|---|
| 8 | W !,"Manual or Active update lists should begin with your LASTNAME and then"
|
|---|
| 9 | W !,"something descriptive (separate your name and description with a '-')"
|
|---|
| 10 | W !,"Storage-Only lists should be TEMP-LASTNAME"
|
|---|
| 11 | W !,"If the list is to be used by your office or site, use your NOIS location"
|
|---|
| 12 | W !,"abbreviation instead of your last name."
|
|---|
| 13 | W !,"Examples: SMITH-SUPPORT, SMITH-DEV, or TEMP-SMITH, ISL-OLD CALLS",!
|
|---|
| 14 | D NAME^FSCMU("",.NAME,.OK) I 'OK Q
|
|---|
| 15 | D OWNER^FSCMU(DUZ,.OWNER,.OK) I 'OK Q
|
|---|
| 16 | D DESC^FSCMU1(0,.DESC,.OK) I OK="" Q
|
|---|
| 17 | D TYPE^FSCMU("",.TYPE,.OK) I 'OK Q
|
|---|
| 18 | I TYPE="A"!(TYPE="M") D I 'OK Q
|
|---|
| 19 | .I TYPE="A" D METHOD^FSCMU1("",.METHOD,.OK) I 'OK Q
|
|---|
| 20 | .I TYPE="A",$L(METHOD) D EVENT^FSCMU1("",.EVENT,.OK) I 'OK Q
|
|---|
| 21 | .I TYPE="A",$L(METHOD),$L(EVENT) S NOTIFY=METHOD_U_EVENT
|
|---|
| 22 | .W ! D DEF(NAME,0,.OK) I 'OK Q
|
|---|
| 23 | W ! D ASK(.OK) I 'OK Q
|
|---|
| 24 | S NUM=0 D SAVE^FSCLDS(NAME,.NUM,OWNER,.DESC,TYPE,NOTIFY)
|
|---|
| 25 | S FSCLNAME=NAME,FSCLNUM=NUM
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | DEF(FSCLNAME,FSCLNUM,OK) ; from FSCLDR
|
|---|
| 29 | N FSCQUERY
|
|---|
| 30 | S FSCLNUM=+$G(FSCLNUM),FSCQUERY=1,OK=1 K ^TMP("FSC DEFINE",$J)
|
|---|
| 31 | W !,"Query Definition:"
|
|---|
| 32 | D BROWSE^FSCQB("",FSCLNAME,0,.OK,"Add","^TMP(""FSC DEFINE"",$J)")
|
|---|
| 33 | I $D(DTOUT) S OK=""
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | ASK(OK) ; from FSCLMPS
|
|---|
| 37 | N DIR,Y K DIR S OK=0
|
|---|
| 38 | S DIR(0)="YAO",DIR("A")="Save this list definition: ",DIR("B")="YES"
|
|---|
| 39 | S DIR("?",1)="Enter YES to save this list definition."
|
|---|
| 40 | S DIR("?",2)="Enter NO or '^' to exit without saving the list, '??' for more help."
|
|---|
| 41 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 42 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 43 | D ^DIR K DIR
|
|---|
| 44 | I $D(DIRUT) Q
|
|---|
| 45 | I Y'=1 W !,"List Definition was NOT Saved." H 2 Q
|
|---|
| 46 | S OK=1
|
|---|
| 47 | Q
|
|---|
