| 1 | IBJTLB ;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 | ;
|
|---|
| 5 | EN ; -- main entry point for IBJ THIRD PARTY INACTIVE LIST
|
|---|
| 6 | D EN^VALM("IBJT INACTIVE LIST")
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | HDR ; -- 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 | ;
|
|---|
| 16 | INIT ; -- 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
|
|---|
| 20 | INITQ Q
|
|---|
| 21 | ;
|
|---|
| 22 | HELP ; -- help code
|
|---|
| 23 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT ; -- exit code
|
|---|
| 27 | K ^TMP("IBJTLB",$J),^TMP("IBJTLBX",$J),IBBEG,IBEND,IBHMSG
|
|---|
| 28 | D CLEAR^VALM1
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | DATE(X) ;
|
|---|
| 32 | Q $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
|
|---|
| 33 | ;
|
|---|
| 34 | NX(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
|
|---|
