source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPOD.m@ 1351

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1FSCLMPOD ;SLC/STAFF-NOIS List Manager Protocol Other Defaults ;1/13/98 13:01
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NONSPEC(USER) ; from FSCLMPO
5 N DA,DIC,DR,DIE,OK,SPEC,Y K DIC
6 S OK=1
7 I '$D(^FSC("SPEC",USER,0)) D Q
8 .W !
9 .W !,"You currently have no package affiliations."
10 .W !,"By affiliating with a package, you will automatically receive alerts"
11 .W !,"whenever a call for that package is edited."
12 .W !,"You may affiliate with multiple packages."
13 .W !,"You can use User Defaults to edit, delete, or add packages."
14 .W !
15 .N DIR,X,Y K DIR
16 .S DIR(0)="YA0",DIR("A")="Do you want to set up package affiliations? ",DIR("B")="YES"
17 .S DIR("?",1)="Enter YES to set up package affiliations."
18 .S DIR("?",2)="Enter NO to exit."
19 .S DIR("?",3)="Enter '^' or '??' for more help."
20 .S DIR("?")="^D HELP^FSCU(.DIR)"
21 .S DIR("??")="FSC U1 NOIS"
22 .D ^DIR K DIR
23 .I Y'=1 Q
24 .D SETUP(USER,.OK) I 'OK D UNABLE
25 W ! S (DIC,DIE)="^FSC(""SPEC"","
26 S (DA,SPEC)=+DUZ D EN^DIQ
27 I '$O(^FSC("SPEC",USER,30,0)) W !,"You are currently not affiliated with any packages."
28 W ! S DR="30"
29 L +^FSC("SPEC",SPEC):30 I '$T D UNABLE Q
30 D ^DIE
31 L -^FSC("SPEC",SPEC)
32 K DIC
33 S VALMBCK=$S($G(FSCEXIT):"Q",1:"R")
34 Q
35 ;
36SETUP(USER,OK) ;
37 N DA,DIE,DR
38 L +^FSC("SPEC",0):30 I '$T S OK=0 Q
39 S $P(^FSC("SPEC",0),U,3)=USER,$P(^(0),U,4)=$P(^(0),U,4)+1
40 S ^FSC("SPEC",USER,0)=USER,^FSC("SPEC","B",USER,USER)=""
41 L -^FSC("SPEC",0)
42 S DA=USER,DIE=7105.2,DR="1///1;10.1///ALERT;10.2///EDITED;10.3///ALL;30"
43 L +^FSC("SPEC",USER):30 I '$T S OK=0 Q
44 D ^DIE
45 L -^FSC("SPEC",USER)
46 Q
47 ;
48UNABLE ;
49 W !,"Unable to edit.",$C(7) H 2
50 Q
Note: See TracBrowser for help on using the repository browser.