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

Package: Integrated Billing

Routine: IBORT


Information

IBORT ;ALB/MRL,SGD - MAS BILLING TOTALS REPORT ;25 MAY 88 09:10

Source Information

Source file <IBORT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^%DT  (C,COMMA,NOW)^%DTC  ^DIR  
Integrated Billing 1 SET^IBORT1  

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
SELECT ; chose the date type to select by
DATE
DATE1
BEGIN ;
Q
WRITE
HEAD
HELP ; help for date type selection

External References

Name Field # of Occurrence
^%DT IBORT+8, DATE, DATE1
C^%DTC BEGIN+4
COMMA^%DTC WRITE
NOW^%DTC HEAD
^%ZIS DATE1+5
HOME^%ZIS DATE1+9
^%ZISC Q+1
^%ZTLOAD DATE1+9
^DIR SELECT+3
SET^IBORT1 BEGIN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7," ??",!,"Date must be in the past."
  • Line Location: DATE+0
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," ??",!,"Date must be in the past."
  • Line Location: DATE1+1
Function Call: WRITE
  • Prompt: !!,*7,"*** Margin width of this output is 132 ***"
  • Line Location: DATE1+3
Function Call: WRITE
  • Prompt: !,IBNEX
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !,IBL,!,"TOTALS"
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !,IBNEX
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: !,IBL,!,"PENDING TOTALS"
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: ?IBTAB,$J(IBN1,5)
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: ?(IBTAB+7),$J(X,15)
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: !,@IOF,!
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: ?94,"Date/Time Printed: ",Y,!!,$S(IBB:"Billing Summary Report ",1:"Summary of Pending Bill Authorizations "),IBHD," (by "_$S(IBDTP="EVENT":"Event Date)",1:"Date Billed)")
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !,IBL,!
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: ?39,"INITIATED",?55,"|",?65,"PENDING",?80,"|",?89,"PRINTED",?105,"|",?114,"CANCELLED",?130,"|"
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: ?38,"TOTAL PENDING",?55,"|",?64,"NO ACTION",?80,"|",?89,"REVIEWED",?105,"|",?114,"AUTHORIZED",?130,"|"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,"BILL TYPE"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?IBTAB,"Number Dollars|"
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,IBL1
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !!,"EVENT DATE is the date beginning the bill's episode of care"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"BILL DATE is the date the bill was initially printed"
  • Line Location: HELP+2
Routine Call
  • DIR
  • Line Location:
    • SELECT+3
Routine Call
  • %ZIS
  • Line Location:
    • DATE1+5
Routine Call
  • %ZIS
  • Line Location:
    • DATE1+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BEGIN+9
^DD("DD" BEGIN+3, HEAD
^DGCR(399 - [#399] BEGIN+8
^DGCR(399.3 - [#399.3] BEGIN+5
^UTILITY($J IBORT+8!, BEGIN+5*, BEGIN+6*, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, Q!

Label References

Name Line Occurrences
DATE DATE
DATE1 DATE1, DATE1+1
HEAD BEGIN+9, BEGIN+11
Q DATE, DATE1, DATE1+5, DATE1+7
WRITE BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12

Naked Globals

Name Field # of Occurrence
^( BEGIN+5, BEGIN+9, BEGIN+11
^("TS" BEGIN+6*
^(0 BEGIN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!, HEAD
%DT DATE*, DATE1*, Q!
%DT("A" DATE*
>> %ZIS DATE1+5*
DFN BEGIN+8*, Q!
DIR SELECT+3!
DIR("?" SELECT+2*
DIR("A" SELECT+2*
DIR("B" SELECT+2*
DIR(0 SELECT+1*
>> DIRUT SELECT+3
DT IBORT+8*, DATE, DATE1+1
DTIME IBORT+8*, DATE1
I BEGIN+5*, BEGIN+8*, BEGIN+9*, BEGIN+11*, Q!
I1 BEGIN+9*, BEGIN+10*, BEGIN+11*, BEGIN+12*, Q!, WRITE
IB BEGIN+8*, Q!
IBB BEGIN+9*, BEGIN+11*, Q!, HEAD, HEAD+2
IBBEG DATE*, DATE1, BEGIN+3, BEGIN+4, Q!
IBD BEGIN+4*, BEGIN+8*, Q!
IBD1 BEGIN+4*, BEGIN+8, Q!
IBDTP IBORT+7~, SELECT+4*, DATE, BEGIN+7, Q!, HEAD
IBEND DATE1*, DATE1+1, BEGIN+3, BEGIN+4, Q!
IBHD BEGIN+3*, Q!, HEAD
IBIDX IBORT+7~, BEGIN+7*, BEGIN+8, Q!
IBL BEGIN+3*, BEGIN+10, BEGIN+12, Q!, HEAD+1
IBL1 BEGIN+3*, Q!, HEAD+5
IBN1 Q!, WRITE*
IBN2 Q!, WRITE*
IBNEX BEGIN+4*, BEGIN+5*, BEGIN+9*, BEGIN+11*, Q!
IBP BEGIN+9*, BEGIN+10*, BEGIN+11*, BEGIN+12*, Q!, WRITE
IBS Q!
IBTAB Q!, WRITE*, HEAD+4*
IBTOT Q!
IBX BEGIN+5*, Q!
IO DATE1+11
IO("Q" DATE1+7!
IOF HEAD
J BEGIN+8*, Q!
POP DATE1+5, Q!
U IBORT+8*
X IBORT+8*!, DATE1*, BEGIN+4, BEGIN+9*, Q!, WRITE*
X1 BEGIN+4*, Q!
X2 BEGIN+4*, Q!, WRITE*
Y IBORT+8!, SELECT+4, DATE, DATE1, BEGIN+3*, Q!, HEAD*
>> ZTDESC DATE1+8*
>> ZTQUEUED Q+1, Q+4
>> ZTREQ Q+4*
>> ZTRTN DATE1+8*
>> ZTSAVE("IB*" DATE1+8*
ZTSK DATE1+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All