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

Package: Text Integration Utility

Routine: TIUDSCN1


Information

TIUDSCN1 ; SLC/JER - Discharge Summary Conversion routine

Source Information

Source file <TIUDSCN1.m>

Entry Points

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

Interaction Calls

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