| 1 | BPSOS2B ;BHAM ISC/FCS/DRS/DLF - BPSOS2 continuation ;06/01/2004
|
|---|
| 2 | ;;1.0;E CLAIMS MGMT ENGINE;**1,5**;JUN 2004;Build 45
|
|---|
| 3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | VALUES ;EP - from BPSOS2
|
|---|
| 6 | ; note! This must correspond with the LABELS code in BPSOS2C
|
|---|
| 7 | N I,R,C,X,X2,X3
|
|---|
| 8 | ;
|
|---|
| 9 | ; Display In Progress Stats
|
|---|
| 10 | S R=1,C=29
|
|---|
| 11 | F I=0,10,30,40,50,60,70,90 D
|
|---|
| 12 | . S R=R+1,X=+$G(CHG("STAT",I)),X2=0,X3=3 D COM
|
|---|
| 13 | ;
|
|---|
| 14 | ; Display Completed Stats
|
|---|
| 15 | S R=1,C=65
|
|---|
| 16 | F I=203,202,208,204,205,206,207,201 D
|
|---|
| 17 | . S R=R+1,X=+$G(CHG("COMM",I)),X2=0,X3=7 D COM
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | COM ; Copied from COMMA^%DTC with NEWs added
|
|---|
| 21 | ; Input X=value to format
|
|---|
| 22 | ; X2=# decimal digits opt. followed by "$"
|
|---|
| 23 | ; X3=len of desired output
|
|---|
| 24 | N %,D,L
|
|---|
| 25 | I $D(X3) S X3=X3+1 ; make room for the trailing space we'll get rid of
|
|---|
| 26 | S D=X<0 S:D X=-X S %=$S($D(X2):+X2,1:2),X=$J(X,1,%),%=$L(X)-3-$E(23456789,%),L=$S($D(X3):X3,1:12)
|
|---|
| 27 | F %=%:-3 Q:$E(X,%)="" S X=$E(X,1,%)_","_$E(X,%+1,99)
|
|---|
| 28 | S:$D(X2) X=$E("$",X2["$")_X S X=$J($E("(",D)_X_$E(" )",D+1),L)
|
|---|
| 29 | I $E(X,$L(X))=" " S X=$E(X,1,$L(X)-1)
|
|---|
| 30 | ;
|
|---|
| 31 | ; given R=row,C=col,X=string
|
|---|
| 32 | D SET^VALM10(R,$$SETSTR^VALM1(X,$G(@VALMAR@(R,0)),C,$L(X)))
|
|---|
| 33 | I $$VISIBLE(R) D WRITE^VALM10(R)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | VISIBLE(R) ;EP -
|
|---|
| 37 | I $G(NODISPLY) Q 0
|
|---|
| 38 | I '$G(VALMBG) Q 0
|
|---|
| 39 | I R<VALMBG Q 0
|
|---|
| 40 | I R>(VALMBG+(18-3)) Q 0
|
|---|
| 41 | Q 1
|
|---|
