| 1 | FSCFORMX ;SLC/STAFF-NOIS Format Statistic - Display ;8/25/94 09:06
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | STAT ; from FSCFORMS
|
|---|
| 5 | K ^TMP("FSC STAT FORMAT",$J)
|
|---|
| 6 | S SECTION=1,VTYPE=$S(TYPE["VIEW":"VVALUES",1:"EVALUES")
|
|---|
| 7 | S (CNT,TOTAL)=0 F S CNT=$O(^TMP("FSC SELECT",$J,VTYPE,CNT)) Q:CNT<1 S TOTAL=TOTAL+1
|
|---|
| 8 | I '$D(STYLE("COLLATE")) D
|
|---|
| 9 | .S (CNT,LINE)=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) D
|
|---|
| 10 | ..S NUMVALUE=$S($P(STYLE(CNT),U,3)="N":1,1:0)
|
|---|
| 11 | ..S LINE=LINE+1
|
|---|
| 12 | ..S COUNT=+$G(^TMP("FSC STATS",$J,ABBREV))
|
|---|
| 13 | ..S LINE=LINE+1,TEXT=$J($P(STYLE(CNT),U,2)_": ",14)_$J(+COUNT,5) ;_$J(COUNT/TOTAL*100\1_"%",8)
|
|---|
| 14 | ..I COUNT,NUMVALUE D
|
|---|
| 15 | ...S NUMTOT=0,NUM="" F S NUM=$O(^TMP("FSC STATS",$J,ABBREV,NUM)) Q:NUM="" S NUMTOT=NUMTOT+(NUM*^(NUM))
|
|---|
| 16 | ...S TEXT=TEXT_" Total: "_NUMTOT_" Ave: "_$J(NUMTOT/COUNT,0,1)
|
|---|
| 17 | ..D SETTEXT^FSCFORMY(SECTION,LINE,2,TEXT)
|
|---|
| 18 | ..S VALUE="" F S VALUE=$O(^TMP("FSC STATS",$J,ABBREV,VALUE)) Q:VALUE="" S NUM=+^(VALUE) D
|
|---|
| 19 | ...S LINE=LINE+1,TEXT=$J(NUM,5)_$J(NUM/TOTAL*100,8,0)_"% "_$S(NUMVALUE:$J(VALUE,5,1),1:VALUE)
|
|---|
| 20 | ...D SETTEXT^FSCFORMY(SECTION,LINE,16,TEXT)
|
|---|
| 21 | I $D(STYLE("COLLATE")) D
|
|---|
| 22 | .S COLLATE=STYLE(STYLE("COLLATE")),CABBREV=$P(COLLATE,U,7) I '$L(CABBREV) Q
|
|---|
| 23 | .S CNUMVAL=$S($P(COLLATE,U,3)="N":1,1:0)
|
|---|
| 24 | .S LINE=1
|
|---|
| 25 | .S CCOUNT=+$G(^TMP("FSC STATS",$J,CABBREV))
|
|---|
| 26 | .S LINE=LINE+1 D SETTEXT^FSCFORMY(SECTION,LINE,2,"Collated by "_$J($P(COLLATE,U,2)_": ",4)) D SETTEXT^FSCFORMY(SECTION,LINE,65,$J(+CCOUNT,5)_$J(+CCOUNT/TOTAL*100,8,0)_"%")
|
|---|
| 27 | .I CCOUNT,CNUMVAL D
|
|---|
| 28 | ..S NUMTOT=0,NUM="" F S NUM=$O(^TMP("FSC STATS",$J,CABBREV,NUM)) Q:NUM="" S NUMTOT=NUMTOT+(NUM*^(NUM))
|
|---|
| 29 | ..S TEXT="Total: "_NUMTOT_" Ave: "_$J(NUMTOT/CCOUNT,0,1) D SETTEXT^FSCFORMY(SECTION,LINE,35,TEXT)
|
|---|
| 30 | .S CVALUE="" F S CVALUE=$O(^TMP("FSC STATS",$J,CABBREV,CVALUE)) Q:CVALUE="" S CNUM=+^(CVALUE) D
|
|---|
| 31 | ..S LINE=LINE+1,TEXT="",$P(TEXT,"-",80)="" D SETTEXT^FSCFORMY(SECTION,LINE,1,TEXT)
|
|---|
| 32 | ..S LINE=LINE+1 D SETTEXT^FSCFORMY(SECTION,LINE,2,$S(CNUMVAL:$J(CVALUE,5,1),1:CVALUE)) D SETTEXT^FSCFORMY(SECTION,LINE,65,$J(CNUM,5)_$J(CNUM/TOTAL*100,8,0)_"%")
|
|---|
| 33 | ..S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 I STYLE("COLLATE")'=CNT S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) D
|
|---|
| 34 | ...S NUMVALUE=$S($P(STYLE(CNT),U,3)="N":1,1:0)
|
|---|
| 35 | ...S COUNT=+$G(^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV))
|
|---|
| 36 | ...S LINE=LINE+1 D SETTEXT^FSCFORMY(SECTION,LINE,2,$J($P(STYLE(CNT),U,2)_":",18))
|
|---|
| 37 | ...S TEXT="("_+COUNT_")" D SETTEXT^FSCFORMY(SECTION,LINE,45,$J(TEXT,7))
|
|---|
| 38 | ...I COUNT,NUMVALUE D
|
|---|
| 39 | ....S NUMTOT=0,NUM="" F S NUM=$O(^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV,NUM)) Q:NUM="" S NUMTOT=NUMTOT+(NUM*^(NUM))
|
|---|
| 40 | ....S TEXT="Total: "_NUMTOT_" Ave: "_$J(NUMTOT/COUNT,0,1) D SETTEXT^FSCFORMY(SECTION,LINE,53,TEXT)
|
|---|
| 41 | ...S VALUE="" F S VALUE=$O(^TMP("FSC STATS",$J,CABBREV,CVALUE,ABBREV,VALUE)) Q:VALUE="" S NUM=+^(VALUE) D
|
|---|
| 42 | ....S LINE=LINE+1 D SETTEXT^FSCFORMY(SECTION,LINE,20,$S(NUMVALUE:$J(VALUE,5,1),1:VALUE))
|
|---|
| 43 | ....S TEXT=$S(COUNT'=CNUM:"("_$J(NUM/COUNT*100,0,0)_"%)",1:"") D SETTEXT^FSCFORMY(SECTION,LINE,45,$J(TEXT,7)_$J(NUM/CNUM*100,8,0)_"%") D SETTEXT^FSCFORMY(SECTION,LINE,65,$J(NUM,5)_$J(NUM/TOTAL*100,8,0)_"%")
|
|---|
| 44 | I TYPE["VIEW" D VIEW^FSCFORMY(LISTNUM,CALLNUM,STYLE,.LASTLINE,TYPE) Q
|
|---|
| 45 | D SETUP^FSCFORMY(LISTNUM,CALLNUM,STYLE,.LASTLINE,TYPE)
|
|---|
| 46 | Q
|
|---|
