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 ;11/01/03

Source Information

Source file <TIURD3.m>

Call Graph

Call Graph

Call Graph Total: 17

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

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

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
^DIE REASSIGO+85, WHOABACK+4, WHOABACK+7
$$INTV^PXAPI WKLD+11
SEND^TIUALRT REASSIGO+75, REASSIGO+100
DELIRT^TIUDIRT REASSIGO+74, REASSIGO+77
UPDTIRT^TIUDIRT REASSIGO+98
$$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+81
QUE^TIUPXAP1 REASSIGO+94, REASSIGO+120
$$CHKAPPT^TIUPXAP2 WKLD+10
$$CHKVST^TIUPXAP2 REASSIGO+115
$$CHKWKL^TIUPXAP2 REASSIGO+124, REASSIGO+127
EDTENC^TIUPXAP2 REASSIGO+127
AUDREASS^TIURB1 REASSIGO+103, REASSIGO+105
$$REFDTO^TIURD2 REASSIGO+81
$$RETRACT^TIURD2 REASSIGO+15
$$VLOC^TIURD2 WKLD+7
ATTACH^TIURD2 REASSIGO+75
UPDTADD^TIURD2 REASSIGO+96
$$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+112, REASSIGO+121, REASSIGO+129, WKLD+8, PKGACT+9
CREDIT^TIUVSIT REASSIGO+124
$$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+92
Function Call: WRITE
  • Prompt: !!,"You may now edit the encounter data for the DESTINATION Visit...",!
  • Line Location: REASSIGO+110
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+111
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSIGO+112
Function Call: WRITE
  • Prompt: !!
  • Line Location: REASSIGO+119
Function Call: WRITE
  • Prompt: !
  • Line Location: REASSIGO+129
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+85
    • 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+83, REASSIGO+102, REASSIGO+108, REASSIGO+118, PKGACT+2, PKGACT+14, WHOABACK+5

Label References

Name Line Occurrences
PKGACT REASSIGO+90
WHOABACK PKGACT+7
WKLD REASSIGO+106

Naked Globals

Name Field # of Occurrence
^(12 REASSIGO+102

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REASSIGO+55~, REASSIGO+85*, WHOABACK~, WHOABACK+5
>> DFN REASSIGO+4*, REASSIGO+6, REASSIGO+11, REASSIGO+13, REASSIGO+56, REASSIGO+79
DIE REASSIGO+55~, REASSIGO+85*, WHOABACK+1~*, WHOABACK+7*
DR REASSIGO+55~, REASSIGO+79*, REASSIGO+80*, REASSIGO+81*, REASSIGO+83*, WHOABACK+1~, WHOABACK+2*, WHOABACK+3*, WHOABACK+6*
DT REASSIGO+109, REASSIGO+118
TIU REASSIGO+1~, REASSIGO+30, REASSIGO+81, REASSIGO+98
TIU("AD#" REASSIGO+80
TIU("EDT" REASSIGO+79, REASSIGO+109, REASSIGO+111
TIU("INST" REASSIGO+80
TIU("LDT" REASSIGO+79
TIU("LOC" REASSIGO+80
TIU("PNM" REASSIGO+111
TIU("TS" REASSIGO+80
TIU("VISIT" REASSIGO+47, REASSIGO+79
TIU("VLOC" REASSIGO+80, REASSIGO+111
TIU("VSTR" REASSIGO+54, REASSIGO+56, REASSIGO+79
>> TIUADD0 REASSIGO+48
TIUASK REASSIGO+1~, REASSIGO+42, REASSIGO+109, REASSIGO+112*
TIUATT REASSIGO+61~, REASSIGO+69*, REASSIGO+70
>> TIUCHNG REASSIGO+75*, REASSIGO+128*
TIUCONT REASSIGO+116~
TIUD0 REASSIGO+90, REASSIGO+103, REASSIGO+105, REASSIGO+106, WKLD~, PKGACT~, WHOABACK~, WHOABACK+2
TIUD0(0 REASSIGO+13, REASSIGO+47, REASSIGO+106, WKLD+2, WKLD+5, PKGACT+7
TIUD0(1 REASSIGO+102*
TIUD12 REASSIGO+90, REASSIGO+103, REASSIGO+105, REASSIGO+106, WKLD~, PKGACT~, WHOABACK~, WHOABACK+3, WHOABACK+6
TIUD12(0 WKLD+3, PKGACT+7
TIUD12(1 REASSIGO+102*
TIUD13 REASSIGO+90, PKGACT~, WHOABACK~, WHOABACK+6
TIUD13(0 PKGACT+7
TIUD14 REASSIGO+90, PKGACT~, WHOABACK~, WHOABACK+3
TIUD14(0 PKGACT+7
TIUDA REASSIGO+11, REASSIGO+15*, REASSIGO+16, REASSIGO+62, REASSIGO+74, REASSIGO+75, REASSIGO+77, REASSIGO+81, REASSIGO+83, REASSIGO+85
, REASSIGO+90, REASSIGO+96, REASSIGO+98, REASSIGO+100, REASSIGO+102, REASSIGO+103, REASSIGO+108, REASSIGO+115, REASSIGO+118, REASSIGO+124
, REASSIGO+127, REASSIGO+128, 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+124, REASSIGO+127
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+92
>> TIUODA REASSIGO+15*, REASSIGO+74, REASSIGO+77, REASSIGO+105, REASSIGO+128, 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+90
, REASSIGO+91, PKGACT~, PKGACT+6*
TIUPOP PKGACT+1~, PKGACT+3, PKGACT+5
TIUPRMT REASSIGO+116~
TIUREASS REASSIGO+1~, REASSIGO+88*
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+81
>> 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+80, REASSIGO+83, REASSIGO+106, REASSIGO+108, REASSIGO+111
, REASSIGO+118, REASSIGO+128, WKLD+2, WKLD+3, WKLD+4, WKLD+5, WHOABACK+2, WHOABACK+3, WHOABACK+5, WHOABACK+6
>> VALMAR WKLD+9
>> XWBOS REASSIGO+117
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All