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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBECEA35

Package: Integrated Billing

Routine: IBECEA35


Information

IBECEA35 ;ALB/CPM - Cancel/Edit/Add... TRICARE Support ; 09-AUG-96

Source Information

Source file <IBECEA35.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 8 $$CUS^IBACUS  ($$DIS,$$EVF,NOEV)^IBECEA31  $$LAST^IBECEAU  (AMT,FR)^IBECEAU2  ADD^IBECEAU3  PROC^IBECEAU4  $$DAT1^IBOUTL  AR^IBR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

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

Package Total Caller Graph
Integrated Billing 1 IBECEA3  

Entry Points

Name Comments DBIA/ICR reference
CUS ; Process all TRICARE copayment charges.
GO ; - bill the charge
CUSQ
DISP(DFN,INS) ; Display TRICARE beneficiary insurance information.
; Input: DFN -- Pointer to the patient in file #2
; INS -- Pointer to the patient policy in file #2.312
DISPQ
BFCHK(DFN,SDATE,EDATE,IBRES) ; check for duplicates IB*2.0*715
DISPDUP(IBARY) ; Display list of duplicates and ask if the user wishes to continue. IB*2.0*715

External References

Name Field # of Occurrence
$$GET1^DIQ DISPDUP+14, DISPDUP+15, DISPDUP+16, DISPDUP+17, DISPDUP+18
^DIR DISPDUP+25
$$CUS^IBACUS CUS+6
$$DIS^IBECEA31 CUS+35
$$EVF^IBECEA31 CUS+23
NOEV^IBECEA31 CUS+25
$$LAST^IBECEAU BFCHK+16
AMT^IBECEAU2 CUS+13, CUS+18, CUS+34
FR^IBECEAU2 CUS+13, CUS+18, CUS+22
ADD^IBECEAU3 GO+16
PROC^IBECEAU4 GO+12
$$DAT1^IBOUTL DISP+12, DISP+14
AR^IBR GO+16
$$FMADD^XLFDT BFCHK+13
$$FMTE^XLFDT DISPDUP+14, DISPDUP+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Billing the TRICARE patient copayment charge..."
  • Line Location: GO+15
Function Call: WRITE
  • Prompt: "completed."
  • Line Location: GO+18
Function Call: WRITE
  • Prompt: *7,!!,"Please note that this patient does not have active TRICARE coverage!",!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!," TRICARE coverage for ",$P($G(^DPT(DFN,0)),"^"),":"
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !!," Insured Person: ",$E($P(IBINS,"^",17),1,20)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: ?42,"Company: ",$P($G(^DIC(36,+IBINS,0)),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !," Effective Date: ",$$DAT1^IBOUTL($P(IBINS,"^",8))
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?40,"Plan Name: ",$P(IBPLAN,"^",3)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"Expiration Date: ",$$DAT1^IBOUTL($P(IBINS,"^",4))
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: ?38,"Plan Number: ",$P(IBPLAN,"^",4),!
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: " Service Branch: ",$P($G(^DIC(23,+$P(IBINS3,"^",2),0)),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: ?37,"Service Rank: ",$P(IBINS3,"^",3)
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !,"BILL",?10,"BILL",?45,"BILL",!,"FROM",?10," TO",?21,"CHARGE TYPE",?45,"NUMBER",?70,"CHARGE",!
  • Line Location: DISPDUP+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISPDUP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPDUP+22
Routine Call
  • DIR
  • Line Location:
    • DISPDUP+25

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(23 - [#23] DISP+16
^DIC(36 - [#36] DISP+11
^DPT - [#2] DISP+7, DISP+9
^IB - [#350] CUS+23, BFCHK+16
^IB("AFDT" BFCHK+14, BFCHK+15
^IBA(355.3 - [#355.3] DISP+8
^IBE(350.1 - [#350.1] CUS+11, BFCHK+20, BFCHK+21

Label References

Name Line Occurrences
$$BFCHK GO+4
$$DISPDUP GO+7
CUSQ GO+2, GO+9, GO+12, GO+16
DISP CUS+7
DISPQ DISP+4
GO CUS+12, CUS+17, CUS+20

Naked Globals

Name Field # of Occurrence
^(3 DISP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN CUS+6, CUS+7, CUS+23, GO+4, DISP~, DISP+7, DISP+9, BFCHK~, BFCHK+11, BFCHK+14
, BFCHK+15
DIR DISPDUP+7~
DIR("A" DISPDUP+24*
DIR(0 DISPDUP+23*
DIRUT DISPDUP+7~
DT CUS+6, CUS+13, CUS+18, CUS+22, CUS+35
DUOUT DISPDUP+7~
EDATE BFCHK~, BFCHK+12*, BFCHK+13, BFCHK+18
IBACTY DISPDUP+6~, DISPDUP+16*, DISPDUP+19
IBARY DISPDUP~
IBARY( DISPDUP+11
IBATIEN GO+1~
IBATYP CUS+11, BFCHK+10~, BFCHK+20*, BFCHK+21, BFCHK+26
IBATYPN CUS+2~, CUS+11*, CUS+12, CUS+17, CUS+20, GO+4, BFCHK+10~, BFCHK+21*, BFCHK+22, BFCHK+23
IBATYPNM BFCHK+10~, BFCHK+22*, BFCHK+25
IBBLNM DISPDUP+6~, DISPDUP+17*, DISPDUP+19
IBCHRG DISPDUP+6~, DISPDUP+18*, DISPDUP+19
IBCNRSLT DISPDUP+6~
>> IBCOMMIT GO+18*
IBCS CUS+2~, CUS+6*, CUS+7, CUSQ!
IBDESC CUS+3~, CUS+14*, CUS+19*, CUS+33*
IBDG CUS+3~, CUS+22*, CUS+26, CUS+31
IBDUPARY GO+1~, GO+4, GO+7
IBDUPIEN GO+1~
IBDUPNM GO+1~
>> IBEFDT CUS+14*
IBEVDA CUS+3~, CUS+19*, CUS+23*, CUS+24*
>> IBEVDT CUS+14*, CUS+19*, CUS+23*, CUS+31*
IBFDT BFCHK+10~, BFCHK+16*, BFCHK+17, BFCHK+18
>> IBFR CUS+14, CUS+19, CUS+22, CUS+23*, CUS+31*, GO+4
IBFRDT DISPDUP+6~, DISPDUP+14*, DISPDUP+19
IBGRP BFCHK+10~, BFCHK+23*, BFCHK+25
IBI DISPDUP+6~, DISPDUP+10*
IBINS CUS+2~, DISP+6~, DISP+7*, DISP+8, DISP+10, DISP+11, DISP+12, DISP+14
IBINS3 DISP+6~, DISP+7*, DISP+16, DISP+17
IBL BFCHK+10~, BFCHK+16*
>> IBLIM CUS+13*, CUS+18*, CUS+22*
IBLPDT BFCHK+10~, BFCHK+13*, BFCHK+14*, BFCHK+15
IBN BFCHK+10~, BFCHK+15*, BFCHK+16, BFCHK+26, DISPDUP+6~, DISPDUP+11*, DISPDUP+13
IBND BFCHK+10~, BFCHK+16*, BFCHK+20, BFCHK+26
>> IBNH CUS+23
IBPLAN CUS+2~, DISP+6~, DISP+8*, DISP+13, DISP+15
IBRES BFCHK~, BFCHK+29
IBRES( BFCHK+26*
IBS DISP+6~*, DISP+16*, DISP+17*, DISP+18
>> IBSL CUS+23*, CUS+31*, CUS+35
IBTDT BFCHK+10~, BFCHK+16*, BFCHK+17, BFCHK+19
>> IBTO CUS+19*, CUS+22*, CUS+23, CUS+35*, GO+4
IBTODT DISPDUP+6~, DISPDUP+15*, DISPDUP+19
>> IBUNIT CUS+11*
>> IBXA BFCHK+25
>> IBY CUS+13, CUS+18, CUS+24, CUS+29*, CUS+34, GO+2, GO+5*, GO+7*, GO+9, GO+12
, GO+16
IENS DISPDUP+6~, DISPDUP+13*, DISPDUP+14, DISPDUP+15, DISPDUP+16, DISPDUP+17, DISPDUP+18
INS DISP~, DISP+4, DISP+7
SDATE BFCHK~, BFCHK+11, BFCHK+12, BFCHK+14, BFCHK+19
U CUS+11, CUS+23, CUS+31, BFCHK+16, BFCHK+20, BFCHK+21, BFCHK+22, BFCHK+23, BFCHK+26
X CUS+2~, DISPDUP+7~
Y DISPDUP+7~, DISPDUP+26
Z GO+1~, GO+4*
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 |  Naked Globals |  Local Variables  | All