source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLM.m@ 1766

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

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1FSCLM ;SLC/STAFF-NOIS List Manager ;10/27/97 15:50
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LIST(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 ;
14MODIFY(FSCLNAME,FSCLNUM) ; from FSCLMPC, FSCLMPO
15 S VALMSG=""
16 D EN^VALM("FSC MODIFY LISTS")
17 Q
18 ;
19INSTALLS ; from FSCSTUR
20 S VALMSG=""
21 D EN^VALM("FSC INSTALLS")
22 Q
23 ;
24EDIT(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 ;
30VIEW(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 ;
36INDEX(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 ;
48PROTOHDR(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 ;
62NAV ; *** 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
Note: See TracBrowser for help on using the repository browser.