BPSOS2B ;BHAM ISC/FCS/DRS/DLF - BPSOS2 continuation ;06/01/2004
;;1.0;E CLAIMS MGMT ENGINE;**1,5,10**;JUN 2004;Build 27
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
VALUES ;EP - from BPSOS2
; note! This must correspond with the LABELS code in BPSOS2C
N I,R,C,X,X2,X3
;
; Display In Progress Stats
S R=1,C=29
F I=0,10,30,40,50,60,70,90 D
. S R=R+1,X=+$G(CHG("STAT",I)),X2=0,X3=3 D COM
;
; Display Completed Stats
S R=1,C=65
F I=203,202,208,204,205,206,207,209,210,201 D
. S R=R+1,X=+$G(CHG("COMM",I)),X2=0,X3=7 D COM
Q
;
COM ; Copied from COMMA^%DTC with NEWs added
; Input X=value to format
; X2=# decimal digits opt. followed by "$"
; X3=len of desired output
N %,D,L
I $D(X3) S X3=X3+1 ; make room for the trailing space we'll get rid of
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)
F %=%:-3 Q:$E(X,%)="" S X=$E(X,1,%)_","_$E(X,%+1,99)
S:$D(X2) X=$E("$",X2["$")_X S X=$J($E("(",D)_X_$E(" )",D+1),L)
I $E(X,$L(X))=" " S X=$E(X,1,$L(X)-1)
;
; given R=row,C=col,X=string
D SET^VALM10(R,$$SETSTR^VALM1(X,$G(@VALMAR@(R,0)),C,$L(X)))
I $$VISIBLE(R) D WRITE^VALM10(R)
Q
;
VISIBLE(R) ;EP -
I $G(NODISPLY) Q 0
I '$G(VALMBG) Q 0
I R<VALMBG Q 0
I R>(VALMBG+(18-3)) Q 0
Q 1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSOS2B 1333 printed Nov 22, 2024@17:01:41 Page 2
BPSOS2B ;BHAM ISC/FCS/DRS/DLF - BPSOS2 continuation ;06/01/2004
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,5,10**;JUN 2004;Build 27
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
VALUES ;EP - from BPSOS2
+1 ; note! This must correspond with the LABELS code in BPSOS2C
+2 NEW I,R,C,X,X2,X3
+3 ;
+4 ; Display In Progress Stats
+5 SET R=1
SET C=29
+6 FOR I=0,10,30,40,50,60,70,90
Begin DoDot:1
+7 SET R=R+1
SET X=+$GET(CHG("STAT",I))
SET X2=0
SET X3=3
DO COM
End DoDot:1
+8 ;
+9 ; Display Completed Stats
+10 SET R=1
SET C=65
+11 FOR I=203,202,208,204,205,206,207,209,210,201
Begin DoDot:1
+12 SET R=R+1
SET X=+$GET(CHG("COMM",I))
SET X2=0
SET X3=7
DO COM
End DoDot:1
+13 QUIT
+14 ;
COM ; Copied from COMMA^%DTC with NEWs added
+1 ; Input X=value to format
+2 ; X2=# decimal digits opt. followed by "$"
+3 ; X3=len of desired output
+4 NEW %,D,L
+5 ; make room for the trailing space we'll get rid of
IF $DATA(X3)
SET X3=X3+1
+6 SET D=X<0
if D
SET X=-X
SET %=$SELECT($DATA(X2):+X2,1:2)
SET X=$JUSTIFY(X,1,%)
SET %=$LENGTH(X)-3-$EXTRACT(23456789,%)
SET L=$SELECT($DATA(X3):X3,1:12)
+7 FOR %=%:-3
if $EXTRACT(X,%)=""
QUIT
SET X=$EXTRACT(X,1,%)_","_$EXTRACT(X,%+1,99)
+8 if $DATA(X2)
SET X=$EXTRACT("$",X2["$")_X
SET X=$JUSTIFY($EXTRACT("(",D)_X_$EXTRACT(" )",D+1),L)
+9 IF $EXTRACT(X,$LENGTH(X))=" "
SET X=$EXTRACT(X,1,$LENGTH(X)-1)
+10 ;
+11 ; given R=row,C=col,X=string
+12 DO SET^VALM10(R,$$SETSTR^VALM1(X,$GET(@VALMAR@(R,0)),C,$LENGTH(X)))
+13 IF $$VISIBLE(R)
DO WRITE^VALM10(R)
+14 QUIT
+15 ;
VISIBLE(R) ;EP -
+1 IF $GET(NODISPLY)
QUIT 0
+2 IF '$GET(VALMBG)
QUIT 0
+3 IF R<VALMBG
QUIT 0
+4 IF R>(VALMBG+(18-3))
QUIT 0
+5 QUIT 1
