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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIURD3

Package: Text Integration Utility

Routine: TIURD3


Information

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

Source Information

Source file <TIURD3.m>

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
PKGACT REASSIGO+94
WHOABACK PKGACT+7

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All