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

Package: Integrated Billing

Routine: IBOMBL


Information

IBOMBL ;ALB/SGD - MAS BILLING LOG ;25 MAY 88 11:42

Source Information

Source file <IBOMBL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  (COMMA,NOW)^%DTC  DT^DICRW  
Registration 1 PID^VADPT6  

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

Package Total Caller Graph
Integrated Billing 1 IBCMENU  

Entry Points

Name Comments DBIA/ICR reference
DATE
DATE1
BEGIN
Q
PRINT
HEAD

External References

Name Field # of Occurrence
^%DT DATE, DATE1
COMMA^%DTC PRINT+2
NOW^%DTC HEAD
^%ZIS DATE1+5
HOME^%ZIS DATE1+8
^%ZISC Q+1
^%ZTLOAD DATE1+8
DT^DICRW IBOMBL+5
PID^VADPT6 PRINT

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "Go to DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE."
  • Line Location: DATE1+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: DATE1+1
Function Call: WRITE
  • Prompt: !!,*7,"*** Margin width of this output is 132 ***"
  • Line Location: DATE1+3
Function Call: WRITE
  • Prompt: !!,?30,"No matches found."
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: $P(^DPT(DFN,0),"^",1),?30,VA("BID")
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: ?39,$P(IB0,"^",1)
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?50,Y
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?64,$J(X,15)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?81,$P(^(0),"^",1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?116,Y
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,@IOF,!,?94,"Date/Time Printed: "
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: Y,!!,IBHD,?120,"Page ",IBPG,!,IBL1,!!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: "PATIENT NAME",?30,"PT ID",?38,"BILL NO.",?50,"DATE OF BILL",?67,"AMT. BILLED",?81,"BILL CATEGORY",?102,"INPT./OPT.",?116,"DATE CANCELLED",!,IBL
  • Line Location: HEAD+1
Routine Call
  • %ZIS
  • Line Location:
    • DATE1+5
Routine Call
  • %ZIS
  • Line Location:
    • DATE1+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BEGIN+1
^DD("DD" BEGIN, PRINT+1, PRINT+5, HEAD
^DGCR(399 - [#399] BEGIN+2, PRINT, PRINT+2
^DGCR(399.3 - [#399.3] PRINT+3
^DPT - [#2] PRINT

Label References

Name Line Occurrences
DATE1 DATE1, DATE1+1
HEAD BEGIN+1, BEGIN+2
PRINT BEGIN+2
Q DATE, DATE1, DATE1+5, DATE1+6

Naked Globals

Name Field # of Occurrence
^(0 PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!, HEAD
%DT DATE*, DATE1*, Q!
%DT("A" DATE*
%DT(0 DATE*
>> %ZIS DATE1+5*
>> DFN PRINT*
DT IBOMBL+5, DATE, DATE1+1
DTIME DATE1
I BEGIN+2*, Q!
IB0 Q!, PRINT*, PRINT+1, PRINT+3, PRINT+4
IBBEG DATE*, DATE1, BEGIN, BEGIN+2, Q!
IBEND DATE1*, DATE1+1, BEGIN, BEGIN+2, Q!
IBFLAG BEGIN+3, Q!, PRINT*
IBHD BEGIN*, Q!, HEAD
IBL BEGIN+1*, Q!, HEAD+1
IBL1 BEGIN+1*, Q!, HEAD
IBNEX BEGIN+1*, BEGIN+2*, Q!, PRINT, PRINT+2
IBPG BEGIN+1*, Q!, HEAD*
IBS BEGIN+2*, Q!, PRINT+1, PRINT+5
>> IBU1 PRINT+2*
IO DATE1+9
IO("Q" DATE1+6!
IOF HEAD
IOSL BEGIN+2
POP DATE1+5, Q!
>> VA("BID" PRINT!
>> VA("PID" PRINT!
X DATE1*, BEGIN+1*, Q!, PRINT+2*
X2 Q!, PRINT+2*
Y DATE, DATE1, BEGIN*, Q!, PRINT+1*, PRINT+5*, HEAD*
>> ZTDESC DATE1+7*
>> ZTQUEUED Q+1
>> ZTRTN DATE1+7*
>> ZTSAVE("IB*" DATE1+7*
ZTSK DATE1+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All