Routine: TIURC1

Information

TIURC1 ; SLC/JER - Additional Review screen actions ;4/13/05

Package	Total	Call Graph
Text Integration Utility	15	($$GETLMETH,$$GETVMETH,MERGTEXT)^TIUEDI1 $$GETRECNW^TIUEDI3 DOCSPICK^TIULA2 ($$NOW,$$STATUS)^TIULC ($$CLINDOC,$$ISADDNDM,$$PNAME,$$SUPPVSIT,DOCPRM)^TIULC1 ($$CANDO,$$CANENTR,$$CANPICK,$$REQCOSIG)^TIULP $$DOCRES^TIULRR $$UPPER^TIULS $$WORKOK^TIUPXAP1 ADDELMNT^TIUR2 EDIT1^TIURA UPRBLD^TIURL VMSG^TIURS1 EVENT^TIUSRVP1 $$READ^TIUU
List Manager	3	EN^VALM FULL^VALM1 EN^VALM2
Order Entry Results Reporting	1	PATIENT^ORU1
VA FileMan	1	^DIE

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

Package	Total	Caller Graph
Text Integration Utility	5	TIU ACTION COPY TIU BROWSE ACTION COPY TIURC TIURD2 TIUSROI
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
COPY	; Copy
COPY1	; Copy a document
CHKTITLE(TIUTYP)	; Title Status
AGAIN()	; Ask again?
COPY0(DA,TIUD0,TIU)	; Copy 0-node
COPY12(DA,TIUD0,TIUD12,TIU)	; Copy 12-node
COPY13(DA,TIUD13,TIU)	; Copy 13-node
COPY14(DA,TIUD14,TIU)	; Copy 14-node
COPY17(DA,TIUD17)	; Copy Subject
COPYTEXT(TIUDA,DA)	; Copy text

External References

Name	Field # of Occurrence
^DIE	COPY1+67, COPY0+4, COPY12+6, COPY13+3, COPY14+3, COPY17+3
PATIENT^ORU1	COPY1+33
$$GETLMETH^TIUEDI1	COPY1+43
$$GETVMETH^TIUEDI1	COPY1+52
MERGTEXT^TIUEDI1	COPY1+66
$$GETRECNW^TIUEDI3	COPY1+59
DOCSPICK^TIULA2	COPY1+23
$$NOW^TIULC	COPY12+2, COPY13+2
$$STATUS^TIULC	COPY1+62, COPY1+67
$$CLINDOC^TIULC1	COPY1+22
$$ISADDNDM^TIULC1	COPY1+4, COPYTEXT+5
$$PNAME^TIULC1	COPY1+29, COPY1+46, COPY1+55
$$SUPPVSIT^TIULC1	COPY1+41
DOCPRM^TIULC1	COPY1+28
$$CANDO^TIULP	COPY+12, COPY1+7
$$CANENTR^TIULP	CHKTITLE+3
$$CANPICK^TIULP	CHKTITLE+2
$$REQCOSIG^TIULP	COPY12+4
$$DOCRES^TIULRR	COPY+8
$$UPPER^TIULS	COPY1+62, COPY1+67
$$WORKOK^TIUPXAP1	COPY0+3
ADDELMNT^TIUR2	COPY+28
EDIT1^TIURA	COPY1+69
UPRBLD^TIURL	COPY+30
VMSG^TIURS1	COPY+32
EVENT^TIUSRVP1	COPY1+50
$$READ^TIUU	COPY+11, COPY+15, COPY1+6, COPY1+10, COPY1+36, COPY1+47, COPY1+63, AGAIN+2
EN^VALM	COPY+19
FULL^VALM1	COPY1+14
EN^VALM2	COPY+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Ok, no harm done...",! Line Location: COPY+10
Function Call: WRITE	Prompt: !!,$C(7),$P(TIUVIEW,U,2),! Line Location: COPY+14
Function Call: WRITE	Prompt: !,$C(7),"ADDENDA may not be copied." Line Location: COPY1+5
Function Call: WRITE	Prompt: "" Line Location: COPY1+6
Function Call: WRITE	Prompt: !!,$C(7),$P(TIUCOPY,U,2),! Line Location: COPY1+9
Function Call: WRITE	Prompt: ! Line Location: COPY1+18
Function Call: WRITE	Prompt: !,$C(7),$P(TIUDOC0,U,3)," is an inactive title." Line Location: COPY1+20
Function Call: WRITE	Prompt: !,"You must now select a new, active title BEFORE the note is copied:",! Line Location: COPY1+21
Function Call: WRITE	Prompt: !!,"Please Choose One or More Patients for whom the document should be copied:",! Line Location: COPY1+31
Function Call: WRITE	Prompt: !,$C(7),"No patient(s) selected..." Line Location: COPY1+35
Function Call: WRITE	Prompt: ! Line Location: COPY1+36
Function Call: WRITE	Prompt: !,$C(7),"No Visit Linkage Method defined for " Line Location: COPY1+45
Function Call: WRITE	Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..." Line Location: COPY1+46
Function Call: WRITE	Prompt: "" Line Location: COPY1+47
Function Call: WRITE	Prompt: !!,"For Patient ",TIUPATNM Line Location: COPY1+48
Function Call: WRITE	Prompt: !,$C(7),"Patient & Visit required." Line Location: COPY1+51
Function Call: WRITE	Prompt: !,$C(7),"No Validation Method defined for " Line Location: COPY1+54
Function Call: WRITE	Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..." Line Location: COPY1+55
Function Call: WRITE	Prompt: !!,$C(7),"A ",$P(TIUTYP(1),U,3)," already exists for this visit." Line Location: COPY1+61
Function Call: WRITE	Prompt: !,"You may not use the copy function to overwrite an existing ",!,$$UPPER^TIULS($$STATUS^TIULC(DA))," ",$P(TIUTYP(1),U,3),".",! Line Location: COPY1+62
Function Call: WRITE	Prompt: "" Line Location: COPY1+63
Function Call: WRITE	Prompt: ! Line Location: AGAIN+1
Routine Call	DIE Line Location: COPY1+67 COPY0+4 COPY12+6 COPY13+3 COPY14+3 COPY17+3
Routine Call	VALM Line Location: COPY+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	COPY1+11, COPY1+12, COPY1+66!, COPY1+68, COPY0+3, COPYTEXT+2, COPYTEXT+3, COPYTEXT+4, COPYTEXT+6, COPYTEXT+8 , COPYTEXT+9*
^TIU(8925.1 - [#8925.1]	COPY1+17
^TMP("TIUR"	COPY+27
^TMP("TIURIDX"	COPY+7
^TMP("TIUVIEW"	COPY+20!

Label References

Name	Line Occurrences
$$AGAIN	COPY1+72
$$CHKTITLE	COPY1+15, COPY1+27
COPY0	COPY1+64
COPY12	COPY1+64
COPY13	COPY1+64
COPY14	COPY1+65
COPY17	COPY1+65
COPYTEXT	COPY1+65

Naked Globals

Name	Field # of Occurrence
^(12	COPY1+11
^(13	COPY1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	COPY+1~, COPY1+39~, COPY1+58~, COPY1+59*, COPY1+62, COPY1+64, COPY1+65, COPY1+66, COPY1+67, COPY1+68 , COPY1+69, COPY1+70, COPY1+71, COPY0~, COPY0+3, COPY12~, COPY12+4, COPY13~, COPY14~, COPY17~ , COPYTEXT~, COPYTEXT+2, COPYTEXT+3, COPYTEXT+8, COPYTEXT+9
DFN	COPY1+39~, COPY1+40*, COPY1+50, COPY1+59, COPY0+2
DIE	COPY+1~, COPY1+58~, COPY1+67, COPY0+1~, COPY12+1~, COPY13+1~, COPY14+1~, COPY17+1~
DIROUT	COPY+1~, COPY+5, COPY1+2~
DR	COPY+1~, COPY1+39~, COPY1+58~, COPY1+67, COPY0+1~, COPY0+2, COPY0+3, COPY12+1~, COPY12+2, COPY12+3* , COPY12+4, COPY12+5, COPY13+1~, COPY13+2, COPY14+1~, COPY14+2, COPY17+1~, COPY17+3*
DT	COPYTEXT+9
DTOUT	COPY1+2~
DUOUT	COPY1+2~
DUZ	COPY12+2, COPY12+4, COPY13+2
OLDNREC	COPY+2~, COPY+16*, COPY+21
RSTRCTD	COPY+6~, COPY+8*, COPY+9
TIU	COPY+1~, COPY+6~, COPY1+39~, COPY1+50, COPY1+57, COPY1+59, COPY1+64, COPY1+65, COPY1+66, COPY0~ , COPY12~, COPY13~, COPY14~
TIU("AD#"	COPY14+2
TIU("EDT"	COPY0+2
TIU("INST"	COPY12+5
TIU("LDT"	COPY0+2
TIU("LOC"	COPY12+2
TIU("TS"	COPY14+2
TIU("VISIT"	COPY0+2
TIU("VLOC"	COPY12+5
TIU("VSTR"	COPY1+51
TIUASK	COPY1+2~, COPY1+57
TIUBAD	CHKTITLE+1~, CHKTITLE+2, CHKTITLE+3*, CHKTITLE+4
TIUC	COPYTEXT+1~, COPYTEXT+3, COPYTEXT+4, COPYTEXT+5, COPYTEXT+6, COPYTEXT+8
TIUCHNG	COPY+1~, COPY+30, COPY1+37, COPY1+71
TIUCHNG("REFRESH"	COPY+29*
TIUCOPY	COPY1+2~, COPY1+7*, COPY1+8, COPY1+9
TIUCPYNG	COPY1+69~*
TIUD0	COPY0~, COPY0+2, COPY12~, COPY12+4
TIUD12	COPY12~, COPY12+2, COPY12+3, COPY12+4, COPY12+5
TIUD13	COPY1+1~, COPY1+11*, COPY1+64, COPY13~, COPY13+2
TIUD14	COPY14~, COPY14+2
TIUD17	COPY17~, COPY17+2
TIUDA	COPY+8, COPY+12, COPY+22, COPY1+4, COPY1+7, COPY1+11, COPY1+12, COPY1+22, COPY1+28, COPY1+65 , COPY1+69~, COPYTEXT~, COPYTEXT+2, COPYTEXT+4
TIUDAARY	COPY+2~, COPY+32
TIUDAARY(	COPY+22*
TIUDATA	COPY+1~, COPY+7*, COPY+8
TIUDCLS	COPY1+16~, COPY1+22*, COPY1+23
TIUDOC0	COPY1+16~, COPY1+17*, COPY1+19, COPY1+20
TIUDPRM	COPY1+2~, COPY1+28, COPY1+59
TIUDPRM(0	COPY0+3
TIUI	COPY+1~, COPY+4, COPY+5, COPY+7, COPY+22, COPY+23, COPY+25~, COPY+26, COPY+27, COPY1+1~ , COPY1+38, COPY1+40, COPYTEXT+1~, COPYTEXT+6*, COPYTEXT+8
TIUITEM	COPY+25~, COPY+27*, COPY+28, COPY1+58~
TIUJ	COPYTEXT+1~, COPYTEXT+3, COPYTEXT+7, COPYTEXT+8, COPYTEXT+9
TIULINE	COPYTEXT+1~, COPYTEXT+3*
TIULMETH	COPY1+39~, COPY1+43*, COPY1+44, COPY1+49
TIULST	COPY+2~, COPY+23*, COPY+32
TIUNDA	COPY+25~, COPY+27*, COPY+28
TIUNEW	COPY1+58~, COPY1+59, COPY1+60
TIUNREC	COPY+2~, COPY+16, COPY+21, COPY+24, COPY+26, COPY+27, COPY1+71*
TIUOD0	COPY1+1~, COPY1+11*, COPY1+13, COPY1+64
TIUOD12	COPY1+1~, COPY1+11*, COPY1+64
TIUOD14	COPY1+1~, COPY1+12*, COPY1+65
TIUOD17	COPY1+1~, COPY1+12*, COPY1+65
>> TIUOUT	COPY1+15, COPY1+24, COPY1+27, COPY1+44, COPY1+53
TIUPAT	COPY1+1~, COPY1+33, COPY1+34
TIUPAT(	COPY1+38, COPY1+40
TIUPATNM	COPY1+39~, COPY1+40*, COPY1+48
TIUPOP	COPY1+2~, COPY1+3, COPY1+32, COPY1+37, COPY1+72*
TIUTNM	COPY1+1~, COPY1+29*, COPY1+30
TIUTYP	COPY1+1~, COPY1+13, COPY1+15, COPY1+17, COPY1+22, COPY1+23, COPY1+24, COPY1+26*, COPY1+27, COPY1+28 , COPY1+29, COPY1+30, COPY1+41, COPY1+43, COPY1+46, COPY1+52, COPY1+55, CHKTITLE~, CHKTITLE+2, CHKTITLE+3
TIUTYP(1	COPY1+26, COPY1+30*, COPY1+59, COPY1+61, COPY1+62
TIUVIEW	COPY+2~, COPY+12*, COPY+13, COPY+14
TIUVMETH	COPY1+39~, COPY1+52*, COPY1+53, COPY1+56
TIUVSUPP	COPY1+2~, COPY1+41*, COPY1+42
TIUY	COPY+1~, AGAIN+1~, AGAIN+2*, AGAIN+3
U	COPY+8, COPY+14, COPY1+9, COPY1+19, COPY1+20, COPY1+26, COPY1+30, COPY1+40, COPY1+61, COPY1+62 , COPY0+2, COPY0+3, COPY12+2, COPY12+3, COPY12+4, COPY12+5, COPY13+2, COPY14+2, COPYTEXT+3
>> VALMBCK	COPY+31*
VALMY	COPY+3, COPY+30!
VALMY(	COPY+5
>> XQORNOD(0	COPY+3
Y	COPY+1~

Customize PDF page

Package: Text Integration Utility

Routine: TIURC1

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: