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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: TIUEDI1

Package: Text Integration Utility

Routine: TIUEDI1


Information

TIUEDI1 ; SLC/MAM - Additional Edit Code ;March 25, 2004

Source Information

Source file <TIUEDI1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Text Integration Utility 4 $$GETRECNW^TIUEDI3  $$NOW^TIULC  $$ISADDNDM^TIULC1  $$READ^TIUU  
VA FileMan 3 ^DIC  ^DIE  ^DIK  
Clinical Reminders 1 DEL^PXRMGECU  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Text Integration Utility 35 TIUADD  TIUCCRHL7P2  TIUCPFIX  TIUCWD  TIUDSCNV  TIUEDI2  TIUEDI4  TIUEDIM  
TIUEDIT  TIUEDITR  TIUEDIU  TIUFIX1  TIUGEDIT  TIUHL7U2  TIUPEFIX  TIUPUTC  
TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN  TIUPUTS  TIUPUTU  TIURA3  TIURB2  
TIURC1  TIURD1  TIURD2  TIURD3  TIURD4  TIURS1  TIUSROI  TIUSRVP  
TIUSRVP2  TIUSRVPT  TIUSRVR  

Entry Points

Name Comments DBIA/ICR reference
GETREC(DFN,TIU,TIUCREAT,TIUNEW,TIUDPRM,TIUINQ,TIUPERSN) ;Returns
INQUIRE() ; Ask user whether to create a new note anyway
SCANDAD(TIUTYP,TIUDA) ; Search "DAD" index for component record
GETCOMP(TIUTYP,TIUDA,TIU,DFN) ; Adds components to document
GETCX
RUMYMTHR(MOM,BRAT,MOMTYP,BRATYP) ; Get appropriate parent for component
RUMYX
DELCOMP(TIUDA) ; Cleans up all components of a document
DELAUDIT(TIUDA) ; Cleans up all AUDIT TRAIL entries for a document
ISCOMP(TIUTYP,X) ; Is the text provided a component tag
ISCMPX
MERGTEMP(TIUDA) ; Merge text from components into TEMP node for edit
MERGGRAN(TIUDA,TIUC) ; Merge sub-components into TEMP node of original
MERGTEXT(TIUDA,TIU) ; Merge TEMP node from parent document into components
GETTMPL(TIUTYP) ; Get edit template, enforce inheritance
AUDIT(TIUDA,TIUCKSM0,TIUCKSM1) ; Update audit trail
GETLMETH(TIUTYP) ; Get Visit Linkage method, enforce inheritance
GETVMETH(TIUTYP) ; Get Validation method, enforce enheritance

External References

Name Field # of Occurrence
^DIC GETCOMP+8, ISCOMP+4, AUDIT+2
^DIE GETCOMP+14, DELCOMP+4, AUDIT+4
^DIK DELAUDIT+4
DEL^PXRMGECU DELAUDIT+5
$$GETRECNW^TIUEDI3 GETREC+11
$$NOW^TIULC AUDIT+3
$$ISADDNDM^TIULC1 MERGTEMP+4
$$READ^TIUU INQUIRE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,X," component could not be created.",!
  • Line Location: GETCOMP+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETCOMP+14
Function Call: WRITE
  • Prompt: !,$P(^TIU(8925.1,+^TIU(8925,TIUCDA,0),0),U)_" Component Deleted"
  • Line Location: DELCOMP+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELCOMP+4
Function Call: WRITE
  • Prompt: !," Audit trail record #",TIUADA," Deleted"
  • Line Location: DELAUDIT+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELAUDIT+4
Routine Call
  • DIC
  • Line Location:
    • GETCOMP+8
    • ISCOMP+4
    • AUDIT+2
Routine Call
  • DIE
  • Line Location:
    • GETCOMP+14
    • DELCOMP+4
    • AUDIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] Classic Fileman Calls
^TIU(8925.5 - [#8925.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] SCANDAD+3, SCANDAD+4, SCANDAD+5, GETCOMP+11, GETCOMP+12, RUMYMTHR+4, RUMYMTHR+5, DELCOMP+2, DELCOMP+3, DELCOMP+5
, MERGTEMP+2, MERGTEMP+3, MERGTEMP+5, MERGTEMP+7*, MERGTEMP+8!, MERGTEMP+9*, MERGTEMP+10*, MERGTEMP+11, MERGTEMP+12, MERGTEMP+13*
, MERGGRAN+2, MERGGRAN+3, MERGGRAN+4, MERGGRAN+6*, MERGGRAN+7!, MERGGRAN+8*, MERGGRAN+9*, MERGGRAN+10, MERGGRAN+11, MERGTEXT+2
, MERGTEXT+6, MERGTEXT+7, MERGTEXT+14*, MERGTEXT+15*, MERGTEXT+17*, MERGTEXT+18*, MERGTEXT+20*, GETTMPL+4
^TIU(8925.1 - [#8925.1] RUMYMTHR+2, DELCOMP+3, ISCOMP+6, MERGTEXT+4, MERGTEXT+20, GETTMPL+2, GETTMPL+3, GETTMPL+6, GETLMETH+2, GETLMETH+3
, GETVMETH+2, GETVMETH+3
^TIU(8925.5 - [#8925.5] DELAUDIT+2

Label References

Name Line Occurrences
$$GETCOMP MERGTEXT+11
$$GETLMETH GETLMETH+4
$$GETTMPL GETTMPL+5, GETTMPL+7
$$GETVMETH GETVMETH+4
$$ISCOMP MERGTEXT+8
$$RUMYMTHR GETCOMP+11, RUMYMTHR+6
$$SCANDAD SCANDAD+5, GETCOMP+4
DELCOMP DELCOMP+5
GETCX GETCOMP+5, GETCOMP+9
ISCMPX ISCOMP+5, ISCOMP+6
MERGGRAN MERGTEMP+11, MERGGRAN+10
RUMYX RUMYMTHR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BRAT RUMYMTHR~, RUMYMTHR+6
BRATYP RUMYMTHR~, RUMYMTHR+2, RUMYMTHR+6
CNDMOM RUMYMTHR+1~, RUMYMTHR+3*, RUMYMTHR+4*, RUMYMTHR+5, RUMYMTHR+6
CNDTYP RUMYMTHR+1~, RUMYMTHR+5*, RUMYMTHR+6
DA GETREC+11*, GETREC+12, GETCOMP+1~, GETCOMP+10*, GETCOMP+11, DELCOMP+1~, DELCOMP+4*, DELAUDIT+1~, DELAUDIT+4*, AUDIT+1~
, AUDIT+4*
DFN GETREC~, GETREC+11, GETCOMP~, GETCOMP+13, MERGTEXT+11
DIC GETCOMP+1~, GETCOMP+6*, GETCOMP+10, ISCOMP+1~, ISCOMP+2*, AUDIT+1~, AUDIT+2*, AUDIT+3
DIC("S" ISCOMP+3*, ISCOMP+4!
DIC(0 GETCOMP+6*, ISCOMP+2*, AUDIT+2*
DIE GETCOMP+1~, GETCOMP+10*, DELCOMP+1~*, AUDIT+1~, AUDIT+3*
DIK DELAUDIT+1~*
DLAYGO GETCOMP+2~, GETCOMP+6*, AUDIT+2*
DR GETCOMP+1~, GETCOMP+13*, DELCOMP+1~, DELCOMP+4*, DELAUDIT+1~, AUDIT+1~, AUDIT+3*
DT MERGTEMP+9, MERGTEMP+10, MERGGRAN+8, MERGGRAN+9, MERGTEXT+15, MERGTEXT+18
DUZ GETREC+10, AUDIT+3
GOTMOM RUMYMTHR+1~*, RUMYMTHR+2*, RUMYMTHR+6*, RUMYX
MOM RUMYMTHR~, RUMYMTHR+4, RUMYMTHR+6*, RUMYX
MOMTYP RUMYMTHR~, RUMYMTHR+2
TIU GETREC~, GETREC+11, GETCOMP~, MERGTEXT~, MERGTEXT+11
TIU("VISIT" GETCOMP+13
TIUADA DELAUDIT+1~*, DELAUDIT+2*, DELAUDIT+4
TIUC SCANDAD+1~, SCANDAD+2*, SCANDAD+3*, SCANDAD+4, SCANDAD+5, GETCOMP+1~, GETCOMP+3*, MERGTEMP+1~, MERGTEMP+2*, MERGTEMP+3*
, MERGTEMP+4, MERGTEMP+5, MERGTEMP+7, MERGTEMP+8, MERGTEMP+9, MERGTEMP+11, MERGGRAN~, MERGGRAN+3, MERGTEXT+5~, MERGTEXT+8*
, MERGTEXT+9, MERGTEXT+11
TIUC1 MERGGRAN+1~, MERGGRAN+2*, MERGGRAN+3*, MERGGRAN+4, MERGGRAN+6, MERGGRAN+7, MERGGRAN+8, MERGGRAN+10
TIUCDA DELCOMP+1~*, DELCOMP+2*, DELCOMP+3, DELCOMP+4, DELCOMP+5
TIUCKSM0 AUDIT~, AUDIT+3
TIUCKSM1 AUDIT~, AUDIT+3
TIUCMP GETCOMP+1~, MERGTEXT+5~*, MERGTEXT+11*, MERGTEXT+13, MERGTEXT+14, MERGTEXT+15
TIUCREAT GETREC~
TIUDA SCANDAD~, SCANDAD+3, GETCOMP~, GETCOMP+4, GETCOMP+11, DELCOMP~, DELCOMP+2, DELAUDIT~, DELAUDIT+2, DELAUDIT+5
, MERGTEMP~, MERGTEMP+2, MERGTEMP+3, MERGTEMP+7, MERGTEMP+10, MERGTEMP+11, MERGTEMP+12, MERGTEMP+13, MERGGRAN~, MERGGRAN+2
, MERGGRAN+6, MERGGRAN+9, MERGGRAN+10, MERGGRAN+11, MERGTEXT~, MERGTEXT+2, MERGTEXT+6, MERGTEXT+7, MERGTEXT+11, MERGTEXT+14
, MERGTEXT+17, MERGTEXT+18, MERGTEXT+20, GETTMPL+4, AUDIT~, AUDIT+2
TIUDAD GETTMPL+1~*, GETTMPL+4*, GETTMPL+5, GETTMPL+6*, GETTMPL+7, GETLMETH+1~*, GETLMETH+3*, GETLMETH+4, GETVMETH+1~*, GETVMETH+3*
, GETVMETH+4
TIUDPRM GETREC~, GETREC+11
TIUFPRIV GETCOMP+1~, GETCOMP+3*, ISCOMP+1~*
TIUI RUMYMTHR+1~*, MERGTEMP+1~, MERGTEMP+5*, MERGTEMP+7, MERGTEMP+8, MERGGRAN+1~, MERGGRAN+4*, MERGGRAN+6, MERGGRAN+7, MERGTEXT+5~*
, MERGTEXT+6*, MERGTEXT+7, MERGTEXT+14
TIUINQ GETREC~, GETREC+11
TIUJ MERGTEMP+1~, MERGTEMP+2*, MERGTEMP+6*, MERGTEMP+7, MERGTEMP+10, MERGTEMP+12*, MERGGRAN+1~, MERGGRAN+2*, MERGGRAN+5*, MERGGRAN+6
, MERGGRAN+9, MERGGRAN+11*, MERGTEXT+5~*, MERGTEXT+10*, MERGTEXT+12*, MERGTEXT+14, MERGTEXT+15, MERGTEXT+17, MERGTEXT+18
TIULEVEL ISCOMP+1~*
TIULINE MERGTEMP+1~, MERGTEMP+2*, MERGGRAN+1~, MERGGRAN+2*
TIUMOM GETCOMP+1~, GETCOMP+11*, GETCOMP+12, GETCOMP+13, RUMYMTHR+1~, RUMYMTHR+6*
TIUMTYP GETCOMP+1~, GETCOMP+12*, GETCOMP+13
TIUNEW GETREC~, GETREC+11
TIUPERSN GETREC~, GETREC+10*, GETREC+11
TIUPRMT INQUIRE+1~, INQUIRE+2*, INQUIRE+3
TIUTYP SCANDAD~, SCANDAD+4, SCANDAD+5, GETCOMP~, GETCOMP+4, GETCOMP+7, GETCOMP+11, ISCOMP~, ISCOMP+6, MERGTEXT+1~
, MERGTEXT+2*, MERGTEXT+4, MERGTEXT+8, MERGTEXT+20, GETTMPL~, GETTMPL+2, GETTMPL+3, GETTMPL+6, GETLMETH~, GETLMETH+2
, GETLMETH+3, GETVMETH~, GETVMETH+2, GETVMETH+3
TIUTYP(1 GETREC+11
TIUX MERGTEXT+5~, MERGTEXT+7*, MERGTEXT+8, MERGTEXT+9
TIUY INQUIRE+1~, INQUIRE+2*, INQUIRE+3*, INQUIRE+4, SCANDAD+1~, SCANDAD+2*, SCANDAD+3, SCANDAD+4*, SCANDAD+5*, SCANDAD+6
, GETCOMP+1~, GETCOMP+3*, GETCOMP+4*, GETCOMP+5, GETCOMP+10*, GETCX, ISCOMP+1~, ISCOMP+5*, ISCOMP+6*, ISCOMP+7*
, ISCMPX, GETTMPL+1~, GETTMPL+2*, GETTMPL+3, GETTMPL+5*, GETTMPL+6, GETTMPL+7*, GETTMPL+8, GETLMETH+1~, GETLMETH+2*
, GETLMETH+3, GETLMETH+4*, GETLMETH+5, GETVMETH+1~, GETVMETH+2*, GETVMETH+3, GETVMETH+4*, GETVMETH+5
U GETCOMP+13, RUMYMTHR+6, RUMYX, DELCOMP+3, MERGTEMP+2, MERGTEMP+12, MERGGRAN+2, MERGGRAN+11, MERGTEXT+2, GETTMPL+3
, GETTMPL+4
X GETCOMP+1~, GETCOMP+7*, GETCOMP+9, ISCOMP~, AUDIT+1~, AUDIT+2*
Y GETCOMP+1~, GETCOMP+9, GETCOMP+10, ISCOMP+1~, ISCOMP+5, ISCOMP+6, ISCOMP+7, AUDIT+1~, AUDIT+2, AUDIT+4

Marked Items

Name Field # of Occurrence
$T(DEL^PXRMGECU DELAUDIT+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All