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

Package: Integrated Billing

Routine: IBTRE3


Information

IBTRE3 ;ALB/AAS - CLAIMS TRACKING EDIT DIAGNOSIS ;1-SEP-93

Source Information

Source file <IBTRE3.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 7 ($$ICD9,$$ICD9ACT,$$ICD9SYS,$$TRNDATE)^IBACSV  ($$DAT1,$$DAT3)^IBOUTL  LOCKED^IBTRCD1  (,$$EXPAND)^IBTRE  $$TRTP^IBTRE1  $$ASK^IBTRE4  ASK^IBTUTL4  
VA FileMan 4 ^DIC  FILE^DICN  ^DIE  IX1^DIK  
Kernel 1 ENDR^%ZISS  
List Manager 1 (FULL,PAUSE)^VALM1  

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 IBTOBI4  IBTRC DIAGNOSIS UPDATE  IBTRC1  IBTRCD DIAGNOSIS UPDATE  IBTRE1  IBTRE4  IBTRE5  IBTRED DIAGNOSIS UPDATE  
IBTRPR2  IBTRV DIAGNOSIS  IBTRV1  IBTRV2  IBTRV3  IBTRVD DIAGNOSIS UPDATE  

Entry Points

Name Comments DBIA/ICR reference
EN(IBTRN) ; -- entry point for protocols
; must do own rebuild actions
; -- Input - point to 356
ENQ ;
ADIAG(IBTRN,IBETYP) ; -- add admitting diagnosis
ADGQ
DIAG(IBTRN,IBETYP) ; -- add/edit diagnosis
DIAGQ
ADD(IBTRN,TYPE) ; -- Add a new diagnosis
NXT
ADDQ
DGPM(IBTRN) ; -- return admission pointer
NEW(ICDI,IBTRN,TYPE) ; -- file new entry
NEWQ
EDT(IBADG,IBDR) ; -- edit entry
EDTQ
SET(IBTRN) ; -- set array
SETQ
LIST(IBXY) ;List Diagnosis Array
; Input -- IBXY Diagnosis Array Subscripted by a Number
; Output -- List Diagnosis Array

External References

Name Field # of Occurrence
ENDR^%ZISS ADIAG+10, DIAG+7
^DIC NXT+5
FILE^DICN NEW+4
^DIE EDT+7
IX1^DIK NEW+5
$$ICD9^IBACSV ADIAG+16, LIST+8
$$ICD9ACT^IBACSV NXT+7
$$ICD9SYS^IBACSV NXT+3
$$TRNDATE^IBACSV ADIAG+5, ADD+5
$$DAT1^IBOUTL LIST+9
$$DAT3^IBOUTL NXT+7
LOCKED^IBTRCD1 EDT+6
^IBTRE %
$$EXPAND^IBTRE LIST+9
$$TRTP^IBTRE1 EN+9
$$ASK^IBTRE4 DIAG+10
ASK^IBTUTL4 EN+14
FULL^VALM1 EN+5
PAUSE^VALM1 EN+10, EN+15, ADIAG+8, DIAG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Clinical Information comes from the parent package."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Can not add diagnosis to outpatient visits prior to Check-out.",!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"You can only enter an admitting diagnosis for an admission",!
  • Line Location: ADIAG+8
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Admitting Diagnosis",IOINORM," --- "
  • Line Location: ADIAG+12
Function Call: WRITE
  • Prompt: "Unspecified"
  • Line Location: ADIAG+13
Function Call: WRITE
  • Prompt: $P(IBDX,U)_" -"_$P(IBDX,U,3)
  • Line Location: ADIAG+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ADIAG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ADIAG+21
Function Call: WRITE
  • Prompt: !!,"You can only enter a diagnosis for an admission",!
  • Line Location: DIAG+5
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Diagnosis",IOINORM," --- "
  • Line Location: DIAG+8
Function Call: WRITE
  • Prompt: !!,*7,$P(Y,U,2)," is not active for the service date ("_$$DAT3^IBOUTL(IBDATE),").",!
  • Line Location: NXT+7
Function Call: WRITE
  • Prompt: !!,*7,$P(Y,"^",2)," is already a diagnosis.",!
  • Line Location: NXT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: ?77,"(",$P(IBTNOD,U,5),")"
  • Line Location: LIST+9
Routine Call
  • DIC
  • Line Location:
    • NXT+5
Routine Call
  • DIE
  • Line Location:
    • EDT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.9 - [#356.9] Classic Fileman Calls
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBT(356 - [#356] EN+7, DIAG+4, DGPM+1, NEW+5
^IBT(356.9 - [#356.9] EN+23, ADIAG+11, ADIAG+19, NXT+8, NEW+5*, EDT+5, EDT+6, EDT+8, SET+4, SET+5
, LIST+6

Label References

Name Line Occurrences
$$DGPM NXT+8, NEW+5, SET+2
$$NEW NXT+10
ADD ADIAG+19, DIAG+12
ADDQ NXT+5
ADGQ ADIAG+8, DIAG+5
ADIAG EN+23
DIAG EN+27
DIAGQ DIAG+11
EDT ADIAG+18, DIAG+13, NXT+11
EDTQ EDT+6
ENQ EN+10, EN+13
LIST DIAG+10
NXT NXT+7, NXT+8, NXT+11
SET DIAG+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADIAG+2~, DIAG+3~, NEW+2~, NEW+5*, EDT+2~, EDT+4*, EDT+5
DD ADIAG+2~, NEW+2~
DIC ADIAG+2~, DIAG+3~, ADD+2~, NXT+4*, NXT+5!, NEW+2~, NEW+3*
DIC("A" NXT*
DIC("DR" NEW+3*
DIC("S" NXT+3*
DIC(0 NXT+4*, NEW+3*
DIDEL EDT+2~, EDT+3*
DIE ADIAG+2~, DIAG+3~, EDT+2~, EDT+4*
DIK NEW+2~, NEW+3*
DINUM NEW+2~
DLAYGO NEW+2~, NEW+3*
DO ADIAG+2~, NEW+2~
DR ADIAG+2~, DIAG+3~, EDT+2~, EDT+3*
DT ADD+5
DTOUT ADD+2~, ADDQ
DUOUT ADD+2~, ADDQ
I NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+8, LIST+9
IBADG ADIAG+2~, ADIAG+3*, ADIAG+11*, ADIAG+13, ADIAG+16, ADIAG+18, NXT+10*, NXT+11, NEW+4*, NEW+5
NEWQ, EDT~, EDT+4, EDT+6, EDT+8
IBCNT EN+4~, DIAG+10, ADD+3*, NXTNXT+5, NXT+9*, SET+3*, SET+6*, SET+7
IBDA ADIAG+11*, ADIAG+18, SET+1~, SET+4*, SET+5, SET+7
IBDATE ADIAG+2~, ADIAG+5*, ADIAG+16, ADD+2~, ADD+5*, ADD+6, NXT+3, NXT+7, LIST+3~, LIST+7*
, LIST+8, LIST+9
IBDGPM EN+4~, EN+7*, EN+20, EN+23, ADIAG+8, ADIAG+11, ADIAG+19, DIAG+4*, DIAG+5, SET+1~
, SET+2*, SET+4
IBDR EDT~, EDT+3
IBDX ADIAG+15~, ADIAG+16*, ADIAG+17
IBETYP EN+4~, EN+9*, EN+10, EN+13, EN+19, EN+23, EN+27, ADIAG~, ADIAG+8, DIAG~
, DIAG+2, DIAG+5
IBICD SET+1~, SET+3*, SET+4*, SET+7
>> IBQUIT DIAG+11*
IBSEL EN+4~, EN+24, DIAG+9*, DIAG+10*, DIAG+11, DIAG+12, DIAG+13, ADDQ*
>> IBTNOD LIST+6*, LIST+7, LIST+9
IBTRN EN~, EN+7, EN+9, EN+14, EN+23, EN+27, ADIAG~, ADIAG+5, ADIAG+19, DIAG~
, DIAG+1, DIAG+4, DIAG+10, DIAG+12, ADD~, ADD+5, NXT+8, NXT+10, DGPM~, DGPM+1
, NEW~, NEW+5, SET~, SET+2
IBTRND EN+4~, EN+7*, EN+14, EN+15
IBXD LIST+3~, LIST+8*, LIST+9
IBXY EN+4~, DIAG+10, LIST~
IBXY( DIAG+13, SET+7*, LIST+5, LIST+6, LIST+8
ICDI NEW~, NEW+3
ICDVDT ADD+2~, ADD+6*
IOINHI ADIAG+2~, ADIAG+12, DIAG+8
IOINORM ADIAG+2~, ADIAG+12, DIAG+8
J NEW+2~
TYPE ADD~, ADD+8*, NXTNXT+10, NXT+11, NEW~, NEW+5
U ADIAG+17, NXT+7, LIST+7, LIST+8, LIST+9
>> VALMBCK EN+6*, EN+16*, EN+28*
X ADIAG+10*, DIAG+7*, ADD+2~, NXT+4*, NEW+2~, NEW+3*
Y ADD+2~, NXT+5, NXT+7, NXT+8, NXT+10, NEW+2~, NEW+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 |  Local Variables  | All