| 1 | FSCLMM ;SLC/STAFF-NOIS List Manager - Modify ;1/13/98 12:38
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ENTRY ; 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 | ;
|
|---|
| 20 | HEADER ; 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 | ;
|
|---|
| 36 | EXIT ; from list template - exit code
|
|---|
| 37 | I $G(FSC1) D CLEAR^VALM1
|
|---|
| 38 | K ^TMP("FSC MODIFY LISTS",$J)
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | HELP ; 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
|
|---|
