Routine: TIUPRF1

Package	Total	Call Graph
Text Integration Utility	4	$$DATE^TIULS ($$LINK,$$SELECT,UNLINK)^TIUPRF1 ($$AVAILACT,$$FNDFLAG,$$ISPFTTL)^TIUPRFL $$READ^TIUU
Registration	2	$$GETHTIU^DGPFAPI1 ($$DELTIU,$$STOTIU)^DGPFAPI2
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Text Integration Utility	8	TIUPFFIX TIUPRF1 TIUPRF2 TIUPUTPF TIURB TIURB2 TIURS1 TIUSRVP

Entry Points

Name	Comments	DBIA/ICR reference
SELECT(TIUTTL,DFN,TIUDA)	; Select flag action for VISTA
RELINK(TIUDA,DFN)	; removes old link for TIUDA and links to new PRF assignment for patient DFN ; returns 1 if successful otherwise 0^"error message"
BREAK(LINENO,LINKBL,TIUER,LINEOK)	; Handle prompting
BREAK1	;
CHANGE(TIUDA)	; removes old link for TIUDA and links to new PRF assignment for TIUDA's patient
PRFCT(TIUOTTL,TIUNTTL,TIUDA)	; handles changing title situations for PRF notes in LM
UNLINK(TIUDA)	;removes any link the note TIUDA might have
WRITE(LINENO)	; write the selectable item ; Uses LKBLARR
GETLINK(TIUTYP,DFN,TIUDA)	; Ask user for link for NEW note and link it. Return success or failure
SELECTQ
LINK(TIUDA,ASSGNDA,ACTDA,DFN)	;links a note to a flag assignment action

External References

Name	Field # of Occurrence
$$GETHTIU^DGPFAPI1	SELECT+20
$$DELTIU^DGPFAPI2	UNLINK+4
$$STOTIU^DGPFAPI2	LINK+8
$$DATE^TIULS	WRITE+8
$$LINK^TIUPRF1	RELINK+8, PRFCT+14, PRFCT+26, GETLINK+4
$$SELECT^TIUPRF1	PRFCT+11, PRFCT+23, GETLINK+2
UNLINK^TIUPRF1	PRFCT+25, PRFCT+35
$$AVAILACT^TIUPRFL	SELECT+26
$$FNDFLAG^TIUPRFL	SELECT+17
$$ISPFTTL^TIUPRFL	PRFCT+3, PRFCT+4
$$READ^TIUU	SELECT+25, SELECT+30, PRFCT+10, PRFCT+21, PRFCT+34
$$FMTE^XLFDT	WRITE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This Note must be linked to Patient Record Flag:",!," ",FLAGNM,!," Checking for available Flag Actions...",! Line Location: SELECT+22
Function Call: WRITE	Prompt: !,$P(TIUDG,U,2),"!",! Line Location: SELECT+24
Function Call: WRITE	Prompt: !,"All linkable Flag actions for this Patient and Title are already linked!",! Line Location: SELECT+29
Function Call: WRITE	Prompt: " ?? This action already has a note linked to it.",! Line Location: SELECT+31
Function Call: WRITE	Prompt: " ?? The note is already linked to this action.",! Line Location: SELECT+32
Function Call: WRITE	Prompt: !,"Please select a Patient Record Flag Assignment Action: " Line Location: SELECT+39
Function Call: WRITE	Prompt: !,?7,"Date",?27,"Action",?52,"Note" Line Location: SELECT+40
Function Call: WRITE	Prompt: !,"CHOOSE 1-",LINENO Line Location: BREAK1+1
Function Call: WRITE	Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT" Line Location: BREAK1+2
Function Call: WRITE	Prompt: ": " Line Location: BREAK1+3
Function Call: WRITE	Prompt: !!,$C(7),"INVALID RESPONSE",! Line Location: BREAK1+6
Function Call: WRITE	Prompt: !,?2,LINENO,">",?7,$$FMTE^XLFDT(TIUX,"2D") Line Location: WRITE+4
Function Call: WRITE	Prompt: ?27,$P(@LKBLARR@("HISTORY",LINENO,"ACTION"),U,2),?52 Line Location: WRITE+5
Function Call: WRITE	Prompt: REFDT Line Location: WRITE+8
Function Call: WRITE	Prompt: !,"You must select an action ... Nothing (re)-linked." Line Location: CHANGE+5
Function Call: WRITE	Prompt: !,"The Title you selected is a PRF Title." Line Location: PRFCT+7
Function Call: WRITE	Prompt: !," PRF Notes must be linked to Patient Record Flags.",! Line Location: PRFCT+8
Function Call: WRITE	Prompt: !,"Do you want to continue with this Change Title Action?" Line Location: PRFCT+9
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: PRFCT+10
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: PRFCT+12
Function Call: WRITE	Prompt: !,"This document is already attached to a Patient Record" Line Location: PRFCT+17
Function Call: WRITE	Prompt: !," Flag. It will be unlinked from the current flag" Line Location: PRFCT+18
Function Call: WRITE	Prompt: !," and linked to a new flag.",! Line Location: PRFCT+19
Function Call: WRITE	Prompt: !,"Do you want to continue with this Change Title Action?" Line Location: PRFCT+20
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: PRFCT+21
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: PRFCT+24
Function Call: WRITE	Prompt: !,"The Title you selected is not a PRF Title." Line Location: PRFCT+29
Function Call: WRITE	Prompt: !," The note is currently linked to a Patient Record Flag," Line Location: PRFCT+30
Function Call: WRITE	Prompt: !," but will be unlinked when the title is changed" Line Location: PRFCT+31
Function Call: WRITE	Prompt: !," to a non-PRF Title.",! Line Location: PRFCT+32
Function Call: WRITE	Prompt: !,"Do you want to continue with this Change Title Action?" Line Location: PRFCT+33
Function Call: WRITE	Prompt: !,"Title not changed." Line Location: PRFCT+34
Function Call: WRITE	Prompt: !,"Patient Record Flag Notes must be linked to Flag Actions.",! Line Location: GETLINK+3
Function Call: WRITE	Prompt: !,$P(TIUPRFL,U,2),! Line Location: GETLINK+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	WRITE+8, LINK+4, UNLINK+2, RELINK+3, CHANGE+2, CHANGE+3, PRFCT+2
^TMP("TIUPRFH"	SELECT+36, SELECT+48, SELECTQ!
^TMP("TIUPRFLKBL"	SELECT+36*, SELECTQ!

Label References

Name	Line Occurrences
$$LINK	CHANGE+8
$$SELECT	RELINK+4, CHANGE+4
BREAK	SELECT+44, SELECT+45
BREAK1	BREAK1+6
UNLINK	RELINK+7, CHANGE+7
WRITE	SELECT+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDA	LINK~, LINK+8
ASSGNDA	LINK~, LINK+8
AVAIL	SELECT+15~, SELECT+26*, SELECT+27
DFN	SELECT~, SELECT+20, LINK~, LINK+8, RELINK~, RELINK+4, RELINK+8, CHANGE+1~, CHANGE+2, CHANGE+4 , CHANGE+8, PRFCT+1~, PRFCT+2, PRFCT+11, PRFCT+14, PRFCT+23, PRFCT+26, GETLINK~, GETLINK+2, GETLINK+4
DTIME	BREAK1+3
FLAGNM	SELECT+15~, SELECT+17, SELECT+18, SELECT+19, SELECT+22
HASFLAG	SELECT+15~, SELECT+16, SELECT+18, SELECT+19
LINENO	SELECT+43*, SELECT+44, SELECT+45, BREAK~, BREAK+2, BREAK1+1, WRITE~, WRITE+3, WRITE+4, WRITE+5 , WRITE+6, WRITE+7
LINEOK	SELECT+41, SELECT+43, SELECT+44, SELECT+45, SELECT+48, SELECT+50, SELECT+51, BREAK~, BREAK1+7
LINKBL	SELECT+15~, SELECT+26, SELECT+36, SELECT+43, SELECT+44, SELECT+45, BREAK~, BREAK+2
LKBLARR	SELECT+14~, SELECT+35, SELECT+37, SELECT+48, SELECT+50, SELECT+51, BREAK1+6, WRITE+3, WRITE+5, WRITE+6 , WRITE+7
MORE	BREAK+1~, BREAK+2*, BREAK1+2, BREAK1+4
NEWISPRF	PRFCT+1~, PRFCT+3*, PRFCT+6, PRFCT+16, PRFCT+28
OLDISPRF	PRFCT+1~, PRFCT+4*, PRFCT+6, PRFCT+16, PRFCT+28
REFDT	WRITE+2~, WRITE+8*
TIUACT	RELINK+2~, RELINK+6, RELINK+8, CHANGE+6, CHANGE+8
TIUAGN	SELECT+14~, SELECT+16, SELECT+21, SELECT+22, SELECT+31, SELECT+32, SELECT+50, SELECT+51*
TIUAHIST	WRITE+2~, WRITE+7*
TIUASS	RELINK+2~, RELINK+6, RELINK+8, CHANGE+6, CHANGE+8
TIUDA	SELECT~, SELECT+50, LINK~, LINK+4, LINK+8, UNLINK~, UNLINK+2, UNLINK+4, RELINK~, RELINK+3 , RELINK+4, RELINK+7, RELINK+8, CHANGE~, CHANGE+2, CHANGE+3, CHANGE+4, CHANGE+7, CHANGE+8, PRFCT~ , PRFCT+2, PRFCT+14, PRFCT+25, PRFCT+26, PRFCT+35, GETLINK~, GETLINK+4
TIUDG	SELECT+14~, SELECT+20*, SELECT+23, SELECT+24
TIUER	SELECT+14~, SELECT+41, SELECT+43, SELECT+44, SELECT+45, SELECT+47, BREAK~, BREAK1+4
TIUIEN	WRITE+2~, WRITE+6*, WRITE+8
TIUJ	SELECT+15~, SELECT+36*
TIULINK	PRFCT+1~, PRFCT+11, PRFCT+12, PRFCT+14, PRFCT+23, PRFCT+24, PRFCT+26
TIULINKC	PRFCT+1~, PRFCT+14, PRFCT+26
TIUNTTL	PRFCT~, PRFCT+3, PRFCT+11, PRFCT+23
TIUOTTL	PRFCT~, PRFCT+4
>> TIUPOP	CHANGE+5, CHANGE+9
TIUPRF	RELINK+2~, RELINK+4, RELINK+5, RELINK+6, CHANGE+1~, CHANGE+4, CHANGE+5, CHANGE+6, CHANGE+8, CHANGE+9 , GETLINK+1~, GETLINK+2, GETLINK+3, GETLINK+4
TIUPRFL	GETLINK+1~, GETLINK+4*, GETLINK+5
>> TIUQUIT	PRFCT+10, PRFCT+12, PRFCT+21, PRFCT+24, PRFCT+34*
TIURES	LINK+8, LINK+9, UNLINK+4, RELINK+2~, RELINK+8*
TIURET	SELECT+14~, SELECT+23, SELECT+28, SELECT+47, SELECT+48, SELECTQ+1
TIUTTL	SELECT~, SELECT+17, SELECT+20, LINK+3~, LINK+4, LINK+5, UNLINK+1~, UNLINK+2, UNLINK+3, RELINK+2~ , RELINK+3, RELINK+4, CHANGE+1~, CHANGE+3, CHANGE+4
TIUTYP	GETLINK~, GETLINK+2
TIUX	BREAK+1~, BREAK1+3, BREAK1+4, BREAK1+5, BREAK1+6, BREAK1+7, WRITE+2~, WRITE+3, WRITE+4
U	SELECT+19, SELECT+23, SELECT+24, SELECT+48, WRITE+3, WRITE+5, RELINK+6, CHANGE+2, CHANGE+6, PRFCT+2 , PRFCT+14, PRFCT+26, GETLINK+4, GETLINK+5
UNLINKBL	SELECT+15~, SELECT+26, SELECT+35, SELECT+36, SELECT+37

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRF1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: