Routine: TIURD2

Information

TIURD2 ;SLC/JER - Reassignment following signature ;05/22/2017 11:26

Source file <TIURD2.m>

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

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

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