source: FOIAVistA/trunk/r/NOIS-FSC/FSCELL.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1FSCELL ;SLC/STAFF-NOIS Edit Log List ;4/22/94 10:39
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4LIST(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
Note: See TracBrowser for help on using the repository browser.