- 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 ---[H[J[2J[HBPSOS2C 1033 printed Feb 18, 2025@23:17:54 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
