Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls