Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Text Integration Utility 22 SEND^TIUALRT  UPDTIRT^TIUDIRT  ($$GETTMPL,$$GETVMETH)^TIUEDI1  $$GETEXIT^TIUEDI2  $$CREATREC^TIUEDI3  DIE^TIUEDI4  DELETE^TIUEDIT  PRINT^TIUEPRNT  
$$GETRECG^TIUGEDI1  LINK^TIUGR2  DOCSPICK^TIULA2  ($$COMMIT,$$PNAME,$$SUPPVSIT,DOCPRM)^TIULC1  GETTIU^TIULD  $$EMPTYDOC^TIULF  $$CANDO^TIULP  QUE^TIUPXAP1  
UPIDDATA^TIURL1  EDSIG^TIURS  EVENT^TIUSRVP1  (RELEASE,VERIFY)^TIUT  $$READ^TIUU  DEFER^TIUVSIT  
VA Fileman 2 ^DIC  ^DIE  
Registration 1 (CLEAR,FULL)^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIUGR  TIUGR1  

Entry Points

Name Comments DBIA/ICR reference
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
TITLE ; -- Get title. Limit titles to those user can link, at least
VISIT ; -- Get visit (use same visit as first entry unless visit
TRYLINK(DA,DADDA,TIUDAD) ; Check specific docmt now that we know
VALID ; -- Validate, i.e. ask user if OK: --
DIE(DA,TIUQUIT) ; Invoke ^DIE
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.
ADDSTUB(DADDA) ; Prompt user for new stub ID entries for parent DADDA

External References

Name Field # of Occurrence
^DIC ADDSTUB+9
^DIE DIE+5, DIE+6
SEND^TIUALRT DIE+7
UPDTIRT^TIUDIRT DIE+7
$$GETTMPL^TIUEDI1 DIE+3
$$GETVMETH^TIUEDI1 VALID+1
$$GETEXIT^TIUEDI2 VALID+42
$$CREATREC^TIUEDI3 ADDSTUB+24
DIE^TIUEDI4 VALID+25
DELETE^TIUEDIT VALID+27
PRINT^TIUEPRNT VALID+46
$$GETRECG^TIUGEDI1 VALID+18
LINK^TIUGR2 ADDSTUB+27, VALID+38, TRYLINK+12
DOCSPICK^TIULA2 ADDSTUB+15, TITLE+3
$$COMMIT^TIULC1 VALID+32
$$PNAME^TIULC1 DIE+4, ADDDAD+8, VALID+4
$$SUPPVSIT^TIULC1 VISIT+2
DOCPRM^TIULC1 ADDSTUB+22, VALID+14
GETTIU^TIULD ADDSTUB+14, ADDDAD1+10
$$EMPTYDOC^TIULF VALID+27
$$CANDO^TIULP TRYLINK+6
QUE^TIUPXAP1 VALID+31
UPIDDATA^TIURL1 ADDDAD+19
EDSIG^TIURS VALID+40
EVENT^TIUSRVP1 VISIT+3
RELEASE^TIUT VALID+34
VERIFY^TIUT VALID+35
$$READ^TIUU ADDDAD+10, ADDDAD+15, TRYLINK+9
DEFER^TIUVSIT VALID+30
CLEAR^VALM1 ADDDAD+16
FULL^VALM1 ADDDAD+17

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
Routine Call
  • DIE
  • Line Location:
    • DIE+5
    • DIE+6
Routine Call
  • DIC
  • Line Location:
    • ADDSTUB+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] DIE+2*, DIE+3, DIE+4, DIE+8, ADDSTUB+3, ADDDAD+7, ADDDAD1+11, VALID+26
^TMP("TIUR" ADDDAD+19

Label References

Name Line Occurrences
ADDDAD1 ADDDAD+18
DIE ADDSTUB+26
TRYLINK VALID+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDED ADDDAD~, ADDDAD+6*, ADDDAD+19*
ADDING ADDDAD+5~, ADDDAD+10*, ADDDAD+11
CANLINK TRYLINK+5~, TRYLINK+6*, TRYLINK+7, TRYLINK+8
CONTINUE ADDDAD1+6~
DA DIE~, DIE+2, DIE+3, DIE+4, DIE+7, DIE+8, ADDSTUB+1~, ADDSTUB+24*, ADDSTUB+26, ADDSTUB+27
, ADDDAD1~, ADDDAD1+8*, VALID+18*, VALID+19, VALID+22, VALID+25, VALID+26, VALID+27, VALID+30, VALID+34
, VALID+35, VALID+38, VALID+40, VALID+43*, VALID+46, TRYLINK~, TRYLINK+6, TRYLINK+12
DADDA ADDSTUB~, ADDSTUB+3, ADDSTUB+14, ADDSTUB+27, ADDDAD~, ADDDAD+7, ADDDAD+18, ADDDAD+19, ADDDAD1~, ADDDAD1+10
, ADDDAD1+11, VALID+18, VALID+22, VALID+38, TRYLINK~, TRYLINK+12
DFN ADDSTUB+1~, ADDSTUB+3*, ADDSTUB+24, ADDDAD1+6~, ADDDAD1+11*, VISIT+3, VALID+18
DIC ADDSTUB+2~, ADDSTUB+7*
DIC("A" ADDSTUB+7*
DIC("S" ADDSTUB+8*
DIC(0 ADDSTUB+7*
DIE DIE+1~, DIE+5*, DIE+6*
>> DIROUT TRYLINK+10
DR DIE+1~, DIE+3*, DIE+4, DIE+6*
>> DTOUT TRYLINK+10
>> DUOUT TRYLINK+10
DUZ DIE+2
EDIT ADDDAD1+6~, VALID+18, VALID+22, VALID+28
KIDDA ADDDAD+5~, ADDDAD+18, ADDDAD+19
LINKTL ADDDAD1+5~
STATUS ADDDAD+5~, ADDDAD+8*, ADDDAD+9
TITLE ADDDAD+5~, ADDDAD+8*, ADDDAD+16
TITLEDA ADDDAD+5~, ADDDAD+8*
TIU DIE+7, ADDSTUB+20*, ADDSTUB+24, ADDDAD1+5~, ADDDAD1+6~, VISIT+3, VISIT+4*, VALID+18
TIU("REFDT" VALID+7!
TIU("STOP" VALID+30
TIU("VSTR" VALID+9
TIUASK ADDDAD1+5~, VALID+12
TIUAUTH ADDSTUB+1~, ADDSTUB+5, ADDSTUB+6!, ADDSTUB+12*
>> TIUCHNG("DELETE" VALID+27*
TIUCMMTX ADDDAD1+6~, VALID+32*, VALID+33
TIUD0 ADDDAD+5~, ADDDAD+7*, ADDDAD+8
TIUDAD ADDSTUB+1~, ADDSTUB+14, ADDSTUB+20, ADDDAD1+5~, ADDDAD1+10, VISIT+4, VALID+22, TRYLINK~
TIUDAD("DOCTYP" TRYLINK+13
TIUDAD("VSTR" VISIT+3
TIUDPRM ADDSTUB+1~, ADDSTUB+22, ADDDAD1+6~, VALID+14, VALID+18
TIUDPRM(0 VALID+30, VALID+46
TIUEXIT ADDDAD1+6~, VALID+42*, VALID+43
TIULMETH ADDDAD1+5~
TIUNEW ADDDAD1+6~, VALID+18, VALID+22, VALID+27
TIUOUT ADDDAD1+5~, TITLE+4*, VALID+2*
TIUPRMT ADDSTUB+1~
TIUQUIT DIE~, DIE+4*, ADDSTUB+25~, ADDSTUB+26, ADDDAD1+7~, VALID+24~, VALID+25, VALID+28, TRYLINK+10*
TIURTYP ADDSTUB+1~
TIUTDA ADDSTUB+25~, VALID+24~, VALID+43*
TIUTYP ADDSTUB+1~, ADDSTUB+5, ADDSTUB+6!, ADDSTUB+15, ADDSTUB+17, ADDSTUB+18*, ADDSTUB+22, ADDDAD1+6~, TITLE+3, TITLE+4
, TITLE+5*, VISIT+2, VALID+1, VALID+4, VALID+14, VALID+18, VALID+32, VALID+42
TIUTYP(1 ADDSTUB+18, ADDSTUB+24, TITLE+5
TIUVMETH ADDDAD1+5~, VALID+1*, VALID+2, VALID+8
TIUVSUPP ADDDAD1+5~, VISIT+2*, VISIT+3
U DIE+3, DIE+4, ADDSTUB+3, ADDSTUB+18, ADDDAD+8, ADDDAD1+11, TITLE+5, VALID+30, VALID+46, TRYLINK+8
, TRYLINK+13
>> VALMAR VALID+27
>> VALMBCK VALID+27*
>> VALMSG VALID+19*, VALID+38*, TRYLINK+11*, TRYLINK+14*
X ADDSTUB+2~
Y DIE+1~, ADDSTUB+2~, ADDSTUB+11, ADDSTUB+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All