Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUPS14

Package: Text Integration Utility

Routine: TIUPS14


Information

TIUPS14 ; SLC/JER - Post-Install for TIU*1*4;Dec 05, 1997 08:30 ;2/3/98@09:52:05

Source Information

Source file <TIUPS14.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"You must install CONSULT/REQUEST TRACKING 3.0 before",!?6,"implementing this part of patch TIU*1*4."
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !!,"You already have a ",TIULNM," called CONSULTS under "
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: $$CLNAME(+TIUDA),"...",!
  • Line Location: MAIN+9
Function Call: WRITE
  • Prompt: !,"The new methods and properties to support the TIU/CT interface"
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !,"will be MERGED with the existing data. UPLOAD HEADERS and"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,"PRINT METHODS which you have defined will NOT be overwritten.",!
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !!,"Great...No harm done!",!
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !!,"I'm going to create a new Document Definition for CONSULTS now."
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !!,"Great...No harm done!",!
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !!,"Okay, I'm done...Please finish your implementation of CONSULTS by"
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: " adding any",!,$S(TIULVL="CL":"Document Classes and ",1:""),"Titles"
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: " as appropriate using the Create Document Definitions",$S(TIULVL="CL":TIUCRLF,1:" "),"Option",$S(TIULVL="CL":" ",1:TIUCRLF)
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: "under the TIUF DOCUMENT DEFINITION MGR Menu, as described in"
  • Line Location: DONE+5
Function Call: WRITE
  • Prompt: " Step #3",!,"of the Post-Installation Instructions.",!
  • Line Location: DONE+6
Function Call: WRITE
  • Prompt: !!,"GREAT! A new Document Definition has been created for CONSULTS."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Next, you need to decide whether you want CONSULTS to be set up"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"as a separate CLASS (comparable to DISCHARGE SUMMARY or PROGRESS"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"NOTES), or whether you want CONSULTS defined as a DOCUMENT CLASS"
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,"under PROGRESS NOTES. The benefits of each strategy are outlined"
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"in the POST-INSTALLATION instructions for this patch.",!
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"NOTE: If you're not yet CERTAIN which strategy you want your site"
  • Line Location: ASK+8
Function Call: WRITE
  • Prompt: !,"to adopt, then quit here, and get consensus first (it's easier to"
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"get permission than forgiveness, in this case)!",!
  • Line Location: ASK+10
Function Call: WRITE
  • Prompt: !!,"Okay, you've indicated that you want to make CONSULTS a "
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: $P(LEVEL,U,2),".",!
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !!,"FANTASTIC! Your NEW ",TIULNM," CONSULTS will now be added under"
  • Line Location: ATTACH+3
Function Call: WRITE
  • Prompt: !,"the ",$P(^TIU(8925.1,DA(1),0),U)," Class...",!
  • Line Location: ATTACH+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Unable to add CONSULTS under ",$P($G(^TIU(8925.1,DA(1),0)),U)
  • Line Location: ATTACH+10
Function Call: WRITE
  • Prompt: !,"You'll have to attach it manually."
  • Line Location: ATTACH+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call