TIUPS14 ; SLC/JER - Post-Install for TIU*1*4;Dec 05, 1997 08:30 ;2/3/98@09:52:05
Source file <TIUPS14.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ; Control subroutine
|
|
DONE(TIULVL) | ; Let the user know
|
|
CLNAME(TIUDA) | ; Get parent class's name
|
|
TEST() | ; Check for CONSULTS entry in Document Defintion file
|
|
CREATE() | ; Create a record for the CONSULTS Document Definition
|
|
ASK(TIUDA,LEVEL) | ; Ascertain whether to make CONSULTS a CLASS or DC
|
|
INDEX(DA) | ; Call IX^DIK to re-index the CONSULTS entry
|
|
SET(TIUDA,LEVEL) | ; Set the data in the new Document Definition record
|
|
ATTACH(TIUDA,TIULVL) | ; Attach CONSULTS to appropriate parent
|
|
CLPAC() | ; Get pointer to CLINICAL COORDINATOR User Class
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^TIU(8925.1 - [#8925.1] | Classic Fileman Calls |