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

Package: Integrated Billing

Routine: IBEMTSCU


Information

IBEMTSCU ;ALB/RFJ-print billable types for visit copay ;23 Nov 01

Source Information

Source file <IBEMTSCU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  EN^DIQ1  ^DIR  
Integrated Billing 2 TYPE^IBAUTL2  $$TYPE^IBEMTSCR  

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

Package Total Caller Graph
Integrated Billing 8 IB20P167  IBAECU  IBAECU3  IBAMTS1  IBAMTV2  IBARXMI  IBECEA21  IBECEA3  

Entry Points

Name Comments DBIA/ICR reference
EFFDT() ;effect date Visit Copay 2
ADD(IBSTOPCD,IBEFFDT,IBBILTYP,IBDESC,IBOVER) ; add a stop code to file 352.5
; ibstopcd = 3 or 6 digit stop code to add
; ibeffdt = effective date, internal fileman form (ex:3011206)
; if effective date is not passed, it uses today (dt)
; ibbiltyp = billable type (B=basic, S=specialty, N=non-billable)
; default is non-billable if a B or S is not passed
; ibdesc = description of stop code
; ibover = if the code belongs to Override table
; returns 1 if added, -#^error if not added
DIQ407(DA,DR) ; diq call to retrieve data for dr fields in file 40.7
ISINACT(IBCODE) ;
INACTIVE(IBSTCODE) ; return 1 if inactive in file 40.7
; also, return ibscdata(da for stop code entries in 40.7)
ASK() ; ask if the user wants to enter a stop code or select a clinic
; return will be what entry point to use
ASKSCODE(IBPROMPT) ; ask and return selected stop code from file 352.5
; ibprompt = optional prompt to display
STOPSCRN(IBX) ; screens out so only active and current ones are selectable
ASKSC(IBVISTDT) ; ask for a clinic to look up the stop code
; it will prompt for a clinic selection, and return the stop
; code number in 352.5 associated with the clinic
GETTYPE(IBSTOPCD,IBVISTDT) ; lookup billable type
; input ibstopcd = stop code (.01 field entry in file 352.5)
; ibvistdt = visit date in fileman format
GETSC(IBSL,IBVISTDT) ; return the ien of the entry in file 352.5.
; ibsl is the clinic stop code in 409.68. find the matching
; entry in file 352.5. the 352.5 entry is populated in the 350 field
; for reference using the ibstopda variable
; input ibsl = 409.68:ien
GET3525(IBCODE1,IBCODE2,IBVISTDT) ;
OPT ; perform outpatient copay edits for visits after 11/29/01
; called from IBECEA3
GETCRED(IBCLIN) ;
GETCODE(IB407) ;
; get the stop code in IBSCDATA(40.7,IB407,1,"E")
ISSEC(IBCODE) ;check if the code has secondary restriction type in DSS IB*502

External References

Name Field # of Occurrence
^DIC ASKSCODE+9, ASKSC+4
FILE^DICN ADD+35
^DIE ADD+29
EN^DIQ1 DIQ407+4
^DIR ASK+3
TYPE^IBAUTL2 OPT+27
$$TYPE^IBEMTSCR OPT+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKSCODE+9
Function Call: WRITE
  • Prompt: !!,"Charge NOT added."
  • Line Location: OPT+7
Function Call: WRITE
  • Prompt: !!,"Charge NOT added."
  • Line Location: OPT+11
Function Call: WRITE
  • Prompt: !?5,"********** This is a NON-BILLABLE Clinic Stop **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+14
Function Call: WRITE
  • Prompt: !?5,"********** This is a INACTIVE Clinic Stop in file #40.7 **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+16
Function Call: WRITE
  • Prompt: !?5,"********** This is a SECONDARY Clinic Stop in file #40.7 **********",!?5,"Select an active billable clinic stop or press RETURN to exit."
  • Line Location: OPT+18
Function Call: WRITE
  • Prompt: !!,"Charge to be billed under the ",$$TYPE^IBEMTSCR($P($G(^IBE(352.5,IBSTOPDA,0)),"^",3))," Rate --> $",$J(IBCHG,0,2)
  • Line Location: OPT+30
Routine Call
  • DIC
  • Line Location:
    • ASKSCODE+9
    • ASKSC+4
Routine Call
  • DIE
  • Line Location:
    • ADD+29
Routine Call
  • DIR
  • Line Location:
    • ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(352.5 - [#352.5] Classic Fileman Calls
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] INACTIVE+7, ISSEC+6
^IBE(352.5 - [#352.5] ADD+21, ADD+22, STOPSCRN+6, STOPSCRN+12, STOPSCRN+16, GETTYPE+12, GETTYPE+16, GETTYPE+20, GET3525+11, GET3525+16
, GET3525+24, GET3525+27, GET3525+29, GET3525+30, GET3525+33, GET3525+36, GET3525+38, GET3525+39, OPT+14, OPT+16
, OPT+18, OPT+26, OPT+30
^SC - [#44] GETCRED+3
^SCE - [#409.68] GETSC+9, GETSC+16

Label References

Name Line Occurrences
$$ASK OPT+7
$$ASKSC OPT+10
$$ASKSCODE OPT+10
$$EFFDT ASKSC+10, GETSC+13
$$GET3525 ASKSC+10, ASKSC+15, GETSC+13, GETSC+20
$$GETCODE ASKSC+8, GETSC+11, GETCRED+5
$$GETCRED ASKSC+13, GETSC+18
$$INACTIVE ISINACT+1, ISINACT+2
$$ISINACT OPT+16
$$ISSEC OPT+18
DIQ407 INACTIVE+8, GETCODE+4, ISSEC+7
OPT OPT+14, OPT+16, OPT+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D ADD+10~
D0 ADD+10~, DIQ407+1~
DA ADD+10~, ADD+29*, DIQ407~, DIQ407+2, INACTIVE+2~, INACTIVE+7*, INACTIVE+8, INACTIVE+9, INACTIVE+11, GETTYPE+9~
, GETTYPE+16*, GETTYPE+17, GETTYPE+20, ISSEC+1~, ISSEC+6*, ISSEC+7, ISSEC+8, ISSEC+9
DI ADD+10~
DIC ADD+10~, ADD+18*, DIQ407+1~, DIQ407+4*, ASKSCODE+3~, ASKSCODE+4*, ASKSC+3~, ASKSC+4*
DIC("A" ASKSCODE+5*, ASKSCODE+6*, ASKSC+4*
DIC("DR" ADD+33*, ADD+34*
DIC("S" ASKSCODE+7*, ASKSC+4*
DIC(0 ADD+18*, ASKSCODE+4*, ASKSC+4*
DIE ADD+10~, ADD+18*
DILN ASKSCODE+3~
DIQ DIQ407+1~, DIQ407+4*
DIQ(0 DIQ407+4*
DIQ2 DIQ407+1~
DIR ASK+2~
DIR(0 ASK+3*
DIROUT ASK+2~, ASKSCODE+3~
DIRUT ASK+2~, ASKSCODE+3~
DLAYGO ADD+10~, ADD+18*
DQ ADD+10~
DR ADD+10~, ADD+23*, ADD+25*, ADD+27*, ADD+29, DIQ407~, DIQ407+3*
DTOUT ASK+2~, ASKSCODE+3~
DUOUT ASK+2~, ASKSCODE+3~
I ASKSCODE+3~
IB407 ASKSC+3~, ASKSC+7*, ASKSC+8, GETSC+5~, GETSC+9*, GETSC+11, GETCRED+1~, GETCRED+3*, GETCRED+5, GETCODE~
, GETCODE+4, GETCODE+5, GETCODE+6
IB6DIG GET3525+4~, GET3525+9*, GET3525+11, GET3525+16
IBANS OPT+4!, OPT+7*, OPT+10
IBAX STOPSCRN+5~, STOPSCRN+16*, STOPSCRN+18
IBBILTYP ADD~, ADD+16*, ADD+25, ADD+33
>> IBCHG OPT+30
IBCLIN ASKSC+3~, ASKSC+5*, ASKSC+13, GETSC+5~, GETSC+16*, GETSC+18, GETCRED~, GETCRED+3
IBCODE ISINACT~, ISINACT+1, ISINACT+2, GETCODE+2~, GETCODE+3*, GETCODE+6*, GETCODE+7*, GETCODE+8, ISSEC~, ISSEC+6
IBCODE1 ASKSC+8*, ASKSC+10, ASKSC+15, GETSC+5~, GETSC+11*, GETSC+13, GETSC+20, GET3525~, GET3525+1, GET3525+2
, GET3525+9, GET3525+24, GET3525+27
IBCODE2 ASKSC+13*, ASKSC+15, GETSC+5~, GETSC+18*, GETSC+20, GET3525~, GET3525+3*, GET3525+9, GET3525+19, GET3525+33
, GET3525+36
IBDA ADD+10~, ADD+21*, ADD+22, ADD+29
IBDESC ADD~, ADD+27, ADD+33
IBDT OPT+21~, OPT+22*
IBEFDT ASKSC+3~
IBEFDT1 GET3525+5~, GET3525+11*, GET3525+14, GET3525+16, GET3525+24*, GET3525+25, GET3525+27
IBEFDT2 GET3525+6~, GET3525+33*, GET3525+34, GET3525+36
IBEFFDT ADD~, ADD+21, ADD+33, STOPSCRN+5~, STOPSCRN+12*, STOPSCRN+13, STOPSCRN+16, GETTYPE+9~, GETTYPE+12*, GETTYPE+13
, GETTYPE+16
>> IBEVDA OPT+24*
>> IBFR INACTIVE+11, STOPSCRN+3, STOPSCRN+9, STOPSCRN+12, OPT+10, OPT+22, ISSEC+9
IBIEN1 GET3525+5~, GET3525+7*, GET3525+14, GET3525+16*, GET3525+27*, GET3525+28, GET3525+29, GET3525+30, GET3525+44, GET3525+48
, GET3525+51, GET3525+53, GET3525+55
IBIEN2 GET3525+6~, GET3525+7*, GET3525+36*, GET3525+37, GET3525+38, GET3525+39, GET3525+46, GET3525+52, GET3525+54
IBOVER ADD~, ADD+34
IBOVER1 GET3525+5~, GET3525+7*, GET3525+29*, GET3525+44, GET3525+46, GET3525+48
IBOVER2 GET3525+6~, GET3525+7*, GET3525+38*, GET3525+44, GET3525+46, GET3525+48
IBPROMPT ASKSCODE~, ASKSCODE+6
IBRESULT ISSEC+1~, ISSEC+4*, ISSEC+9*, ISSEC+11
IBS STOPSCRN+5~, STOPSCRN+6*, STOPSCRN+12, STOPSCRN+16
IBSCDATA INACTIVE+2~, GETCODE+2~, ISSEC+1~
IBSCDATA( DIQ407+2!, INACTIVE+9, INACTIVE+11, GETCODE+5, GETCODE+6, ISSEC+8, ISSEC+9
IBSL GETSC~, GETSC+6, GETSC+9, GETSC+16
IBSTCODE INACTIVE~, INACTIVE+7
IBSTOPCD ADD~, ADD+13, ADD+21, ADD+32, GETTYPE~, GETTYPE+12, GETTYPE+16
IBSTOPDA OPT+4!, OPT+10*, OPT+11!, OPT+14, OPT+16, OPT+18, OPT+26, OPT+30
>> IBTO OPT+22*
IBTYPE OPT+21~, OPT+25*, OPT+26*
IBTYPE1 GET3525+5~, GET3525+30*, GET3525+51, GET3525+53
IBTYPE2 GET3525+6~, GET3525+39*, GET3525+52, GET3525+54
>> IBUNIT OPT+24*
IBVISTDT ASKSC~, ASKSC+10, ASKSC+15, GETTYPE~, GETTYPE+12, GETSC~, GETSC+13, GETSC+20, GET3525~, GET3525+11
, GET3525+24, GET3525+33
IBX STOPSCRN~, STOPSCRN+6, STOPSCRN+18, OPT+21~, OPT+23*
>> IBY OPT+7*, OPT+11*, OPT+28
IBZ ADD+10~, ADD+22*, ADD+25, ADD+27, STOPSCRN+5~, STOPSCRN+6*, STOPSCRN+9
RESULT INACTIVE+2~, INACTIVE+5*, INACTIVE+9*, INACTIVE+11*, INACTIVE+13, GETTYPE+9~, GETTYPE+20*, GETTYPE+21
X ADD+10~, ADD+32*, ASK+2~, ASKSCODE+3~, ASKSC+3~
Y ADD+10~, ASK+2~, ASK+4, ASKSCODE+3~, ASKSCODE+10, ASKSCODE+11, ASKSC+3~, ASKSC+4, ASKSC+5
Y(0 ASKSC+7
YY DIQ407+1~
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