Routine: DENTAT

Information

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

Source file <DENTAT.m>

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