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

Package: Integrated Billing

Routine: IBCEU5


Information

IBCEU5 ;ALB/TMP - EDI UTILITIES (continued) FOR CMS-1500 ;13-DEC-99

Source Information

Source file <IBCEU5.m>

Entry Points

Name Comments DBIA/ICR reference
EXTCR(IBPRV) ; Called by trigger on field .02 of file 399.0222
; Also called by trigger on field .02 of file 399.0404 (DEM;432).
; Function returns the first 3 digits of the provider's degree if
; a VA provider or the credentials in file 355.9 if non-VA provider
; IBPRV = vp to file 200 or 355.93
FTPRV(IBIFN,NOASK) ; If form type changes from UB-04 to CMS-1500 or vice
; versa, ask to change provider function to appropriate function for
; form type (ATTENDING = UB-04, RENDERING = CMS-1500)
; IBIFN = ien of bill in file 399
; NOASK (flag) = 1 if change should happen without asking first
TXFERPRV(IBIFN,FT) ; Ask to change the function of the main provider on
; bill IBIFN to the function appropriate to the form type FT
;
PRVCHG(IBIFN,IBFT) ; Change provider type to type consistent with current
; data on bill
CLEANUP(IBIFN,FT)
PRVHELP ; Text for the provider function help
SPECIFIC(IBIFN) ; Display specific provider requirements for the bill IBIFN
HLPTXT ; Helptext for provider function
LINKRX(IBIFN,IBREV) ; Ask for revenue code's RX if not already there
LINKCPT(IBIFN,IBREV) ; Ask for revenue code's CPT
UPDPTR(IBIFN,IBREV,Y) ;
INSFT(IBIFN) ; Returns 1 if form type is UB-04, 0 if CMS-1500 or J430D

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TXFERPRV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRVHELP+8
Function Call: WRITE
  • Prompt: !,$P($T(HLPTXT+IBZ),";;",2)
  • Line Location: PRVHELP+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRVHELP+16
Function Call: WRITE
  • Prompt: !,"This bill is ",$S(IBFT=7:"J430D",IBFT=3:"UB-04",1:"CMS-1500"),"/",$S($$INPAT^IBCEF(IBIFN):"Inpatient",1:"Outpatient")
  • Line Location: SPECIFIC+5
Function Call: WRITE
  • Prompt: !!,"The valid provider functions for this bill are:"
  • Line Location: SPECIFIC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SPECIFIC+16
Function Call: WRITE
  • Prompt: !,"PROCEDURE #"_$P(IBRC,U,11)_" HAS BEEN ASSOCIATED WITH THIS MANUAL CHARGE"
  • Line Location: LINKCPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LINKCPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LINKCPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LINKCPT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: LINKCPT+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
399.0222 FDA^DILF
399.042 FDA^DILF
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call