IBCAPR ;ALB/BI - PRINT EOB/MRA ;20-SEP-2010
Source file <IBCAPR.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 9 | ($$CMS1500,$$UB4PRT)^IBCAPR1 $$PTRESPI^IBCECOB1 GETEOB^IBCECSA6 ($$COBN,$$FT)^IBCEF (MRA,PROC)^IBCEMRAA $$ALLOWED^IBCEMU2 $$WNRBILL^IBEFUNC $$DAT1^IBOUTL $$EXPAND^IBTRE |
Kernel | 5 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT DISP^XQORM1 |
List Manager | 3 | EN^VALM (FULL,PAUSE)^VALM1 EN^VALM2 |
VA FileMan | 2 | $$EXTERNAL^DILFD $$GET1^DIQ |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 9 | IBCAPP IBCAPR IBCAPR PRINT MAR IBCAPR PRINT MAR DEFAULT IBCAPR PRINTF IBCAPR PRINTFD IBCAPR1 IBCAPR2 IBCB1 |
Kernel | 1 | ^ORD(101 |
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 | Field # of Occurrence |
---|---|
^%ZIS | PRTOPT1+3, PRTOPT2+10, PRTOPT3+4, PRTOPT4+10, PRTOPT4+20, PRTOPT5+3, PRTOPT6+6, PRTOPT7+4, PRTOPT8+6, PRTOPT8+14 , PRINT8Q+8, PRINT8Q+23, PRTCHK14+8, PRTCHK15+8, PRTCHK16+8, PRTCHK19+8 |
HOME^%ZIS | PRINT8Q+14, PRINT8Q+29 |
^%ZISC | PRTOPT1+6, PRTOPT2+13, PRTOPT3+7, PRTOPT4+13, PRTOPT4+23, PRTOPT5+6, PRTOPT6+9, PRTOPT7+7, PRTOPT8+9, PRTOPT8+17 , PRINT8Q1+4 |
^%ZTLOAD | PRINT8Q+13, PRINT8Q+28 |
$$EXTERNAL^DILFD | REGION1+15 |
$$GET1^DIQ | HDR+2, HDR+5, REGION1+33, REGION2+9, EOBPRT+1, MRAPRT+1 |
$$CMS1500^IBCAPR1 | PRTCHK14+5 |
$$UB4PRT^IBCAPR1 | PRTCHK15+5 |
$$PTRESPI^IBCECOB1 | REGION1+27 |
GETEOB^IBCECSA6 | REGION3+3 |
$$COBN^IBCEF | GETEOBCL+9 |
$$FT^IBCEF | REGION1+27 |
MRA^IBCEMRAA | PRTOPT3+11, PRTOPT7+10 |
PROC^IBCEMRAA | PRTOPT4+22, PRTOPT8+16 |
$$ALLOWED^IBCEMU2 | REGION1+36 |
$$WNRBILL^IBEFUNC | GETMRACL+3 |
$$DAT1^IBOUTL | REGION1+51, REGION1+53, REGION2+7 |
$$EXPAND^IBTRE | REGION1+59 |
EN^VALM | EN+4 |
FULL^VALM1 | EXIT+2, PRTOPT1+2, PRTOPT2+2, PRTOPT3+2, PRTOPT4+2, GETIBIFN+2 |
PAUSE^VALM1 | PRTOPT1+7, PRTOPT2+7, PRTOPT3+8, PRTOPT3+12, PRTOPT4+7, PRTOPT4+17 |
EN^VALM2 | GETIBIFN+3 |
$$FMTE^XLFDT | REGION1+44 |
DISP^XQORM1 | HELP+1 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | GETMRACL+5, GETEOBCL+8 |
^IBM(361.1 - [#361.1] | EOB+12, EOB+14, REGION1+12, REGION1+23, REGION1+25, REGION1+34, REGION2+2, REGION2+5, REGION2+12, REGION4+2 , REGION4+4 |
^TMP("IBCAPR" | INIT+1!, EXIT+1!, SET+1*, PRTOPT1+4, PRTOPT1+5, PRTOPT2+11, PRTOPT2+12, PRTOPT3+5, PRTOPT3+6, PRTOPT4+11 , PRTOPT4+12, PRTOPT5+4, PRTOPT5+5, PRTOPT5+7!, PRTOPT6+7, PRTOPT6+8, PRTOPT6+10!, PRTOPT7+5, PRTOPT7+6, PRTOPT7+8! , PRTOPT8+7, PRTOPT8+8, PRTOPT8+10!, PRINT8Q1+2, PRINT8Q1+3 |
^TMP("IBCECOB" | GETIBIFN+5 |
^TMP("PRCA_EOB" | REGION3+2!, REGION3+4, REGION3+5! |
Name | Line Occurrences |
---|---|
$$EOB | INIT+2 |
$$EOBPRT | PRTOPT2+4, PRTOPT4+4, PRTOPT6+3, PRTOPT8+3, PRINT8Q+5, PRTCHK16+5 |
$$GETIBIFN | EN+2 |
$$GETMRACL | PRINT8Q+20 |
$$MRAPRT | PRTOPT4+14, PRTOPT8+12, PRINT8Q+18, PRTCHK19+5 |
$$PRTCHK14 | PRTOPT8+11, PRINT8Q+17, PRTCHK+5 |
$$PRTCHK15 | PRTCHK+6 |
$$PRTCHK16 | PRTOPT6+2, PRTOPT8+2, PRINT8Q+4, PRTCHK+7 |
$$PRTCHK19 | PRTCHK+8 |
$$SET | REGION1+6, REGION1+17, REGION1+30, REGION1+40, REGION1+48, REGION1+55, REGION1+64, REGION2+4, REGION2+11, REGION2+12 , REGION2+15, REGION3+4, REGION4+3, REGION4+4 |
$$SETLN | REGION1+6, REGION1+16, REGION1+22, REGION1+29, REGION1+37, REGION1+39, REGION1+45, REGION1+47, REGION1+52, REGION1+54 , REGION1+61, REGION1+63, REGION2+4, REGION2+8, REGION2+10, REGION2+12, REGION2+14, REGION3+4, REGION4+3, REGION4+4 |
EOB | PRTOPT5+2, PRTOPT6+5, PRTOPT7+2, PRTOPT8+5, PRINT8Q1+1 |
GETEOBCL | EOB+6 |
REGION1 | EOB+20 |
REGION2 | EOB+21 |
REGION3 | EOB+21 |
REGION4 | EOB+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | PRINT8Q+2~, PRINT8Q+7*, PRINT8Q+16!, PRINT8Q+22*, PRTCHK14+7*, PRTCHK15+7*, PRTCHK16+7*, PRTCHK19+7* |
CLONED | HDR+1~, HDR+5*, HDR+6 |
DIR | GETIBIFN+1~ |
ERR14 | PRTCHK+3~, PRTCHK+5, PRTCHK+10 |
ERR15 | PRTCHK+3~, PRTCHK+6, PRTCHK+11 |
ERR16 | PRTCHK+3~, PRTCHK+7, PRTCHK+12 |
ERR19 | PRTCHK+3~, PRTCHK+8, PRTCHK+13 |
ERROR | PRTCHK~, PRTCHK+4*, PRTCHK+10*, PRTCHK+11*, PRTCHK+12*, PRTCHK+13*, PRTCHK14~, PRTCHK14+4*, PRTCHK14+6*, PRTCHK14+8* , PRTCHK15~, PRTCHK15+4*, PRTCHK15+6*, PRTCHK15+8*, PRTCHK16~, PRTCHK16+4*, PRTCHK16+6*, PRTCHK16+8*, PRTCHK19~, PRTCHK19+4* , PRTCHK19+6*, PRTCHK19+8* |
IBALL | EOB+2~, EOB+6, GETEOBCL~ |
IBALL( | EOB+11, GETEOBCL+7*, GETEOBCL+11* |
IBCA | EOB+3~, REGION1+58*, REGION1+62 |
IBCN | EOB+3~, REGION1+20*, REGION1+22, REGION2+5*, REGION2+12 |
IBCOBN | GETEOBCL+6~, GETEOBCL+9*, GETEOBCL+10, GETEOBCL+11 |
IBCT | EOB+3~, EOB+14* |
IBCTOF | REGION1~, REGION1+4*, REGION1+5 |
IBD | REGION1+1~, REGION1+5*, REGION1+6, REGION1+16*, REGION1+22*, REGION1+28*, REGION1+29, REGION1+37*, REGION1+38*, REGION1+39 , REGION1+45*, REGION1+46*, REGION1+47, REGION1+51*, REGION1+52, REGION1+53*, REGION1+54, REGION1+61*, REGION1+62*, REGION1+63 , REGION2+3*, REGION2+4, REGION2+7*, REGION2+8, REGION2+9*, REGION2+10, REGION2+12* |
IBDA | GETIBIFN+1~, GETIBIFN+4*, GETIBIFN+5 |
IBEOBCT | REGION1~, REGION1+4*, REGION1+5 |
IBFT | EOB+3~ |
IBI | EOB+2~, EOB+12*, EOB+14*, EOB+18*, EOB+19*, EOB+20, REGION1~, REGION1+12, REGION1+23, REGION1+25 , REGION1+27, REGION1+34, REGION1+36, REGION2+2, REGION2+5, REGION2+12, REGION3+3, REGION3+4, REGION4+2, REGION4+4 |
IBIFN | EN~, EN+2*, EN+3, HDR+2, HDR+5, INIT+2, EOB~, EOB+6, EOB+10*, EOB+11* , EOB+12, EOB+14, PRTOPT3+11, PRTOPT5~, PRTOPT5+2, PRTOPT6~, PRTOPT6+5, PRTOPT7~, PRTOPT7+2, PRTOPT7+10 , PRTOPT8~, PRTOPT8+5, PRINT8Q~, PRINT8Q+3, PRINT8Q+20*, PRINT8Q+21, PRINT8Q1+1, GETIBIFN+1~*, GETIBIFN+5*, GETIBIFN+6 , GETMRACL~, GETMRACL+3, GETMRACL+5, GETEOBCL~, GETEOBCL+7, GETEOBCL+8, GETEOBCL+9 |
IBILLCNT | EOB+2~, EOB+8*, EOB+12*, EOB+20 |
IBLN | EOB+2~, EOB+8*, EOB+23, REGION1+6*, REGION1+17*, REGION1+30*, REGION1+40*, REGION1+48*, REGION1+55*, REGION1+64* , REGION2+4*, REGION2+11*, REGION2+12*, REGION2+15*, REGION3+4*, REGION4+3*, REGION4+4* |
IBM | REGION1+1~, REGION1+12*, REGION1+13, REGION1+15, REGION1+20, REGION1+25, REGION1+27, REGION1+33, REGION1+44, REGION1+59 |
IBM1 | REGION1+1~, REGION1+23*, REGION1+24, REGION1+51, REGION1+53, REGION1+58, GETMRACL+2~, GETMRACL+5*, GETMRACL+6, GETMRACL+11 , GETEOBCL+6~, GETEOBCL+8*, GETEOBCL+11 |
IBM2 | REGION1+1~, REGION1+34*, REGION1+43 |
IBMRACL | GETMRACL+2~, GETMRACL+6*, GETMRACL+7, GETMRACL+11*, GETMRACL+13 |
IBMRASEQ | GETMRACL+2~, GETMRACL+3*, GETMRACL+6, GETMRACL+11 |
IBMSG | EOB+3~ |
IBPR | EOB+3~, REGION1+44*, REGION1+45 |
IBPRVCL | GETEOBCL+6~, GETEOBCL+11* |
IBPT | EOB+3~, REGION1+24*, REGION1+25*, REGION1+27*, REGION1+28 |
IBPY | EOB+3~, REGION1+33*, REGION1+37 |
IBQUIT | EOB+3~ |
IBREC1 | EOB+3~ |
IBSCAN | PRTOPT1+1~, PRTOPT1+4*, PRTOPT1+5, PRTOPT2+1~, PRTOPT2+11*, PRTOPT2+12, PRTOPT3+1~, PRTOPT3+5*, PRTOPT3+6, PRTOPT4+1~ , PRTOPT4+11*, PRTOPT4+12, PRTOPT5+1~, PRTOPT5+4*, PRTOPT5+5, PRTOPT6+1~, PRTOPT6+7*, PRTOPT6+8, PRTOPT7+1~, PRTOPT7+5* , PRTOPT7+6, PRTOPT8+1~, PRTOPT8+7*, PRTOPT8+8, PRINT8Q1+2*, PRINT8Q1+3 |
IBSHEOB | EOB+2~, EOB+16 |
IBSHEOB( | EOB+12*, EOB+14*, EOB+19, EOB+20 |
IBSPL | REGION1~, REGION1+14, REGION1+62 |
IBST | EOB+3~, REGION1+59*, REGION1+61, REGION2+5*, REGION2+6*, REGION2+12*, REGION2+13 |
IBSTR | EOB+4~, REGION1+1~, REGION1+6*, REGION1+16*, REGION1+17, REGION1+22*, REGION1+29*, REGION1+30, REGION1+37*, REGION1+39* , REGION1+40, REGION1+45*, REGION1+47*, REGION1+48, REGION1+52*, REGION1+54*, REGION1+55, REGION1+60*, REGION1+61*, REGION1+63* , REGION1+64, REGION2+4*, REGION2+8*, REGION2+10*, REGION2+11, REGION2+12*, REGION2+14*, REGION2+15, REGION3+4*, REGION4+3* , REGION4+4* |
IBTA | EOB+4~, REGION1+34*, REGION1+36*, REGION1+38 |
IBTS | EOB+4~, REGION1+43*, REGION1+46 |
IBTSK1 | PRINT8Q+2~, PRINT8Q+13*, PRINT8Q+30 |
IBTSK2 | PRINT8Q+2~, PRINT8Q+28*, PRINT8Q+30 |
IBTY | EOB+4~, REGION1+13*, REGION1+14*, REGION1+15*, REGION1+16, REGION1+61, REGION2+2 |
IBWNRFL | GETMRACL+2~, GETMRACL+3*, GETMRACL+4 |
IBX | EOB+4~, REGION1+1~, REGION1+21*, REGION1+28, REGION1+38, REGION1+46, REGION1+62 |
IBXARRAY | EOB+4~ |
IBXARRY | EOB+4~ |
IBXDATA | EOB+4~ |
IBXERR | EOB+4~ |
IBXSAVE | EOB+4~ |
IBZ | EOB+4~, EOB+19*, EOB+20 |
IO | PRTOPT1+5, PRTOPT2+12, PRTOPT3+6, PRTOPT4+12, PRTOPT4+21, PRTOPT5+5, PRTOPT6+8, PRTOPT7+6, PRTOPT8+8, PRTOPT8+15 |
IO("Q" | PRINT8Q+14!, PRINT8Q+29! |
IOF | EOB+19 |
IOP | PRTOPT2+1~, PRTOPT2+4*, PRTOPT2+5, PRTOPT4+1~, PRTOPT4+4*, PRTOPT4+5, PRTOPT4+14*, PRTOPT4+15, PRTOPT6+1~, PRTOPT6+3* , PRTOPT6+4, PRTOPT8+1~, PRTOPT8+3*, PRTOPT8+4, PRTOPT8+12*, PRTOPT8+13, PRINT8Q+2~, PRINT8Q+5*, PRINT8Q+6, PRINT8Q+18* , PRINT8Q+19, PRTCHK14+5*, PRTCHK14+6, PRTCHK15+5*, PRTCHK15+6, PRTCHK16+5*, PRTCHK16+6, PRTCHK19+5*, PRTCHK19+6 |
L | SETLN~, SETLN+5 |
LN | SET~, SET+1, SET+2 |
LOOP | GETEOBCL+6~, GETEOBCL+11* |
POP | PRTOPT1+3, PRTOPT2+10, PRTOPT3+4, PRTOPT5+3, PRTOPT6+6, PRTOPT7+4, PRTOPT8+6, PRTOPT8+14, PRINT8Q+2~, PRINT8Q+8 , PRINT8Q+16!, PRINT8Q+23, PRTCHK14+3~, PRTCHK14+8, PRTCHK15+3~, PRTCHK15+8, PRTCHK16+3~, PRTCHK16+8, PRTCHK19+3~, PRTCHK19+8 |
PRTNM | PRTCHK14~, PRTCHK14+5*, PRTCHK15~, PRTCHK15+5*, PRTCHK16~, PRTCHK16+5*, PRTCHK19~, PRTCHK19+5* |
PTNAME | HDR+1~, HDR+2*, HDR+3 |
S | SETLN~, SETLN+5 |
STATUS | PRTCHK+3~, PRTCHK+4*, PRTCHK+5*, PRTCHK+6*, PRTCHK+7*, PRTCHK+8*, PRTCHK+9 |
STR | SET~, SET+1 |
U | REGION1+13, REGION1+15, REGION1+20, REGION1+24, REGION1+25, REGION1+27, REGION1+33, REGION1+34, REGION1+43, REGION1+44 , REGION1+51, REGION1+53, REGION1+58, REGION1+59, REGION2+7, REGION2+9, GETIBIFN+5, GETMRACL+6, GETMRACL+11, GETEOBCL+11 |
V | SETLN~, SETLN+5 |
>> VALMBCK | EN+1*, PRTOPT1+8*, PRTOPT1+9*, PRTOPT2+3*, PRTOPT3+9*, PRTOPT3+13*, PRTOPT3+14*, PRTOPT4+3* |
>> VALMBG | EN+2 |
>> VALMCNT | INIT+2* |
>> VALMHDR(1 | HDR+3* |
>> VALMHDR(2 | HDR+6* |
>> VALMLST | EN+2 |
>> VALMY(0 | GETIBIFN+4 |
X | HELP+1*, REGION2+5*, REGION2+7, REGION2+9, SETLN~, SETLN+5, PRTOPT1+8, PRTOPT2+1~, PRTOPT2+8*, PRTOPT2+9 , PRTOPT3+9, PRTOPT3+13, PRTOPT4+1~, PRTOPT4+8*, PRTOPT4+9, PRTOPT4+18*, PRTOPT4+19, PRTCHK+3~, PRTCHK+5, PRTCHK+6 , PRTCHK+7, PRTCHK+8 |
>> XQORNOD(0 | GETIBIFN+3 |
Z | EOB+4~, EOB+12*, EOB+18*, REGION3+1~, REGION3+4*, REGION4+1~, REGION4+4* |
ZTDESC | PRINT8Q+2~, PRINT8Q+10*, PRINT8Q+16!, PRINT8Q+25* |
ZTDTH | PRINT8Q+2~, PRINT8Q+12*, PRINT8Q+27* |
ZTRTN | PRINT8Q+2~, PRINT8Q+9*, PRINT8Q+16!, PRINT8Q+24* |
ZTSAVE | PRINT8Q+2~, PRINT8Q+16! |
ZTSAVE("IB*" | PRINT8Q+11*, PRINT8Q+26* |
ZTSK | PRINT8Q+13, PRINT8Q+14!, PRINT8Q+28, PRINT8Q+29! |