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

Package: Integrated Billing

Routine: IBCU


Information

IBCU ;ALB/MRL - BILLING UTILITY ROUTINE ;01 JUN 88 12:00

Source Information

Source file <IBCU.m>

Entry Points

Name Comments DBIA/ICR reference
ARSTAT ;find status of bill in file 430.3 (ar) return status number
ARCAT ;Trigger logic to set who's responsible in 399.3 from AR Category
PTF ;Screen for appropriate PTF records
PTFQ
PTFW
AGE ;Input Transform for Condition Code 17
SEX ;Input Transform for Condition Code 18
REV ;Input Transform for Revenue Code
YN
NOPTF ; Input transform for file 399, field 159.5 (NON-VA ADMIT TIME)
DIS ;Determine Billing Discharge status from PTF
DISQ
INST ;Ask Institutution address info
PTADD(DFN,MAXL) ; outputs patient address for the trigger on Patient Short Address (399,110)
SM ;Flag for printing medicare statment on UB-82
CHGTYP(IBIFN,ARR) ; sets up array of all charge types defined on a bill: ARR(TYPE, COMPONENT)=""
CHGTYPE(IBIFN) ; returns list of charge types on a bill: TYPE ^ TYPE ^ ... ; EXTERNAL TYPE , EXTERNAL TYPE , ...
BCHGTYPE(IBIFN) ; returns type of bill and charges: (CLASS (.05): TYPE, TYPE, ...)
CLNSCRN(IBDT,CLIFN) ; screen for a Procedures Associated Clinic (399, 304, 6), returns true if clinic can be used
; clinic must be defined as a 'Clinic' and it must be active on date of procedure
PRVNUM(IBIFN,IBINS,COB) ; Trigger code (399:122,123,124)
; on Primary Secondary/Tertiary Carrier (399:101,102,103)
; returns the Provider Number for the Insurance Company
; Hospital Provider Number for prov id in file 355.92
; or Medicare A provider Number (psych/non-psych) if Medicare A
PRVNQ
BF() ; Returns ien of billing fac primary id type
BILLPNS(IBIFN) ; Trigger Code that sets all Bill P/S/T Prov# and QUAL (399: .122,123,124,128,129,130)
; on Bill Form Type (399:.19)
PRVQUAL(IBIFN,IBINS,COB) ; Trigger code for Bill P/S/T Prov QUAL (399:128,129,130)
; on P/S/T Carrier (399: 101,102,103)
; returns the Provider ID QUALIFIER
PRVQUALQ
ACIDS(IBIFN,COB,ENTRY) ; Administrative Contractor IDS
; This is called as a screen from fields 140, 142, and 144 in the BILL/CLAIMS file #399
; It should only allow types that have previously been defined for this insurance company and
; are allowed for this form type.
ACIDD(IBIFN,COB,ENTRY) ; Administrative Contractor ID Default
; This will default the ID based on the valid type entered.
; It is called from a trigger on fields 140, 142, and 144 in the BILL/CLAIMS file #399
; and triggers fields 141, 143, and 145

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Patient has no ACTIVE PTF RECORDS for this event date.",!,"A 'PTF NUMBER' is required for inpatient billing records."
  • Line Location: PTF+4
Function Call: WRITE
  • Prompt: !!,"Select the appropriate billing record from the above listing by number."
  • Line Location: PTF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PTFQ+0
Function Call: WRITE
  • Prompt: !!,"This patient is only ",VADM(4)," years old!!",!!
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !!,"This patient is a MALE!! Condition code 18 applies only to FEMALES!!",!!
  • Line Location: SEX+1
Function Call: WRITE
  • Prompt: !!,"Choose only ACTIVE Revenue Codes!!",!!
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !,$P(^DGCR(399.2,X,0),"^",1),?30,$P(^(0),"^",2)
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !!,"Only ACTIVE Revenue Codes may be selected!!",!!
  • Line Location: REV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] GET1^DIQ
^IBE(355.97 - [#355.97] FIND1^DIC
^DIC(36 - [#36] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call