source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBJTNC.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: 2.1 KB
Line 
1IBJTNC ;ALB/ARH - TPI INSURANCE PATIENT POLICIES ; 2/14/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 ; contains list template code and protocol entry code for the insurance screens that may be called from
6 ; the Active Bills screen. The actions (VI, VP, AB) are callable from the PI Patient Insurance Screen for any
7 ; of the policies defined for the patient
8 ;
9HDRPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list header code
10 N VA,VAERR D HDR^IBCNSM4
11 Q
12 ;
13INITPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list init code
14 I $G(DFN) D INIT^IBCNSM4
15 Q
16 ;
17EXITPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list exit code
18 K ^TMP("IBNSM",$J),^TMP("IBNSMDX",$J)
19 D CLEAR^VALM1,CLEAN^VALM10
20 Q
21 ;
22VPI ; -- IBJT NS PI VIEW PAT INS ACTION: patient insurance list screen: displays all policies for patient
23 I '$G(DFN) G VPIQ
24 N IBEXP1,IBEXP2,IBCDFN,IBFILE,IBI,IBLCNT,IBN,IBCGN,IBCNT,IBDA,IBDIF,IBPPOL,IBDUZ,IBCPOL,IBCDFND1,IBCDFN,IBCNS,IBYE
25 D EN^VALM("IBJT NS PI VIEW PAT INS")
26VPIQ Q
27 ;
28NX(IBTPLNM) ; -- IBJT NS PI VIEW x ACTION, entry action for 3 action protocols on the Patient Insurance screen to select
29 ; one of the patient policies for expanded information, opens one of the insurance screens based on the
30 ; action chosen by the user
31 ; IBJT NS PI VIEW INS CO SCREEN action => IBJT NS VIEW INS CO screen
32 ; IBJT NS PI VIEW EXP POL SCREEN action => IBJT NS VIEW EXP POL screen
33 ; IBJT NS PI VIEW AN BEN SCREEN action => IBJT NS VIEW AN BEN screen
34 ;
35 N VALMY,I,IBSELN,IBJPOL,IBX
36 N IBCPOL,IBPPOL,IBCNS,IBI,IBVIEW,IBCHANGE,IBLCNT,IBDA,IBCNT,IBYE
37 N IBEXP1,IBEXP2,IBFILE,IBN,IBCGN,IBDIF,IBDUZ,IBCDFND1,IBCDFN,IBPR,IBPRD
38 N IBEVDT,IBDT,IBYR,IBCAB,IBCGN,IBDUZ,OFFSET,START,IBCNS13
39 ;
40 D EN^VALM2($G(XQORNOD(0)))
41 D FULL^VALM1
42 I $D(VALMY) S IBSELN=0 F S IBSELN=$O(VALMY(IBSELN)) Q:'IBSELN D
43 . S IBX=$G(^TMP("IBNSMDX",$J,$O(^TMP("IBNSM",$J,"IDX",IBSELN,0)))) Q:IBX=""
44 . S IBJPOL=$P(IBX,U,4)_"^^"_$P(IBX,U,5,999)
45 . D EN^VALM(IBTPLNM)
46 S VALMBCK="R"
47 Q
Note: See TracBrowser for help on using the repository browser.