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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls