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

Package: Integrated Billing

Routine: IBCREC


Information

IBCREC ;ALB/ARH - RATES: CM INACTIVATE CPT CHARGE OPTION ; 22-MAY-1996

Source Information

Source file <IBCREC.m>

Entry Points

Name Comments DBIA/ICR reference
ENTER ; OPTION ENTRY POINT: inactivate all CPT procedures Charge Items that are currently inactive in the CPT file
INACTCPT(SAVE) ; inactivate charges for all Inactive CPT codes, all sets checked
; if an active charge for an Inactive CPT, the CPT's inactive date is added as the charges Inactive Date
; if a CPT is inactive before the charges Effective date, that Effective date is added as the Inactive Date
; Input: SAVE - if true, charge items that would be deleted are entered into TMP array for print instead
; Output: returns the count of the charge items inactivated
DATE(X) ;
TMPHDR(CS) ; set up array header for printed report
DEV ; get device for printed report
RPT ; print report - entry point for tasked jobs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !,?8,"**** INACTIVATE CHARGES FOR ALL CURRENTLY INACTIVE CPTS ****"
  • Line Location: ENTER+2
Function Call: WRITE
  • Prompt: !!,?5,"For all Charge Sets based on CPT procedures, this option will add an",!,?5,"Inactive Date to each Charge Item that is a currently Inactive CPT code.",!!
  • Line Location: ENTER+3
Function Call: WRITE
  • Prompt: !!!,"All charges for currently Inactive CPT codes will become inactive",!,"on the CPT Inactive Date.",!
  • Line Location: ENTER+11
Function Call: WRITE
  • Prompt: !,"None inactivated",!
  • Line Location: ENTER+13
Function Call: WRITE
  • Prompt: !,"Beginning Inactivations"
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: !,$$INACTCPT(0)," charges inactivated"
  • Line Location: ENTER+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: INACTCPT+11
Info |  Source |  Entry Points |  Interaction Calls