source: FOIAVistA/trunk/r/NOIS-FSC/FSCLD.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1FSCLD ;SLC/STAFF-NOIS List Definition ;1/17/98 17:06
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4DEFINE ; 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 ;
28DEF(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 ;
36ASK(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
Note: See TracBrowser for help on using the repository browser.