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

Package: Integrated Billing

Routine: IBECEA51


Information

IBECEA51 ;ALB/CPM - Cancel/Edit/Add... Update Event Actions ; 05-MAY-93

Source Information

Source file <IBECEA51.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^%DT  HELP^%DTC  ^DIE  ^DIR  
List Manager 2 ($$SETSTR,PAUSE)^VALM1  EN^VALM2  
Integrated Billing 1 ($$DAT1,$$DAT2)^IBOUTL  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Integrated Billing 2 IBACME CHANGE STATUS  IBACME LAST CALC  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
CS ; 'Change Status' Entry Action
CSQ
HCS ; Help for 'Change Status'
LC ; 'Last Date Calc' Entry Action
LCQ
LCO ; Update Last Calc Date for a Single Event.
LCP
LCOQ
HLC ; Help for 'Last Calc Date'
FEE(IBN) ; If the Event Record is for Fee, it is uneditable.
; Input: IBN -- Pointer to an event record in file #350
; Output: IBFEE -- 1 = record is uneditable
; 0 = record is editable
FEEQ

External References

Name Field # of Occurrence
^%DT LCP+4
HELP^%DTC LCP+4
^DIE CS+12, LCP+7
^DIR CS+10
$$DAT1^IBOUTL LCP+8, LCP+9, HLC+4
$$DAT2^IBOUTL LCPLCP+2
$$SETSTR^VALM1 CS+14, LCP+9
PAUSE^VALM1 CS+16, LC+4
EN^VALM2 CS+2, LC+2
$$FMADD^XLFDT LCP+5, HLC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This event will remain "_IBSTAT_"."
  • Line Location: CS+10
Function Call: WRITE
  • Prompt: !,"An error occured while changing the status - event is still ",IBSTAT,"."
  • Line Location: CS+12
Function Call: WRITE
  • Prompt: !,"The status has been changed to ",IBDEST,"."
  • Line Location: CS+13
Function Call: WRITE
  • Prompt: !!,"Please enter 'Y' or 'YES' to change the status of this event from ",IBSTAT
  • Line Location: HCS+1
Function Call: WRITE
  • Prompt: !,"to ",IBDEST,", or 'N', 'NO', or '^' to quit."
  • Line Location: HCS+2
Function Call: WRITE
  • Prompt: !!,"If the status of this event is changed to open, and the patient is still an"
  • Line Location: HCS+3
Function Call: WRITE
  • Prompt: !,"inpatient in this ward (on the specified admission date), charges will be"
  • Line Location: HCS+4
Function Call: WRITE
  • Prompt: !,"billed starting the day after the Date Last Calculated. If the status is"
  • Line Location: HCS+5
Function Call: WRITE
  • Prompt: !,"changed to closed, no further charges will be associated with this event."
  • Line Location: HCS+6
Function Call: WRITE
  • Prompt: !!,"Processing Event #",IBNBR,":"
  • Line Location: LCO+4
Function Call: WRITE
  • Prompt: !,"Date Last Calculated: "
  • Line Location: LCP+0
Function Call: WRITE
  • Prompt: $$DAT2^IBOUTL(IBLCAL),"// "
  • Condition for execution: IBLCAL
  • Line Location: LCP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LCP+1
Function Call: WRITE
  • Prompt: " (",$$DAT2^IBOUTL(IBLCAL),")",!,"No change!"
  • Line Location: LCP+2
Function Call: WRITE
  • Prompt: !,"An error occured while changing the Last Calc Date - no change made!"
  • Line Location: LCP+7
Function Call: WRITE
  • Prompt: !,"The Date Last Calculated has been changed to ",$$DAT1^IBOUTL(IBNEWV),"."
  • Line Location: LCP+8
Function Call: WRITE
  • Prompt: !!,"The Date Last Calculated is used to record the last date for which Means Test"
  • Line Location: HLC+1
Function Call: WRITE
  • Prompt: !,"charges were billed for an admission."
  • Line Location: HLC+2
Function Call: WRITE
  • Prompt: !!,"This date cannot be deleted. Please enter a date not less than the Event"
  • Line Location: HLC+3
Function Call: WRITE
  • Prompt: !,"Date (",$$DAT1^IBOUTL(IBEVDT),") and not greater than yesterday (",$$DAT1^IBOUTL($$FMADD^XLFDT(DT,-1)),").",!
  • Line Location: HLC+4
Function Call: WRITE
  • Prompt: !,*7,"Fee Admissions cannot be edited!"
  • Line Location: FEE+5
Routine Call
  • DIE
  • Line Location:
    • CS+12
    • LCP+7
Routine Call
  • DIR
  • Line Location:
    • CS+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IB - [#350] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] FEE+5
^TMP("IBACME" CS+4, CS+15*, LCO+2, LCP+10*
^TMP("IBACMEI" CS+4, CS+15*, LCO+2, LCP+10*

Label References

Name Line Occurrences
$$FEE CS+8, LCO+5
CSQ CS+2
HLC LCP+3, LCP+5
LCO LC+3
LCOQ LCO+5, LCP+1, LCP+2, LCP+7
LCP LCP+3, LCP+4, LCP+5
LCQ LC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT LCO+1~, LCP+4*
DA CS+1~, CS+11*, LCO+1~, LCP+6*
DIE CS+1~, CS+11*, LCO+1~, LCP+6*
DIR CS+10!
DIR("?" CS+9*
DIR("A" CS+9*
DIR(0 CS+9*
>> DIRUT CS+10
DR CS+1~, CS+11*, LCO+1~, LCP+6*
DT LCP+5, HLC+4
DTIME LCP+1
>> DUOUT CS+10
IBCOMMIT CS+1~, CS+2*, CS+13*, CSQLC+1~, LC+2*, LCQLCP+8*
IBDEST CS+1~, CS+6*, CS+9, CS+11, CS+13, CS+14, CS+15, HCS+2
IBEVDT LCO+1~, LCO+3*, LCP+5, HLC+4
IBFEE FEE+4~*, FEE+5*, FEEQ
IBLCAL LCO+1~, LCO+3*, LCPLCP+1, LCP+2
IBLINE CS+1~, CS+4*, CS+14*, CS+15, LCO+1~, LCO+2*, LCP+9*, LCP+10
IBN CS+1~, CS+5*, CS+8, CS+11, LCO+1~, LCO+3*, LCO+5, LCP+6, FEE~, FEE+5
IBNBR CS+1~, CS+3*, CS+4, CS+7, CS+15, LC+1~, LC+3*, LCO+2, LCO+4, LCP+10
IBNDX CS+1~, CS+4*, CS+5, LCO+1~, LCO+2*, LCO+3
IBNEWV LCO+1~, LCP+6*, LCP+8, LCP+9, LCP+10
IBSTAT CS+1~, CS+5*, CS+6, CS+9, CS+10, CS+12, HCS+1
>> VALMBCK CSQ*, LCQ*
>> VALMDDF("LCALC" LCP+9
>> VALMDDF("STATUS" CS+14
>> VALMY( CS+3, LC+3
>> VALMY(0 CS+2, LC+2
>> X LCP+1*, LCP+2, LCP+3
>> XQORNOD(0 CS+2, LC+2
>> Y CS+10, CS+12, LCP+4, LCP+5, LCP+6, LCP+7
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