Routine: FSCLMM

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)

HEADER ; from list template - header code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS

 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

EXIT ; from list template - exit code

 I $G(FSC1) D CLEAR^VALM1

 K ^TMP("FSC MODIFY LISTS",$J)

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMM   2272     printed  Apr 09, 2024@21:22:56                                                                                                                                                                                                      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      ;

HEADER    ; from list template - header code, FSCLDR, FSCLDS, FSCLMPMS, FSCLMPS

 +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

FSCLMM.m