| [613] | 1 | IBJTNC ;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 | ;
|
|---|
| 9 | HDRPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list header code
|
|---|
| 10 | N VA,VAERR D HDR^IBCNSM4
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | INITPI ; -- IBJT NS PI VIEW PAT INS LIST TEMPLATE: patient insurance list init code
|
|---|
| 14 | I $G(DFN) D INIT^IBCNSM4
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | EXITPI ; -- 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 | ;
|
|---|
| 22 | VPI ; -- 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")
|
|---|
| 26 | VPIQ Q
|
|---|
| 27 | ;
|
|---|
| 28 | NX(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
|
|---|
