Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCAPR2

Package: Integrated Billing

Routine: IBCAPR2


Information

IBCAPR2 ;ALB/BI - PRINT EOB/MRA ;20-SEP-2010

Source Information

Source file <IBCAPR2.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Integrated Billing 9 GETEOBCL^IBCAPR  $$PTRESPI^IBCECOB1  GETEOB^IBCECSA6  ($$FT,$$INPAT)^IBCEF  PRNTMRA^IBCEMRAA  $$MRACNT^IBCEMU1  $$ALLOWED^IBCEMU2  $$DAT1^IBOUTL  
$$EXPAND^IBTRE  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 ^DIC  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
List Manager 2 (FULL,PAUSE)^VALM1  EN^VALM2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBCAPR2 MAIN ENTRY  IBCB1  IBCE PRINT EOB  

Entry Points

Name Comments DBIA/ICR reference
EN(IBIFN) ; -- main entry point for IBCAPR2
EOBPRINT(IBI,IBSHEOB) ; PRINT THE REQUESTED EOB
EOBQUIT ;
MRAPRINT(IBI) ; PRINT THE REQUESTED MRA
MRAQUIT ;
GETIBIFN() ; Get Internal Claim Pointer
WRITE(IBSTR) ;
PAUSE() ;
REGION0(IBI,IBSHEOB) ; Print one or several EOBS depending what is passed in.
; Input: IEN to EOB file 361.1 if only one to be printed
; Input: IBSHEOB (optional) array of EOBs to be printed
REGION1(IBI) ; EOB Claim Header Information
REGION2 ; EOB MEDICARE RA Information
REGION3 ; EOB CLAIM and LINE level Information
REGION4 ; EOB 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)
EOBALL(IBIFN) ;
OKTOPRT() ; This procedure is called when the user is printing bills
; and we know that one or more EOBs exist for this bill. We ask the
; user if the EOB(s) should be printed at this time too.
GETEOBS(IBALL,IBSHEOB) ; Get all the EOBS
; INPUT - IBALL array of claim numbers (IEN to 399)
; OUTPUT - IBSHEOB array of EOBs (IEN to 361.1)
SEL(IBSHEOB) ; Function to display and allow user selection
; of an EOB/MRA on file in 361.1 for a sequence of bills.
SELX ;
PRINTOPT

External References

Name Field # of Occurrence
^%ZIS EOBPRINT+4, MRAPRINT+5
HOME^%ZIS EOBPRINT+11, MRAPRINT+12
^%ZISC EOBQUIT+3, MRAQUIT+3
^%ZTLOAD EOBPRINT+9, MRAPRINT+10
^DIC PRINTOPT+4
$$EXTERNAL^DILFD REGION1+15, SEL+17, SEL+18, SEL+21
$$GET1^DIQ REGION1+17, REGION1+34, REGION2+9
^DIR PAUSE+3, OKTOPRT+11, SEL+39
GETEOBCL^IBCAPR EN+10, EOBALL+7
$$PTRESPI^IBCECOB1 REGION1+28
GETEOB^IBCECSA6 REGION3+3
$$FT^IBCEF EN+7, REGION1+28
$$INPAT^IBCEF EN+8
PRNTMRA^IBCEMRAA MRAPRINT+13
$$MRACNT^IBCEMU1 EN+12, EN+23, EN+24
$$ALLOWED^IBCEMU2 REGION1+37
$$DAT1^IBOUTL REGION1+52, REGION1+54, REGION2+7
$$EXPAND^IBTRE REGION1+60
FULL^VALM1 EN+16, GETIBIFN+2
PAUSE^VALM1 EN+18, EOBQUIT+2, MRAQUIT+2
EN^VALM2 GETIBIFN+3
$$FMTE^XLFDT REGION1+45, SEL+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"There is no electronic EOB for this claim."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: EOBPRINT+10
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: MRAPRINT+11
Function Call: WRITE
  • Prompt: IBSTR,!
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REGION0+4
Function Call: WRITE
  • Prompt: IBSTR,!
  • Line Location: REGION2+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: OKTOPRT+10
Function Call: WRITE
  • Prompt: !!,"The selected bill has multiple ",J," on file. Please choose one."
  • Line Location: SEL+29
Function Call: WRITE
  • Prompt: !!?7,"#",?11,"Seq",?17,"Insurance Company",?40,"EOB Date"
  • Line Location: SEL+30
Function Call: WRITE
  • Prompt: ?51,"Type",?57,"Claim Status"
  • Line Location: SEL+31
Function Call: WRITE
  • Prompt: !?5,$J(J,3),?11,"(",$P(A,U,2),")",?17,$E($P(A,U,3),1,20)
  • Line Location: SEL+33
Function Call: WRITE
  • Prompt: ?40,$P(A,U,4),?51,$P(A,U,5),?57,$P(A,U,6)
  • Line Location: SEL+34
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+38
Routine Call
  • %ZIS
  • Line Location:
    • EOBPRINT+4
    • MRAPRINT+5
Routine Call
  • %ZIS
  • Line Location:
    • EOBPRINT+11
    • MRAPRINT+12
Routine Call
  • DIC
  • Line Location:
    • PRINTOPT+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3
    • OKTOPRT+11
    • SEL+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ
^IBM(361.1 - [#361.1] Classic Fileman Calls,  EXTERNAL^DILFD
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361.1 - [#361.1] EN+21, EN+22, EN+29, EN+31, REGION1+11, REGION1+12, REGION1+24, REGION1+26, REGION1+35, REGION2+2
REGION2+5, REGION2+12, REGION4+2, REGION4+4, GETEOBS+7, GETEOBS+9, SEL+16
^TMP("IBCECOB" GETIBIFN+5
^TMP("PRCA_EOB" REGION3+2!, REGION3+4, REGION3+5!, REGION3+6, REGION3+7!

Label References

Name Line Occurrences
$$GETIBIFN EN+5
$$OKTOPRT EOBALL+12
$$PAUSE WRITE+2
$$SEL EN+26
$$SETLN REGION1+6, REGION1+16, REGION1+17, REGION1+23, REGION1+30, REGION1+38, REGION1+40, REGION1+46, REGION1+48, REGION1+53
, REGION1+55, REGION1+62, REGION1+64, REGION2+4, REGION2+8, REGION2+10, REGION2+12, REGION2+14, REGION3+6, REGION4+3
REGION4+4
$$WRITE REGION1+6, REGION1+18, REGION1+31, REGION1+41, REGION1+49, REGION1+56, REGION1+65, REGION2+11, REGION2+12, REGION2+15
REGION3+6, REGION4+3, REGION4+4
EOBPRINT EN+24, EN+31, EOBALL+13, PRINTOPT+7
EOBQUIT EOBPRINT+5
GETEOBS EN+11, EOBALL+9
MRAPRINT EN+23, EN+29
MRAQUIT MRAPRINT+6
REGION0 EOBPRINT+12
REGION1 REGION0+3, REGION0+4
SELX SEL+25, SEL+40

Naked Globals

Name Field # of Occurrence
^( REGION1+11, REGION2+5, REGION2+12, REGION4+4, GETEOBS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EOBPRINT+1~, EOBPRINT+4*, MRAPRINT+1~, MRAPRINT+5*
%ZIS("A" EOBPRINT+3*, MRAPRINT+4*
A SEL+10~, SEL+32*, SEL+33, SEL+34
CLMSTAT SEL+9~, SEL+21*, SEL+23
COUNT SEL+9~, SEL+14*, SEL+22*, SEL+23, SEL+25, SEL+29, SEL+32, SEL+38
DIC PRINTOPT+1~, PRINTOPT+2*
DIC("S" PRINTOPT+2*
DIC("W" PRINTOPT+3*
DIC(0 PRINTOPT+2*
DIR GETIBIFN+1~, PAUSE+3!, OKTOPRT+4~, SEL+10~, SEL+39!
DIR("?" OKTOPRT+9*
DIR("A" OKTOPRT+7*, OKTOPRT+8*, SEL+38*
DIR("B" OKTOPRT+6*
DIR(0 PAUSE+3*, OKTOPRT+6*, SEL+38*
DIROUT OKTOPRT+4~, SEL+10~
DIRUT PAUSE+2!, OKTOPRT+4~, SEL+10~
DTOUT PAUSE+2!, OKTOPRT+4~, SEL+10~, PRINTOPT+5
DUOUT PAUSE+2!, OKTOPRT+4~, SEL+10~, PRINTOPT+5
EOBDATE EN+1~, EN+21*, EN+22, SEL+9~
EOBDT SEL+9~, SEL+19*, SEL+23
EOBTYP SEL+9~, SEL+20*, SEL+23
FRMTYP EN+2~, EN+7*
FULLSTOP EOBPRINT+1~, EOBPRINT+2*, EOBQUIT+2, PAUSE+2*
IBALL EN+2~, EN+10, EN+11, EOBALL+6~, EOBALL+7, EOBALL+9, GETEOBS~
IBALL( GETEOBS+6
IBCA REGION1+1~, REGION1+59*, REGION1+63
IBCN REGION1+1~, REGION1+21*, REGION1+23, REGION2+5*, REGION2+12
IBD REGION1+1~, REGION1+5*, REGION1+6, REGION1+16*, REGION1+17*, REGION1+23*, REGION1+29*, REGION1+30, REGION1+38*, REGION1+39*
, REGION1+40, REGION1+46*, REGION1+47*, REGION1+48, REGION1+52*, REGION1+53, REGION1+54*, REGION1+55, REGION1+62*, REGION1+63*
, REGION1+64, REGION2+3*, REGION2+4, REGION2+7*, REGION2+8, REGION2+9*, REGION2+10, REGION2+12*
IBDA GETIBIFN+1~, GETIBIFN+4*, GETIBIFN+5
IBEOB SEL+9~, SEL+12*, SEL+13, SEL+41*, SELX+1
IBI EN+1~, EN+13*, EN+22*, EN+23, EN+24, EN+26*, EN+27, EN+29, EN+31, EOBPRINT~
, EOBPRINT+12, MRAPRINT~, MRAPRINT+3, REGION0~, REGION0+3, REGION0+4*, REGION1~, REGION1+11, REGION1+12, REGION1+24
, REGION1+26, REGION1+28, REGION1+35, REGION1+37, REGION2+2, REGION2+5, REGION2+12, REGION3+3, REGION3+4, REGION3+5
REGION3+6, REGION4+2, REGION4+4, EOBALL+6~, GETEOBS+7*, GETEOBS+9*, PRINTOPT+6*, PRINTOPT+7
IBICNT EN+1~, EN+12*, EN+13*, EN+15, EN+20
IBIFN EN~, EN+5*, EN+6, EN+7, EN+8, EN+10, EN+12, EN+21, EN+22, EN+23
, EN+24, GETIBIFN+1~*, GETIBIFN+5*, GETIBIFN+6, REGION1+17, EOBALL~, EOBALL+7, GETEOBS+4~, GETEOBS+5*, GETEOBS+6*
, GETEOBS+7, GETEOBS+9, PRINTOPT+1~, PRINTOPT+6*
IBM REGION1+1~, REGION1+12*, REGION1+13, REGION1+15, REGION1+21, REGION1+26, REGION1+28, REGION1+34, REGION1+45, REGION1+60
, SEL+9~, SEL+16*, SEL+17, SEL+18, SEL+19, SEL+20, SEL+21
IBM1 REGION1+1~, REGION1+24*, REGION1+25, REGION1+52, REGION1+54, REGION1+59, SEL+10~
IBM2 REGION1+1~, REGION1+35*, REGION1+44
IBPGN MRAPRINT+2~
IBPR REGION1+2~, REGION1+45*, REGION1+46
IBPT REGION1+2~, REGION1+25*, REGION1+26*, REGION1+28*, REGION1+29
IBPY REGION1+2~, REGION1+34*, REGION1+38
IBQUIT MRAPRINT+2~*, PRINTOPT+5*
IBSHEOB EN+2~, EN+11, EN+13, EN+26, EOBPRINT~, EOBPRINT+12, REGION0~, EOBALL+6~, EOBALL+9, EOBALL+10
, EOBALL+13, GETEOBS~, SEL~, SEL+13
IBSHEOB( EN+13, REGION0+4, GETEOBS+7*, GETEOBS+9*, SEL+15
IBSPL REGION1+2~, REGION1+11*, REGION1+14, REGION1+63
IBST REGION1+2~, REGION1+60*, REGION1+62, REGION2+5*, REGION2+6*, REGION2+12*, REGION2+13
IBSTR WRITE~, WRITE+1, REGION1+1~, REGION1+6*, REGION1+16*, REGION1+17*, REGION1+18, REGION1+23*, REGION1+30*, REGION1+31
, REGION1+38*, REGION1+40*, REGION1+41, REGION1+46*, REGION1+48*, REGION1+49, REGION1+53*, REGION1+55*, REGION1+56, REGION1+61*
, REGION1+62*, REGION1+64*, REGION1+65, REGION2+4*, REGION2+8*, REGION2+10*, REGION2+11, REGION2+12*, REGION2+14*, REGION2+15
REGION3+6*, REGION4+3*, REGION4+4*
IBTA REGION1+2~, REGION1+35*, REGION1+37*, REGION1+39
IBTS REGION1+2~, REGION1+44*, REGION1+47
IBTY REGION1+2~, REGION1+13*, REGION1+14*, REGION1+15*, REGION1+16, REGION1+62, REGION2+2
IBX REGION1+1~, REGION1+22*, REGION1+29, REGION1+39, REGION1+47, REGION1+63
IEN MRAPRINT+1~, MRAPRINT+3*, SEL+9~, SEL+14*, SEL+15*, SEL+16, SEL+23
INPAT EN+2~, EN+8*
INSCO SEL+9~, SEL+17*, SEL+23
IO EOBPRINT+12, MRAPRINT+13
IO("Q" EOBPRINT+5, EOBPRINT+11!, MRAPRINT+6, MRAPRINT+12!
IOF PAUSE+2, REGION0+4
IOSL PAUSE+2
IOST EOBQUIT+2, MRAQUIT+2, PAUSE+1
J SEL+10~, SEL+28*, SEL+29, SEL+32*, SEL+33
L SETLN~, SETLN+5
LIST SEL+9~
LIST( SEL+23*, SEL+32, SEL+41
POP EOBPRINT+1~, EOBPRINT+4, MRAPRINT+1~, MRAPRINT+5
S SETLN~, SETLN+5
SEQ SEL+9~, SEL+18*, SEL+23
U EN+29, EN+31, GETIBIFN+5, REGION1+13, REGION1+15, REGION1+21, REGION1+25, REGION1+26, REGION1+28, REGION1+34
, REGION1+35, REGION1+44, REGION1+45, REGION1+52, REGION1+54, REGION1+59, REGION1+60, REGION2+7, REGION2+9, SEL+17
, SEL+18, SEL+19, SEL+20, SEL+21, SEL+23, SEL+33, SEL+34, PRINTOPT+6
V SETLN~, SETLN+5
>> VALMBCK EN+4*
>> VALMBG EN+5
>> VALMLST EN+5
>> VALMY(0 GETIBIFN+4
X REGION2+5*, REGION2+7, REGION2+9, SETLN~, SETLN+5, OKTOPRT+4~, SEL+10~
>> XQORNOD(0 GETIBIFN+3
Y OKTOPRT+4~, OKTOPRT+12, SEL+10~, SEL+40, SEL+41, PRINTOPT+1~, PRINTOPT+5, PRINTOPT+6
Z REGION3+1~, REGION3+4*, REGION3+5, REGION3+6*, REGION4+1~, REGION4+4*, EOBALL+6~, GETEOBS+7*
>> ZTDESC EOBPRINT+8*, MRAPRINT+9*
>> ZTQUEUED EOBQUIT+1, MRAQUIT+1
>> ZTREQ EOBQUIT+1*, MRAQUIT+1*
>> ZTRTN EOBPRINT+6*, MRAPRINT+7*
>> ZTSAVE("EOBDATE" EOBPRINT+7*, MRAPRINT+8*
>> ZTSAVE("FRMTYP" EOBPRINT+7*, MRAPRINT+8*
>> ZTSAVE("IB*" EOBPRINT+7*, MRAPRINT+8*
>> ZTSAVE("IEN" EOBPRINT+7*, MRAPRINT+8*
>> ZTSAVE("INPAT" EOBPRINT+7*, MRAPRINT+8*
ZTSK EOBPRINT+10, EOBPRINT+11!, MRAPRINT+11, MRAPRINT+12!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All