Routine: TIUDSCN1

Information

TIUDSCN1 ; SLC/JER - Discharge Summary Conversion routine

Name	Comments	DBIA/ICR reference
STUFREC(DA,PARENT,GMRD0,GMRDACT)	; Stuff fixed field data
NEEDSIG(GMRDACT)	; Evaluates whether cosignature is needed
ADDFAIL(GMRDA)	; Log when addendum fails to convert
DELETE(TIUDA)	; Delete stub should conversion fail
MOVEONE	; Individual DS conversion

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MOVEONE+1
Function Call: WRITE	Prompt: ! Line Location: MOVEONE+3
Function Call: WRITE	Prompt: !!," ... Okay then, I'm outa here!" Line Location: MOVEONE+10
Function Call: WRITE	Prompt: !!,"Discharge Summary Record #",GMRDA," Doesn't exist...",! Line Location: MOVEONE+12
Function Call: WRITE	Prompt: ! Line Location: MOVEONE+14
Function Call: WRITE	Prompt: !!,$C(7),"Discharge Summary Record #",GMRDA Line Location: MOVEONE+17
Function Call: WRITE	Prompt: " Already converted successfully...",! Line Location: MOVEONE+18
Function Call: WRITE	Prompt: ! Line Location: MOVEONE+20
Function Call: WRITE	Prompt: !!,"Alright then, here goes!" Line Location: MOVEONE+23
Function Call: WRITE	Prompt: !!,"Record #",GMRDA," Converted Successfully!",! Line Location: MOVEONE+25
Function Call: WRITE	Prompt: ! Line Location: MOVEONE+27