source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOS2B.m@ 1144

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1BPSOS2B ;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
5VALUES ;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 ;
20COM ; 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 ;
36VISIBLE(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
Note: See TracBrowser for help on using the repository browser.