BPSOS2B.m

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 ---BPSOS2B   1333     printed  Feb 18, 2025@23:17:53                                                                                                                                                                                                     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