BPSOS2C.m

BPSOS2C ;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

LABELS ;EP - from BPSOS2 ; set up the labels display

 N R,C,X,R1,I

 ;

 ; Display Headers for In Progress claims

 S R=1,C=3,X="* CLAIM STATUS *" D L1

 F I=0,10,30,40,50,60,70,90 S R=R+1,X=$$STATI^BPSOSU(I) D L1

 S R1=R

 ;

 ; Display Headers for Completed claims

 S R=1,C=40,X="* CLAIM RESULTS *" D L1

 F I=1:1:10 S R=R+1,X=$P($T(HDR+I),";",3) D L1

 ;

 ; Update Line Counter to side with highest number of rows

 S VALMCNT=$S(R>R1:R,1:R1)

 Q

L1 ; given R=row,C=col,X=string

 ; Duplicate of L1^BPSOS2B

 D SET^VALM10(R,$$SETSTR^VALM1(X,$G(@VALMAR@(R,0)),C,$L(X)))

 I $$VISIBLE^BPSOS2B(R) D WRITE^VALM10(R)

 Q

HDR ;;

 ;;Paid claims

 ;;Rejected claims

 ;;Dropped to Paper

 ;;Duplicate claims

 ;;Captured claims

 ;;Accepted Reversals

 ;;Rejected Reversals

 ;;Accepted Eligibility

 ;;Rejected Eligibility

 ;;Errors

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSOS2C   1033     printed  Apr 09, 2024@20:57:13                                                                                                                                                                                                     Page 2

BPSOS2C   ;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 

LABELS    ;EP - from BPSOS2 ; set up the labels display

 +1        NEW R,C,X,R1,I

 +2       ;

 +3       ; Display Headers for In Progress claims

 +4        SET R=1

           SET C=3

           SET X="* CLAIM STATUS *"

           DO L1

 +5        FOR I=0,10,30,40,50,60,70,90

               SET R=R+1

               SET X=$$STATI^BPSOSU(I)

               DO L1

 +6        SET R1=R

 +7       ;

 +8       ; Display Headers for Completed claims

 +9        SET R=1

           SET C=40

           SET X="* CLAIM RESULTS *"

           DO L1

 +10       FOR I=1:1:10

               SET R=R+1

               SET X=$PIECE($TEXT(HDR+I),";",3)

               DO L1

 +11      ;

 +12      ; Update Line Counter to side with highest number of rows

 +13       SET VALMCNT=$SELECT(R>R1:R,1:R1)

 +14       QUIT 

L1        ; given R=row,C=col,X=string

 +1       ; Duplicate of L1^BPSOS2B

 +2        DO SET^VALM10(R,$$SETSTR^VALM1(X,$GET(@VALMAR@(R,0)),C,$LENGTH(X)))

 +3        IF $$VISIBLE^BPSOS2B(R)

               DO WRITE^VALM10(R)

 +4        QUIT 

HDR       ;;

 +1       ;;Paid claims

 +2       ;;Rejected claims

 +3       ;;Dropped to Paper

 +4       ;;Duplicate claims

 +5       ;;Captured claims

 +6       ;;Accepted Reversals

 +7       ;;Rejected Reversals

 +8       ;;Accepted Eligibility

 +9       ;;Rejected Eligibility

 +10      ;;Errors