Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call