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

Package: Integrated Billing

Routine: IBAMTI1


Information

IBAMTI1 ;ALB/CPM - SPECIAL INPATIENT BILLING CASES (CON'T.) ; 11-AUG-93

Source Information

Source file <IBAMTI1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Integrated Billing 4 $$PATTYAB^IBACV  $$UCCL^IBAMTI  $$PT^IBEFUNC  $$DAT1^IBOUTL  
VA FileMan 2 ^DIC  ^DIE  

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 IB MT DISP SPECIAL CASES  IBAMTI2  IBECEA3  IBECEA32  

Entry Points

Name Comments DBIA/ICR reference
DISP ; Manually disposition a case record.
SEL ; Select an inpatient billing case and enter the reason for non-billing.
SELQ
CEA(IBPM,IBEVT) ; Automatically disposition the case from Cancel/Edit/Add.
; Input: IBPM -- Pointer to the adm movement in file #405
; IBEVT -- Pointer to the billing event record in file #350
CEAQ
CHK(IBC,IBEVT) ; Review the case after adding a charge from Cancel/Edit/Add.
; Input: IBC -- Pointer to the case in file #351.2
; IBEVT -- Pointer to the billing event record in file #350
CHKQ
UPD(IND) ; Disposition the case record.
; Input: IND -- 0 = dispositioning | 1 = reviewing
; variables -- IBC => ptr to case record
; IBEVT => ptr to event record in #350
DSPL(IBC) ; Display a case record.
; Input: IBC -- Pointer to the case record in file #351.2
DSPLQ
DASH() ; Return a dashed line.

External References

Name Field # of Occurrence
^DIC SEL+3
^DIE SEL+13, SEL+20, UPD+8
$$PATTYAB^IBACV DSPL+7
$$UCCL^IBAMTI DSPL+8
$$PT^IBEFUNC DSPL+5
$$DAT1^IBOUTL DSPL+9, DSPL+11, DSPL+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option is used to disposition case records for special inpatient"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"episodes of care which are not to be billed. (AO/IR/SWA/SC/MST/HNC/CV/SHAD)"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"After identifying the case, please enter the reason (up to 80 characters)"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"for non-billing."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!,"You must wait until this patient has been discharged to disposition the case."
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !!,"Please note that it appears as if this case has been billed."
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: !!,"Please note that this case has already been dispositioned."
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+9
Function Call: WRITE
  • Prompt: !!,"No changes made to the case record!"
  • Line Location: SEL+16
Function Call: WRITE
  • Prompt: !!,"This case record will be dispositioned."
  • Line Location: SEL+17
Function Call: WRITE
  • Prompt: !,"Dispositioning the special inpatient billing case record"
  • Line Location: UPD+4
Function Call: WRITE
  • Prompt: " (as billable)"
  • Condition for execution: $G(IND)
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: "..."
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: " done."
  • Line Location: UPD+8
Function Call: WRITE
  • Prompt: !,$$DASH(),!?1,"Pt. Name: ",$E($P(IBPT,"^"),1,17)," (",$P(IBPT,"^",3),")"
  • Line Location: DSPL+6
Function Call: WRITE
  • Prompt: ?38,"Care related to ",$$PATTYAB^IBACV(IBCL),": ",$S($P(IBCD,"^",7):"YES",$P(IBCD,"^",7)=0:"NO",1:"UNANSWERED")
  • Line Location: DSPL+7
Function Call: WRITE
  • Prompt: !?5,"Type: ",$$UCCL^IBAMTI(IBCL),?39,"Case Dispositioned: ",$S($P(IBCD,"^",8):"YES",1:"NO")
  • Line Location: DSPL+8
Function Call: WRITE
  • Prompt: !?1,"Adm Date: ",$$DAT1^IBOUTL(+$G(^DGPM(+$P(IBCD,"^",2),0)),1),?41,"Date Last Edited: ",$$DAT1^IBOUTL(+$P(IBC2,"^",4),1)
  • Line Location: DSPL+9
Function Call: WRITE
  • Prompt: !,"Disc Date: ",$S(IBDIS:$$DAT1^IBOUTL(IBDIS,1),1:"Still Admitted"),?43,"Last Edited By: ",$E($P($G(^VA(200,+$P(IBC2,"^",3),0)),"^"),1,20),!,$$DASH()
  • Line Location: DSPL+11
Function Call: WRITE
  • Prompt: !?1,"Charges Billed:"
  • Line Location: DSPL+14
Function Call: WRITE
  • Prompt: !?1,"Reason for Non-Billing:",!,IBC1,!,$$DASH(),!
  • Line Location: DSPL+23
Routine Call
  • DIC
  • Line Location:
    • SEL+3
Routine Call
  • DIE
  • Line Location:
    • SEL+13
    • SEL+20
    • UPD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351.2 - [#351.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] DSPL+9, DSPL+10
^IB - [#350] DSPL+16
^IB("AF" DSPL+14, DSPL+15
^IBE(350.1 - [#350.1] DSPL+17
^IBE(350.21 - [#350.21] DSPL+20
^IBE(351.2 - [#351.2] SEL+12, SEL+15, CEA+5, CHK+5, UPD+6!, DSPL+4
^VA(200 - [#200] DSPL+11

Label References

Name Line Occurrences
$$DASH DSPL+6, DSPL+11, DSPL+21, DSPL+23
CEAQ CEA+3
CHKQ CHK+3
DSPL SEL+9
DSPLQ DSPL+2
SEL DISP+7
SELQ SEL+3, SEL+4, SEL+16
UPD CEA+5, CHK+6

Naked Globals

Name Field # of Occurrence
^(1 CHK+5, DSPL+4
^(2 DSPL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SEL+13*, SEL+20*, SELQ!, CEA+4~, CHK+4~, UPD+8*
DFN DSPL+3~, DSPL+5*
DIC SEL+1*, SELQ!
DIC("A" SEL+1*
DIC(0 SEL+1*
DIE SEL+13*, SEL+20*, SELQ!, CEA+4~, CHK+4~, UPD+8*
DPTNOFZY SEL+2~*
DR SEL+13*, SEL+18*, SEL+19*, SELQ!, CEA+4~, CHK+4~, UPD+7*
DUZ SEL+18, UPD+7
IBATYP DSPL+3~, DSPL+17*, DSPL+18*, DSPL+19
IBBILLED SEL+5*, SEL+13, SELQ!
IBC SEL+3*, SEL+9, SEL+12, SEL+13, SEL+15, SEL+20, SELQ!, CEA+4~, CEA+5*, CHK~
, CHK+3, CHK+5, UPD+6, UPD+8, DSPL~, DSPL+2, DSPL+4
IBC1 DSPL+3~, DSPL+4*, DSPL+23
IBC2 DSPL+3~, DSPL+4*, DSPL+9, DSPL+11
IBCD CHK+4~, CHK+5*, CHK+6, DSPL+3~, DSPL+4*, DSPL+5, DSPL+7, DSPL+8, DSPL+9, DSPL+10
, DSPL+13
IBCD1 CHK+4~, CHK+5*, CHK+6
IBCL DSPL+3~, DSPL+5*, DSPL+7, DSPL+8
IBDIS DSPL+3~, DSPL+10*, DSPL+11
IBEVT CEA~, CEA+3, CHK~, CHK+3, UPD+7, DSPL+3~, DSPL+13*, DSPL+14, DSPL+15
IBHC SEL+12*, SEL+16, SELQ!
IBHR SEL+12*, SEL+16, SELQ!
IBN DSPL+3~, DSPL+15*, DSPL+16
IBNC SEL+15*, SEL+16, SELQ!
IBND DSPL+3~, DSPL+16*, DSPL+17, DSPL+19, DSPL+20
IBNR SEL+15*, SEL+16, SEL+17, SEL+19, SELQ!
IBPM CEA~, CEA+5
IBPT DSPL+3~, DSPL+5*, DSPL+6
IBQ DISP+7*, DISP+8!, SEL+3*
IND UPD~, UPD+5
Y SEL+3, DSPL+3~
Y(0 SEL+4, SEL+5, SEL+6, SEL+12
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