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

Package: Integrated Billing

Routine: IBTUTL4


Information

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

Source Information

Source file <IBTUTL4.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Integrated Billing 2 $$SCE^IBSDU  ARRAY^IBTUTL3  
Kernel 1 $$FMTE^XLFDT  
PCE Patient Care Encounter 1 $$INTV^PXAPI  
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: 4

Package Total Caller Graph
Integrated Billing 4 IBTRE3  IBTRE5  IBTRV2  ^IBT(356.2  

Entry Points

Name Comments DBIA/ICR reference
AEA(IBTRC,X) ; -- dd input call for authorize entire admission (field 1.08)
AEAQ
DEA(IBTRC,X) ; -- dd input call for deny entry admission (field 1.07)
DEAQ
AFDT(IBTRC,X) ; -- dd input call for check to approved from date (field .12)
; -- returns 1 if date okay, 0 if not, let input transform kill x
AFDTQ
ATDT(IBTRC,X) ; -- dd input call for check to approved to date (field .13)
; -- returns 1 if date okay, 0 if not, let input transform kill x
ATDTQ
DFDT(IBTRC,X) ; -- dd input call for check to denied from date (field .15)
; -- returns 1 if date okay, 0 if not, let input transform kill x
DFDTQ
DTDT(IBTRC,X) ; -- dd input call for check to denied to date (field .16)
; -- returns 1 if date okay, 0 if not, let input transform kill x
DTDTQ
CHK ; -- generic check functions
CHK2 ; -- if pass first set of check do these
NOTOK(MESS) ; -- process not okays
DISCH(DGPM) ; -- find discharge date for an admission
DISCHQ
ASK(IBTRN,IBW) ; Prompt for Provider or Diagnosis from PCE
; Input: IBTRN -- Pointer to Claims Tracking entry in #356
; IBW -- 1 - Provider | 2 - Diagnosis
ASKQ

External References

Name Field # of Occurrence
^DIR ASKQ
$$SCE^IBSDU ASK+12
ARRAY^IBTUTL3 AEA+3, DEA+3, CHK2+1
$$INTV^PXAPI ASK+18
$$FMTE^XLFDT AEA+4, AEA+5, DEA+4, DEA+5, AFDT+6, ATDT+5, DFDT+5, DTDT+5, CHK+4, CHK+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,MESS,!
  • Line Location: NOTOK+2
Function Call: WRITE
  • Prompt: !!,IBERROR,!
  • Line Location: ASKQ+0
Routine Call
  • DIR
  • Line Location:
    • ASKQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DISCH+3, DISCH+4
^DIC(9.4 - [#9.4] ASK+9
^IBT(356 - [#356] CHK+2, ASK+12
^IBT(356.2 - [#356.2] AEA+2, AEA+4, AEA+5, DEA+2, DEA+4, DEA+5, AFDT+6, ATDT+5, DFDT+5, DTDT+5
CHK+1, CHK+2

Label References

Name Line Occurrences
$$DISCH CHK+6
AEAQ AEA+2
AFDTQ AFDT+4, AFDT+6, AFDT+8
ASKQ ASK+6, ASK+7, ASK+10, ASK+15, ASK+16
ATDTQ ATDT+3, ATDT+5, ATDT+7
CHK AFDT+4, ATDT+3, DFDT+3, DTDT+3
CHK2 AFDT+8, ATDT+7, DFDT+7, DTDT+7
DEAQ DEA+2
DFDTQ DFDT+3, DFDT+5, DFDT+7
DISCHQ DISCH+3
DTDTQ DTDT+3, DTDT+5, DTDT+7
NOTOK AEA+2, AEA+4, AEA+5, DEA+2, DEA+4, DEA+5, AFDT+6, AFDT+9, ATDT+5, ATDT+8
, DFDT+5, DFDT+8, DTDT+5, DTDT+8, CHK+4, CHK+6, CHK2+2, CHK2+3

Naked Globals

Name Field # of Occurrence
^(0 AFDT+6, ATDT+5, DFDT+5, DTDT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY AEA+1~, AEA+5, DEA+1~, DEA+5, AFDT+2~, AFDT+8, ATDT+2~, ATDT+7, DFDT+2~, DFDT+7
, DTDT+2~, DTDT+7, CHK2+2
ARRAY( AFDT+9, ATDT+8, DFDT+8, DTDT+8
ARRAY(0 AEA+4, DEA+4, CHK2+3
DFN ASK+4~, ASK+13*, ASK+18
DGPM DISCH~, DISCH+3, DISCH+4
DIR ASKQ!
DIR(0 ASKQ*
I AEA+1~, DEA+1~, AFDT+2~, ATDT+2~, DFDT+2~, DTDT+2~
IBCLIN ASK+4~, ASK+13*, ASK+16, ASK+18
IBERROR ASK+4~, ASK+5*, ASK+6*, ASK+7*, ASK+10*, ASK+15*, ASK+16*, ASKQ
IBOEDATA ASK+4~, ASK+12*, ASK+13, ASK+14
IBOK AEA+1~*, AEAQ, DEA+1~*, DEAQ, AFDT+2~*, AFDT+4, AFDTQ, ATDT+2~*, ATDT+3, ATDTQ
, DFDT+2~*, DFDT+3, DFDTQ, DTDT+2~*, DTDT+3, DTDTQCHK+1*, NOTOK+1*
IBPKG ASK+4~, ASK+9*, ASK+10, ASK+18
IBRESULT ASK+4~, ASK+18*
IBTRC AEA~, AEA+2, AEA+3, AEA+5, DEA~, DEA+2, DEA+3, DEA+4, AFDT~, AFDT+6
, AFDT+9, ATDT~, ATDT+5, ATDT+8, DFDT~, DFDT+5, DFDT+8, DTDT~, DTDT+5, DTDT+8
CHK+1, CHK+2, CHK2+1
IBTRN AEA+1~, DEA+1~, AFDT+2~, ATDT+2~, DFDT+2~, DTDT+2~, ASK~, ASK+6, ASK+12
IBTRND AEA+1~, DEA+1~, AFDT+2~, ATDT+2~, DFDT+2~, DTDT+2~, CHK+2*, CHK+4, CHK+6, ASK+4~
, ASK+12*, ASK+13
IBVSIT ASK+4~, ASK+13*, ASK+14*, ASK+15, ASK+18
IBW ASK~, ASK+7, ASK+18
J AEA+1~, DEA+1~, AFDT+2~, ATDT+2~, DFDT+2~, DTDT+2~
M AEA+1~, DEA+1~, AFDT+2~, AFDT+9*, ATDT+2~, ATDT+8*, DFDT+2~, DFDT+8*, DTDT+2~, DTDT+8*
MESS NOTOK~, NOTOK+2
N AEA+1~, DEA+1~, AFDT+2~, AFDT+9*, ATDT+2~, ATDT+8*, DFDT+2~, DFDT+8*, DTDT+2~, DTDT+8*
U AFDT+6, ATDT+5, DFDT+5, DTDT+5
X AEA~, AEA+2, DEA~, DEA+2, AFDT~, AFDT+6, AFDT+9, ATDT~, ATDT+5, ATDT+8
, DFDT~, DFDT+5, DFDT+8, DTDT~, DTDT+5, DTDT+8, CHK+1, CHK+4, CHK+6, DISCH+2~*
, DISCH+4*, DISCHQ
Y AEA+1~, DEA+1~, AFDT+2~, ATDT+2~, DFDT+2~, DTDT+2~, CHK+6*
>> ZTQUEUED NOTOK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All