Routine: DENTE1

Information

DENTE1 ;ISC2/SAW,HAG-EDIT DENTAL TREATMENT DATA ;1/26/98 15:10

Source file <DENTE1.m>

Name	Comments	DBIA/ICR reference
TREAT0	;REVIEW SERVICE REPORT DATA FULL SCREEN (TERMINAL INPUT)
TREAT	;REVIEW SERVICE REPORT DATA LINE BY LINE (TERMINAL INPUT)
TRT
TREAT1
PERS	;PERSONNEL SERVICE REPORT DATA
PERS1
FEE	;FEE BASIS SERVICE REPORT DATA
FEE1
Q
ADMIN	;CLASS I-VI ADMIN SERVICE REPORT INFO
ADMIN1
DELTR	;DELETE TREATMENT DATA
TR1
TR2
IEN1	;GENERATE INTERNAL ENTRY NUMBER FOR FILE 221
IEN6	;GENERATE INTERNAL ENTRY NUMBER FOR FILE 226
CHECK(FILE,CD)	;FIND A PLACE TO PUT THE NEW RECORD
IEN(CD)	;GENERATE INTERNAL ENTRY NUMBER
LEAP(LYR)	; Pass 4 digit YR to calculate whether Feb is 28 or 29 days.
DATE	;;31;28;31;30;31;30;31;31;30;31;30;31
LOCK	;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You may select a treatment date by entering the patient's name or SSN,",!,"the provider's number or the treatment date (without time).",!! Line Location: TREAT+1
Function Call: READ	Variable: Z Timeout: 5 Line Location: TREAT+3
Function Call: WRITE	Prompt: *7,!!,"Note: This treatment data has already been RELEASED.",!,?6,"RELEASED data can not be edited it can only be viewed.",! Line Location: TREAT+3
Function Call: WRITE	Prompt: !! Line Location: PERS+1
Function Call: WRITE	Prompt: !! Line Location: FEE+1
Function Call: WRITE	Prompt: *7,!!,"FEE TREAT COMP value was incorrect and has been recalculated for you." Line Location: FEE1+1
Function Call: WRITE	Prompt: !! Line Location: ADMIN+1
Function Call: WRITE	Prompt: !! Line Location: DELTR+1
Function Call: WRITE	Prompt: !!,"Would you like a display of the data for this Treatment Data entry" Line Location: TR1+0
Function Call: WRITE	Prompt: !,"Nothing Deleted" Line Location: TR2+0
Function Call: READ	Variable: X Timeout: 2 Line Location: TR2+1
Function Call: WRITE	Prompt: !!,"Entry deleted." Line Location: TR2+1
Function Call: WRITE	Prompt: !!,*7,"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Line Location: LOCK+1