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: IBCEU4

Package: Integrated Billing

Routine: IBCEU4


Information

IBCEU4 ;ALB/TMP - EDI UTILITIES ;02-OCT-96

Source Information

Source file <IBCEU4.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 EN^DDIOL  (,FIND,LIST)^DIC  CLEAN^DILF  RECALL^DILFD  ^DIR  
Integrated Billing 3 $$ICD9^IBACSV  ($$FT,F)^IBCEF  $$SPEC^IBCEU  

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: 8

Package Total Caller Graph
Integrated Billing 8 IBCEMRAB  IBCEU3  IBCSC11  IBXS74  IBXSC712  ^IBA(364.5  ^IBA(364.7  REVENUE CODE  

Entry Points

Name Comments DBIA/ICR reference
TESTFLD ; Entrypoint to call to test the output the formatter will
; produce for a specific entry in file 364.7
FLDS(IBIFN) ; Extract fields for bill IBIFN
DATE(X) ; Convert date in YYYYMMDD or YYMMDD format to MM DD YYYY or MM DD YY
MCRSPEC(IBIFN,MCR,IBPIEN) ; Returns specialty code for a provider on bill
; IBIFN = bill ien (file 399)
; MCR = 1 if 2-digit MCR code should be returned 0 or null=3 digit code
; IBPIEN = vp of the provider for which to get the
; specialty, otherwise it returns specialty code for the 'required'
; provider on bill (default is file 200 if no file designated)
ECODE(IBP,CD) ; Function returns 1 if procedure ien IBP is an E-code (in ICD-9 only)
; Added some code to handle ICD-10. While they no longer start with E, they are still (E)xternal Cause of Injury codes
; CD = returned = the external code, if passed by reference
BOX82NM(IBIFN,IBZSAVE) ; Returns the data to be printed in form locators 82
; and 83 on the UB92 for bill ien IBIFN, based on the providers on the
; bill
; Pass array IBZSAVE by reference
STATOK(IBIFN,VALST) ; Returns 1 if status of bill IBIFN is one of the valid
; status codes in VALST
RXPRLOOK(IBX) ; Do a FM lookup of procedures for RX that can be linked
; to a specific revenue code (ones that are not already soft-linked)
; Function returns ien of the 'CP' node multiple for the selected proc
; OR "" if none selected or selection is invalid
RXPRHLP(IBMAX,IBNEXT) ; Get list for ?? help
LINKED(DA,Y) ; Function returns 1 if proc already linked to an RX rev code
; DA = the DA array from the RC multiple
; Y = the ien of the CP multiple
XFER(IBQ) ; Transfer DILIST to IBLIST array
; IBQ = the number of entries already found
NOREV(DA,IBRX) ; Returns 1 if no other revenue code on bill DA(1)
; is linked to prescription entry IBRX
ASKRX(DA) ; Returns the selected RX entry in file 362.4
SLF(IBIFN) ; Returns 1 if Attending/Rendering provider id is SLF000
GETPOA(IBDX,PRTFLG) ; returns POA indicator for a given DX
; IBDX - ien in file 362.3
; PRTFLG - 1 if POA is fetched for printed form, 0 otherwise

External References

Name Field # of Occurrence
EN^DDIOL RXPRLOOK+62
^DIC TESTFLD+6, FLDS+5
FIND^DIC RXPRLOOK+18
LIST^DIC RXPRHLP+7
CLEAN^DILF FLDS+18, RXPRLOOK+64
RECALL^DILFD RXPRLOOK+54, RXPRLOOK+62
^DIR RXPRLOOK+44, ASKRX+5
$$ICD9^IBACSV ECODE+4
$$FT^IBCEF BOX82NM+12, BOX82NM+15
F^IBCEF FLDS+13, MCRSPEC+10, BOX82NM+6, SLF+3
$$SPEC^IBCEU MCRSPEC+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(IBCT:"Another ",1:""),"Bill: "
  • Line Location: TESTFLD+6
Function Call: READ
  • Formatting: !!
  • Prompt: "VARIABLE TO DISPLAY (IBXDATA): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: TESTFLD+10
Function Call: WRITE
  • Prompt: !,"BAD VARIABLE NAME"
  • Line Location: TESTFLD+11
Function Call: WRITE
  • Prompt: " *** NO DATA TO DISPLAY"
  • Line Location: TESTFLD+12
Function Call: WRITE
  • Prompt: !,X," = ",$G(@X)
  • Line Location: TESTFLD+14
Function Call: WRITE
  • Prompt: !,X," = ",@X
  • Line Location: TESTFLD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: TESTFLD+16
Function Call: WRITE
  • Prompt: !,"Remember to run this for flds that set up pre-requisite data (if any) first",!
  • Line Location: FLDS+2
Function Call: WRITE
  • Prompt: !,DIR("A",Z)
  • Line Location: RXPRLOOK+42
Function Call: WRITE
  • Prompt: !
  • Line Location: RXPRLOOK+43
Function Call: WRITE
  • Prompt: !!,"There were more than ",IBMAX," matches found. Please try again with more specific input",!
  • Line Location: RXPRLOOK+51
Routine Call
  • DIC
  • Line Location:
    • TESTFLD+6
    • FLDS+5
Routine Call
  • DIC
  • Line Location:
    • RXPRLOOK+18
Routine Call
  • DIC
  • Line Location:
    • RXPRHLP+7
Routine Call
  • DIR
  • Line Location:
    • RXPRLOOK+44
    • ASKRX+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(364.7 - [#364.7] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls
399.0304 FIND^DIC,  LIST^DIC,  RECALL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] MCRSPEC+9, BOX82NM+15, STATOK+4, LINKED+4, NOREV+3, ASKRX+3
^IBA(362.3 - [#362.3] GETPOA+5
^IBA(362.4 - [#362.4] ASKRX+3
^IBA(364.5 - [#364.5] FLDS+9, FLDS+11
^IBA(364.6 - [#364.6] FLDS+10
^IBA(364.7 - [#364.7] FLDS+17
^TMP("DIERR" RXPRLOOK+9!
^TMP("DIHELP" RXPRLOOK+9!
^TMP("DILIST" RXPRLOOK+9!, XFER+4, XFER+6
^TMP("IBLIST" RXPRLOOK+9!, RXPRLOOK+21, RXPRLOOK+23*, RXPRLOOK+26, RXPRLOOK+28, RXPRLOOK+29, RXPRLOOK+30, RXPRLOOK+31, RXPRLOOK+33, RXPRLOOK+36
, RXPRLOOK+41, RXPRLOOK+47, RXPRLOOK+50, RXPRLOOK+54, RXPRLOOK+55*, RXPRLOOK+56, RXPRLOOK+58, RXPRLOOK+59, RXPRLOOK+60, RXPRLOOK+61
, RXPRLOOK+62, RXPRLOOK+65!, RXPRHLP+6, XFER+4*, XFER+6*, XFER+7*
^TMP("IBXDATA" TESTFLD+8!
^TMP("IBXSAVE" TESTFLD+8!
^TMP($J TESTFLD+8!

Label References

Name Line Occurrences
FLDS TESTFLD+9
RXPRHLP RXPRLOOK+13, RXPRLOOK+52
XFER RXPRLOOK+19, RXPRHLP+7

Naked Globals

Name Field # of Occurrence
^( NOREV+3
^(0 RXPRLOOK+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CD ECODE~, ECODE+4*
DA LINKED~, LINKED+5, NOREV~, NOREV+3, ASKRX~, ASKRX+3
DA(1 RXPRLOOK+18, RXPRHLP+6, LINKED+4, NOREV+3, ASKRX+3
DIC TESTFLD+3~, TESTFLD+6*, FLDS+1~, FLDS+5*
DIC(0 TESTFLD+6*, FLDS+5*
>> DIQUIET RXPRLOOK+12, RXPRLOOK+23
DIR RXPRLOOK+43!, RXPRLOOK+44!, ASKRX+1~, ASKRX+5!
DIR("?" RXPRLOOK+39*
DIR("A" RXPRLOOK+34*, RXPRLOOK+36*, RXPRLOOK+37*, RXPRLOOK+41*, RXPRLOOK+42, RXPRLOOK+44, ASKRX+3*
DIR("B" ASKRX+3*
DIR("S" ASKRX+4*
DIR(0 RXPRLOOK+38*, RXPRLOOK+41*, ASKRX+2*
DTIME TESTFLD+10
DUZ RXPRLOOK+54, RXPRLOOK+62
IB SLF+1~, SLF+2*, SLF+4*, SLF+5
IB1 FLDS+1~, FLDS+4*, FLDS+5, FLDS+6*, RXPRLOOK+24~, RXPRLOOK+25*, RXPRLOOK+26*, RXPRLOOK+28, RXPRLOOK+29, RXPRLOOK+30
, RXPRLOOK+31, RXPRLOOK+33, RXPRLOOK+36, RXPRLOOK+47, RXPRLOOK+50
IB2 RXPRLOOK+24~, RXPRLOOK+25*, RXPRLOOK+27*, RXPRLOOK+28, RXPRLOOK+32, RXPRLOOK+37, RXPRLOOK+38, RXPRLOOK+39, RXPRLOOK+41
IBAR FLDS+1~, FLDS+11*, FLDS+15, FLDS+16
IBCNT RXPRLOOK+24~
IBCT TESTFLD+3~, TESTFLD+5*, TESTFLD+6, TESTFLD+7*, BOX82NM+4~, BOX82NM+11*, BOX82NM+14*, BOX82NM+16, BOX82NM+17*
IBDT MCRSPEC+7~, MCRSPEC+9*, MCRSPEC+11
IBDX GETPOA~, GETPOA+5
IBEACH RXPRLOOK+7~, RXPRLOOK+8*, RXPRLOOK+13*, RXPRLOOK+32, RXPRLOOK+33
IBGOT RXPRLOOK+24~, RXPRLOOK+25*, RXPRLOOK+26, RXPRLOOK+53*, RXPRLOOK+54*, RXPRLOOK+55
IBHLP RXPRLOOK+7~, RXPRLOOK+8*, RXPRLOOK+13*, RXPRLOOK+28, RXPRLOOK+35, RXPRLOOK+40, RXPRLOOK+45, RXPRLOOK+49, RXPRLOOK+51
IBI FLDS+1~, FLDS+9*, FLDS+17
IBIFN FLDS~, FLDS+13, FLDS+17, MCRSPEC~, MCRSPEC+9, MCRSPEC+10, BOX82NM~, BOX82NM+6, BOX82NM+12, BOX82NM+15
, STATOK~, STATOK+4, SLF~, SLF+3
IBMANY RXPRLOOK+7~, RXPRLOOK+21*, RXPRLOOK+22, RXPRLOOK+56
IBMAX RXPRLOOK+7~, RXPRLOOK+8*, RXPRLOOK+13*, RXPRLOOK+18, RXPRLOOK+50, RXPRLOOK+51, RXPRLOOK+52, RXPRHLP~, RXPRHLP+7
IBNEXT RXPRLOOK+7~, RXPRLOOK+13, RXPRLOOK+52, RXPRHLP~, RXPRHLP+7
IBP ECODE~, ECODE+4
IBPIEN MCRSPEC~, MCRSPEC+10, MCRSPEC+11*
IBQ RXPRHLP+5~, RXPRHLP+6*, RXPRHLP+7, XFER~, XFER+4, XFER+7
IBRX NOREV~, NOREV+3
IBSEL RXPRLOOK+24~, RXPRLOOK+34!
IBSEL( RXPRLOOK+32*
IBX RXPRLOOK~, RXPRLOOK+11, RXPRLOOK+12, RXPRLOOK+13, RXPRLOOK+14*, RXPRLOOK+16, RXPRLOOK+17*, RXPRLOOK+18, RXPRLOOK+23*, RXPRLOOK+48*
, RXPRLOOK+53*, RXPRLOOK+54*, RXPRLOOK+62*, RXPRLOOK+66
IBXCOL FLDS+1~, FLDS+12*
IBXDATA TESTFLD+4!, TESTFLD+8!
IBXIEN FLDS+7~, FLDS+17*
IBXLN FLDS+1~, FLDS+12*
IBXPG FLDS+1~, FLDS+12*
IBXREC FLDS+1~, FLDS+12*
IBXSAVE TESTFLD+4!, TESTFLD+8!
IBZ MCRSPEC+7~, MCRSPEC+8*, MCRSPEC+11*, MCRSPEC+12*, MCRSPEC+13, ECODE+3~*, ECODE+5*, ECODE+6*, ECODE+7, BOX82NM+4~
, RXPRLOOK+7~, RXPRLOOK+11*, RXPRHLP+5~, RXPRHLP+6*, RXPRHLP+7, XFER+2~, XFER+3*, XFER+4*, XFER+7, SLF+1~
, SLF+4
IBZ( BOX82NM+13, BOX82NM+15*, BOX82NM+16, BOX82NM+17
IBZ(4 BOX82NM+15
IBZSAVE BOX82NM~
IBZSAVE("PRV-82" BOX82NM+7*, BOX82NM+16*, BOX82NM+17*
IBZXX FLDS+7~, FLDS+14, FLDS+16
MCR MCRSPEC~, MCRSPEC+12
OK STATOK+2~, STATOK+3*, STATOK+4*, STATOK+5
POA GETPOA+3~, GETPOA+4*, GETPOA+5*, GETPOA+7*, GETPOA+8
PRTFLG GETPOA~, GETPOA+7
Q ECODE+3~, RXPRLOOK+24~, RXPRLOOK+28*, RXPRLOOK+30*, RXPRLOOK+31*, RXPRLOOK+32, RXPRLOOK+57~, RXPRLOOK+58*, RXPRLOOK+60*, RXPRLOOK+61*
, RXPRLOOK+62
Q1 RXPRLOOK+24~, RXPRLOOK+29*, RXPRLOOK+30, RXPRLOOK+31, RXPRLOOK+57~, RXPRLOOK+59*, RXPRLOOK+60, RXPRLOOK+61
S TESTFLD+13~*, TESTFLD+15
U FLDS+9, FLDS+11, FLDS+12, MCRSPEC+9, ECODE+4, ECODE+5, ECODE+6, BOX82NM+17, STATOK+4, RXPRLOOK+41
, RXPRLOOK+50, XFER+7, NOREV+3, ASKRX+3, GETPOA+5
VALST STATOK~, STATOK+4
X TESTFLD+3~, TESTFLD+10*, TESTFLD+11, TESTFLD+12, TESTFLD+13, TESTFLD+14, TESTFLD+15*, FLDS+1~, DATE~, DATE+2
, DATE+3, DATE+4, NOREV+2~, NOREV+3*, NOREV+4, ASKRX+1~
Y TESTFLD+3~, TESTFLD+6, TESTFLD+9, FLDS+1~, FLDS+5, FLDS+9, RXPRLOOK+43*, RXPRLOOK+45*, RXPRLOOK+46, RXPRLOOK+53
, RXPRLOOK+54, LINKED~, LINKED+4, ASKRX+1~, ASKRX+6
Y(0 FLDS+9, FLDS+10, FLDS+11
Z FLDS+1~, FLDS+9*, FLDS+13, DATE+1~, DATE+2*, DATE+3*, DATE+4*, DATE+5, ECODE+3~, ECODE+4*
, ECODE+5, ECODE+6, BOX82NM+4~, BOX82NM+7*, BOX82NM+10*, BOX82NM+11, BOX82NM+12*, BOX82NM+13, BOX82NM+15, BOX82NM+16
, BOX82NM+17, STATOK+2~, RXPRLOOK+7~, RXPRLOOK+42*, LINKED+3~, LINKED+4*, LINKED+5, XFER+2~, XFER+3*, XFER+4*
, NOREV+2~, NOREV+3*
Z0 FLDS+1~, FLDS+10*, FLDS+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