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 ---[H[J[2J[HFSCELL 1271 printed Dec 13, 2024@02:17:35 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
