source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJTLA.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1IBJTLA ;ALB/ARH - TPI ACTIVE BILLS LIST SCREEN ; 14-FEB-1995
2 ;;2.0;INTEGRATED BILLING;**39,61,153**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN ; -- main entry point for IBJ THIRD PARTY ACTIVE LIST
6 D EN^VALM("IBJT ACTIVE LIST")
7 Q
8 ;
9HDR ; -- header code
10 N X S X=$$PT^IBEFUNC(+$G(DFN))
11 S VALMHDR(1)=$P(X,U,1) I $P(X,U,3)'="" S VALMHDR(1)=VALMHDR(1)_" "_$E(X,1)_$P(X,U,3)
12 I $G(DFN) N VAEL,VAERR D ELIG^VADPT S X=$P(VAEL(1),U,2),VALMHDR(1)=VALMHDR(1)_$J(" ",(79-$L(VALMHDR(1))-$L(X)))_X
13 S VALMSG="|r Referred |* MT on Hold |+ Multi Carriers |"
14 Q
15 ;
16INIT ; -- init variables and list array
17 K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J)
18 I '$G(DFN) S DFN=+$$PAT^IBJTU2 I 'DFN S VALMQUIT="" G INITQ
19 D BLDA^IBJTLA1
20INITQ Q
21 ;
22HELP ; -- help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ; -- exit code
27 K ^TMP("IBJTLA",$J),^TMP("IBJTLAX",$J),IBFASTXT,DFN
28 D CLEAR^VALM1,CLEAN^VALM10
29 Q
30 ;
31NX(IBTPLNM) ; -- IBJT CLAIM SCREEN ACTIVE action: go to next screen template
32 ; get user bill selection from Active Bills screen then open Claim Info screen for that bill
33 ;
34 N VALMY,IBSELN,IBIFN
35 D EN^VALM2($G(XQORNOD(0)))
36 I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
37 . S IBIFN=$P($G(^TMP("IBJTLAX",$J,IBSELN)),U,2)
38 . I +IBIFN D EN^VALM(IBTPLNM)
39 S VALMBCK="R"
40 Q
41 ;
42OPTION ; ENTRY POINT TO THIRD PARTY INQUIRY FROM MENU OPTION, gets patient or bill number then goes to correct screen
43 ;
44 N IBX S IBX=$$PB^IBJTU2
45 I +IBX=1 S DFN=+$P(IBX,U,2) I +DFN D EN^IBJTLA G OPTQ
46 I +IBX=2 S IBIFN=+$P(IBX,U,2),DFN=+$P($G(^DGCR(399,IBIFN,0)),U,2) I +DFN D EN^IBJTCA G OPTQ
47OPTQ K DFN,IBIFN,IBFASTXT,IBPRVSCR,VALMBCK
48 Q
Note: See TracBrowser for help on using the repository browser.