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

Package: Text Integration Utility

Routine: TIUGEDI1


Information

TIUGEDI1 ; SLC/MAM - Enter New ID Document Code; 11/14/00

Source Information

Source file <TIUGEDI1.m>

Entry Points

Name Comments DBIA/ICR reference
GETRECG(DFN,TIU,TIUTYP,TIUDPRM,TIUNEW,EDIT,DADDA) ; Get record
GETX ;
EXISTLNK(DFN,TIUTYP,TIUVSTR,PERSON,DADDA) ; If a docmt PERSON
LOOP ; -- Find existing docmt for given patient, title, & visit:--
EXISTLX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is already a ",$P(TIUTYP(1),U,3),".",!,"Only ONE record of this type per Visit is allowed...",!
  • Line Location: GETRECG+30
Function Call: WRITE
  • Prompt: !,"The note already has an ID entry you can edit with that title and visit"
  • Line Location: GETRECG+35
Function Call: WRITE
  • Prompt: !,"Opening the existing entry"
  • Line Location: GETRECG+38
Function Call: WRITE
  • Prompt: !,"You already have a document you can link for that patient, title, and visit."
  • Line Location: GETRECG+41
Function Call: WRITE
  • Prompt: !,"Opening the existing entry"
  • Line Location: GETRECG+47
Function Call: WRITE
  • Prompt: !,"No new entry created"
  • Line Location: GETX+1
Info |  Source |  Entry Points |  Interaction Calls