source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJTRA.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1IBJTRA ;ALB/AAS,ARH - TPI CT INSURANCE COMMUNICATIONS ; 4/1/95
2 ;;Version 2.0 ; INTEGRATED BILLING ;**39**; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; the IR contact list screen is based on the Insurance Reviews/Contacts screen of the
6 ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
7 ; the VR view expanded insurance reviews screen is based on the Expanded Insurance Reviews screen of the
8 ; Claims Tracking Insurance Review Edit [IBT EDIT COMMUNICATIONS] option
9 ; the VR view expanded appeals/denials screen is based on the Expanded Appeals/Denials screen of the
10 ; Claims Tracking Appeal/Denial Edit [IBT EDIT APPEALS/DENIALS] option
11 ;
12 ; the IR contact list build (IBJTRA*) is a copy of IBTRC with modifications to show contacts for multiple events
13 ; the two expanded screen builds did not need changes so the CT routines are called directly from the templates
14 ;
15 ; three Claims Tracking LM Templates were duplicated for JBI so the appropriate Protocol Menu could be used:
16 ; IBJT CT/IR COMMUNICATIONS LIST --- IBT COMMUNICATIONS EDITOR
17 ; IBJT CT/IR REVIEWS --- IBT EXPAND/EDIT COMMUNICATIONS
18 ; IBJT CT/IR APPEALS/DENIALS --- IBT EXPAND/EDIT DENIALS
19 ;
20 ; expanded Insurance Reviews and expanded Appeals/Denials are called from
21 ; the same protocol based on the action type of the entry to be displayed.
22 ;
23% ;
24EN ; -- main entry point for IBT COMMUNICATIONS EDITOR from menu's
25 I '$G(IBTRPRF) S IBTRPRF="12"
26 D EN^VALM("IBJT CT/IR COMMUNICATIONS LIST")
27 K IBTRPRF,VAERR,VA,DGPM
28 Q
29 ;
30HDR ; -- header code
31 D PID^VADPT
32 S VALMHDR(1)="Insurance Review Entries for: "_$P($G(^DGCR(399,IBIFN,0)),U,1)_" "_$$PT^IBTUTL1(DFN)
33 Q
34 ;
35INIT ; -- init variables and list array
36 S U="^",VALMCNT=0,VALMBG=1
37 K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J),I,X,XQORNOD,DA,DR,DIE,DNM,DQ
38 I '$G(DFN)!'$G(IBIFN) S VALMQUIT="" G INITQ
39 D BLD^IBJTRA1
40INITQ Q
41 ;
42HELP ; -- help code
43 S X="?" D DISP^XQORM1 W !!
44 Q
45 ;
46EXIT ; -- exit code
47 K ^TMP("IBJTRA",$J),^TMP("IBJTRADX",$J)
48 D CLEAR^VALM1
49 Q
50 ;
51NX ; -- IBJT CT/IR REVIEWS/APPEALS SCREEN action: go to next screen template - expand review/denial/appeal
52 ; gets user selection of contact then opens either the review or appeal/denial screen
53 ;
54 N VALMY,IBSELN,IBTRN,IBCNS,IBX,IBY,IBTRC,IBCNT,IBI,IBTRND,VAEL,VAIN,VAINDT,VA200,OFFSET,IBPCNT,IBLCNT,IBDCNT,IBOE
55 D EN^VALM2($G(XQORNOD(0)))
56 I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
57 . S IBTRC=$P($G(^TMP("IBJTRADX",$J,IBSELN)),U,2) Q:'IBTRC
58 . S IBX=$G(^IBT(356.2,+IBTRC,0)) Q:IBX="" S IBTRN=$P(IBX,U,2),IBCNS=$P(IBX,U,8)
59 . ; if review was a appeal/denial or penalty or had a parent review (which can only be a denial or penalty)
60 . ; then use appeals/denials template, otherwise use insurance review template
61 . S IBY=$P($G(^IBE(356.7,+$P(IBX,U,11),0)),U,3) I IBY=20!(IBY=30)!(+$P(IBX,U,18)) D EN^VALM("IBJT CT/IR APPEALS/DENIALS") Q
62 . D EN^VALM("IBJT CT/IR REVIEWS")
63 S VALMBCK="R"
64 Q
Note: See TracBrowser for help on using the repository browser.