FSCLMM ;SLC/STAFF-NOIS List Manager - Modify ;1/13/98 12:38
;;1.1;NOIS;;Sep 06, 1998
;
ENTRY ; from list template - entry code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS
N LINE,QUERY K QUERY
K ^TMP("FSC MODIFY LISTS",$J)
I '$G(FSCDEV) W !
S VALMCNT=0,VALMCAP="",$P(VALMCAP," ",80)=""
S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)="Description:"
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)
I '$O(^FSC("LIST",FSCLNUM,3,0)) Q
S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=" "
S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)="Query Description:"
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)
S VALMCNT=VALMCNT+1,^TMP("FSC MODIFY LISTS",$J,VALMCNT,0)=" "
D QUERY^FSCGETQ(FSCLNUM,.QUERY)
D FORM^FSCGETQ(FSCLNUM,VALMAR,.VALMCNT)
Q
;
I '$D(^FSC("LIST",FSCLNUM,0)) Q
N EVENT,INDEX,INDEXFLD,METHOD,OWNER,REBUILD,TYPE
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)
I REBUILD="" S REBUILD="WEEKLY"
S OWNER="Owner: "_$S(OWNER:$$VALUE^FSCGET(OWNER,7107.1,1),1:"PUBLIC")
S TYPE="Type: "_$S(TYPE="A":"ACTIVE UPDATE",TYPE="M":"MANUAL UPDATE",TYPE="S":"STORAGE ONLY",TYPE="I":"INDEXED",1:"")
I TYPE["ACTIVE UPDATE" S TYPE=TYPE_" (Rebuild: "_REBUILD_")"
I $L(INDEX) S TYPE=TYPE_" (using "_INDEX_" index)"
I $L(INDEXFLD) S INDEXFLD="Requires entering a "_$$VALUE^FSCGET(INDEXFLD,7107.1,4)_"."
S VALMHDR(1)="List: "_FSCLNAME
S VALMHDR(2)=$$SETSTR^VALM1(OWNER,TYPE,40,$L(OWNER))
I $L(METHOD)!$L(EVENT) S VALMHDR(3)=$$SETSTR^VALM1("Notify Event: "_EVENT,"Notify Method: "_METHOD,40,$L("Notify Event: "_EVENT)) Q
S VALMHDR(3)=INDEXFLD
Q
;
EXIT ; from list template - exit code
I $G(FSC1) D CLEAR^VALM1
K ^TMP("FSC MODIFY LISTS",$J)
Q
;
HELP ; from list template - help code
I $G(X)'["?" Q
S VALMBCK="R"
N XQH
I X="?" S XQH="FSC MENU MODIFY" D EN^XQH Q
I X="???" S VALMANS="?" D CLEAR^VALM1 S XQH="FSC U1 NOIS" D EN^XQH Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMM 2272 printed Nov 22, 2024@17:28:09 Page 2
FSCLMM ;SLC/STAFF-NOIS List Manager - Modify ;1/13/98 12:38
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
ENTRY ; from list template - entry code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS
+1 NEW LINE,QUERY
KILL QUERY
+2 KILL ^TMP("FSC MODIFY LISTS",$JOB)
+3 IF '$GET(FSCDEV)
WRITE !
+4 SET VALMCNT=0
SET VALMCAP=""
SET $PIECE(VALMCAP," ",80)=""
+5 SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)="Description:"
+6 SET LINE=0
FOR
SET LINE=$ORDER(^FSC("LIST",FSCLNUM,2,LINE))
if LINE<1
QUIT
SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)=^(LINE,0)
+7 IF '$ORDER(^FSC("LIST",FSCLNUM,3,0))
QUIT
+8 SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)=" "
+9 SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)="Query Description:"
+10 SET LINE=0
FOR
SET LINE=$ORDER(^FSC("LIST",FSCLNUM,3,LINE))
if LINE<1
QUIT
SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)=^(LINE,0)
+11 SET VALMCNT=VALMCNT+1
SET ^TMP("FSC MODIFY LISTS",$JOB,VALMCNT,0)=" "
+12 DO QUERY^FSCGETQ(FSCLNUM,.QUERY)
+13 DO FORM^FSCGETQ(FSCLNUM,VALMAR,.VALMCNT)
+14 QUIT
+15 ;
+1 IF '$DATA(^FSC("LIST",FSCLNUM,0))
QUIT
+2 NEW EVENT,INDEX,INDEXFLD,METHOD,OWNER,REBUILD,TYPE
+3 SET OWNER=$PIECE(^FSC("LIST",FSCLNUM,0),U,2)
SET TYPE=$PIECE(^(0),U,3)
SET INDEX=$PIECE(^(0),U,4)
SET INDEXFLD=$PIECE(^(0),U,5)
SET METHOD=$PIECE(^(0),U,6)
SET EVENT=$PIECE(^(0),U,7)
SET REBUILD=$PIECE(^(0),U,10)
+4 IF REBUILD=""
SET REBUILD="WEEKLY"
+5 SET OWNER="Owner: "_$SELECT(OWNER:$$VALUE^FSCGET(OWNER,7107.1,1),1:"PUBLIC")
+6 SET TYPE="Type: "_$SELECT(TYPE="A":"ACTIVE UPDATE",TYPE="M":"MANUAL UPDATE",TYPE="S":"STORAGE ONLY",TYPE="I":"INDEXED",1:"")
+7 IF TYPE["ACTIVE UPDATE"
SET TYPE=TYPE_" (Rebuild: "_REBUILD_")"
+8 IF $LENGTH(INDEX)
SET TYPE=TYPE_" (using "_INDEX_" index)"
+9 IF $LENGTH(INDEXFLD)
SET INDEXFLD="Requires entering a "_$$VALUE^FSCGET(INDEXFLD,7107.1,4)_"."
+10 SET VALMHDR(1)="List: "_FSCLNAME
+11 SET VALMHDR(2)=$$SETSTR^VALM1(OWNER,TYPE,40,$LENGTH(OWNER))
+12 IF $LENGTH(METHOD)!$LENGTH(EVENT)
SET VALMHDR(3)=$$SETSTR^VALM1("Notify Event: "_EVENT,"Notify Method: "_METHOD,40,$LENGTH("Notify Event: "_EVENT))
QUIT
+13 SET VALMHDR(3)=INDEXFLD
+14 QUIT
+15 ;
EXIT ; from list template - exit code
+1 IF $GET(FSC1)
DO CLEAR^VALM1
+2 KILL ^TMP("FSC MODIFY LISTS",$JOB)
+3 QUIT
+4 ;
HELP ; from list template - help code
+1 IF $GET(X)'["?"
QUIT
+2 SET VALMBCK="R"
+3 NEW XQH
+4 IF X="?"
SET XQH="FSC MENU MODIFY"
DO EN^XQH
QUIT
+5 IF X="???"
SET VALMANS="?"
DO CLEAR^VALM1
SET XQH="FSC U1 NOIS"
DO EN^XQH
QUIT
+6 QUIT
