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

Package: ODS

Routine: A1B2MUT


Information

A1B2MUT ;ALB/AAS - BILLING UTILITY ROUTINE ;16-JAN-91

Source Information

Source file <A1B2MUT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
ODS 3 ^A1B2CO  ^A1B2COH  (DIS,FAC)^A1B2UTL  
VA FileMan 3 ^DIC  ^DIE  EN1^DIP  
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
ODS 1 A1B2MAIN  

Entry Points

Name Comments DBIA/ICR reference
DISP ; -- display billing data header, and data
DICDR1 ; --set dic(dr) and dic(s) for files 11500.61 => 11500.64
HEAD ;
PTFQ
EN2Q
EN1 ; -- local site enter/edit of cost data
EDIT ; -- input cost data,local input
PTF ; -- find ptf entry number from ods admission entry
; -- input a1b2adm := entry in 11500.2
; -- output a1b2ptf :=entry in ^dgpt
ASKADQ
ASKAD ; -- ask ods admission
EN2 ; -- Print billing data
EN1Q
DISPQ
DISP1
ADM ; -- find local patient dfn and ods admission entry number from ptf entry
; -- input DFN := entry in dpt
; a1b2ptf := entry in ^dgpt
; -- output a1b2adm := entry in 11500.2
ADMQ
PAUSE ;

External References

Name Field # of Occurrence
HOME^%ZIS DISP1
^A1B2CO DISP1+3
^A1B2COH HEAD+2
DIS^A1B2UTL EN2+3
FAC^A1B2UTL EN1+1, EN2+1, DISP+1
^DIC ASKAD+4, EDIT+2
^DIE EDIT+4, EDIT+5
EN1^DIP EN2+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: READ
  • Timeout: ",A1B2ANS:DTIME
  • Variable: "Press RETURN to continue
  • Line Location: PAUSE+2
Routine Call
  • %ZIS
  • Line Location:
    • DISP1
Routine Call
  • DIE
  • Line Location:
    • EDIT+4
    • EDIT+5
Routine Call
  • DIC
  • Line Location:
    • ASKAD+4
    • EDIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^A1B2(11500.2 ASKAD+5
^A1B2(11500.64 EDIT+5
^DGPM - [#405] ADM+6, PTF+4
^DGPM("AODSA" PTF+3
^DGPM("APTF" ADM+5
^DGPT - [#45] ADM+4
^UTILITY($J DISP1+2*

Label References

Name Line Occurrences
ADMQ ADM+5
ASKAD EN1+2, DISP+2
ASKADQ ASKAD+4
DICDR1 EDIT+1
DISP DISP1+4
DISP1 EN1+3
DISPQ DISP+2
EDIT EN1+4, EDIT+7
EN1 EN1+5
EN1Q EN1+2
HEAD DISP1+1
PAUSE DISP1+3
PTFQ PTF+3

Naked Globals

Name Field # of Occurrence
^("ODS" ADM+6
^(0 PTF+4
^(1 EDIT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1B2ADM ADM+4*, ADM+6*, PTF+3*, ASKAD+2*, ASKAD+5*, EN1+2, EN1Q!, DICDR1+1, DISP+2, DISP1
, DISPQ+1!
A1B2ADM1 ADM+5*, ADM+6, ADMQ!
A1B2ADM2 PTF+3*, PTF+4, PTFQ!
A1B2ANS DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+2*
A1B2BR DISPQ+1!
A1B2FL EN2+3*, EN2Q!
A1B2FN EN1Q+1!, DICDR1+1, DISPQ+2!
A1B2FNME EN1Q+1!, DICDR1+1, DISPQ+2!
A1B2I DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+1*
A1B2MAIN EN1Q!
A1B2NK EN1+3*, EN1Q!, DISP1+4, DISPQ
A1B2NOD EN1Q!, EDIT+2*, EDIT+5
>> A1B2NTY EN1Q+1, EN2+1, DISP+1, DISPQ+2
>> A1B2PTF ADM+4, ADM+5, PTF+4*, DICDR1+1
A1B2VR DISPQ+1!
A1B2X DISPQ!, DISPQ+1!, DISPQ+3!
A1B2Y ASKAD+4*, ASKAD+5, EN1Q!, DISPQ!, DISPQ+1!, DISPQ+3!
A1B2YY EN1Q!, EDIT+5*
BY EN2+2*, EN2Q!
C DISPQ!, DISPQ+1!, DISPQ+3!
D EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3!
D0 DISP1*, DISPQ!, DISPQ+1!, DISPQ+3!
DA EN1Q!, EDIT+2*, EDIT+5, EDIT+6!
DFN ADM+4*, ASKAD+5*, EN1Q!, DICDR1+1, DISPQ+1!
DIC ASKAD+4*!, EN1Q!, EDIT+1*, EDIT+2!, EN2+2*, EN2Q!
DIC("A" ASKAD+4*, EDIT+1*
DIC("DR" DICDR1+1*
DIC("S" ASKAD+3*, DICDR1+2*
DIC(0 ASKAD+4*, EDIT+1*
DIE EN1Q!, EDIT+3*, EDIT+6!
DIXX DISPQ!, DISPQ+1!, DISPQ+3!
DLAYGO EDIT+1*, EDIT+6!
DN DISP1*, DISP1+3, DISPQ!, DISPQ+1!, DISPQ+3!, PAUSE+2*
DR EN1Q!, EDIT+3*, EDIT+5*, EDIT+6!
DTIME PAUSE+2
DUZ DICDR1+1
DXS DISP1!, DISPQ!, DISPQ+1!, DISPQ+3!
FLDS EN2+2*, EN2Q!
IOF HEAD+1
IOSL PAUSE+1
>> L EN2+2*
X EN1Q!, EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3!
X1 EN2Q!, DISPQ!, DISPQ+1!, DISPQ+3!
Y ASKAD+4, EN1Q!, EDIT+2
Y(0 EDIT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All