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

Package: Text Integration Utility

Routine: TIUGEDIT


Information

TIUGEDIT ; SLC/MAM - Add New ID Entry; 8/28/01

Source Information

Source file <TIUGEDIT.m>

Entry Points

Name Comments DBIA/ICR reference
DIE(DA,TIUQUIT) ; Invoke ^DIE
ADDSTUB(DADDA) ; Prompt user for new stub ID entries for parent DADDA
ADDDAD(DADDA,ADDED) ; Create new ID entry and link it to note DADDA
; Assumes DADDA can receive ID entries.
; Requires DADDA = parent note
; Requires DADLINE = parent note line number
; Returns ADDED > 0 if new note added (may not be linked), otherwise = 0
ADDDAD1(DADDA,DA) ; Enter one new ID Document and link it to DADDA
; Call with:
; [DADDA] --> IFN of note new note will be added to,
; i.e. parent note. Required.
; [DA] --> IFN of new note or 0 if not created. Passed back.
TITLE ; -- Get title. Limit titles to those user can link, at least
VISIT ; -- Get visit (use same visit as first entry unless visit
VALID ; -- Validate, i.e. ask user if OK: --
TRYLINK(DA,DADDA,TIUDAD) ; Check specific docmt now that we know

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,$C(7),"No Edit template defined for ",$$PNAME^TIULC1(+$P(^TIU(8925,+DA,0),U)),!
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !!," If you wish you may add stub interdisciplinary entries for this note:",!
  • Line Location: ADDSTUB+4
Function Call: WRITE
  • Prompt: !," Stub entry added",!!
  • Line Location: ADDSTUB+28
Function Call: WRITE
  • Prompt: !!,"This note appears to be an interdisciplinary parent. Please select"
  • Line Location: ADDDAD+12
Function Call: WRITE
  • Prompt: !,"the note you want to attach to this note FIRST, or check with IRM"
  • Line Location: ADDDAD+13
Function Call: WRITE
  • Prompt: !,"or your clinical coordinator."
  • Line Location: ADDDAD+14
Function Call: WRITE
  • Prompt: !!,"Adding a new interdisciplinary entry to",!,TITLE
  • Line Location: ADDDAD+16
Function Call: WRITE
  • Prompt: !!,"Please select a title for your entry:"
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !,$C(7),"No Validation Method defined for "
  • Line Location: VALID+3
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: VALID+4
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: VALID+10
Function Call: WRITE
  • Prompt: !,"Document not attached"
  • Line Location: VALID+28
Function Call: WRITE
  • Prompt: !!,$P(CANLINK,U,2),!," Entry saved as a stand-alone note. Please attach it later if you are",!," authorized to do so."
  • Line Location: TRYLINK+8
Function Call: WRITE
  • Prompt: !!,"Entry added to ",$P(TIUDAD("DOCTYP"),U,2)
  • Line Location: TRYLINK+13
Info |  Source |  Entry Points |  Interaction Calls