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

Package: Text Integration Utility

Routine: TIUEDI4


Information

TIUEDI4 ; SLC/JER - Enter/Edit a Document ; 7-FEB-2001 08:01:51

Source Information

Source file <TIUEDI4.m>

Entry Points

Name Comments DBIA/ICR reference
SETTL(TIUTYP,TIUCLASS,TIUTITLE) ; Set array TIUTYP w/ title info
; e.g. TIUTYP(1) = 1^113^CRISIS, where 113 is IFN of CRISIS title,
; TIUTYP = 1 if gotten from TIUTITLE
; TIUTYP = 113 if gotten from user
; Requires TIUCLASS
; Receives TIUTITLE - optional = Title DA or Title Name or DA^Name
GETVST(DFN,TIUTYP,TIU,EVNTFLAG) ; Get visit, set array TIU
; -- If no eventflag & don't suppress visit, then execute
; visit linkage method: --
; Requires DFN
; Requires simple variable TIUTYP = title DA
; Optional EVNTFLAG
; Returns array TIU
ASKOK(TIUTYP,TIU,TIUBY,TIUASK) ; X Validation method.
; Receives and returns array TIU, simple var TIUTYP, [array TIUBY]
; Sets TIUASK = answer, = 0 for not OK or 1 for OK
DIE(DA,TIUQUIT,TIUCHNG) ; Invoke ^DIE
TEXTEDIT(DA,TIUCMMT,TIUCHNG) ; Call DIWE
LOADDFLT(DA,TIUTYP) ; Load bp text
BOIL(LINE,COUNT) ; execute objects
CANXEC(TIUODA) ; Eval Obj Status
REPLACE(LINE,X,TIUI) ; Replace TIUIth object in LINE
INSMULT(LINE,TARGET,TIULCNT) ; Mult-valued results
APPEND(X) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"No Visit Linkage Method defined for "
  • Line Location: GETVST+14
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: GETVST+15
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: GETVST+22
Function Call: WRITE
  • Prompt: !,$C(7),"No Validation Method defined for "
  • Line Location: ASKOK+6
Function Call: WRITE
  • Prompt: $$PNAME^TIULC1(TIUTYP),".",!,"Please contact IRM..."
  • Line Location: ASKOK+7
Function Call: WRITE
  • Prompt: !,$C(7),"Patient & Visit required."
  • Line Location: ASKOK+12
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Another user is editing this entry.",!
  • Line Location: DIE+5
Function Call: WRITE
  • Prompt: ""
  • Line Location: DIE+6
Function Call: WRITE
  • Prompt: !?5,$C(7),"No Edit template defined for ",$$PNAME^TIULC1(+$P(^TIU(8925,+DA,0),U)),!
  • Line Location: DIE+9
Function Call: WRITE
  • Prompt: !!,"Calling text editor, please wait..."
  • Line Location: TEXTEDIT+5
Function Call: WRITE
  • Prompt: !,"No changes made..."
  • Line Location: TEXTEDIT+24
Info |  Source |  Entry Points |  Interaction Calls