| 1 | FSCLMPO ;SLC/STAFF-NOIS List Manager Protocol Other ;11/9/97 11:44
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | USER ; 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 | ;
|
|---|
| 32 | EXIT ; from FSCLMP
|
|---|
| 33 | S FSCEXIT=1,VALMBCK="Q"
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | OTHER ; 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 | ;
|
|---|
| 57 | DL ; 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
|
|---|
