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

Package: Text Integration Utility

Routine: TIUEDI3


Information

TIUEDI3 ; SLC/MAM - Additional Edit Code ;4/19/05

Source Information

Source file <TIUEDI3.m>

Entry Points

Name Comments DBIA/ICR reference
GETRECNW(DFN,TIU,TIUTYP1,TIUNEW,TIUDPRM,TIUINQ,PERSON,EDIT) ; New GETREC.
; Code rewritten from the old GETREC^TIUEDI1.
; GETREC^TIUEDI1 now calls this code.
; New parameters: Left out TIUCREAT since we always used it as 1.
; Added PERSON and EDIT.
; Can be called directly, or via GETREC^TIUEDI1 for
GETNWX ;
EXIST(DFN,TIUTYPDA,TIUVSTR,REQEDIT,PERSON) ; If a docmt already
LOOP ; -- Find existing docmt for given patient, title, & visit:--
EXISTEX ;
CREATREC(DFN,TIU,TIUTYP1) ; Create document record - Returns DA
; Receives array TIU as in GETRECNW
; Needs var TIUTYP1 as in GETRECNW
CREXIT
INQUIRE() ; Ask user whether to create a new note anyway

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is already a ",TIUTYPNM,".",!
  • Line Location: GETRECNW+83
Function Call: WRITE
  • Prompt: "Only ONE record of this type per Visit is allowed...",!
  • Line Location: GETRECNW+84
Function Call: WRITE
  • Prompt: !!,"There is already a ",TIUTYPNM," which you may edit."
  • Line Location: GETRECNW+95
Function Call: WRITE
  • Prompt: !,"Only ONE record of this type per Visit is allowed...",!
  • Line Location: GETRECNW+96
Function Call: WRITE
  • Prompt: "Opening the existing record"
  • Line Location: GETRECNW+97
Function Call: WRITE
  • Prompt: !!,"There is already a ",TIUTYPNM," which you may edit."
  • Line Location: GETRECNW+101
Function Call: WRITE
  • Prompt: !!,"Okay, I'll open the existing record then!"
  • Line Location: GETRECNW+105
Function Call: WRITE
  • Prompt: !,TIUTYPNM," record could not be created.",!
  • Line Location: CREATREC+10
Info |  Source |  Entry Points |  Interaction Calls