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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1IBJTLB ;ALB/ARH - TPI INACTIVE 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 INACTIVE LIST
6 D EN^VALM("IBJT INACTIVE 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 S VALMHDR(1)=VALMHDR(1)_$J(IBHMSG,(80-$L(VALMHDR(1))))
13 S VALMSG="|r Referred |* MT on Hold |+ Multi Carriers |"
14 Q
15 ;
16INIT ; -- init variables and list array
17 K ^TMP("IBJTLB",$J),^TMP("IBJTLBX",$J)
18 I '$G(DFN) S DFN=+$$PAT^IBJTU2 I 'DFN S VALMQUIT="" G INITQ
19 D BLDA^IBJTLB1
20INITQ Q
21 ;
22HELP ; -- help code
23 S X="?" D DISP^XQORM1 W !!
24 Q
25 ;
26EXIT ; -- exit code
27 K ^TMP("IBJTLB",$J),^TMP("IBJTLBX",$J),IBBEG,IBEND,IBHMSG
28 D CLEAR^VALM1
29 Q
30 ;
31DATE(X) ;
32 Q $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
33 ;
34NX(IBTPLNM) ; -- IBJT CLAIM SCREEN INACTIVE action: go to next screen template
35 ; get user bill selection from Inactive Bills list then open Claim Info screen for that bill
36 ;
37 N VALMY,IBSELN,IBIFN
38 D EN^VALM2($G(XQORNOD(0)))
39 I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
40 . S IBIFN=$P($G(^TMP("IBJTLBX",$J,IBSELN)),U,2)
41 . I +IBIFN D EN^VALM(IBTPLNM)
42 S VALMBCK="R"
43 Q
Note: See TracBrowser for help on using the repository browser.