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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIURD2

Package: Text Integration Utility

Routine: TIURD2


Information

TIURD2 ; SLC/JER - Reassignment following signature ;02-Mar-2012 17:19;DU

Source Information

Source file <TIURD2.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Text Integration Utility 15 (ADDENDEL,ALERTDEL,SEND)^TIUALRT  DELIRT^TIUDIRT  (AUDIT,MERGTEXT)^TIUEDI1  ($$CHKSUM,$$STATUS)^TIULC  ($$HASADDEN,$$ISADDNDM,$$ONRTRCT,$$PNAME,$$PTNAME,$$REFDATE,DOCPRM)^TIULC1  GETTIU^TIULD  $$REQCOSIG^TIULP  $$UPPER^TIULS  
$$ISDS^TIULX  $$WORKOK^TIUPXAP1  (AUDREASS,DELSGNR)^TIURB1  (COPY17,COPYTEXT)^TIURC1  $$REFDTA^TIURD2  $$GETREC^TIUSRVP  $$READ^TIUU  
Kernel 2 $$NOW^XLFDT  SIG^XUSESIG  
VA Fileman 2 ^DIC  ^DIE  
IHS Mods To Text Integration Utilities 1 RETRACT^BTIURB  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Text Integration Utility 8 TIURB  TIURB2  TIURD  TIURD1  TIURD2  TIURD3  TIUSROI  TIUSROI1  

Entry Points

Name Comments DBIA/ICR reference
COPYSGNR(TIUDA,TIUCDA,COPYSTAT) ; Copy Add'nal Signers
COPY15(DA,TIUD15) ; Copy 15-node
REMVSIT(DA,TIUOD0) ; Remove VISIT from Retracted Doc
RETRAX
VLOC(LOCDA) ; Resolve location pointer
COPY0(DA,TIUD0,TIU,TIUDAD,STATUS) ; Copy root node
GETSIG() ; Challenge user for Electronic Signature, when appropriate
REFDTAX
ATTACH(TIUDA,TIUDADD) ; Attach TIUDADD as addendum to TIUDA
GETSIGX
COPY12(DA,TIUD12,TIU) ; Copy 12-node
REFDTO(TIUDA,TIU) ; Compute reference date
RTADD ; Retract all addenda
COPY13(DA,TIUD13,TIU,STATUS) ; Copy 13-node
COPY14(DA,TIUD14,TIU) ; Copy 14-node
UPDTADD(TIUDA) ; Addenda for reassigned original are updated
LINKADD(DA,TIUDAD) ; Link addendum (DA) to TIUDAD
REFDTOX
REFDTA(TIUDA,TIUDADD,TIUD0) ; Compute reference date for addenda
STATUS(DA) ; Set original's status to "RETRACTED"
RETRACT(TIUDA,TIUDAD,COPYSTAT,NEWDAD,SKIPADD) ; Retract document

External References

Name Field # of Occurrence
RETRACT^BTIURB STATUS+4
^DIC COPYSGNR+5
^DIE RETRACT+39, RETRACT+43, REMVSIT+8, LINKADD+2, COPY0+4, COPY12+5, COPY13+9, COPY14+5, COPYSGNR+11, COPY15+6
, STATUS+2, ATTACH+6, ATTACH+8, ATTACH+11, UPDTADD+11, UPDTADD+13, UPDTADD+15
ADDENDEL^TIUALRT RTADD+4
ALERTDEL^TIUALRT STATUS+5
SEND^TIUALRT ATTACH+16, UPDTADD+17
DELIRT^TIUDIRT STATUS+5
AUDIT^TIUEDI1 RETRACT+44
MERGTEXT^TIUEDI1 RETRACT+41
$$CHKSUM^TIULC RETRACT+44
$$STATUS^TIULC RETRACT+29, RETRACT+42
$$HASADDEN^TIULC1 UPDTADD+1
$$ISADDNDM^TIULC1 RTADD+3, REMVSIT+3, ATTACH+15, UPDTADD+6
$$ONRTRCT^TIULC1 RETRACT+49
$$PNAME^TIULC1 RETRACT+14
$$PTNAME^TIULC1 RETRACT+20
$$REFDATE^TIULC1 COPY13+2
DOCPRM^TIULC1 RETRACT+13
GETTIU^TIULD RETRACT+22
$$REQCOSIG^TIULP RETRACT+37
$$UPPER^TIULS RETRACT+29, RETRACT+42
$$ISDS^TIULX COPY13+2, REFDTA+4
$$WORKOK^TIUPXAP1 COPY0+3
AUDREASS^TIURB1 UPDTADD+19, UPDTADD+22
DELSGNR^TIURB1 STATUS+5
COPY17^TIURC1 RETRACT+40
COPYTEXT^TIURC1 RETRACT+40
$$REFDTA^TIURD2 UPDTADD+14
$$GETREC^TIUSRVP RETRACT+26
$$READ^TIUU RETRACT+19, RETRACT+30, GETSIG+5
FULL^VALM1 RETRACT+11
$$NOW^XLFDT COPY12+2
SIG^XUSESIG GETSIG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"No patient selected..."
  • Line Location: RETRACT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: RETRACT+19
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: RETRACT+23
Function Call: WRITE
  • Prompt: !!,$C(7),"A ",TIUTNM," already exists for this visit."
  • Line Location: RETRACT+28
Function Call: WRITE
  • Prompt: !,"You may not use the reassign function to overwrite an existing ",!,$$UPPER^TIULS($$STATUS^TIULC(DA))," ",TIUTNM,".",!
  • Line Location: RETRACT+29
Function Call: WRITE
  • Prompt: ""
  • Line Location: RETRACT+30
Function Call: WRITE
  • Prompt: !,"Removing RETRACTED ",TIUTNM," from original Visit..."
  • Line Location: REMVSIT+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: ATTACH+16
Function Call: WRITE
  • Prompt: !!,"Done."
  • Line Location: ATTACH+17
Function Call: WRITE
  • Prompt: !!,$C(7),"Addenda for this Document will now be updated..."
  • Line Location: UPDTADD+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDTADD+15
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"You MUST Enter your CORRECT Electronic Signature to Complete this Task...",!
  • Line Location: GETSIG+4
Routine Call
  • DIE
  • Line Location:
    • RETRACT+39
    • RETRACT+43
    • REMVSIT+8
    • LINKADD+2
    • COPY0+4
    • COPY12+5
    • COPY13+9
    • COPY14+5
    • COPYSGNR+11
    • COPY15+6
    • STATUS+2
    • ATTACH+6
    • ATTACH+8
    • ATTACH+11
    • UPDTADD+11
    • UPDTADD+13
    • UPDTADD+15
Routine Call
  • DIC
  • Line Location:
    • COPYSGNR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] VLOC+1
^TIU(8925 - [#8925] RETRACT+4, RETRACT+5, RETRACT+6, RETRACT+36*, RETRACT+41!, RETRACT+49, RTADD+2, REMVSIT+4, REMVSIT+5, COPY0+3
, COPY13+2, ATTACH+2, ATTACH+14, REFDTO+2, REFDTA+2, UPDTADD+4, UPDTADD+7, UPDTADD+8, UPDTADD+18, UPDTADD+21
, UPDTADD+22
^TIU(8925.7 - [#8925.7] COPYSGNR+2, COPYSGNR+4
^TMP("TIURTRCT" RETRACT+7*, RETRACT+45*

Label References

Name Line Occurrences
$$REFDTA ATTACH+9
$$RETRACT RTADD+5
ATTACH ATTACH+16
COPY0 RETRACT+32
COPY12 RETRACT+32
COPY13 RETRACT+33
COPY14 RETRACT+33
COPY15 RETRACT+35
COPYSGNR RETRACT+34
GETSIGX GETSIG+3
LINKADD RETRACT+9, RETRACT+10
REFDTAX REFDTA+4, REFDTA+5, REFDTA+6
REFDTOX REFDTO+4, REFDTO+5
REMVSIT RETRACT+31
RETRAX RETRACT+9, RETRACT+10, RETRACT+17, RETRACT+23, RETRACT+52
RTADD RETRACT+8
STATUS RETRACT+8, RETRACT+48

Naked Globals

Name Field # of Occurrence
^(12 RETRACT+4, ATTACH+2, UPDTADD+7, UPDTADD+8, UPDTADD+18
^(13 RETRACT+4, REFDTO+2, REFDTA+2
^(14 ATTACH+2, UPDTADD+8
^(15 RETRACT+5
^(16 RETRACT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COPYSTAT RETRACT~, RETRACT+7*, RETRACT+8, RETRACT+10, RETRACT+32, RETRACT+33, RETRACT+34, RETRACT+35, RETRACT+36, RETRACT+37
, RTADD+5, COPYSGNR~, COPYSGNR+7
DA RETRACT+2~, RETRACT+25~, RETRACT+26*, RETRACT+29, RETRACT+32, RETRACT+33, RETRACT+34, RETRACT+35, RETRACT+36, RETRACT+40
, RETRACT+41, RETRACT+42, RETRACT+44, RETRACT+45, RETRACT+46, RETRACT+47, REMVSIT~, REMVSIT+3, LINKADD~, COPY0~
, COPY0+3, COPY12~, COPY13~, COPY13+2, COPY14~, COPYSGNR+3~, COPYSGNR+6*, COPY15~, STATUS~, STATUS+4
, STATUS+5, ATTACH+1~, ATTACH+3*, UPDTADD+2~, UPDTADD+4*, UPDTADD+6, UPDTADD+7, UPDTADD+14, UPDTADD+17, UPDTADD+18
, UPDTADD+19, UPDTADD+21, UPDTADD+22
DFN RETRACT+2~, RETRACT+3~, RETRACT+16*, RETRACT+17, RETRACT+20, RETRACT+26, COPY0+2
DIC COPYSGNR+3~, COPYSGNR+5*, COPYSGNR+6, STATUS+1~
DIC(0 COPYSGNR+5*
DIE RETRACT+25~, RETRACT+38~*, RETRACT+43*, REMVSIT+1~, REMVSIT+8*, LINKADD+1~, LINKADD+2*, COPY0+1~*, COPY12+1~*, COPY13+1~*
, COPY14+1~*, COPYSGNR+3~, COPYSGNR+6*, COPY15+1~*, STATUS+1~, STATUS+2*, ATTACH+1~, ATTACH+3*, UPDTADD+5~, UPDTADD+11*
DIROUT RETRACT+2~
DLAYGO COPYSGNR+3~, COPYSGNR+5*
DR RETRACT+2~, RETRACT+25~, RETRACT+38~, RETRACT+39*, RETRACT+42*, REMVSIT+1~, REMVSIT+8*, LINKADD+1~, LINKADD+2*, COPY0+1~
, COPY0+2*, COPY0+3*, COPY12+1~, COPY12+2*, COPY12+3*, COPY12+4*, COPY13+1~, COPY13+4*, COPY13+5*, COPY13+6*
, COPY13+7*, COPY13+8*, COPY14+1~, COPY14+2*, COPY14+3*, COPY14+4*, COPYSGNR+3~, COPYSGNR+6*, COPYSGNR+8*, COPYSGNR+9*
, COPYSGNR+10*, COPY15+1~, COPY15+2*, COPY15+3*, COPY15+4*, COPY15+5*, STATUS+1~, STATUS+2*, ATTACH+1~, ATTACH+4*
, ATTACH+5*, ATTACH+7*, ATTACH+9*, ATTACH+10*, UPDTADD+5~, UPDTADD+9*, UPDTADD+10*, UPDTADD+12*, UPDTADD+14*
DTOUT RETRACT+2~
DUOUT RETRACT+2~
DUZ COPY13+7
LOCDA VLOC~, VLOC+1
NEWDAD RETRACT~, RETRACT+9, RETRACT+10
ONRTRCT RETRACT+3~, RETRACT+49*, RETRACT+50
SKIPADD RETRACT~, RETRACT+52
STATUS COPY0~, COPY0+1*, COPY0+2, COPY13~, COPY13+5, COPY13+6, COPY13+7
SVCAT REMVSIT+1~, REMVSIT+2*, REMVSIT+5*, REMVSIT+6
TIU RETRACT+2~, RETRACT+22, RETRACT+24, RETRACT+26, RETRACT+32, RETRACT+33, RETRACT+41, COPY0~, COPY12~, COPY13~
, COPY13+2, COPY14~, REFDTO~
TIU("LDT" REFDTO+3
TIU("VSTR" RETRACT+23
TIUCDA COPYSGNR~, COPYSGNR+5
>> TIUCHNG ATTACH+17*
TIUCOPY RETRACT+2~
TIUD0 COPY0~, COPY0+2, ATTACH+1~, ATTACH+2*, ATTACH+9, REFDTA~, REFDTA+4, UPDTADD+5~, UPDTADD+8*, UPDTADD+9
, UPDTADD+14, UPDTADD+19, UPDTADD+22
TIUD0(0 UPDTADD+7*
TIUD0(1 UPDTADD+18*
TIUD12 COPY12~, COPY12+2, COPY12+3, COPY12+4, ATTACH+1~, ATTACH+2*, REFDTO+1~, REFDTO+2*, REFDTO+6, UPDTADD+5~
, UPDTADD+8*, UPDTADD+12, UPDTADD+19, UPDTADD+22
TIUD12(0 UPDTADD+7*
TIUD12(1 UPDTADD+18*
TIUD13 COPY13~, COPY13+1, COPY13+4, COPY13+7, COPY13+8, REFDTO+1~, REFDTO+2*, REFDTO+5
TIUD14 COPY14~, COPY14+2, COPY14+3, ATTACH+1~, ATTACH+2*, UPDTADD+5~, UPDTADD+8*, UPDTADD+10
TIUD15 COPY15~, COPY15+2, COPY15+3, COPY15+4, COPY15+5
TIUDA RETRACT~, RETRACT+4, RETRACT+5, RETRACT+6, RETRACT+7, RETRACT+8, RETRACT+9, RETRACT+10, RETRACT+13, RETRACT+22
, RETRACT+31, RETRACT+34, RETRACT+37, RETRACT+40, RETRACT+42, RETRACT+48, RETRACT+49, RTADD+2, RTADD+5, COPYSGNR~
, COPYSGNR+2, ATTACH~, ATTACH+2, ATTACH+9, ATTACH+16, REFDTO~, REFDTO+2, REFDTA~, UPDTADD~, UPDTADD+1
, UPDTADD+4, UPDTADD+8, UPDTADD+14
TIUDAD RETRACT~, RETRACT+32, RETRACT+46, LINKADD~, COPY0~
TIUDAD12 REFDTA+1~, REFDTA+2*, REFDTA+7
TIUDAD13 REFDTA+1~, REFDTA+2*, REFDTA+3, REFDTA+5, REFDTA+6
TIUDADA ATTACH+1~, ATTACH+13*, ATTACH+14*, ATTACH+15, ATTACH+16
TIUDADD RTADD+1~*, RTADD+2*, RTADD+3, RTADD+4, RTADD+5, ATTACH~, ATTACH+3, ATTACH+9, ATTACH+14, REFDTA~
, REFDTA+2
TIUDPRM RETRACT+2~, RETRACT+13
TIUDPRM(0 COPY0+3
TIUDT COPY13+1~*, COPY13+2, COPY13+3, COPY13+5, COPY13+6
TIUI RETRACT+1~
TIUITEM RETRACT+25~
TIULMETH RETRACT+2~
TIUNDAD RETRACT+3~, RETRACT+46*, RTADD+5
TIUNEW RETRACT+25~, RETRACT+26, RETRACT+27
TIUNREC RETRACT+3~, RETRACT+47*, RTADD+5*, RETRAX
TIUOD0 RETRACT+1~, RETRACT+4*, RETRACT+7, RETRACT+9, RETRACT+16, RETRACT+31, RETRACT+32, REMVSIT~, REMVSIT+2, REMVSIT+4
, REMVSIT+5
TIUOD12 RETRACT+1~, RETRACT+4*, RETRACT+32, RETRACT+37
TIUOD13 RETRACT+1~, RETRACT+4*, RETRACT+33
TIUOD14 RETRACT+1~, RETRACT+5*, RETRACT+33
TIUOD15 RETRACT+1~, RETRACT+5*, RETRACT+35
TIUOD16 RETRACT+1~, RETRACT+5*, RETRACT+36
TIUOD17 RETRACT+1~, RETRACT+6*, RETRACT+40
TIUPAT RETRACT+1~
TIUPATNM RETRACT+3~, RETRACT+20*
TIUPOP REMVSIT+1~*, REMVSIT+3, REMVSIT+4*
TIURDT COPY13+1~, COPY13+2*, COPY13+3*, COPY13+4
TIUSD0 COPYSGNR+3~, COPYSGNR+4*
TIUSDA COPYSGNR+1~*, COPYSGNR+2*, COPYSGNR+4
TIUTNM RETRACT+3~, RETRACT+14*, RETRACT+28, RETRACT+29, REMVSIT+7
TIUTYP RETRACT+3~, RETRACT+7*, RETRACT+13, RETRACT+14, RETRACT+26, RETRACT+37
TIUVMETH RETRACT+3~
TIUVSUPP RETRACT+2~
TIUY REFDTO+1~, REFDTO+3*, REFDTO+4, REFDTO+5*, REFDTO+6*, REFDTOX, REFDTA+1~, REFDTA+3*, REFDTA+5*, REFDTA+6*
, REFDTA+7*, REFDTAX, GETSIG+1~*, GETSIG+6*, GETSIGX
U RETRACT+9, RETRACT+16, RETRACT+37, REMVSIT+2, REMVSIT+4, REMVSIT+5, COPY0+2, COPY0+3, COPY12+2, COPY12+3
, COPY12+4, COPY13+1, COPY13+4, COPY13+7, COPY13+8, COPY14+2, COPY14+3, COPY15+2, COPY15+3, COPY15+4
, COPY15+5, REFDTO+5, REFDTO+6, REFDTA+5, REFDTA+6, REFDTA+7, UPDTADD+9, UPDTADD+10, UPDTADD+12, UPDTADD+21
, UPDTADD+22, VLOC+1
X COPYSGNR+5*, GETSIG+1~
X1 GETSIG+1~, GETSIG+3
X2 GETSIG+1~
>> Y COPYSGNR+5, COPYSGNR+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All