FSCELL.m

FSCELL ;SLC/STAFF-NOIS Edit Log List ;4/22/94  10:39

 ;;1.1;NOIS;;Sep 06, 1998

 ;

LIST(CALL) ; from FSCED, FSCEL

 N LASTCNT,LISTCNT

 I '$D(^TMP("FSC LIST CALLS",$J)) Q

 I '$D(VALMAR) Q

 I '$D(FSCLNAME) S FSCLNAME=""

 S LISTCNT=+$P(^TMP("FSC LIST CALLS",$J),U,2)

 I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D

 .D SETUP^FSCLMPQU(.LISTCNT,CALL)

 .D COUNT^FSCLMPQU(LISTCNT)

 S FSCCNT=+^TMP("FSC LIST CALLS",$J)

 I VALMAR="^TMP(""FSC LIST CALLS"",$J)" D  Q

 .S VALMCNT=+$P(^TMP("FSC LIST CALLS",$J),U,2)

 .S ^TMP("FSC LIST CALLS",$J,VALMCNT,0)=$$SHORT^FSCGETS(CALL,FSCCNT)

 .I FSCCNT=1 K ^TMP("FSC LIST CALLS",$J,2)

 I $D(^TMP("FSC SELECT",$J,"VVALUES")) D

 .I '$D(^TMP("FSC SELECT",$J,"VVALUES",FSCCNT)) S ^("VVALUES")=^TMP("FSC SELECT",$J,"VVALUES")_","_FSCCNT,^("VVALUES",FSCCNT)=""

 .I '$D(^TMP("FSC SELECT",$J,"EVALUES")) S LASTCNT=+$P(@VALMAR,U,2)

 I $G(FSCCALLS)="EVALUES" D

 .I '$D(^TMP("FSC SELECT",$J,"EVALUES",FSCCNT)) S ^("EVALUES")=^TMP("FSC SELECT",$J,"EVALUES")_","_FSCCNT,^("EVALUES",FSCCNT)=""

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

 .S ^TMP("FSC MULT",$J,FSCCNT)=CALL

 .D BUILD^FSCEU(CALL)

 I $D(^TMP("FSC SELECT",$J,"VVALUES")),'$D(^TMP("FSC SELECT",$J,"EVALUES")) D

 .S VALMBG=LASTCNT+1

 .D ENTRY^FSCLMV,HEADER^FSCLMV

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCELL   1271     printed  Apr 09, 2024@21:21:33                                                                                                                                                                                                      Page 2

FSCELL    ;SLC/STAFF-NOIS Edit Log List ;4/22/94  10:39

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

 +2       ;

LIST(CALL) ; from FSCED, FSCEL

 +1        NEW LASTCNT,LISTCNT

 +2        IF '$DATA(^TMP("FSC LIST CALLS",$JOB))

               QUIT 

 +3        IF '$DATA(VALMAR)

               QUIT 

 +4        IF '$DATA(FSCLNAME)

               SET FSCLNAME=""

 +5        SET LISTCNT=+$PIECE(^TMP("FSC LIST CALLS",$JOB),U,2)

 +6        IF '$DATA(^TMP("FSC LIST CALLS",$JOB,"CX",CALL))

               Begin DoDot:1

 +7                DO SETUP^FSCLMPQU(.LISTCNT,CALL)

 +8                DO COUNT^FSCLMPQU(LISTCNT)

               End DoDot:1

 +9        SET FSCCNT=+^TMP("FSC LIST CALLS",$JOB)

 +10       IF VALMAR="^TMP(""FSC LIST CALLS"",$J)"

               Begin DoDot:1

 +11               SET VALMCNT=+$PIECE(^TMP("FSC LIST CALLS",$JOB),U,2)

 +12               SET ^TMP("FSC LIST CALLS",$JOB,VALMCNT,0)=$$SHORT^FSCGETS(CALL,FSCCNT)

 +13               IF FSCCNT=1

                       KILL ^TMP("FSC LIST CALLS",$JOB,2)

               End DoDot:1

               QUIT 

 +14       IF $DATA(^TMP("FSC SELECT",$JOB,"VVALUES"))

               Begin DoDot:1

 +15               IF '$DATA(^TMP("FSC SELECT",$JOB,"VVALUES",FSCCNT))

                       SET ^("VVALUES")=^TMP("FSC SELECT",$JOB,"VVALUES")_","_FSCCNT

                       SET ^("VVALUES",FSCCNT)=""

 +16               IF '$DATA(^TMP("FSC SELECT",$JOB,"EVALUES"))

                       SET LASTCNT=+$PIECE(@VALMAR,U,2)

               End DoDot:1

 +17       IF $GET(FSCCALLS)="EVALUES"

               Begin DoDot:1

 +18               IF '$DATA(^TMP("FSC SELECT",$JOB,"EVALUES",FSCCNT))

                       SET ^("EVALUES")=^TMP("FSC SELECT",$JOB,"EVALUES")_","_FSCCNT

                       SET ^("EVALUES",FSCCNT)=""

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

 +20               SET ^TMP("FSC MULT",$JOB,FSCCNT)=CALL

 +21               DO BUILD^FSCEU(CALL)

               End DoDot:1

 +22       IF $DATA(^TMP("FSC SELECT",$JOB,"VVALUES"))

               IF '$DATA(^TMP("FSC SELECT",$JOB,"EVALUES"))

                   Begin DoDot:1

 +23                   SET VALMBG=LASTCNT+1

 +24                   DO ENTRY^FSCLMV

                       DO HEADER^FSCLMV

                   End DoDot:1

 +25       QUIT