Routine: FSCLME

FSCLME ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98  22:03

 ;;1.1;NOIS;;Sep 06, 1998

ENTRY ; from list template - entry code

 N CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE

 D KILLTMP

 I '$G(FSCDEV) W "."

 S FSCSTYLE=$$EFORMAT^FSCUF(DUZ)

 S VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))" ;*** use current value or user default??

 S VALMCNT=0

 S (LISTCNT,LISTNUM)=0 F  S LISTNUM=$O(^TMP("FSC SELECT",$J,FSCCALLS,LISTNUM)) Q:LISTNUM<1  D

 .S LISTCNT=LISTCNT+1

 .S CALLLINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",LISTNUM,0))

 .S CALLNUM=+$O(^TMP("FSC LIST CALLS",$J,"ICX",CALLLINE,0))

 .S REFLINE=^TMP("FSC LIST CALLS",$J,CALLLINE,0)

 .S ^TMP("FSC MULT",$J,LISTNUM)=CALLNUM_U_REFLINE

 .I LISTCNT=1 S LASTLINE=0 D BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ") S FSCCNT=LISTNUM

 S STYLE="FSC MULT "_FSCSTYLE

 S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)

 S VALMCNT=+$P(^TMP(STYLE,$J,FSCCNT),U,2),VALMHDR(1)=$P(^TMP("FSC MULT",$J,FSCCNT),U,2,99)

 I '$O(^TMP("FSC MULT",$J,0)) S FSCCNT=1,@VALMAR@(1,0)=" ",@VALMAR@(2,0)="    No calls meet criteria.",VALMCNT=2

HEADER ; from list template - header code

 S VALMHDR(1)=""

EXIT ; from list template - exit code

 I $G(FSC1) D CLEAR^VALM1

 D KILLTMP

 K ^TMP("FSC SELECT",$J,"EVALUES")

KILLTMP ;

 K ^TMP("FSC MULT",$J)

 K ^TMP("FSC MULT BRIEF",$J)

 K ^TMP("FSC MULT DETAIL",$J)

 K ^TMP("FSC MULT FORMAT",$J)

 K ^TMP("FSC MULT STAT",$J)

 K ^TMP("FSC MULT CUSTOM",$J)

 K ^TMP("FSC TEXT",$J)

HELP ; from list template - help code

 I $G(X)'["?" Q

 S VALMBCK="R"

 N XQH

 I X="?" S XQH="FSC MENU EDIT" 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[HFSCLME   1716     printed  Apr 09, 2024@21:21:44                                                                                                                                                                                                      Page 2

FSCLME    ;SLC/STAFF-NOIS List Manager - Edit ;1/13/98  22:03

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

ENTRY     ; from list template - entry code

 +1        NEW CALLNUM,CALLLINE,REFLINE,LASTLINE,LISTCNT,LISTNUM,STYLE

 +2        DO KILLTMP

 +3        IF '$GET(FSCDEV)

               WRITE "."

 +4        SET FSCSTYLE=$$EFORMAT^FSCUF(DUZ)

 +5       ;*** use current value or user default??

           SET VALMAR="^TMP(""FSC MULT "_FSCSTYLE_""",$J,+$G(FSCCNT))"

 +6        SET VALMCNT=0

 +7        SET (LISTCNT,LISTNUM)=0

FOR

               SET LISTNUM=$ORDER(^TMP("FSC SELECT",$JOB,FSCCALLS,LISTNUM))

               if LISTNUM<1

                   QUIT

               Begin DoDot:1

 +8                SET LISTCNT=LISTCNT+1

 +9                SET CALLLINE=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"IDX",LISTNUM,0))

 +10               SET CALLNUM=+$ORDER(^TMP("FSC LIST CALLS",$JOB,"ICX",CALLLINE,0))

 +11               SET REFLINE=^TMP("FSC LIST CALLS",$JOB,CALLLINE,0)

 +12               SET ^TMP("FSC MULT",$JOB,LISTNUM)=CALLNUM_U_REFLINE

 +13               IF LISTCNT=1

                       SET LASTLINE=0

                       DO BUILD^FSCFORM(LISTNUM,CALLNUM,.FSCSTYLE,0,"FSC MULT ")

                       SET FSCCNT=LISTNUM

               End DoDot:1

 +14       SET STYLE="FSC MULT "_FSCSTYLE

 +15       SET VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)

 +16       SET VALMCNT=+$PIECE(^TMP(STYLE,$JOB,FSCCNT),U,2)

           SET VALMHDR(1)=$PIECE(^TMP("FSC MULT",$JOB,FSCCNT),U,2,99)

 +17       IF '$ORDER(^TMP("FSC MULT",$JOB,0))

               SET FSCCNT=1

               SET @VALMAR@(1,0)=" "

               SET @VALMAR@(2,0)="    No calls meet criteria."

               SET VALMCNT=2

 +18       QUIT

 +19      ;

HEADER    ; from list template - header code

 +1        SET VALMHDR(1)=""

 +2        QUIT

 +3       ;

EXIT      ; from list template - exit code

 +1        IF $GET(FSC1)

               DO CLEAR^VALM1

 +2        DO KILLTMP

 +3        KILL ^TMP("FSC SELECT",$JOB,"EVALUES")

 +4        QUIT

 +5       ;

KILLTMP   ;

 +1        KILL ^TMP("FSC MULT",$JOB)

 +2        KILL ^TMP("FSC MULT BRIEF",$JOB)

 +3        KILL ^TMP("FSC MULT DETAIL",$JOB)

 +4        KILL ^TMP("FSC MULT FORMAT",$JOB)

 +5        KILL ^TMP("FSC MULT STAT",$JOB)

 +6        KILL ^TMP("FSC MULT CUSTOM",$JOB)

 +7        KILL ^TMP("FSC TEXT",$JOB)

 +8        QUIT

 +9       ;

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 EDIT"

               DO EN^XQH

               QUIT

 +5        IF X="???"

               SET VALMANS="?"

               DO CLEAR^VALM1

               SET XQH="FSC U1 NOIS"

               DO EN^XQH

               QUIT

 +6        QUIT

FSCLME.m