| 1 | FSCLM ;SLC/STAFF-NOIS List Manager ;10/27/97 15:50
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LIST(FSCLNAME,FSCINDX) ; from FSCOPT
|
|---|
| 5 | N FSCL0,FSCLNUM
|
|---|
| 6 | S FSCLNUM=+$O(^FSC("LIST","B",FSCLNAME,0))
|
|---|
| 7 | S FSCL0=$G(^FSC("LIST",FSCLNUM,0))
|
|---|
| 8 | I $P(FSCL0,U,5) D INDEX(.FSCLNAME,.FSCINDX,FSCL0) Q:'$G(FSCINDX)
|
|---|
| 9 | D MRU^FSCMR(DUZ,FSCLNUM,+$G(FSCINDX))
|
|---|
| 10 | S VALMSG=""
|
|---|
| 11 | D EN^VALM("FSC LIST CALLS")
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | MODIFY(FSCLNAME,FSCLNUM) ; from FSCLMPC, FSCLMPO
|
|---|
| 15 | S VALMSG=""
|
|---|
| 16 | D EN^VALM("FSC MODIFY LISTS")
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | INSTALLS ; from FSCSTUR
|
|---|
| 20 | S VALMSG=""
|
|---|
| 21 | D EN^VALM("FSC INSTALLS")
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | EDIT(FSCCALLS) ; from FSCLMPE, FSCOPT
|
|---|
| 25 | I $O(^TMP("FSC SELECT",$J,FSCCALLS,+$O(^TMP("FSC SELECT",$J,FSCCALLS,0)))) D EN^VALM("FSC EDIT MULTIPLE CALLS") Q
|
|---|
| 26 | S VALMSG=""
|
|---|
| 27 | D EN^VALM("FSC EDIT SINGLE CALL")
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | VIEW(LISTREF,LISTSEL,FSCFMT) ; from FSCLMPD, FSCOPT, FSCRPTS
|
|---|
| 31 | ; LIST = list #^list name
|
|---|
| 32 | S VALMSG=""
|
|---|
| 33 | D EN^VALM("FSC VIEW CALLS")
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | INDEX(FSCLNAME,FSCINDX,FSCL0) ; from FSCLMPC, FSCRPTS
|
|---|
| 37 | N DIC,FIELD0,X,Y K DIC
|
|---|
| 38 | I '$G(FSCINDX) D Q
|
|---|
| 39 | .S FIELD0=$G(^FSC("FLD",$P(FSCL0,U,5),0)),DIC=+$P($P(FIELD0,U,3),"P",2) I 'DIC Q
|
|---|
| 40 | .S DIC(0)="AEMOQ",DIC("A")=" Select "_$P(FIELD0,U,2)_": "
|
|---|
| 41 | .I $E(FSCLNAME,1,4)="MRE:"!($E(FSCLNAME,1,4)="MRA:") S DIC("A")=" Select User: ",DIC("B")=DUZ
|
|---|
| 42 | .F D ^DIC Q:Y'<1 Q:$D(DTOUT) Q:$D(DUOUT) W " You must make an entry or '^' to exit.",$C(7)
|
|---|
| 43 | .K DIC Q:$D(DTOUT) Q:$D(DUOUT)
|
|---|
| 44 | .S FSCINDX=+Y,FSCLNAME=FSCLNAME_" "_$S($P(Y,U,2)'=+$P(Y,U,2):$P(Y,U,2),1:$$VALUE^FSCGET($P(Y,U,2),+$P($P(FIELD0,U,3),"P",2),.01))
|
|---|
| 45 | S FSCLNAME=FSCLNAME_" "_$P(FSCINDX,U,2),FSCINDX=+FSCINDX
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | PROTOHDR(SCREEN) ; from protocol header action on protocol menus
|
|---|
| 49 | S XQORM("KEY","PAGE")=+$O(^ORD(101,"B","VALM GOTO PAGE",0))_"^1"
|
|---|
| 50 | S (XQORM("KEY","SEARCH"),XQORM("KEY","ST"),XQORM("KEY","TEXT"))=+$O(^ORD(101,"B","VALM SEARCH LIST",0))_"^1"
|
|---|
| 51 | S XQORM("KEY","QUI")=+$O(^ORD(101,"B","VALM QUIT",0))_"^1"
|
|---|
| 52 | S XQORM("KEY","PG")=+$O(^ORD(101,"B","VALM GOTO PAGE",0))_"^1"
|
|---|
| 53 | S XQORM("KEY","EXIT")=+$O(^ORD(101,"B","FSC HIDDEN EXIT",0))_"^1"
|
|---|
| 54 | S XQORM("KEY","EX")=+$O(^ORD(101,"B","FSC HIDDEN EXIT",0))_"^1"
|
|---|
| 55 | I SCREEN="LIST" D
|
|---|
| 56 | .I XQORM("B")="View",VALMBG+15'>VALMCNT S XQORM("B")="Next Screen"
|
|---|
| 57 | I SCREEN="EDIT" D
|
|---|
| 58 | .I $O(^TMP("FSC MULT",$J,FSCCNT)),VALMBG+15>VALMCNT S XQORM("B")="Next Call"
|
|---|
| 59 | I XQORM("B")="Quit",$$EXIT^FSCUF(DUZ) S XQORM("B")="Exit"
|
|---|
| 60 | Q
|
|---|
| 61 | ;
|
|---|
| 62 | NAV ; *** temporary call to reset hidden menu protocols, needs to be removed
|
|---|
| 63 | S X=+$O(^ORD(101,"B","FSC MENU HIDDEN ACTIONS",0)) I X S X=X_";ORD(101," D EN^XQOR
|
|---|
| 64 | Q
|
|---|
