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 Dec 13, 2024@01:51:31 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
