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

Package: Integrated Billing

Routine: IBTRE4


Information

IBTRE4 ;ALB/AAS - CLAIMS TRACKING EDIT PROCEDURE ;1-SEP-93

Source Information

Source file <IBTRE4.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 6 ($$ICD0,$$ICD0ACT,$$TRNDATE)^IBACSV  ($$DAT1,$$DAT2,$$DAT3)^IBOUTL  LOCKED^IBTRCD1  ^IBTRE  $$TRTP^IBTRE1  $$DGPM^IBTRE3  
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Kernel 1 ENDR^%ZISS  
List Manager 1 ($$UPPER,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 PROCEDURE UPDATE  IBTRC1  IBTRCD PROCEDURE UPDATE  IBTRE1  IBTRE3  IBTRE5  IBTRED PROCEDURE UPDATE  
IBTRPR2  IBTRV PROCEDURE UPDATE  IBTRV1  IBTRV2  IBTRV3  IBTRVD PROCEDURE UPDATE  

Entry Points

Name Comments DBIA/ICR reference
EN(IBTRN) ; -- entry point for protocols
; must do own rebuild actions
; -- Input - point to 356
ENQ ;
PROC(IBTRN,IBETYP) ; -- add/edit procedure
PROCQ
CHECK(IBADG) ; Check active status of the ICD0 code (Code Set Versioning)
ADD(IBTRN,TYPE) ; -- Add a new procedure
NXT ; The Procedure Date has to be asked first for the Code Set Versioning requirements
; Input Procedure Date
ADDQ
NEW(ICDI,IBTRN,TYPE,IBPDT) ; -- 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
ASK(IBCNT,IBPAR,IBSELDF) ;Ask user to select from list
; Input -- SDCNT Number of Entities
; SDPAR Selection Parameters (A=Add)
; SDSELDF Selection Default [Optional]
; Output -- Selection
REASK
ASKQ

External References

Name Field # of Occurrence
ENDR^%ZISS PROC+7
^DIC NXT+13
FILE^DICN NEW+4
^DIE EDT+7
IX1^DIK NEW+6
^DIR CHECK+5, NXT+5, REASK+3
$$ICD0^IBACSV CHECK+4, LIST+8
$$ICD0ACT^IBACSV CHECK+3
$$TRNDATE^IBACSV ADD+4
$$DAT1^IBOUTL LIST+9
$$DAT2^IBOUTL NXT+5
$$DAT3^IBOUTL NXT+3, NXT+7
LOCKED^IBTRCD1 EDT+6
^IBTRE %
$$TRTP^IBTRE1 EN+9
$$DGPM^IBTRE3 ADD+5, NXT+16, NEW+6, SET+2
$$UPPER^VALM1 REASK+4
FULL^VALM1 EN+5
PAUSE^VALM1 EN+10, PROC+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: !!,"You can only enter a procedure for an admission",!
  • Line Location: PROC+5
Function Call: WRITE
  • Prompt: !!,"--- ",IOINHI,"Procedure",IOINORM," --- "
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: !!,*7,"Warning! The Procedure Code ",$P($$ICD0^IBACSV(+IBZ),U)," is inactive on this date!"
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: " ",$$DAT2^IBOUTL(IBPDT)
  • Line Location: NXT+5
Function Call: WRITE
  • Prompt: !!,*7,"The Procedure Date cannot be earlier than Admission (",$$DAT3^IBOUTL(IBADT),")",!
  • Line Location: NXT+7
Function Call: WRITE
  • Prompt: !!,*7,IBPN," is not active for the procedure date ("_$$DAT3^IBOUTL(IBPDT),").",!
  • Line Location: NXT+15
Function Call: WRITE
  • Prompt: !!,*7,IBPN," is already a procedure.",!
  • Line Location: NXT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !?2,I," ",$P(IBXD,U),?15,$E($P(IBXD,U,4),1,43),?60,$$DAT1^IBOUTL(IBDATE),?72,"ICD-",$S($P(IBXD,U,14)=2:9,1:10)
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !!?5,DIR("?"),".",!
  • Line Location: REASK+8
Routine Call
  • DIC
  • Line Location:
    • NXT+13
Routine Call
  • DIE
  • Line Location:
    • EDT+7
Routine Call
  • DIR
  • Line Location:
    • CHECK+5
    • NXT+5
    • REASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356.91 - [#356.91] Classic Fileman Calls
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] ADD+5
^IBT(356 - [#356] EN+7, NEW+5
^IBT(356.91 - [#356.91] CHECK+2, NXT+16, NEW+6*, EDT+5, EDT+6, EDT+8, SET+4, SET+5, LIST+6

Label References

Name Line Occurrences
$$ASK PROC+10
$$NEW NXT+18
ADD PROC+12
ADDQ NXT+5, NXT+13
ASKQ REASK+3, REASK+5, REASK+6, REASK+7
CHECK PROC+13
EDT PROC+13
EDTQ EDT+6
ENQ EN+10, EN+13
LIST PROC+10
NEWQ NEW+4
NXT NXT+7, NXT+19
PROC EN+19
PROCQ PROC+5, PROC+11
REASK REASK+8
SET PROC+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PROC+3~, NEW+2~, NEW+6*, EDT+2~, EDT+4*, EDT+5
DD NEW+2~
DIC PROC+3~, ADD+2~, NXT+12*, NXT+13!, NEW+2~, NEW+3*
DIC("A" NXT+9*
DIC("S" NXT+10*
DIC(0 NXT+12*, NEW+3*
DIDEL EDT+2~, EDT+3*
DIE PROC+3~, EDT+2~, EDT+4*
DIK NEW+2~, NEW+3*
DINUM NEW+2~
DIR CHECK+1~, ADD+2~, NXT+5!, ASK+5~
DIR("?" REASK*, REASK+8
DIR("A" CHECK+5*, NXT+2*, REASK+1*
DIR("B" NXT+3*
DIR(0 CHECK+5*, NXT+2*, REASK+2*
DIRUT ASK+5~
DLAYGO NEW+2~, NEW+3*
DO NEW+2~
DR PROC+3~, EDT+2~, EDT+3*
DTOUT ADD+2~, ASK+5~, REASK+3
DUOUT ASK+5~, REASK+3
DUTOU ADD+2~
I NEW+2~, LIST+3~, LIST+5*, LIST+6, LIST+8, LIST+9
IBADG CHECK~, CHECK+2, NXT+18*, NXT+19, NEW+4*, NEW+6, NEWQ, EDT~, EDT+4, EDT+6
, EDT+8
IBADT ADD+2~, ADD+5*, NXT+7
IBCNT EN+4~, PROC+10, ADD+6*, NXT+2, NXT+4, NXT+17*, SET+3*, SET+6*, SET+7, ASK~
REASKREASK+1, REASK+5
>> IBDA SET+3*, SET+4*, SET+5, SET+7
IBDATE ADD+2~, ADD+4*, NXT+3, NXT+5, LIST+3~, LIST+7*, LIST+8, LIST+9
IBDGPM EN+4~, EN+7*, EN+18, PROC+5, SET+1~, SET+2*, SET+4
IBDR EDT~, EDT+3
IBETYP EN+4~, EN+9*, EN+10, EN+13, EN+19, PROC~, PROC+2, PROC+5
IBICD SET+1~, SET+3*, SET+4*, SET+7
IBP ADD+2~, NXT+14*, NXT+16, NXT+18
IBPAR ASK~, REASKREASK+1, REASK+6
IBPDT ADD+2~, NXT+5*, NXT+7, NXT+11, NXT+18, NEW~, NEW+5*, NEW+6
IBPN ADD+2~, NXT+14*, NXT+16
>> IBQUIT PROC+11*
>> IBSEL PROC+9*, PROC+10*, PROC+11, PROC+12, PROC+13
IBSELDF ASK~, REASKREASK+1, REASK+7
>> IBTNOD LIST+6*, LIST+7
IBTRN EN~, EN+7, EN+9, EN+19, PROC~, PROC+1, PROC+10, PROC+12, ADD~, ADD+4
, ADD+5, NXT+16, NXT+18, NEW~, NEW+5, NEW+6, SET~, SET+2
IBTRND EN+4~, EN+7*
IBXD LIST+3~, LIST+8*, LIST+9
IBXY EN+4~, PROC+10, LIST~
IBXY( PROC+13, SET+7*, LIST+5, LIST+6, LIST+8
IBZ CHECK+1~, CHECK+2*, CHECK+3, CHECK+4
ICDI NEW~, NEW+3
ICDVDT ADD+2~, NXT+11*
>> IOINHI PROC+8
>> IOINORM PROC+8
J NEW+2~
TYPE ADD~, ADD+7*, NXT+18, NXT+19, NEW~
U CHECK+3, CHECK+4, NXT+14, LIST+7, LIST+8, LIST+9
>> VALMBCK EN+6*, EN+15*, EN+19*
X PROC+7*, CHECK+1~, ADD+2~, NXT+12*, NEW+2~, NEW+3*, ASK+5~
Y CHECK+1~, ADD+2~, NXT+5, NXT+13, NXT+14, NEW+2~, NEW+4, ASK+5~, REASK+3*, REASK+4*
REASK+5, REASK+6*, REASK+7*, ASKQ
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