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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCEP8A

Package: Integrated Billing

Routine: IBCEP8A


Information

IBCEP8A ;ALB/ESG - Functions for provider ID maint ;12/27/2005

Source Information

Source file <IBCEP8A.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 ($$FT,F)^IBCEF  $$CLIANVA^IBCEP8  
Kernel 1 ($$ID,LCDSYS)^XUAF4  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 18 IBCBB2  IBCEF11  IBCEF74A  IBCEFP  IBCSC10H  IBXS6  IBXS7  IBXSA2  
IBXSAH  IBXSC6  IBXSC7  IBXSC822  IBXX1  IBXX19  IBXX20  ^DGCR(399  
^IBA(364.5  ^IBA(364.7  

Entry Points

Name Comments DBIA/ICR reference
CLIA(IBIFN) ; Default CLIA# for claim
CLIAX ;
LAB(IBIFN) ; Function determines if LAB type of service is on claim
; Claim must be a CMS-1500 claim form type
LABX ;
CLIAREQ(IBIFN) ; Function determines if the CLIA# is required for claim
; Return value=1 Yes, the CLIA# is required; otherwise 0.
CLIAREQX ;
MAMMO(IBIFN,IBMC) ; Function to determine the default mammography certification
; number for the claim
; Array IBMC is returned if passed by reference
; IBMC = # of associated mammo#'s
; IBMC(n) = [1] coding system or "" for Non-VA Facilities
; [2] mammo cert#
MAMMOX ;
MAMMODP(IBIFN) ; Procedure to display a listing of default mammo cert#'s
; Used during input template on screen 8 for CMS-1500 claims
MAMMODPX ;
XRAY(IBIFN) ; Function determines if X-RAY type of service is on claim
; Claim must be a CMS-1500 claim form type
XRAYX ;
EIN(IBIFN) ; Function to return the EIN/tax ID for either the VA facility
; or the non-VA facility. Used for SUB-9.
EINX ;
BOX324(IBIFN,IBXSAVE,IBXDATA) ; Procedure which further defines and formats
; form 1500, box 32, line 4.
; *** THIS IS NOT USED FOR THE NEW CMS-1500 CLAIM FORM ***
; This is either the facility Tax ID or it is the mammography
; certification number.
; Input: IBIFN, IBXSAVE array (pass by ref), IBXDATA (pass by ref)
; Output: IBXDATA (pass by ref)
BOX32X ;
SUB1OK(IBIFN) ; This function determines if the claim meets the criteria
; for being eligible to output a SUB1 segment which is for professional
; purchased services. Must be CMS-1500, non-VA facility, and Fee Basis.
SX ;

External References

Name Field # of Occurrence
$$FT^IBCEF LAB+5, CLIAREQ+4, XRAY+5, SUB1OK+8
F^IBCEF LAB+6, XRAY+6, BOX324+11
$$CLIANVA^IBCEP8 CLIA+4
$$SITE^VASITE MAMMO+15
$$ID^XUAF4 CLIA+11, MAMMO+22
LCDSYS^XUAF4 MAMMO+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"No default mammography certification numbers on file.",!
  • Line Location: MAMMODP+4
Function Call: WRITE
  • Prompt: !!?3,"The Mammography Certification #"
  • Line Location: MAMMODP+5
Function Call: WRITE
  • Prompt: "'s"
  • Condition for execution: IBMC>1
  • Line Location: MAMMODP+5
Function Call: WRITE
  • Prompt: " defined for this "
  • Line Location: MAMMODP+6
Function Call: WRITE
  • Prompt: "non-"
  • Condition for execution: $P($G(^DGCR(399,IBIFN,"U2")),U,10)
  • Line Location: MAMMODP+6
Function Call: WRITE
  • Prompt: !?7,$P(IBMC(IBZ),U,2),?21,$P(IBMC(IBZ),U,1)
  • Line Location: MAMMODP+9
Function Call: WRITE
  • Prompt: !?3,"If you enter a different number it will be sent with this claim only."
  • Line Location: MAMMODP+10
Function Call: WRITE
  • Prompt: !?3,"To change the defined Mammography Certification #, use Prov ID Maint."
  • Line Location: MAMMODP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MAMMODP+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CLIA+9
^DGCR(399 - [#399] CLIA+3, CLIA+7, CLIAREQ+8, CLIAREQ+12, MAMMO+8, MAMMODP+6, MAMMODP+11, EIN+3, SUB1OK+5
^IBA(355.93 - [#355.93] MAMMO+10, EIN+6
^IBE(350.9 - [#350.9] EIN+14

Label References

Name Line Occurrences
$$LAB CLIAREQ+5
$$MAMMO MAMMODP+3
BOX32X BOX324+15, BOX324+18
CLIAREQX CLIAREQ+4, CLIAREQ+5, CLIAREQ+8
CLIAX CLIA+4, CLIA+8, CLIA+10
EINX EIN+5
LABX LAB+5
MAMMODPX MAMMODP+4
MAMMOX MAMMO+9, MAMMO+16
SX SUB1OK+8, SUB1OK+9, SUB1OK+10
XRAYX XRAY+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CDSYS MAMMO+6~, MAMMO+19
CDSYS( MAMMO+21
CLIA CLIA+1~, CLIA+2*, CLIA+4*, CLIA+11*, CLIAX+1
CODSYS MAMMO+6~, MAMMO+20*, MAMMO+21*, MAMMO+22, MAMMO+24, MAMMO+25
DIV CLIA+1~, CLIA+7*, CLIA+8, CLIA+9
IBIFN CLIA~, CLIA+2*, CLIA+3, CLIA+4, CLIA+7, LAB~, LAB+5, LAB+6, CLIAREQ~, CLIAREQ+4
, CLIAREQ+5, CLIAREQ+8, CLIAREQ+12, MAMMO~, MAMMO+7*, MAMMO+8, MAMMODP~, MAMMODP+3, MAMMODP+6, MAMMODP+11
, XRAY~, XRAY+5, XRAY+6, EIN~, EIN+3, BOX324~, BOX324+11, SUB1OK~, SUB1OK+5, SUB1OK+8
IBMC MAMMO~, MAMMO+7*, MAMMO+11*, MAMMO+23*, MAMMO+24, MAMMO+27, MAMMODP+2~, MAMMODP+3, MAMMODP+4, MAMMODP+5
, MAMMODP+7
IBMC( MAMMO+24*, MAMMODP+9
IBMC(1 MAMMO+11*, MAMMO+27
IBMCID MAMMO+6~, MAMMO+22*, MAMMO+24, MAMMO+25
IBU2 EIN+2~, EIN+3*, EIN+4, EIN+10, SUB1OK+4~, SUB1OK+5*, SUB1OK+9, SUB1OK+10
IBXDATA LAB+2~, XRAY+2~, BOX324~, BOX324+15!, BOX324+18*, BOX324+21*
IBXDATA( LAB+8, XRAY+8
IBXSAVE BOX324~
IBXSAVE("OFAC" BOX32X+1!
IBXSAVE("REMOTE" BOX324+15, BOX32X+1!
IBZ MAMMODP+2~, MAMMODP+8*, MAMMODP+9*, BOX324+8~, BOX324+15, BOX324+18
ID EIN+2~, EIN+3*, EIN+6*, EIN+10*, EIN+14*, EINX+1
INST CLIA+1~, CLIA+9*, CLIA+10, CLIA+11, MAMMO+6~, MAMMO+15*, MAMMO+16, MAMMO+22
LAB LAB+2~, LAB+3*, LAB+8*, LABX+1
LN LAB+2~, LAB+7*, LAB+8*, XRAY+2~, XRAY+7*, XRAY+8*
MAMMO MAMMO+6~, MAMMO+7*, MAMMO+10*, MAMMO+11, MAMMO+25*, MAMMO+27*, MAMMOX+1
NONVA CLIA+1~, CLIA+3*, CLIA+4, MAMMO+6~, MAMMO+8*, MAMMO+9, MAMMO+10, EIN+2~, EIN+4*, EIN+5
, EIN+6
OK SUB1OK+4~, SUB1OK+5*, SUB1OK+12*, SX+1
REQ CLIAREQ+2~*, CLIAREQ+8*, CLIAREQ+12*, CLIAREQX+1
U CLIA+3, CLIA+7, CLIA+9, LAB+8, CLIAREQ+8, CLIAREQ+12, MAMMO+8, MAMMO+10, MAMMO+11, MAMMO+24
, MAMMO+27, MAMMODP+6, MAMMODP+9, MAMMODP+11, XRAY+8, EIN+4, EIN+6, EIN+10, EIN+14, SUB1OK+9
, SUB1OK+10
XRAY XRAY+2~, XRAY+3*, XRAY+8*, XRAYX+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All