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

Package: Integrated Billing

Routine: IBECEAU5


Information

IBECEAU5 ;ALB/BGA - Cancel/Edit/Add CALC Observation COPAY ; 17-MAY-2000

Source Information

Source file <IBECEAU5.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 9 $$UCCL^IBAMTI  IBFLR^IBAMTS1  TYPE^IBAUTL2  CLADD^IBAUTL3  $$MCCRUTL^IBCRU1  ADD^IBECEAU3  PAUSE^IBOUTL  ($$FLD1,$$FLD3)^IBOVOP1  
HDR^IBOVOP2  
Registration 2 $$BILST^DGMTUB  $$MVT^DGPMOBS  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IBAMTD  IBECEA33  IBECEAU3  IBOVOP1  IBOVOP2  

Entry Points

Name Comments DBIA/ICR reference
FEE ; This Subroutine permits a Clerk to add a DG FEE SERVICE (OPT)
; when the value of the fee for service is less than the normal
; Outpatient Copayment.
END
IBOVOP(IBDATE) ;
; This Subroutine expands the functions of the Outpatient Events Report
; by adding Inpatient Observation Admissions/Discharges to the the report.
; Find Admissions or Discharges Associated with Inpatient Observation
; Specialities and Load them into ^TMP("IBOVOP",$J) to be printed
; by ^IBOVOP the Outpatient Events Report.
CLSF(DGMVP) ;
; This Subroutine evaluates an Inpatient Admission for an Observation Speciality
; where the patient has claimed exposure. The Special Inpatient Billing
; case record is evaluated to detemine the status of the disposition
; the results are than displayed on the Outpatient Events Reports
CHRG ; Called from OPT^IBECEA33 when adding a obs copay from CANCEL/EDIT/ADD
PRINT ;
OBS ; Called from EN^IBAMTD when adding an Inpatient Observation Copay
;
; Check to see if you have a clock

External References

Name Field # of Occurrence
$$BILST^DGMTUB IBOVOP+18
$$MVT^DGPMOBS IBOVOP+16
^DIR FEE+14
$$UCCL^IBAMTI CLSF+12
IBFLR^IBAMTS1 OBS+12
TYPE^IBAUTL2 CHRG+6
CLADD^IBAUTL3 OBS+3
$$MCCRUTL^IBCRU1 CHRG+8
ADD^IBECEAU3 OBS+10
PAUSE^IBOUTL PRINT+2
$$FLD1^IBOVOP1 IBOVOP+19
$$FLD3^IBOVOP1 IBOVOP+21
HDR^IBOVOP2 PRINT+1, PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,IBFLD1,!?5,IBFLD2
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,IBFLD1,!?5,IBFLD2
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,?5,IBOUT
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?5,"Reason Not Billable: ",$E(IBREAS,1,55)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?10,"*** The Fee for Service can not be GREATER than $"_$S(IBCHG?1N.N1"."1N:IBCHG_0,1:IBCHG)
  • Line Location: FEE+16
Function Call: WRITE
  • Prompt: !,?10,"*** AND must be GREATER than $.99==> Please try Again"
  • Line Location: FEE+17
Routine Call
  • DIR
  • Line Location:
    • FEE+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399.1 - [#399.1] CHRG+9
^DGPM - [#405] IBOVOP+14
^DGPM("B" IBOVOP+12, IBOVOP+13
^IBE(350.1 - [#350.1] CHRG+10, FEE+7
^IBE(351.2 - [#351.2] CLSF+7, CLSF+8, CLSF+9, CLSF+17
^TMP("IBOVOP" IBOVOP+28*

Label References

Name Line Occurrences
CHRG OBS+6
END OBS+3, OBS+6, OBS+10
FEE FEE+15
PRINT CLSF+14, CLSF+18

Naked Globals

Name Field # of Occurrence
^(20 CHRG+10, FEE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DG0 CLSF+6~, CLSF+9*, CLSF+10, CLSF+11, CLSF+14, CLSF+15
DGIEN CLSF+6~, CLSF+8*, CLSF+9, CLSF+17
DGMVP CLSF~, CLSF+7, CLSF+8, IBOVOP+8~, IBOVOP+13*, IBOVOP+14, IBOVOP+16, IBOVOP+26
DGPM0 IBOVOP+8~, IBOVOP+14*, IBOVOP+15, IBOVOP+17, IBOVOP+18, IBOVOP+21, IBOVOP+25
DIR FEE+8~
DIR("?" FEE+11*, FEE+12*, FEE+13*
DIR("A" FEE+9*
DIR("B" FEE+10*
DIR("T" FEE+11*
DIR(0 FEE+9*
DIRUT FEE+8~, FEE+14
DT CHRG+5
DUZ OBS+12
>> IBA OBS+8
>> IBADMDT OBS+3, OBS+6*, OBS+8
>> IBAFEE FEE+4, FEE+7
>> IBATYP CHRG+9*, CHRG+10, FEE+7*
>> IBBS CHRG+8*, CHRG+9
>> IBCHG CHRG+7, FEE+4, FEE+10, FEE+13, FEE+16, FEE+18*
>> IBCLDA OBS+3
>> IBCLDT OBS+3*
IBDATE IBOVOP~, IBOVOP+7, IBOVOP+10
IBDATE1 IBOVOP+8~, IBOVOP+10*, IBOVOP+11
IBDFN IBOVOP+8~, IBOVOP+17*, IBOVOP+18, IBOVOP+19, IBOVOP+26
>> IBDISDT OBS+8
IBDISP CLSF+6~, CLSF+14*, CLSF+16*, PRINT+4
>> IBDT OBS+6*, CHRG+5*
>> IBDUZ OBS+12*
IBENDDT IBOVOP+8~, IBOVOP+11*, IBOVOP+12
>> IBEVDA OBS+8*
>> IBEVDT OBS+8*
IBFLD1 PRINT+1, PRINT+2, IBOVOP+9~, IBOVOP+23*, IBOVOP+28
IBFLD2 PRINT+1, PRINT+2, IBOVOP+9~, IBOVOP+24*, IBOVOP+28
IBFLD3 IBOVOP+9~, IBOVOP+25*, IBOVOP+28
IBFLD4 IBOVOP+9~, IBOVOP+26*, IBOVOP+28
IBFLD5 IBOVOP+9~, IBOVOP+26*, IBOVOP+28
>> IBFLD6 IBOVOP+26*, IBOVOP+28
IBFR OBS+8*, END!
IBI IBOVOP+8~, IBOVOP+10*, IBOVOP+12*, IBOVOP+13
>> IBLINE PRINT+1
IBOUT CLSF+6~, CLSF+13*, PRINT+3
>> IBQUIT PRINT+2
IBREAS CLSF+6~, CLSF+17*, PRINT+5, PRINT+6
>> IBSL OBS+8*
IBSPEC IBOVOP+8~, IBOVOP+16*, IBOVOP+23
IBSUB3 IBOVOP+9~, IBOVOP+19*, IBOVOP+28
IBSUB4 IBOVOP+9~, IBOVOP+20*, IBOVOP+28
IBSUB5 IBOVOP+9~, IBOVOP+21*, IBOVOP+28
IBSUB6 IBOVOP+9~, IBOVOP+22*, IBOVOP+28
IBTO OBS+8*, END!
IBTYP CLSF+6~, CLSF+11*, CLSF+12*, CLSF+13, IBOVOP+15*
IBTYPE OBS+6*, END!
>> IBUNIT OBS+8*
>> IBX OBS+6*
>> IBY OBS+3, OBS+6, OBS+10, CHRG+9*, FEE+14*
IOSL PRINT+2
U CLSF+10, CLSF+11, CLSF+14, CLSF+15, IBOVOP+14, IBOVOP+15, IBOVOP+17, IBOVOP+23, IBOVOP+25, IBOVOP+28
X FEE+8~
Y FEE+8~, FEE+15, FEE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All