source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMM.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.2 KB
Line 
1FSCLMM ;SLC/STAFF-NOIS List Manager - Modify ;1/13/98 12:38
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ENTRY ; from list template - entry code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS
5 N LINE,QUERY K QUERY
6 K ^TMP("FSC MODIFY LISTS",$J)
7 I '$G(FSCDEV) W !
8 S VALMCNT=0,VALMCAP="",$P(VALMCAP," ",80)=""
9 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)="Description:"
10 S LINE=0 F S LINE=$O(^FSC("LIST",FSCLNUM,2,LINE)) Q:LINE<1 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=^(LINE,0)
11 I '$O(^FSC("LIST",FSCLNUM,3,0)) Q
12 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=" "
13 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)="Query Description:"
14 S LINE=0 F S LINE=$O(^FSC("LIST",FSCLNUM,3,LINE)) Q:LINE<1 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=^(LINE,0)
15 S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=" "
16 D QUERY^FSCGETQ(FSCLNUM,.QUERY)
17 D FORM^FSCGETQ(FSCLNUM,VALMAR,.VALMCNT)
18 Q
19 ;
20HEADER ; from list template - header code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS
21 I '$D(^FSC("LIST",FSCLNUM,0)) Q
22 N EVENT,INDEX,INDEXFLD,METHOD,OWNER,REBUILD,TYPE
23 S OWNER=$P(^FSC("LIST",FSCLNUM,0),U,2),TYPE=$P(^(0),U,3),INDEX=$P(^(0),U,4),INDEXFLD=$P(^(0),U,5),METHOD=$P(^(0),U,6),EVENT=$P(^(0),U,7),REBUILD=$P(^(0),U,10)
24 I REBUILD="" S REBUILD="WEEKLY"
25 S OWNER="Owner: "_$S(OWNER:$$VALUE^FSCGET(OWNER,7107.1,1),1:"PUBLIC")
26 S TYPE="Type: "_$S(TYPE="A":"ACTIVE UPDATE",TYPE="M":"MANUAL UPDATE",TYPE="S":"STORAGE ONLY",TYPE="I":"INDEXED",1:"")
27 I TYPE["ACTIVE UPDATE" S TYPE=TYPE_" (Rebuild: "_REBUILD_")"
28 I $L(INDEX) S TYPE=TYPE_" (using "_INDEX_" index)"
29 I $L(INDEXFLD) S INDEXFLD="Requires entering a "_$$VALUE^FSCGET(INDEXFLD,7107.1,4)_"."
30 S VALMHDR(1)="List: "_FSCLNAME
31 S VALMHDR(2)=$$SETSTR^VALM1(OWNER,TYPE,40,$L(OWNER))
32 I $L(METHOD)!$L(EVENT) S VALMHDR(3)=$$SETSTR^VALM1("Notify Event: "_EVENT,"Notify Method: "_METHOD,40,$L("Notify Event: "_EVENT)) Q
33 S VALMHDR(3)=INDEXFLD
34 Q
35 ;
36EXIT ; from list template - exit code
37 I $G(FSC1) D CLEAR^VALM1
38 K ^TMP("FSC MODIFY LISTS",$J)
39 Q
40 ;
41HELP ; from list template - help code
42 I $G(X)'["?" Q
43 S VALMBCK="R"
44 N XQH
45 I X="?" S XQH="FSC MENU MODIFY" D EN^XQH Q
46 I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
47 Q
Note: See TracBrowser for help on using the repository browser.