Routine: TIURD3

Information

TIURD3 ; SLC/JER - Reassign actions ;01-Aug-2011 12:06;MGH

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Text Integration Utility	14	SEND^TIUALRT (DELIRT,UPDTIRT)^TIUDIRT ($$GETLMETH,$$GETVMETH)^TIUEDI1 $$PATIENT^TIULA ($$DELETE,$$PNAME,$$PTNAME,$$REASSIGN,DOCPRM)^TIULC1 $$DATE^TIULS ($$ISA,$$ISDS)^TIULX QUE^TIUPXAP1 ($$CHKAPPT,$$CHKVST,$$CHKWKL,EDTENC)^TIUPXAP2 AUDREASS^TIURB1 ($$REFDTO,$$RETRACT,$$VLOC,ATTACH,UPDTADD)^TIURD2 ($$CLASS,REASSOP)^TIUSROI $$READ^TIUU CREDIT^TIUVSIT
IHS Mods To Text Integration Utilities	1	VNOTFIX^BTIUU1
Kernel	1	$$UP^XLFSTR
PCE Patient Care Encounter	1	$$INTV^PXAPI
VA Fileman	1	^DIE

Package	Total	Caller Graph
Text Integration Utility	2	TIURD TIURD1

Package

Total

Caller Graph

Text Integration Utility

TIURD TIURD1

Entry Points

Name	Comments	DBIA/ICR reference
REASSIGO	; Reassign an original Document
WHOABACK(DA,TIUD0,TIUD12,TIUD13,TIUD14)	; Undo Reassign when fails
WKLD(TIUD0,TIUD12)	; Allow user to clean up workload for visit from which document was removed
PKGACT(TIUDA,TIUD0,TIUD12,TIUD13,TIUD14,TIUOUT)	; Get/Execute Package Reassign Action

External References

Name	Field # of Occurrence
VNOTFIX^BTIUU1	REASSIGO+99
^DIE	REASSIGO+91, WHOABACK+4, WHOABACK+7
$$INTV^PXAPI	WKLD+11
SEND^TIUALRT	REASSIGO+75, REASSIGO+105
DELIRT^TIUDIRT	REASSIGO+74, REASSIGO+77
UPDTIRT^TIUDIRT	REASSIGO+103
$$GETLMETH^TIUEDI1	REASSIGO+23
$$GETVMETH^TIUEDI1	REASSIGO+35
$$PATIENT^TIULA	REASSIGO+4
$$DELETE^TIULC1	PKGACT+14
$$PNAME^TIULC1	REASSIGO+27, REASSIGO+39, REASSIGO+50, REASSIGO+63, REASSIGO+67, REASSIGO+68
$$PTNAME^TIULC1	WKLD+7
$$REASSIGN^TIULC1	PKGACT+2
DOCPRM^TIULC1	REASSIGO+21
$$DATE^TIULS	WKLD+7
$$ISA^TIULX	REASSIGO+11
$$ISDS^TIULX	REASSIGO+87
QUE^TIUPXAP1	REASSIGO+98, REASSIGO+126
$$CHKAPPT^TIUPXAP2	WKLD+10
$$CHKVST^TIUPXAP2	REASSIGO+121
$$CHKWKL^TIUPXAP2	REASSIGO+130, REASSIGO+133
EDTENC^TIUPXAP2	REASSIGO+133
AUDREASS^TIURB1	REASSIGO+108, REASSIGO+110
$$REFDTO^TIURD2	REASSIGO+87
$$RETRACT^TIURD2	REASSIGO+15
$$VLOC^TIURD2	WKLD+7
ATTACH^TIURD2	REASSIGO+75
UPDTADD^TIURD2	REASSIGO+101
$$CLASS^TIUSROI	REASSIGO+11
REASSOP^TIUSROI	REASSIGO+11
$$READ^TIUU	REASSIGO+9, REASSIGO+19, REASSIGO+28, REASSIGO+33, REASSIGO+40, REASSIGO+45, REASSIGO+52, REASSIGO+65, REASSIGO+69, REASSIGO+73 , REASSIGO+118, REASSIGO+127, REASSIGO+135, WKLD+8, PKGACT+9
CREDIT^TIUVSIT	REASSIGO+130
$$UP^XLFSTR	REASSIGO+67, REASSIGO+68

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please choose the correct PATIENT and CARE EPISODE:",! Line Location: REASSIGO+2
Function Call: WRITE	Prompt: !!,"No PATIENT Selected: Aborting Transaction, No Harm Done...",! Line Location: REASSIGO+8
Function Call: WRITE	Prompt: !!,"Moving signed document to another Patient...A RETRACTED copy will be retained.",! Line Location: REASSIGO+14
Function Call: WRITE	Prompt: !!,"Creation of a new Copy of the RETRACTED record failed...Contact IRM.",! Line Location: REASSIGO+18
Function Call: WRITE	Prompt: !!,$C(7),"No Visit Linkage Method defined for " Line Location: REASSIGO+26
Function Call: WRITE	Prompt: $$PNAME^TIULC1(TIUTYPE),".",!,"Please contact IRM...",! Line Location: REASSIGO+27
Function Call: WRITE	Prompt: !!,$C(7),"Patient & Visit required: Aborting Transaction...No Harm Done.",! Line Location: REASSIGO+32
Function Call: WRITE	Prompt: !!,$C(7),"No Validation Method defined for " Line Location: REASSIGO+38
Function Call: WRITE	Prompt: $$PNAME^TIULC1(TIUTYPE),".",!,"Please contact IRM...",! Line Location: REASSIGO+39
Function Call: WRITE	Prompt: !!,$C(7),"Okay, No Harm Done.",! Line Location: REASSIGO+44
Function Call: WRITE	Prompt: "" Line Location: REASSIGO+45
Function Call: WRITE	Prompt: !!,$C(7),$C(7),$C(7),"This ",$$PNAME^TIULC1(TIUTYPE)," is already associated with the selected visit...",! Line Location: REASSIGO+50
Function Call: WRITE	Prompt: !,"No action taken.",! Line Location: REASSIGO+51
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7),"This ",$$PNAME^TIULC1(TIUTYPE)," is already associated with the selected visit...",! Line Location: REASSIGO+63
Function Call: WRITE	Prompt: !,"No action taken.",! Line Location: REASSIGO+64
Function Call: WRITE	Prompt: !!,$C(7),$C(7),$C(7),"This patient already has a " Line Location: REASSIGO+66
Function Call: WRITE	Prompt: $$UP^XLFSTR($$PNAME^TIULC1(TIUTYPE))," for the selected care" Line Location: REASSIGO+67
Function Call: WRITE	Prompt: !,"episode. Do you wish to make the current record an ADDENDUM of that ",!,$$UP^XLFSTR($$PNAME^TIULC1(TIUTYPE)),"?",! Line Location: REASSIGO+68
Function Call: WRITE	Prompt: !!,"All right. No harm done.",! Line Location: REASSIGO+71
Function Call: WRITE	Prompt: !!,$G(TIUNAME)," Reassigned.",! Line Location: REASSIGO+96
Function Call: WRITE	Prompt: !!,"You may now edit the encounter data for the DESTINATION Visit...",! Line Location: REASSIGO+116
Function Call: WRITE	Prompt: !,"Patient: ",$G(TIU("PNM")),!," Visit: ",$P($G(TIU("EDT")),U,2)," to ",$P($G(TIU("VLOC")),U,2) Line Location: REASSIGO+117
Function Call: WRITE	Prompt: ! Line Location: REASSIGO+118
Function Call: WRITE	Prompt: !! Line Location: REASSIGO+125
Function Call: WRITE	Prompt: ! Line Location: REASSIGO+135
Function Call: WRITE	Prompt: !,"You may now clean up the encounter data for the ORIGINAL Visit...",! Line Location: WKLD+6
Function Call: WRITE	Prompt: !,"Patient: ",$$PTNAME^TIULC1(TIUDFN),!," Visit: ",$$DATE^TIULS(TIUEDT,"AMTH DD, CCYY@HR:MIN")," to ",$$VLOC^TIURD2(TIUHL) Line Location: WKLD+7
Function Call: WRITE	Prompt: !!,"Editing Encounter Data...",! Line Location: WKLD+9
Function Call: WRITE	Prompt: ! Line Location: WKLD+16
Function Call: WRITE	Prompt: !!,$C(7),"Can't Reassign this document...",! Line Location: PKGACT+8
Routine Call	DIE Line Location: REASSIGO+91 WHOABACK+4 WHOABACK+7

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	WKLD+4
^TIU(8925 - [#8925]	REASSIGO+56, REASSIGO+57, REASSIGO+89, REASSIGO+107, REASSIGO+113, REASSIGO+124, PKGACT+2, PKGACT+14, WHOABACK+5

Name	Line Occurrences
PKGACT	REASSIGO+94
WHOABACK	PKGACT+7

Name	Field # of Occurrence
^(12	REASSIGO+107

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	REASSIGO+55~, REASSIGO+91*, WHOABACK~, WHOABACK+5
>> DFN	REASSIGO+4*, REASSIGO+6, REASSIGO+11, REASSIGO+13, REASSIGO+56, REASSIGO+79
DIE	REASSIGO+55~, REASSIGO+91, WHOABACK+1~, WHOABACK+7*
DR	REASSIGO+55~, REASSIGO+79, REASSIGO+82, REASSIGO+83, REASSIGO+84, REASSIGO+85, REASSIGO+87, REASSIGO+89, WHOABACK+1~, WHOABACK+2 , WHOABACK+3, WHOABACK+6
DT	REASSIGO+115, REASSIGO+124
TIU	REASSIGO+1~, REASSIGO+30, REASSIGO+87, REASSIGO+103
TIU("AD#"	REASSIGO+83
TIU("EDT"	REASSIGO+79, REASSIGO+115, REASSIGO+117
TIU("LDT"	REASSIGO+79
TIU("LOC"	REASSIGO+82
TIU("PNM"	REASSIGO+117
TIU("TS"	REASSIGO+84
TIU("VISIT"	REASSIGO+47, REASSIGO+79
TIU("VLOC"	REASSIGO+85, REASSIGO+117
TIU("VSTR"	REASSIGO+54, REASSIGO+56, REASSIGO+79
>> TIUADD0	REASSIGO+48
TIUASK	REASSIGO+1~, REASSIGO+42, REASSIGO+115, REASSIGO+118*
TIUATT	REASSIGO+61~, REASSIGO+69*, REASSIGO+70
>> TIUCHNG	REASSIGO+75, REASSIGO+134
TIUCONT	REASSIGO+122~
TIUD0	REASSIGO+94, REASSIGO+108, REASSIGO+110, WKLD~, PKGACT~, WHOABACK~, WHOABACK+2
TIUD0(0	REASSIGO+13, REASSIGO+47, WKLD+2, WKLD+5, PKGACT+7
TIUD0(1	REASSIGO+107*
TIUD12	REASSIGO+94, REASSIGO+108, REASSIGO+110, WKLD~, PKGACT~, WHOABACK~, WHOABACK+3, WHOABACK+6
TIUD12(0	WKLD+3, PKGACT+7
TIUD12(1	REASSIGO+107*
TIUD13	REASSIGO+94, PKGACT~, WHOABACK~, WHOABACK+6
TIUD13(0	PKGACT+7
TIUD14	REASSIGO+94, PKGACT~, WHOABACK~, WHOABACK+3
TIUD14(0	PKGACT+7
TIUDA	REASSIGO+11, REASSIGO+15, REASSIGO+16, REASSIGO+62, REASSIGO+74, REASSIGO+75, REASSIGO+77, REASSIGO+87, REASSIGO+89, REASSIGO+91 , REASSIGO+94, REASSIGO+99, REASSIGO+101, REASSIGO+103, REASSIGO+105, REASSIGO+107, REASSIGO+108, REASSIGO+113, REASSIGO+121, REASSIGO+124 , REASSIGO+130, REASSIGO+133, REASSIGO+134, PKGACT~, PKGACT+2, PKGACT+7, PKGACT+12~, PKGACT+13, PKGACT+14
TIUDELX	PKGACT+12~, PKGACT+14*, PKGACT+15
TIUDFN	WKLD+1~, WKLD+5*, WKLD+7, WKLD+10, WKLD+11
TIUDPRM	REASSIGO+1~, REASSIGO+21, REASSIGO+130, REASSIGO+133
TIUDPRM(0	REASSIGO+48, REASSIGO+60
TIUEDT	WKLD+1~, WKLD+5*, WKLD+7, WKLD+10, WKLD+11
TIUERR	WKLD+1~, WKLD+11*
TIUHL	WKLD+1~, WKLD+3*, WKLD+4, WKLD+7, WKLD+10, WKLD+11
>> TIULMETH	REASSIGO+23*, REASSIGO+24, REASSIGO+29
>> TIUNAME	REASSIGO+96
>> TIUODA	REASSIGO+15*, REASSIGO+74, REASSIGO+77, REASSIGO+110, REASSIGO+134, PKGACT+11, PKGACT+13
TIUOLD0	REASSIGO+55~, REASSIGO+57*, REASSIGO+60
TIUORIG	REASSIGO+55~, REASSIGO+56*, REASSIGO+57, REASSIGO+60, REASSIGO+62, REASSIGO+75
TIUOUT	REASSIGO+7, REASSIGO+17, REASSIGO+25, REASSIGO+31, REASSIGO+37, REASSIGO+43, REASSIGO+47, REASSIGO+49, REASSIGO+72, REASSIGO+94 , REASSIGO+95, PKGACT~, PKGACT+6*
TIUPOP	PKGACT+1~, PKGACT+3, PKGACT+5
TIUPRMT	REASSIGO+122~
TIUREASX	PKGACT+1~, PKGACT+2*, PKGACT+3, PKGACT+4
>> TIUTYPE	REASSIGO+11, REASSIGO+21, REASSIGO+23, REASSIGO+27, REASSIGO+35, REASSIGO+39, REASSIGO+50, REASSIGO+56, REASSIGO+63, REASSIGO+67 , REASSIGO+68, REASSIGO+87
>> TIUVMETH	REASSIGO+35*, REASSIGO+36, REASSIGO+41
TIUVSIT	WKLD+1~, WKLD+5*, WKLD+10, WKLD+11
TIUWHAT	WKLD+1~, WKLD+10*, WKLD+11
U	REASSIGO+13, REASSIGO+47, REASSIGO+48, REASSIGO+60, REASSIGO+79, REASSIGO+82, REASSIGO+84, REASSIGO+85, REASSIGO+89, REASSIGO+113 , REASSIGO+117, REASSIGO+124, REASSIGO+134, WKLD+2, WKLD+3, WKLD+4, WKLD+5, WHOABACK+2, WHOABACK+3, WHOABACK+5 , WHOABACK+6
>> VALMAR	WKLD+9
>> XWBOS	REASSIGO+123

Customize PDF page

Package: Text Integration Utility

Routine: TIURD3

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: