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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Text Integration Utility 2 $$DOCCLASS^TIULC1  $$READ^TIUU  
VA Fileman 2 ^DIC  IX^DIK  
Consult Request Tracking 1 GET^GMRCTIU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIU DEFINE CONSULTS  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control subroutine
CREATE() ; Create a record for the CONSULTS Document Definition
ASK(TIUDA,LEVEL) ; Ascertain whether to make CONSULTS a CLASS or DC
CLPAC() ; Get pointer to CLINICAL COORDINATOR User Class
INDEX(DA) ; Call IX^DIK to re-index the CONSULTS entry
ATTACH(TIUDA,TIULVL) ; Attach CONSULTS to appropriate parent
SET(TIUDA,LEVEL) ; Set the data in the new Document Definition record
DONE(TIULVL) ; Let the user know
TEST() ; Check for CONSULTS entry in Document Defintion file
CLNAME(TIUDA) ; Get parent class's name

External References

Name Field # of Occurrence
^DIC CREATE+3, ATTACH+8
IX^DIK INDEX+2, ATTACH+14
GET^GMRCTIU MAIN+2
$$DOCCLASS^TIULC1 CLNAME+2
$$READ^TIUU MAIN+13, ASK+12, ASK+16

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
Routine Call
  • DIC
  • Line Location:
    • CREATE+3
    • ATTACH+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.1 - [#8925.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(8925.1 ATTACH+7
^TIU(8925.1 - [#8925.1] CLNAME+2, TEST+2, TEST+3, SET+3*, SET+4*, SET+5*, SET+6*, SET+7*, SET+8*, SET+9*
, SET+10*, SET+11*, SET+12*, SET+13*, SET+15*, SET+17*, SET+18*, SET+19*, SET+21, SET+22*
, SET+23*, SET+24*, SET+25*, SET+26*, SET+27*, SET+28*, SET+29*, SET+30*, SET+31*, SET+32*
, ATTACH+5, ATTACH+10, ATTACH+13*
^USR(8930 - [#8930] CLPAC+2

Label References

Name Line Occurrences
$$CLNAME MAIN+9
$$CLPAC SET+2
$$CREATE MAIN+18
$$TEST MAIN+4
ASK MAIN+20
ATTACH MAIN+24
DONE MAIN+25
INDEX MAIN+23
SET MAIN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA INDEX~, ATTACH+12*, ATTACH+13
DA(1 ATTACH+4*, ATTACH+5, ATTACH+6, ATTACH+10, ATTACH+13
DIC CREATE+1~, CREATE+2*, ATTACH+1~, ATTACH+6*, ATTACH+12!
DIC("P" ATTACH+7*
DIC(0 CREATE+2*, ATTACH+6*
DIE ATTACH+1~
DIK INDEX+1~, INDEX+2*, ATTACH+12*
DLAYGO CREATE+1~, CREATE+2*, ATTACH+1~
DR ATTACH+1~
LEVEL ASK~, ASK+12*, ASK+13*, ASK+15, ASK+17*, ASK+18*, SET~, SET+3
TIUCLP SET+1~, SET+2*, SET+3
TIUCONT MAIN+1~, MAIN+5, MAIN+13*, MAIN+14
TIUCRLF DONE+1~*, DONE+4
TIUDA MAIN+1~, MAIN+4*, MAIN+5, MAIN+6, MAIN+9, MAIN+15*, MAIN+16, MAIN+18*, MAIN+19, MAIN+20
, MAIN+22, MAIN+23, MAIN+24, CLNAME~, CLNAME+2, ASK~, SET~, SET+3, SET+4, SET+5
, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12, SET+13, SET+15, SET+17
, SET+18, SET+19, SET+21, SET+22, SET+23, SET+24, SET+25, SET+26, SET+27, SET+28
, SET+29, SET+30, SET+31, SET+32, ATTACH~, ATTACH+7
TIUFPRIV MAIN+1~, MAIN+4*
TIULNM MAIN+1~, MAIN+7*, MAIN+8, ATTACH+1~, ATTACH+2*, ATTACH+3
TIULVL MAIN+1~, MAIN+6*, MAIN+7, MAIN+20, MAIN+21, MAIN+22, MAIN+24, MAIN+25, DONE~, DONE+3
, DONE+4, ATTACH~, ATTACH+2, ATTACH+4
TIUNEW MAIN+1~, MAIN+4*, MAIN+18*, MAIN+24
TIUPRMT ASK+1~, ASK+11*, ASK+12, ASK+15*, ASK+16
TIUSEQ ATTACH+1~, ATTACH+12*, ATTACH+13
TIUY CLNAME+1~, CLNAME+2*, CLNAME+3, TEST+1~, TEST+2*, TEST+3*, TEST+4, ASK+16*, ASK+17, CLPAC+1~
, CLPAC+2*, CLPAC+3
U MAIN+6, CLNAME+2, TEST+3, ASK+13, ASK+15, ASK+18, ATTACH+5, ATTACH+7, ATTACH+10, ATTACH+12
, ATTACH+13
X CREATE+1~, CREATE+2*, ATTACH+1~, ATTACH+7*
Y CREATE+1~, CREATE+4, ATTACH+1~, ATTACH+9, ATTACH+12

Marked Items

Name Field # of Occurrence
$T(GET^GMRCTIU MAIN+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All