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

Package: Dental

Routine: DENTAT


Information

DENTAT ;ISC2/SAW-CREATE DENTAL SERVICE TAPE ; 7/21/88 5:42 PM ;

Source Information

Source file <DENTAT.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 ^%ZIS  

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
Dental 1 DENT SERVICE TAPE  

Entry Points

Name Comments DBIA/ICR reference
OPEN
EXIT
FILL
OSERR

External References

Name Field # of Occurrence
^%ZIS OPEN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"This option will create the Dental Service Magnetic Tape",!,"Which must be sent to the Austin TX DPC"
  • Line Location: DENTAT+2
Function Call: READ
  • Formatting: !
  • Prompt: "Are you sure you want to continue? N// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DENTAT+3
Function Call: WRITE
  • Prompt: !!,"There is no data in the Dental Service Tape global??? Can't write a tape without data.",*7
  • Line Location: DENTAT+4
Function Call: READ
  • Formatting: !
  • Prompt: "Press the return key when Magtape device is ready: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPEN+0
Function Call: WRITE
  • Prompt: !,*7,"Unable to open Magtape device"
  • Line Location: OPEN+1
Function Call: WRITE
  • Prompt: @DENTTP1
  • Line Location: OPEN+4
Function Call: WRITE
  • Prompt: $E(^(N,0),1,80)
  • Line Location: OPEN+5
Function Call: WRITE
  • Prompt: @DENTTP1
  • Line Location: OPEN+6
Function Call: WRITE
  • Prompt: !,J1," Records were written to tape."
  • Line Location: OPEN+7
Function Call: WRITE
  • Prompt: $E(DENTJ,1,80)
  • Line Location: FILL+1
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: OSERR+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: OSERR+0
Function Call: WRITE
  • Prompt: !,"This routine is not designed to run on your present operating system.",!," Contact your regional ISC for information on how to continue.",!!!," PLEASE NOTE: NO DATA HAS BEEN OUTPUT TO THIS TAPE!!!"
  • Line Location: OSERR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OSERR+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: OSERR+2
Routine Call
  • %ZIS
  • Line Location:
    • OPEN+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" OPEN+7, OSERR
^DD("OS" - [#.7] OPEN+2
^UTILITY("DENTV" DENTAT+4, OPEN+5

Label References

Name Line Occurrences
EXIT DENTAT+3, DENTAT+4, OPEN
FILL OPEN+6
OPEN OPEN, OPEN+1
OSERR OPEN+2, OPEN+3

Naked Globals

Name Field # of Occurrence
^( OPEN+5
^(0 OPEN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DENTFILL FILL*, FILL+1, FILL+2!
DENTI OPEN+2*, EXIT!
DENTJ FILL*, FILL+1, FILL+2!
DENTOS OPEN+2*, OPEN+3, EXIT!
DENTTP OPEN+3*, OPEN+4, OPEN+6, EXIT!
DENTTP1 OPEN+4*, OPEN+6*, EXIT!
DTIME DENTAT+3, OPEN
I OPEN+5*, EXIT!, FILL, OSERR*, OSERR+2*
IO OPEN+1, OPEN+4
IO(0 OPEN+1, OPEN+7, OSERR
IOP OPEN+1*, EXIT!
J FILL*, FILL+1*, FILL+2!
J1 OPEN+5*, OPEN+7, EXIT!
N OPEN+5*, EXIT!
N1 EXIT!
>> POP OPEN+1
X DENTAT+3*, OPEN*, EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All