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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCROIP

Package: Integrated Billing

Routine: IBCROIP


Information

IBCROIP ;ALB/ARH - RATES: REPORTS CHARGE ITEM: PROCEDURES ; 12/01/04

Source Information

Source file <IBCROIP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 4 (EXIT,PRINT)^IBCROI  (SRCHITM,TMPHDR)^IBCROI1  $$GETDT^IBCRU1  PSDR^IBODIV  
Kernel 3 ^%ZIS  ^%ZTLOAD  ($$LJ,$$UP)^XLFSTR  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCROR  

Entry Points

Name Comments DBIA/ICR reference
CPTDIC(CODE) ; inquiry on CPT code, returns null or 'internal^external'
SELRATE(RATES) ; get rates to review, RATES(ptr to 363.3)=Billing Rate Name returned, or RATES=0 if none selected
EN ; OPTION ENTRY POINT: Charge Item report for Procedures Only - get parameters then run the report
SELCPTS(CPTS) ; Select CPT Codes, returned in array ranges separated by dash, external form, or CPTS=0 if none selected
; will only allow ranges with matching first character because of length
RPT ; find, save, and print Charge Item report - entry for tasked jobs DBIA #2815
GET ; get charge items for selected procedures
DEV ; get device
SELDIVS(VAUTD) ; Issue prompt for Division (ALL: VAUTD=1, SELECT: VAUTD=0, VAUTD(DV ptr)=DV Name, ELSE: VAUTD=-1)
EXIT
CHKDV(RG,DIVS) ; check if Region contains a selected division (where DIVS is array of divisions)
QUIT()

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZTLOAD DEV+2
^DIC CPTDIC+1
^DIR SELRATE+14, SELCPTS+7
EXIT^IBCROI EXIT
PRINT^IBCROI RPT+14
SRCHITM^IBCROI1 GET+11
TMPHDR^IBCROI1 GET+13
$$GETDT^IBCRU1 EN+9, EN+10
PSDR^IBODIV SELDIVS+1
$$LJ^XLFSTR SELCPTS+10
$$UP^XLFSTR SELCPTS+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Procedure Charge Report: Print charges for selected CPT procedures.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Select Charge Billing Rates:"
  • Line Location: SELRATE+11
Function Call: WRITE
  • Prompt: !,?10,IBCNT," - ",$P(IBARR(IBCNT),U,2)
  • Line Location: SELRATE+12
Function Call: WRITE
  • Prompt: ?36,"??"
  • Line Location: SELCPTS+11
Function Call: WRITE
  • Prompt: ?36,"??"
  • Line Location: SELCPTS+13
Function Call: WRITE
  • Prompt: ?36,IBCOD1,"-",IBCOD2," Invalid Range"
  • Line Location: SELCPTS+14
Function Call: WRITE
  • Prompt: ?36,"Range too large, first character must match"
  • Line Location: SELCPTS+15
Routine Call
  • DIC
  • Line Location:
    • CPTDIC+1
Routine Call
  • DIR
  • Line Location:
    • SELRATE+14
    • SELCPTS+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(363.1 - [#363.1] RPT+4, RPT+5
^IBE(363.3 - [#363.3] SELRATE+3, SELRATE+4, SELRATE+5
^IBE(363.31 - [#363.31] CHKDV+2, CHKDV+3
^ICPT("B" GET+5, GET+6, GET+8, GET+9
^TMP($J RPT+2!

Label References

Name Line Occurrences
$$CHKDV RPT+8
$$CPTDIC SELCPTS+11
$$QUIT SELRATE+14, SELCPTS+7
DEV EN+12
EXIT EN+12
GET RPT+12
SELCPTS EN+7
SELDIVS EN+6
SELRATE EN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
CODE CPTDIC~, CPTDIC+1
CPTS EN+1~, EN+7, SELCPTS~, SELCPTS+2!*, SELCPTS+17*
CPTS( GET+3, SELCPTS+17*
DIC SELCPTS+2~, CPTDIC+1~*
DIC(0 CPTDIC+1*
DIR SELRATE+1~, SELCPTS+2~
DIR("?" SELCPTS+4*
DIR("A" SELRATE+14*, SELCPTS+5*
DIR("B" SELRATE+14*
DIR(0 SELRATE+14*, SELCPTS+5*
DIRUT SELRATE+1~, SELCPTS+2~, QUIT
DIVS EN+1~, EN+6, RPT+8, CHKDV~
DIVS( CHKDV+2
DT EN+9, EN+10
DTOUT SELRATE+1~, SELCPTS+2~, CPTDIC+1~, QUIT
DUOUT SELRATE+1~, SELCPTS+2~, CPTDIC+1~, QUIT
I CPTDIC+1~
IBARR SELRATE+1~, SELRATE+9*, SELRATE+14
IBARR( SELRATE+9*, SELRATE+12, SELRATE+16
IBBDT EN+1~, EN+9*, GET+11, GET+13
IBC1 GET+1~, GET+5*
IBC2 GET+1~, GET+6*
IBCFIRST GET+1~, GET+5*, GET+8
IBCIFN GET+1~, GET+9*, GET+11
IBCLAST GET+1~, GET+6*, GET+8
IBCNEXT GET+1~, GET+8*, GET+9
IBCNT SELRATE+1~, SELRATE+6*, SELRATE+8, SELRATE+9, SELRATE+12*, SELRATE+16*
IBCOD SELCPTS+2~, SELCPTS+8*, SELCPTS+10, SELCPTS+11, SELCPTS+17*
IBCOD1 SELCPTS+2~, SELCPTS+8*, SELCPTS+10*, SELCPTS+11*, SELCPTS+13, SELCPTS+14, SELCPTS+15, SELCPTS+17
IBCOD2 SELCPTS+2~, SELCPTS+8*, SELCPTS+10*, SELCPTS+11*, SELCPTS+13, SELCPTS+14, SELCPTS+15, SELCPTS+17
IBCPTS GET+1~, GET+3*, GET+4, GET+5, GET+6
IBCS EN+1~, RPT+4*, RPT+5, GET+11
IBCS0 EN+1~, RPT+5*, RPT+7, RPT+8, RPT+10
IBDFLT SELRATE+1~, SELRATE+8*, SELRATE+14
IBDV CHKDV+1~, CHKDV+2*, CHKDV+3
IBEDT EN+1~, EN+10*, GET+11, GET+13
IBI SELCPTS+2~, SELCPTS+7*
IBN SELRATE+1~, SELRATE+3*, SELRATE+4, SELRATE+9
IBQUIT EN+1~, EN+12*, DEV+1*, DEV+2*
IBSCRPT EN+1~, RPT+2*, GET+13
IBSEL CHKDV+1~*, CHKDV+2, CHKDV+3*, CHKDV+4
IBSUB EN+1~, RPT+10*, GET+11, GET+13
IBX SELRATE+1~, SELRATE+4*, SELRATE+5, SELRATE+9, SELRATE+16*, CPTDIC+1~*, CPTDIC+2, QUIT~*, QUIT+1
IBY SELRATE+1~, SELRATE+5*, SELRATE+8, SELRATE+16*
IO("Q" DEV+2!
>> POP DEV+1
RATES EN+1~, EN+5, SELRATE~, SELRATE+1!*, SELRATE+16*
RATES( RPT+7, SELRATE+16*
RG CHKDV~, CHKDV+2, CHKDV+3
U RPT+7, RPT+8, RPT+10, SELRATE+5, SELRATE+9, SELRATE+12, SELRATE+16, SELCPTS+11
VAUTD SELDIVS~, SELDIVS+1!*
X SELRATE+1~, SELCPTS+2~, CPTDIC+1~*
Y SELRATE+1~, SELRATE+16, SELDIVS+1~, SELCPTS+2~, SELCPTS+8, CPTDIC+1~, QUIT
>> ZTDESC DEV+2*
>> ZTRTN DEV+2*
>> ZTSAVE("CPTS(" DEV+2*
>> ZTSAVE("DIVS" DEV+2*
>> ZTSAVE("DIVS(" DEV+2*
>> ZTSAVE("IB*" DEV+2*
>> ZTSAVE("RATES(" DEV+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All