source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSOS2C.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 946 bytes
Line 
1BPSOS2C ;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
5LABELS ;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
20L1 ; 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
25HDR ;;
26 ;;Paid claims
27 ;;Rejected claims
28 ;;Dropped to Paper
29 ;;Duplicate claims
30 ;;Captured claims
31 ;;Accepted Reversals
32 ;;Rejected Reversals
33 ;;Errors
Note: See TracBrowser for help on using the repository browser.