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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCU7U

Package: Integrated Billing

Routine: IBCU7U


Information

IBCU7U ;ALB/ARH - BILL PROCEDURE UTILITIES ; 10-OCT-03

Source Information

Source file <IBCU7U.m>

Entry Points

Name Comments DBIA/ICR reference
DELCPT(IBIFN,OLDDA) ; delete a CPT code from a bill
; Input: OLDDA = ifn of cpt in bill cpt multiple to be deleted
EDITCPT(IBIFN,OLDDA,NEWCPT) ; replace a CPT code on the bill with another CPT code
; Input: OLDDA = ifn of cpt in bill cpt multiple to be replaced
; NEWCPT = ifn of cpt code to be added
COPYCPT(IBIFN,OLDDA,NEWCPT) ; add a new CPT and populate date fields with data from an existing bill cpt
; Input: OLDDA = ifn of cpt in bill cpt multiple to be copied
; NEWCPT = ifn of cpt code to be added
COPYCPQ
ADDCPT(IBIFN,SDLN) ; add a new CPT code to a bill and populate it's data based on clinical data
; Input: SDLN - data line from ^UTILITY($J,"CPT-CNT" created in VST^IBCCPT
; ^utility($j,cpt-cnt,count)=code^date^on bill^is BASC^divis^nb^nb mess^provider^clinic^mod,mod^Opt Enc Ptr
ADDCPTQ
GETSD(IBIFN) ; get the procedures from the clinical data covered by the bill
; Output: ^UTILITY($J,"CPT-CNT",X)= ... (from VST^IBCCPT)
; ^UTILITY($J,"CPT-CLN",CPT,EVDT)= ...

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
399.0304 GETS^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call