source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCMU.m@ 1000

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1FSCMU ;SLC/STAFF-NOIS Modify Utilities ;1/13/98 13:19
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NAME(OLD,NEW,OK) ; from FSCLD, FSCLDR, FSCLMPS
5 N DONE,NAME S (DONE,OK)=0,(NAME,NEW)=""
6 F D Q:DONE
7 .N DIR,Y K DIR
8 .S DIR(0)="7107.1,.01AO",DIR("A")="List Name: " I $L(OLD) S DIR("B")=OLD
9 .S DIR("?",1)="Enter the name of the list."
10 .S DIR("?")="^D HELP^FSCU(.DIR)"
11 .S DIR("??")="FSC U1 NOIS"
12 .D ^DIR K DIR
13 .S NAME=Y
14 .I $L(OLD),X="@" S (NAME,NEW)="@" D WARNING(OLD,.OK) S:OK DONE=1 Q
15 .I $D(DIRUT) S DONE=1 Q
16 .I '$L(OLD),$D(^FSC("LIST","B",NAME)) W !,NAME," already exists. Enter a new name.",$C(7) Q
17 .S NEW=NAME,(DONE,OK)=1
18 Q
19 ;
20WARNING(LISTNAME,OK) ; from FSCLMPM
21 N DIR,Y K DIR S OK=0
22 S DIR(0)="YAO",DIR("A")="Are you sure you want to delete "_LISTNAME_"? ",DIR("B")="NO"
23 S DIR("?",1)="Deleting a list will remove it's use from all users."
24 S DIR("?")="^D HELP^FSCU(.DIR)"
25 S DIR("??")="FSC U1 NOIS"
26 W $C(7) D ^DIR K DIR
27 I $D(DIRUT) Q
28 I Y=1 D
29 .N DIR K DIR
30 .S DIR(0)="YAO",DIR("A",1)="Deleting this list will also remove all calls from the list.",DIR("A")="Do you still want to delete "_LISTNAME_"? ",DIR("B")="NO"
31 .S DIR("?",1)="Enter YES to delete the list."
32 .S DIR("?")="^D HELP^FSCU(.DIR)"
33 .S DIR("??")="FSC U1 NOIS"
34 .W $C(7) D ^DIR K DIR
35 .I $D(DIRUT) Q
36 .I Y=1 S OK=1
37 Q
38 ;
39OWNER(OLD,NEW,OK) ; from FSCLD, FSCLDR, FSCLMPS
40 S NEW="",OK=0
41 I '$P($G(^FSC("SPEC",DUZ,0)),U,7) S NEW=DUZ,OK=1 Q
42 N DIR,Y K DIR
43 S DIR(0)="PAO^200:EM",DIR("A")="Owner: " I $L(OLD) S DIR("B")=$$VALUE^FSCGET(+OLD,7107.1,1)
44 S DIR("?",1)="Enter the owner for this list."
45 S DIR("?")="^D HELP^FSCU(.DIR)"
46 S DIR("??")="FSC U1 NOIS"
47 D ^DIR K DIR
48 I $D(DIRUT) Q
49 S NEW=+Y,OK=1
50 Q
51 ;
52TYPE(OLD,NEW,OK) ; from FSCLD
53 I $L(OLD),'(OLD="A"!(OLD="M")!(OLD="S")) S NEW="",OK=1 Q
54 S NEW="",OK=0
55 N DIR,Y K DIR
56 S DIR(0)="SAM^ACTIVE UPDATE:ACTIVE UPDATE;MANUAL UPDATE:MANUAL UPDATE;STORE ONLY:STORE ONLY",DIR("A")="Select (A)ctive Update (M)anual Update or (S)tore Only: " I $L(OLD) S DIR("B")=$S(OLD="A":"ACTIVE UPDATE",OLD="S":"STORE ONLY",1:"")
57 S DIR("?",1)="Enter ACTIVE UPDATE for lists using a query criteria that update whenever."
58 S DIR("?",2)="calls are edited (these lists are typically used for alerts)."
59 S DIR("?",3)="Enter MANUAL UPDATE for lists using a query criteria that update when used."
60 S DIR("?",4)="Enter STORE ONLY for lists used for storing calls (manually stored)."
61 S DIR("?")="^D HELP^FSCU(.DIR)"
62 S DIR("??")="FSC U1 NOIS"
63 D ^DIR K DIR
64 I $D(DIRUT) Q
65 S NEW=$S(Y="ACTIVE UPDATE":"A",Y="MANUAL UPDATE":"M",Y="STORE ONLY":"S",1:""),OK=1
66 Q
Note: See TracBrowser for help on using the repository browser.