| [613] | 1 | BPSOS2C ;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
|
|---|
| 5 | LABELS ;EP - from BPSOS2 ; set up the labels display
|
|---|
| 6 | N R,C,X,R1,I
|
|---|
| 7 | ;
|
|---|
| 8 | ; Display Headers for In Progress claims
|
|---|
| 9 | S R=1,C=3,X="* CLAIM STATUS *" D L1
|
|---|
| 10 | F I=0,10,30,40,50,60,70,90 S R=R+1,X=$$STATI^BPSOSU(I) D L1
|
|---|
| 11 | S R1=R
|
|---|
| 12 | ;
|
|---|
| 13 | ; Display Headers for Completed claims
|
|---|
| 14 | S R=1,C=40,X="* CLAIM RESULTS *" D L1
|
|---|
| 15 | F I=1:1:8 S R=R+1,X=$P($T(HDR+I),";",3) D L1
|
|---|
| 16 | ;
|
|---|
| 17 | ; Update Line Counter to side with highest number of rows
|
|---|
| 18 | S VALMCNT=$S(R>R1:R,1:R1)
|
|---|
| 19 | Q
|
|---|
| 20 | L1 ; given R=row,C=col,X=string
|
|---|
| 21 | ; Duplicate of L1^BPSOS2B
|
|---|
| 22 | D SET^VALM10(R,$$SETSTR^VALM1(X,$G(@VALMAR@(R,0)),C,$L(X)))
|
|---|
| 23 | I $$VISIBLE^BPSOS2B(R) D WRITE^VALM10(R)
|
|---|
| 24 | Q
|
|---|
| 25 | HDR ;;
|
|---|
| 26 | ;;Paid claims
|
|---|
| 27 | ;;Rejected claims
|
|---|
| 28 | ;;Dropped to Paper
|
|---|
| 29 | ;;Duplicate claims
|
|---|
| 30 | ;;Captured claims
|
|---|
| 31 | ;;Accepted Reversals
|
|---|
| 32 | ;;Rejected Reversals
|
|---|
| 33 | ;;Errors
|
|---|
