source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCFORMS.m@ 701

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1FSCFORMS ;SLC/STAFF-NOIS Format Statistic ;1/19/98 11:24
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4STAT ; from FSCFORM
5 N ABBREV,CABBREV,CCOUNT,CNUM,CNUMVAL,CNT,COUNT,CVALUE,FORMAT,LINE,NUM,NUMTOT,NUMVALUE,SECTION,TEXT,TOTAL,VALUE,VTYPE K FORMAT
6 S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) S FIELD(ABBREV)=""
7 D GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
8 I '$D(STYLE("COLLATE")) D
9 .S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) D
10 ..I '$G(^TMP("FSC STATS",$J,ABBREV)) S ^(ABBREV)=0
11 ..I $L($P($G(FIELD(ABBREV)),U,2)) S VALUE=$P(FIELD(ABBREV),U,2) D
12 ...S $P(^(ABBREV),U)=+^TMP("FSC STATS",$J,ABBREV)+1
13 ...I '$G(^TMP("FSC STATS",$J,ABBREV,VALUE)) S ^(VALUE)=0
14 ...S ^(VALUE)=^TMP("FSC STATS",$J,ABBREV,VALUE)+1
15 I $D(STYLE("COLLATE")) D
16 .S CABBREV=$P(STYLE(STYLE("COLLATE")),U,7) I '$L(CABBREV) Q
17 .I $L($P($G(FIELD(CABBREV)),U,2)) S CVALUE=$P(FIELD(CABBREV),U,2) D
18 ..S ^(CABBREV)=$G(^TMP("FSC STATS",$J,CABBREV))+1
19 ..S ^(CVALUE)=$G(^TMP("FSC STATS",$J,CABBREV,CVALUE))+1
20 ..S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 I CNT'=STYLE("COLLATE") S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) D
21 ...I '$G(^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV)) S ^(ABBREV)=0
22 ...I $L($P($G(FIELD(ABBREV)),U,2)) S VALUE=$P(FIELD(ABBREV),U,2) D
23 ....S $P(^(ABBREV),U)=+^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV)+1
24 ....S ^(VALUE)=$G(^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV,VALUE))+1
25 I TYPE'["VIEW"!('$O(^TMP("FSC SELECT",$J,$S(TYPE["VIEW":"VVALUES",1:"EVALUES"),LISTNUM))) D STAT^FSCFORMX
26 Q
Note: See TracBrowser for help on using the repository browser.