IBCAPR ;ALB/BI - PRINT EOB/MRA ;20-SEP-2010
Source file <IBCAPR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(IBIFN) | ; -- main entry point for IBCAPR
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| EOB(IBIFN) | ; Obtain the EOB Information from Dictionary 361.1, EXPLANATION OF BENEFITS.
|
|
| REGION1(IBI,IBSPL,IBEOBCT,IBCTOF) | ; Claim Header Information
|
|
| REGION2 | ; MEDICARE RA Information
|
|
| REGION3 | ; CLAIM and LINE level Information
|
|
| REGION4 | ; Display information about any 361.1 message storage or filing errors
|
|
| SETLN(S,V,X,L) | ; -- insert text(S) into variable(V)
; S := string to insert ; V := destination string ; X := insert @ col X ; L := clear # of chars (length) |
|
| SET(STR,LN) | ; set up TMP array with EOB Data
|
|
| PRTOPT1 | ; LIST MANAGER FORM entry point to print EOB, asking for print device.
|
|
| PRTOPT2 | ; LIST MANAGER FORM entry point to print to default print device.
|
|
| PRTOPT3 | ; LIST MANAGER FORM entry point to print EOB and MRA, asking for print devices.
|
|
| PRTOPT4 | ; LIST MANAGER FORM entry point to print EOB and MRA to default print devices.
|
|
| PRTOPT5(IBIFN) | ; External entry point to print EOB information, asking for print device.
|
|
| PRTOPT6(IBIFN) | ; External entry point to print EOB information to default print device.
|
|
| PRTOPT7(IBIFN) | ; External entry point to print EOB and MRA information, asking for print devices.
|
|
| PRTOPT8(IBIFN) | ; External entry point to print EOB and MRA information to default print devices.
|
|
| PRINT8Q(IBIFN) | ; External entry point to QUEUE the EOB and MRA print jobs
; Queue to Print EOB portion to the default EOB printer. |
|
| PRINT8Q1 | ; Background re-entry point.
|
|
| EOBPRT() | ; Get EOB Printer Name
|
|
| MRAPRT() | ; Get MRA Printer Name
|
|
| PRTCHK(ERROR) | ; ; Validate ALL printer parameters.
; USAGE EXAMPLES: W $$PRTCHK^IBCAPR(.ERRMSG)," ",ERRMSG,! ; I '$$PRTCHK^IBCAPR Q |
|
| PRTCHK14(PRTNM,ERROR) | ; Validate the CMS-1500 printer parameter.
; USAGE EXAMPLES: I $$PRTCHK14^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK14^IBCAPR Q |
|
| PRTCHK15(PRTNM,ERROR) | ; Validate the UB-04 printer parameter.
; USAGE EXAMPLE: I $$PRTCHK15^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK15^IBCAPR Q |
|
| PRTCHK16(PRTNM,ERROR) | ; Validate the EOB printer parameter.
; USAGE EXAMPLE: I $$PRTCHK16^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK16^IBCAPR Q |
|
| PRTCHK19(PRTNM,ERROR) | ; Validate the MRA printer parameter.
; USAGE EXAMPLE: I $$PRTCHK19^IBCAPR(.NAME,.ERRMSG) S IOP=NAME ; I '$$PRTCHK19^IBCAPR Q |
|
| GETIBIFN() | ; Get Internal Claim Pointer
|
|
| GETMRACL(IBIFN) | ; Get MRA claim #
; Find if there was MEDICARE WNR on the bill being passed in and then get the claim associated with it. |
|
| GETEOBCL(IBIFN,IBALL) | ; Get all Claims associated with this one.
; If it's secondary, get primary ; If it's a tertiary, get secondary and primary ; Input: IBIFN - IEN to 399 for cliam being printed ; IBALL by reference ; Output: IBALL - Array of claim numbers which have EOBS for this claim. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
| ^DGCR(399 - [#399] | GET1^DIQ |
