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

Package: Integrated Billing

Routine: IBTUTL3


Information

IBTUTL3 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93

Source Information

Source file <IBTUTL3.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 2 $$CDT^IBTODD1  $$TYPE^IBTRC  
VA FileMan 2 FILE^DICN  ^DIE  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
Registration 1 ELIG^VADPT  

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

Package Total Caller Graph
Integrated Billing 14 IBJTRA1  IBT ACTION INFO  IBTOSUM1  IBTOUR2  IBTRC  IBTRC1  IBTRD  IBTRD1  
IBTRE  IBTRKR  IBTUTL  IBTUTL2  IBTUTL4  ^IBT(356.2  

Entry Points

Name Comments DBIA/ICR reference
ADDC(IBTRCDT,IBTRN) ; -- add new entry to reviews file, ibt(356.1
; -- Input IBTRVDT := Review date (in internal fileman format)
; IBTRN := pointer to tracking module
ADDCQ
COM(IBTRCDT,IBTRN,IBX,IBTRV) ; -- add initial communication entry
; -- Input IBTRCDT := Communication date (in internal fileman format)
; IBTRN := pointer to tracking module
; IBX := code for type of contact (if null, will compute)
; IBTRV := pointer to initial review (if it exists)
COMQ
DAY(X,X1,IBTRN) ; -- compute number of days approved for tracking id
; -- if same date, difference = 1
; -- input x = beginning date (required)
; x1 = ending date (required)
; ibtrn = (optional) if defined will compute max days for episode
; and will not count discharge date
DAYQ
SCP(DFN) ; -- is patient sc, and percent
OTB(DFN) ; -- did patient ever have other type of bill
OTBQ
MSG(DFN) ; -- set message for display in lower bar
MSGQ
ARRAY(IBTRC) ; -- see if other reviews have dates
ARRAYQ
HELP(IBTRC) ; -- dd help for dates authorized and denied.
WRITE ; -- write extended help

External References

Name Field # of Occurrence
FILE^DICN ADDC+7
^DIE COM+17
$$CDT^IBTODD1 DAY+12
$$TYPE^IBTRC COM+10
ELIG^VADPT SCP+1
$$FMADD^XLFDT COM+14
$$FMDIFF^XLFDT DAY+15, DAY+18
$$FMTE^XLFDT WRITE+7, WRITE+8, WRITE+11, WRITE+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !,"No Authorized or Denied Days on file for this Visit!",!!
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !,"For Insurance Company ",$P($G(^DIC(36,+IBCNS,0)),"^"),": "
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !,"Care Authorized for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY,0))),"."
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: !,"Care Denied for entire Admission on ",$$FMTE^XLFDT(+$G(^IBT(356.2,+ARRAY(0),0))),"."
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+13
Routine Call
  • DIE
  • Line Location:
    • COM+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.2 - [#356.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] WRITE+6
^IBE(356.11 - [#356.11] COM+9, COM+10
^IBT(356 - [#356] DAY+11, OTB+2, OTB+4
^IBT(356.2 - [#356.2] COM+15, COM+18, ARRAY+4, ARRAY+5, ARRAY+6, ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10, ARRAY+11
, WRITE+7, WRITE+8, WRITE+12

Label References

Name Line Occurrences
$$OTB MSG+2
$$SCP MSG+2
ADDC COM+7
ARRAY HELP+2
ARRAYQ ARRAY+2, ARRAY+4
COMQ COM+15
DAYQ DAY+7, DAY+8, DAY+9, DAY+10
OTBQ OTB+2
WRITE HELP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ADDC+4~
ARRAY ARRAY+3!, ARRAY+8*, HELP+2~, WRITE+4, WRITE+7
ARRAY( ARRAY+10*, ARRAY+11*, WRITE+10, WRITE+11, WRITE+12
ARRAY(0 ARRAY+9*, WRITE+8
DA COM+6~, COM+12*, COM+17!
DD ADDC+4~
DFN COM+16, SCP~, OTB~, OTB+2, OTB+4, MSG~, MSG+2
DIC ADDC+4~, ADDC+5*, COM+6~
DIC("DR" ADDC+6*
DIC(0 ADDC+5*
DIE ADDC+4~, COM+6~, COM+12*, COM+17!
DIFF DAY+6~*, DAY+8*, DAY+10*, DAY+18*, DAY+19*, DAYQ
DLAYGO ADDC+4~, ADDC+5*
DO ADDC+4~
DR ADDC+4~, COM+6~, COM+16*, COM+17!
DT COM+13, COM+14, DAY+14
DUZ COM+16
I OTB+1~, OTB+3*, OTB+4*, OTB+6, ARRAY+3~, ARRAY+6*, ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10
, ARRAY+11
>> IBBEG DAY+14*, DAY+15
IBBET DAY+6~
IBCDT DAY+6~, DAY+12*, DAY+14, DAY+18, DAY+19
IBCNS ARRAY+5*, ARRAY+7, HELP+2~, WRITE+6
IBEND DAY+6~, DAY+14*, DAY+15
IBMAX DAY+6~, DAY+15*, DAY+19
>> IBNEW ADDC+8*
IBNXRV COM+6~, COM+13*, COM+14*, COM+16
IBOTB MSG+1~, MSG+2*, MSG+4
IBSCP MSG+1~, MSG+2*, MSG+3
IBTRC ADDC+8*, COM+10, COM+12, COM+15, COM+18, ARRAY~, ARRAY+2, ARRAY+4, ARRAY+5, HELP~
, HELP+2
IBTRCDT ADDC~, ADDC+7, COM~, COM+7, COM+14
IBTRN ADDC~, ADDC+6, COM~, COM+7, DAY~, DAY+11, DAY+12, DAY+18, ARRAY+3~, ARRAY+4*
, ARRAY+6
IBTRV COM~, COM+16
IBX COM~, COM+9
IBXIFN COM+6~, COM+9*, COM+10*, COM+16
J OTB+1~
M WRITE+3~, WRITE+10*, WRITE+11, WRITE+12
N WRITE+3~, WRITE+10*, WRITE+11, WRITE+12
VAEL SCP+1~
VAEL(3 SCP+2, SCP+3
X ADDC+7*, COM+6~, DAY~, DAY+7, DAY+10, DAY+18, WRITE+3~
X1 DAY~, DAY+8, DAY+9, DAY+10, DAY+18
Y ADDC+8, COM+6~, SCP+2*, SCP+3*, SCP+4, OTB+1~*, OTB+5*, OTB+6*, OTBQ, MSG+1~*
, MSG+3*, MSG+4*, MSGQ
>> ZTQUEUED WRITE+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