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

Package: Integrated Billing

Routine: IBCEP2B


Information

IBCEP2B ;ALB/TMP - EDI UTILITIES for provider ID ;18-MAY-04

Source Information

Source file <IBCEP2B.m>

Entry Points

Name Comments DBIA/ICR reference
PROVID(IBIFN,IBPRIEN,IBCOBN,DIPA) ; Provider id entry on billing screen 10, and line level provider input on billing screens 4&5.
; IBIFN = ien file 399
; IBPRIEN = ien file 399.0222, or ien file 399.0404.
; IBCOBN = the COB number of the id being edited
; DIPA = passed by ref, returned with id data
; DIPA("EDIT")=-1 if no id editing = 1 if edit id = 2 if stuff id
; DIPA("PRID")= id to stuff DIPA("PRIDT")= id type to stuff
NEWID(IBIFN,IBPRIEN,IBCOBN,DIPA) ;
SELID(DIR,IBDEF,IBID,DIPA,IBNUM) ; Returns the selection from the array of possible IDs/ID actions
SELIDQ
MORE(DIR) ;
FACID(IBINS,IBFIDFL) ; Enter/edit billing facility ids
; IBINS = ien of ins co (file 36)
GETBPNUM(IBINS) ;
MAIN() ; Returns ien of main division of the database
FACNUM(IBIFN,IBCOB,IBQF) ; Function returns the current division's fac billing
; prov id for the COB insurance sequence from file 355.92
; IBIFN = ien file 399
; IBCOB = # of COB ins seq or if "", current assumed
; IBQF - 1 if qualifier is to be returned instead of ID
SOP(IBIFN,IBZD) ; Returns X12 current source of pay code for bill ien IBIFN
; IBZD = the current ins policy type, if known

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PROVID+13
Function Call: WRITE
  • Prompt: !,?19,"**** SECONDARY PERFORMING PROVIDER IDs ****"
  • Line Location: PROVID+14
Function Call: WRITE
  • Prompt: !!,$P("PRIMARY^SECONDARY^TERTIARY",U,IBCOBN)_" INSURANCE CO: "_$P($G(^DIC(36,+$G(^DGCR(399,IBIFN,"I"_IBCOBN)),0)),U)
  • Line Location: PROVID+15
Function Call: WRITE
  • Prompt: !,"PROVIDER: "_$$EXTERNAL^DILFD(399.0222,.02,"",$P(PRN0,U,2))_" ("_$$EXTERNAL^DILFD(399.0222,.01,"",+PRN0)_")",!
  • Line Location: PROVID+17
Function Call: WRITE
  • Prompt: !,"Line Level Provider: "_$$EXTERNAL^DILFD(399.0404,.02,"",$P(PRN0,U,2))_" ("_$$EXTERNAL^DILFD(399.0404,.01,"",+PRN0)_")",!
  • Line Location: PROVID+18
Function Call: WRITE
  • Prompt: !,"INS. COMPANY'S DEFAULT SECONDARY ID TYPE IS: "_$$EXTERNAL^DILFD(36,4.01,"",$P(Z(IBCOBN),U))
  • Line Location: NEWID+13
Function Call: WRITE
  • Prompt: !,?2," AND IS REQUIRED TO BE ENTERED FOR THIS CLAIM"
  • Line Location: NEWID+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWID+54
Function Call: WRITE
  • Prompt: !
  • Line Location: SELID+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELID+8
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FACID+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FACID+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.9 - [#355.9] EXTERNAL^DILFD
^DIC(36 - [#36] EXTERNAL^DILFD
399.0222 EXTERNAL^DILFD
399.0404 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call