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 ;04/18/17 07:42

Source Information

Source file <TIURD3.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Text Integration Utility 15 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  NOTIFY^TIUUTL  CREDIT^TIUVSIT  
Kernel 1 $$UP^XLFSTR  
PCE Patient Care Encounter 1 $$INTV^PXAPI  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

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
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
WHOABACK(DA,TIUD0,TIUD12,TIUD13,TIUD14) ; Undo Reassign when fails

External References

Name Field # of Occurrence
^DIE REASSIGO+94, WHOABACK+4, WHOABACK+7
$$INTV^PXAPI WKLD+11
SEND^TIUALRT REASSIGO+83, REASSIGO+109
DELIRT^TIUDIRT REASSIGO+82, REASSIGO+86
UPDTIRT^TIUDIRT REASSIGO+107
$$GETLMETH^TIUEDI1 REASSIGO+24
$$GETVMETH^TIUEDI1 REASSIGO+38
$$PATIENT^TIULA REASSIGO+4
$$DELETE^TIULC1 PKGACT+14
$$PNAME^TIULC1 REASSIGO+29, REASSIGO+43, REASSIGO+56, REASSIGO+70, REASSIGO+74, REASSIGO+75
$$PTNAME^TIULC1 WKLD+7
$$REASSIGN^TIULC1 PKGACT+2
DOCPRM^TIULC1 REASSIGO+22
$$DATE^TIULS WKLD+7
$$ISA^TIULX REASSIGO+11
$$ISDS^TIULX REASSIGO+90
QUE^TIUPXAP1 REASSIGO+103, REASSIGO+129
$$CHKAPPT^TIUPXAP2 WKLD+10
$$CHKVST^TIUPXAP2 REASSIGO+124
$$CHKWKL^TIUPXAP2 REASSIGO+133, REASSIGO+136
EDTENC^TIUPXAP2 REASSIGO+136
AUDREASS^TIURB1 REASSIGO+112, REASSIGO+114
$$REFDTO^TIURD2 REASSIGO+90
$$RETRACT^TIURD2 REASSIGO+15
$$VLOC^TIURD2 WKLD+7
ATTACH^TIURD2 REASSIGO+83
UPDTADD^TIURD2 REASSIGO+105
$$CLASS^TIUSROI REASSIGO+11
REASSOP^TIUSROI REASSIGO+11
$$READ^TIUU REASSIGO+9, REASSIGO+20, REASSIGO+30, REASSIGO+36, REASSIGO+44, REASSIGO+50, REASSIGO+58, REASSIGO+72, REASSIGO+76, REASSIGO+81
, REASSIGO+121, REASSIGO+130, REASSIGO+139, WKLD+8, PKGACT+9
NOTIFY^TIUUTL REASSIGO+18, REASSIGO+27, REASSIGO+34, REASSIGO+41, REASSIGO+48, REASSIGO+55, REASSIGO+69, REASSIGO+80, REASSIGO+84, REASSIGO+138
CREDIT^TIUVSIT REASSIGO+133
$$UP^XLFSTR REASSIGO+74, REASSIGO+75

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+19
Function Call: WRITE
  • Prompt: !!,$C(7),"No Visit Linkage Method defined for "
  • Line Location: REASSIGO+28
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYPE),".",!,"Please contact IRM...",!
  • Line Location: REASSIGO+29
Function Call: WRITE
  • Prompt: !!,$C(7),"Patient & Visit required: Aborting Transaction...No Harm Done.",!
  • Line Location: REASSIGO+35
Function Call: WRITE
  • Prompt: !!,$C(7),"No Validation Method defined for "
  • Line Location: REASSIGO+42
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYPE),".",!,"Please contact IRM...",!
  • Line Location: REASSIGO+43
Function Call: WRITE
  • Prompt: !!,$C(7),"Okay, No Harm Done.",!
  • Line Location: REASSIGO+49
Function Call: WRITE
  • Prompt: ""
  • Line Location: REASSIGO+50
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$C(7),"This ",$$PNAME^TIULC1(TIUTYPE)," is already associated with the selected visit...",!
  • Line Location: REASSIGO+56
Function Call: WRITE
  • Prompt: !,"No action taken.",!
  • Line Location: REASSIGO+57
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),$C(7),"This ",$$PNAME^TIULC1(TIUTYPE)," is already associated with the selected visit...",!
  • Line Location: REASSIGO+70
Function Call: WRITE
  • Prompt: !,"No action taken.",!
  • Line Location: REASSIGO+71
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$C(7),"This patient already has a "
  • Line Location: REASSIGO+73
Function Call: WRITE
  • Prompt: $$UP^XLFSTR($$PNAME^TIULC1(TIUTYPE))," for the selected care"
  • Line Location: REASSIGO+74
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+75
Function Call: WRITE
  • Prompt: !!,"All right. No harm done.",!
  • Line Location: REASSIGO+78
Function Call: WRITE
  • Prompt: !!,$G(TIUNAME)," Reassigned.",!
  • Line Location: REASSIGO+101
Function Call: WRITE
  • Prompt: !!,"You may now edit the encounter data for the DESTINATION Visit...",!
  • Line Location: REASSIGO+119
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+120
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSIGO+121
Function Call: WRITE
  • Prompt: !!
  • Line Location: REASSIGO+128
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSIGO+139
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+94
    • WHOABACK+4
    • WHOABACK+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] WKLD+4
^TIU(8925 - [#8925] REASSIGO+62, REASSIGO+63, REASSIGO+92, REASSIGO+111, REASSIGO+117, REASSIGO+127, PKGACT+2, PKGACT+14, WHOABACK+5

Label References

Name Line Occurrences
PKGACT REASSIGO+99
WHOABACK PKGACT+7
WKLD REASSIGO+115

Naked Globals

Name Field # of Occurrence
^(12 REASSIGO+111

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REASSIGO+61~, REASSIGO+94*, WHOABACK~, WHOABACK+5
>> DFN REASSIGO+4*, REASSIGO+6, REASSIGO+11, REASSIGO+13, REASSIGO+62, REASSIGO+84, REASSIGO+88, REASSIGO+138
DIE REASSIGO+61~, REASSIGO+94*, WHOABACK+1~*, WHOABACK+7*
DR REASSIGO+61~, REASSIGO+88*, REASSIGO+89*, REASSIGO+90*, REASSIGO+92*, WHOABACK+1~, WHOABACK+2*, WHOABACK+3*, WHOABACK+6*
DT REASSIGO+118, REASSIGO+127
TIU REASSIGO+1~, REASSIGO+32, REASSIGO+84, REASSIGO+90, REASSIGO+107, REASSIGO+138
TIU("AD#" REASSIGO+89
TIU("EDT" REASSIGO+88, REASSIGO+118, REASSIGO+120
TIU("INST" REASSIGO+89
TIU("LDT" REASSIGO+88
TIU("LOC" REASSIGO+89
TIU("PNM" REASSIGO+120
TIU("TS" REASSIGO+89
TIU("VISIT" REASSIGO+52, REASSIGO+88
TIU("VLOC" REASSIGO+89, REASSIGO+120
TIU("VSTR" REASSIGO+60, REASSIGO+62, REASSIGO+88
>> TIUADD0 REASSIGO+53
TIUASK REASSIGO+1~, REASSIGO+46, REASSIGO+118, REASSIGO+121*
TIUATT REASSIGO+67~, REASSIGO+76*, REASSIGO+77
>> TIUCHNG REASSIGO+83*, REASSIGO+137*
TIUCONT REASSIGO+125~
TIUD0 REASSIGO+99, REASSIGO+112, REASSIGO+114, REASSIGO+115, WKLD~, PKGACT~, WHOABACK~, WHOABACK+2
TIUD0(0 REASSIGO+13, REASSIGO+52, REASSIGO+115, REASSIGO+138, WKLD+2, WKLD+5, PKGACT+7
TIUD0(1 REASSIGO+111*
TIUD12 REASSIGO+99, REASSIGO+112, REASSIGO+114, REASSIGO+115, WKLD~, PKGACT~, WHOABACK~, WHOABACK+3, WHOABACK+6
TIUD12(0 WKLD+3, PKGACT+7
TIUD12(1 REASSIGO+111*
TIUD13 REASSIGO+99, PKGACT~, WHOABACK~, WHOABACK+6
TIUD13(0 PKGACT+7
TIUD14 REASSIGO+99, PKGACT~, WHOABACK~, WHOABACK+3
TIUD14(0 PKGACT+7
TIUDA REASSIGO+11, REASSIGO+15*, REASSIGO+16, REASSIGO+68, REASSIGO+82, REASSIGO+83, REASSIGO+84, REASSIGO+86, REASSIGO+90, REASSIGO+92
, REASSIGO+94, REASSIGO+99, REASSIGO+105, REASSIGO+107, REASSIGO+109, REASSIGO+111, REASSIGO+112, REASSIGO+117, REASSIGO+124, REASSIGO+127
, REASSIGO+133, REASSIGO+136, REASSIGO+137, REASSIGO+138, 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+22, REASSIGO+133, REASSIGO+136
TIUDPRM(0 REASSIGO+53, REASSIGO+66
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+1~, REASSIGO+24*, REASSIGO+25, REASSIGO+31
>> TIUNAME REASSIGO+101
TIUODA REASSIGO+1~, REASSIGO+15*, REASSIGO+82, REASSIGO+86, REASSIGO+114, REASSIGO+137, PKGACT+11, PKGACT+13
TIUOLD0 REASSIGO+61~, REASSIGO+63*, REASSIGO+66, REASSIGO+84
TIUORIG REASSIGO+61~, REASSIGO+62*, REASSIGO+63, REASSIGO+66, REASSIGO+68, REASSIGO+83
TIUOUT REASSIGO+7*, REASSIGO+17*, REASSIGO+26*, REASSIGO+33*, REASSIGO+40*, REASSIGO+47*, REASSIGO+52, REASSIGO+54*, REASSIGO+79*, REASSIGO+99
, REASSIGO+100, PKGACT~, PKGACT+6*
TIUPOP PKGACT+1~, PKGACT+3, PKGACT+5
TIUPRMT REASSIGO+125~
TIUREASS REASSIGO+1~, REASSIGO+97*
TIUREASX PKGACT+1~, PKGACT+2*, PKGACT+3, PKGACT+4
>> TIUTYPE REASSIGO+11, REASSIGO+22, REASSIGO+24, REASSIGO+29, REASSIGO+38, REASSIGO+43, REASSIGO+56, REASSIGO+62, REASSIGO+70, REASSIGO+74
, REASSIGO+75, REASSIGO+90
TIUVMETH REASSIGO+1~, REASSIGO+38*, REASSIGO+39, REASSIGO+45
TIUVSIT WKLD+1~, WKLD+5*, WKLD+10, WKLD+11
TIUWHAT WKLD+1~, WKLD+10*, WKLD+11
U REASSIGO+13, REASSIGO+52, REASSIGO+53, REASSIGO+66, REASSIGO+84, REASSIGO+88, REASSIGO+89, REASSIGO+92, REASSIGO+115, REASSIGO+117
, REASSIGO+120, REASSIGO+127, REASSIGO+137, REASSIGO+138, WKLD+2, WKLD+3, WKLD+4, WKLD+5, WHOABACK+2, WHOABACK+3
, WHOABACK+5, WHOABACK+6
>> VALMAR WKLD+9
>> XWBOS REASSIGO+126
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All