Routine: TIUPS14

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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
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

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 TIU14." 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

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

Customize PDF page

Package: Text Integration Utility