| [613] | 1 | FSCELL ;SLC/STAFF-NOIS Edit Log List ;4/22/94 10:39
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LIST(CALL) ; from FSCED, FSCEL
|
|---|
| 5 | N LASTCNT,LISTCNT
|
|---|
| 6 | I '$D(^TMP("FSC LIST CALLS",$J)) Q
|
|---|
| 7 | I '$D(VALMAR) Q
|
|---|
| 8 | I '$D(FSCLNAME) S FSCLNAME=""
|
|---|
| 9 | S LISTCNT=+$P(^TMP("FSC LIST CALLS",$J),U,2)
|
|---|
| 10 | I '$D(^TMP("FSC LIST CALLS",$J,"CX",CALL)) D
|
|---|
| 11 | .D SETUP^FSCLMPQU(.LISTCNT,CALL)
|
|---|
| 12 | .D COUNT^FSCLMPQU(LISTCNT)
|
|---|
| 13 | S FSCCNT=+^TMP("FSC LIST CALLS",$J)
|
|---|
| 14 | I VALMAR="^TMP(""FSC LIST CALLS"",$J)" D Q
|
|---|
| 15 | .S VALMCNT=+$P(^TMP("FSC LIST CALLS",$J),U,2)
|
|---|
| 16 | .S ^TMP("FSC LIST CALLS",$J,VALMCNT,0)=$$SHORT^FSCGETS(CALL,FSCCNT)
|
|---|
| 17 | .I FSCCNT=1 K ^TMP("FSC LIST CALLS",$J,2)
|
|---|
| 18 | I $D(^TMP("FSC SELECT",$J,"VVALUES")) D
|
|---|
| 19 | .I '$D(^TMP("FSC SELECT",$J,"VVALUES",FSCCNT)) S ^("VVALUES")=^TMP("FSC SELECT",$J,"VVALUES")_","_FSCCNT,^("VVALUES",FSCCNT)=""
|
|---|
| 20 | .I '$D(^TMP("FSC SELECT",$J,"EVALUES")) S LASTCNT=+$P(@VALMAR,U,2)
|
|---|
| 21 | I $G(FSCCALLS)="EVALUES" D
|
|---|
| 22 | .I '$D(^TMP("FSC SELECT",$J,"EVALUES",FSCCNT)) S ^("EVALUES")=^TMP("FSC SELECT",$J,"EVALUES")_","_FSCCNT,^("EVALUES",FSCCNT)=""
|
|---|
| 23 | .S VALMCAP=$$CAP^FSCU("E",.FSCSTYLE,FSCCNT)
|
|---|
| 24 | .S ^TMP("FSC MULT",$J,FSCCNT)=CALL
|
|---|
| 25 | .D BUILD^FSCEU(CALL)
|
|---|
| 26 | I $D(^TMP("FSC SELECT",$J,"VVALUES")),'$D(^TMP("FSC SELECT",$J,"EVALUES")) D
|
|---|
| 27 | .S VALMBG=LASTCNT+1
|
|---|
| 28 | .D ENTRY^FSCLMV,HEADER^FSCLMV
|
|---|
| 29 | Q
|
|---|
