source: FOIAVistA/trunk/r/NOIS-FSC/FSCLMPO.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: 2.7 KB
Line 
1FSCLMPO ;SLC/STAFF-NOIS List Manager Protocol Other ;11/9/97 11:44
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4USER ; from FSCLMP
5 N DA,DIC,DR,DIE,OK,SPEC,USER,Y K DIC
6 S OK=1
7 I '$$ACCESS^FSCU(DUZ,"SPEC") D Q:'OK
8 .N DIR,X,Y K DIR
9 .S DIR(0)="YA0",DIR("A")="Do you want to edit pacakage affiliations? ",DIR("B")="YES"
10 .S DIR("?",1)="Enter YES to enter or edit package affiliations."
11 .S DIR("?",2)="Enter NO to simply review user defaults."
12 .S DIR("?",3)="Enter '^' or '??' for more help."
13 .S DIR("?")="^D HELP^FSCU(.DIR)"
14 .S DIR("??")="FSC U1 NOIS"
15 .D ^DIR K DIR
16 .I Y'=1 Q
17 .D NONSPEC^FSCLMPOD(DUZ) S OK=0 Q
18 W ! S DIC=7105.2,DIC(0)="AEMQ",USER=$$VALUE^FSCGET($P($G(^FSC("SPEC",DUZ,0)),U),7105.2,.01) S:$L(USER) DIC("B")=USER D ^DIC
19 I Y<0 S OK=0
20 I OK D
21 .S (DA,SPEC)=+Y D EN^DIQ
22 .I '$$ACCESS^FSCU(DUZ,"SPEC") D PAUSE^FSCU(.OK) Q
23 .I '(SPEC=DUZ&$D(DIC("B"))!$$ACCESS^FSCU(DUZ,"SUPER")) D PAUSE^FSCU(.OK) Q
24 .W ! S DIE=DIC,DR=$S($$ACCESS^FSCU(DUZ,"SUPER"):".02:999",1:".02;3:6;8:999")
25 .L +^FSC("SPEC",SPEC):30 I '$T W !,"Unable to edit." Q
26 .D ^DIE
27 .L -^FSC("SPEC",SPEC)
28 K DIC
29 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
30 Q
31 ;
32EXIT ; from FSCLMP
33 S FSCEXIT=1,VALMBCK="Q"
34 Q
35 ;
36OTHER ; from FSCLMP
37 N ACTION,CALL,DIR,X,Y K DIR
38 S DIR(0)="SAMO^EDITS:EDITS;NOTIFICATION:NOTIFICATION;CONTACTS:CONTACTS;WORKLOAD:WORKLOAD"
39 S DIR("A")="Select (E)dits, (N)otification, (C)ontacts, or (W)orkload: "
40 S DIR("?",1)="Enter EDITS to review status history and audit trail."
41 S DIR("?",2)="Enter NOTIFICATION to review lists and automatic alerts."
42 S DIR("?",3)="Enter CONTACTS to review phone numbers."
43 S DIR("?",4)="Enter WORKLOAD to review workload entries."
44 S DIR("?")="^D HELP^FSCU(.DIR)"
45 S DIR("??")="FSC U1 NOIS"
46 D ^DIR K DIR
47 I $D(DIRUT) Q
48 S ACTION=Y
49 S CALL=$$CALL^FSCLMPE1(FSCCNT)
50 W !!,$$SHORT^FSCGETS(CALL," ")
51 I ACTION="EDITS" D EDITS^FSCLMPOE(CALL) Q
52 I ACTION="NOTIFICATION" D NOTIFY^FSCLMPON(CALL) Q
53 I ACTION="CONTACTS" D CONTACTS^FSCLMPOC(CALL) Q
54 I ACTION="WORKLOAD" D WKLD^FSCLMPOW(CALL) Q
55 Q
56 ;
57DL ; from FSCLMP
58 I $G(VALMAR)["FSC MODIFY LIST" W !,"You are already using this option.",$C(7) H 2 Q
59 I $G(VALMAR)["FSC INSTALLS" W !,"Unable to use this option from this screen.",$C(7) H 2 Q
60 N DIC,DLAYGO,DEFLIST,FSCQEDIT,OK,Y K DIC,Y
61 I $D(FSCLNAME),$D(FSCLNUM) S DEFLIST=FSCLNUM_U_$P(FSCLNAME," (MODIFIED)")
62 I '$D(FSCLNAME)!'$D(FSCLNUM)!'$D(DEFLIST)!'$D(^FSC("LIST",+$G(FSCLNUM),0)) D
63 .S (DIC,DLAYGO)=7107.1,DIC(0)="AELMOQ",DIC("A")="Select List: " S:$D(FSCLNAME)&($D(^FSC("LIST",+$G(FSCLNUM),0))) DIC("B")=FSCLNAME D ^DIC K DIC Q:Y<1
64 .S DEFLIST=Y,FSCLNAME=$P(Y,U,2),FSCLNUM=+Y
65 .I $P(DEFLIST,U,3) D BROWSE^FSCQB("",$P(DEFLIST,U,2),0,.OK)
66 I '$D(FSCLNAME) Q
67 I '$G(FSCLNUM) Q
68 I $D(DEFLIST) D MODIFY^FSCLM($P(DEFLIST,U,2),+DEFLIST)
69 I $D(FSCQEDIT) D ASKLIST^FSCLMPD
70 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
71 Q
Note: See TracBrowser for help on using the repository browser.