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

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 5 EDITCI^IBCREF  RPT^IBCROI  (TMPHDR,TMPLN)^IBCROI1  $$CSBI^IBCRU3  $$INACTCI^IBCRU4  
Kernel 2 ^%ZIS  ^%ZTLOAD  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 3 IBCR INACTIVE CODES  IBYPPF  IBYPPG  

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

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZTLOAD DEV+2
^DIR ENTER+8, ENTER+13
EDITCI^IBCREF INACTCPT+29
RPT^IBCROI RPT+4
TMPHDR^IBCROI1 TMPHDR+2
TMPLN^IBCROI1 INACTCPT+28
$$CSBI^IBCRU3 INACTCPT+10
$$INACTCI^IBCRU4 INACTCPT+22
$$CPT^ICPTCOD INACTCPT+16

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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIR
  • Line Location:
    • ENTER+8
    • ENTER+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(363.2 - [#363.2] INACTCPT+14, INACTCPT+19, INACTCPT+20, INACTCPT+25
^IBE(363.1 - [#363.1] INACTCPT+8
^TMP($J ENTER+5!, RPT+1!, RPT+3*

Label References

Name Line Occurrences
$$INACTCPT ENTER+15, RPT+2
$$TMPHDR INACTCPT+12
DEV ENTER+9
RPT ENTER+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
CS TMPHDR~
DIR ENTER+5~, ENTER+8!, ENTER+13!
DIR("A" ENTER+13*
DIR(0 ENTER+7*, ENTER+13*
DIRUT ENTER+5~, ENTER+8
DT INACTCPT+16
DTOUT ENTER+5~
DUOUT ENTER+5~
IBBI INACTCPT+6~, INACTCPT+10*
IBCIFN INACTCPT+6~, INACTCPT+20*, INACTCPT+22, INACTCPT+25, INACTCPT+28, INACTCPT+29
IBCNT INACTCPT+6~*, INACTCPT+27*, INACTCPT+30, RPT+1~, RPT+2*, RPT+3
IBCS INACTCPT+6~, INACTCPT+8*, INACTCPT+10, INACTCPT+11, INACTCPT+12
IBEFDT INACTCPT+6~, INACTCPT+19*, INACTCPT+20, INACTCPT+24
IBHDR TMPHDR+1~*, TMPHDR+2
IBINDATE INACTCPT+6~, INACTCPT+24*, INACTCPT+25, INACTCPT+29
IBINDTCI INACTCPT+6~, INACTCPT+22*
IBITM INACTCPT+6~, INACTCPT+14*, INACTCPT+16, INACTCPT+19, INACTCPT+20
IBQUIT ENTER+5~, ENTER+9, DEV+1*, DEV+2*
IBSCRPT RPT+1~*
IBSUB2 INACTCPT+6~, INACTCPT+12*, INACTCPT+28, TMPHDR+1~*, TMPHDR+2, TMPHDR+3
IBX INACTCPT+6~, INACTCPT+16*, INACTCPT+17
IBXRF INACTCPT+6~, INACTCPT+11*, INACTCPT+14, INACTCPT+19, INACTCPT+20
INDT INACTCPT+6~, INACTCPT+17*, INACTCPT+22, INACTCPT+24
IO("Q" DEV+2!
IOF ENTER+2
>> POP DEV+1
SAVE INACTCPT~, INACTCPT+12, INACTCPT+28
U INACTCPT+16, INACTCPT+17, INACTCPT+25, RPT+3
X ENTER+5~, DATE~, DATE+1
>> XPDNM INACTCPT+11
Y ENTER+5~, ENTER+8, ENTER+9, ENTER+13, ENTER+15
>> ZTDESC DEV+2*
>> ZTQUEUED INACTCPT+11
>> ZTRTN DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All