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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: TIUEDI4

Package: Text Integration Utility

Routine: TIUEDI4


Information

TIUEDI4 ; SLC/JER - Enter/Edit a Document ;31-Dec-2012 14:43;DU

Source Information

Source file <TIUEDI4.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Text Integration Utility 13 SEND^TIUALRT  UPDTIRT^TIUDIRT  ($$GETLMETH,$$GETTMPL,$$GETVMETH,AUDIT)^TIUEDI1  DELETE^TIUEDIT  (BUFFER,COMMIT)^TIUEDIU  ITEMS^TIUFLT  DOCSPICK^TIULA2  ($$CHKSUM,$$LINECNT,$$STATUS)^TIULC  
($$DECRYPT,$$PNAME,$$SUPPVSIT)^TIULC1  $$PERSPRF^TIULE  ($$DOLMLINE,DOLMLINE)^TIUSRVF1  EVENT^TIUSRVP1  $$READ^TIUU  
VA Fileman 3 ^DIC  ^DIE  EN^DIWE  
IHS Mods To Text Integration Utilities 1 VEDIT^BTIUED  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Text Integration Utility 9 TIUADD  TIUEDIM  TIUEDIT  TIUEDITR  TIUGEDIT  TIUPUTC  TIURA  TIURB  
TIURC  
IHS Mods To Text Integration Utilities 1 BTIUEDIT  

Entry Points

Name Comments DBIA/ICR reference
BOIL(LINE,COUNT) ; execute objects
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
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
LOADDFLT(DA,TIUTYP) ; Load bp text
APPEND(X) ;
DIEQ ;IHS/ITSC/LJF 02/26/2003 added line label
CANXEC(TIUODA) ; Eval Obj Status
REPLACE(LINE,X,TIUI) ; Replace TIUIth object in LINE
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
DIE(DA,TIUQUIT,TIUCHNG) ; Invoke ^DIE
INSMULT(LINE,TARGET,TIULCNT) ; Mult-valued results
TEXTEDIT(DA,TIUCMMT,TIUCHNG) ; Call DIWE

External References

Name Field # of Occurrence
VEDIT^BTIUED ASKOK+13
^DIC BOIL+7
^DIE DIE+10, DIE+20, TEXTEDIT+23, TEXTEDIT+25
EN^DIWE TEXTEDIT+12
SEND^TIUALRT DIE+14, DIE+21
UPDTIRT^TIUDIRT DIE+14, DIE+21
$$GETLMETH^TIUEDI1 GETVST+12
$$GETTMPL^TIUEDI1 DIE+8
$$GETVMETH^TIUEDI1 ASKOK+4
AUDIT^TIUEDI1 TEXTEDIT+18
DELETE^TIUEDIT TEXTEDIT+14
BUFFER^TIUEDIU TEXTEDIT+7
COMMIT^TIUEDIU TEXTEDIT+18, TEXTEDIT+24
ITEMS^TIUFLT LOADDFLT+16
DOCSPICK^TIULA2 SETTL+15
$$CHKSUM^TIULC TEXTEDIT+3, TEXTEDIT+4, TEXTEDIT+8, TEXTEDIT+16
$$LINECNT^TIULC TEXTEDIT+25
$$STATUS^TIULC DIE+20
$$DECRYPT^TIULC1 TEXTEDIT+3, TEXTEDIT+4
$$PNAME^TIULC1 SETTL+11, GETVST+15, ASKOK+7, DIE+9
$$SUPPVSIT^TIULC1 GETVST+9
$$PERSPRF^TIULE DIE+2
$$DOLMLINE^TIUSRVF1 LOADDFLT+9
DOLMLINE^TIUSRVF1 LOADDFLT+9
EVENT^TIUSRVP1 GETVST+19
$$READ^TIUU DIE+6

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
Routine Call
  • DIE
  • Line Location:
    • DIE+10
    • DIE+20
    • TEXTEDIT+23
    • TEXTEDIT+25
Routine Call
  • DIC
  • Line Location:
    • BOIL+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] DIE+3, DIE+7*, DIE+8, DIE+9, DIE+19, DIEQ+1, TEXTEDIT+3, TEXTEDIT+4, TEXTEDIT+9, TEXTEDIT+11
, LOADDFLT+2, LOADDFLT+4*, LOADDFLT+5!, LOADDFLT+6*, LOADDFLT+12*, LOADDFLT+13*
^TIU(8925.1 - [#8925.1] SETTL+10, LOADDFLT+4, LOADDFLT+7, LOADDFLT+8, LOADDFLT+14, BOIL+10, CANXEC+1

Label References

Name Line Occurrences
$$APPEND BOIL+10
$$BOIL LOADDFLT+10
$$CANXEC BOIL+10
$$REPLACE BOIL+21
DIEQ DIE+13, DIE+16, DIE+19
INSMULT LOADDFLT+11
LOADDFLT TEXTEDIT+9, LOADDFLT+18
TEXTEDIT DIE+17

Naked Globals

Name Field # of Occurrence
^(9 BOIL+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT BOIL~
DA DIE~, DIE+3, DIE+7, DIE+8, DIE+9, DIE+14, DIE+17, DIE+19, DIE+20, DIE+21
, DIEQ+1, TEXTEDIT~, TEXTEDIT+3, TEXTEDIT+4, TEXTEDIT+7, TEXTEDIT+8, TEXTEDIT+9, TEXTEDIT+10, TEXTEDIT+11, TEXTEDIT+14
, TEXTEDIT+16, TEXTEDIT+18, TEXTEDIT+24, TEXTEDIT+25, LOADDFLT~, LOADDFLT+2, LOADDFLT+4, LOADDFLT+5, LOADDFLT+6, LOADDFLT+11
, LOADDFLT+12, LOADDFLT+13, LOADDFLT+18, BOIL+2~
DDWRW TEXTEDIT+1~, TEXTEDIT+11*
DFN GETVST~, GETVST+19
DIC TEXTEDIT+1~, TEXTEDIT+10*, BOIL+1~, BOIL+4*
DIC("S" BOIL+5*
DIC(0 BOIL+4*
DIE DIE+1~, DIE+10*, DIE+20*, TEXTEDIT+22*, TEXTEDIT+25*
>> DIROUT GETVST+20
DIWE TEXTEDIT+1~
DIWESUB TEXTEDIT+1~, TEXTEDIT+10*
DIWPT TEXTEDIT+1~
DR DIE+1~, DIE+8*, DIE+9, DIE+20*, TEXTEDIT+1~, TEXTEDIT+22*, TEXTEDIT+25*
DT LOADDFLT+6, LOADDFLT+13
>> DTOUT GETVST+20, DIE+11
DUZ DIE+2, DIE+7
DWHD TEXTEDIT+1~
DWI TEXTEDIT+1~
DWLC TEXTEDIT+1~
DWLR TEXTEDIT+1~
DWLW TEXTEDIT+1~, TEXTEDIT+12*
DWO TEXTEDIT+1~
DWPK TEXTEDIT+1~, TEXTEDIT+12*
EVNTFLAG GETVST~, GETVST+9, GETVST+11
LINE BOIL~, BOIL+6, BOIL+21*, BOIL+22, REPLACE~, REPLACE+1*, REPLACE+2, INSMULT~, INSMULT+2, INSMULT+4
, INSMULT+6, INSMULT+7, INSMULT+13
>> NOSAVE SETTL+8, TEXTEDIT+14, CANXEC+2
TARGET INSMULT~, INSMULT+15, INSMULT+16, INSMULT+18, INSMULT+20, INSMULT+21, INSMULT+22, INSMULT+23
TIU GETVST~, GETVST+19, ASKOK~, DIE+14, DIE+21
TIU("PNM" TEXTEDIT+10
TIU("VISIT" ASKOK+13
TIU("VSTR" GETVST+21, ASKOK+11
TIUASK ASKOK~
TIUBY ASKOK~
TIUCHNG DIE~, DIE+17, TEXTEDIT~, TEXTEDIT+19*, TEXTEDIT+24*
TIUCKSM0 TEXTEDIT+2~, TEXTEDIT+8*, TEXTEDIT+17, TEXTEDIT+18
TIUCKSM1 TEXTEDIT+2~, TEXTEDIT+16*, TEXTEDIT+17, TEXTEDIT+18
TIUCLASS SETTL~, SETTL+15
TIUCMMT TEXTEDIT~
TIUDFLT SETTL+6~, SETTL+14*, SETTL+15
TIUESBLK TEXTEDIT+2~, TEXTEDIT+4*
TIUESNM TEXTEDIT+2~, TEXTEDIT+3*, TEXTEDIT+21
TIUFITEM LOADDFLT+15~
TIUFITEM( LOADDFLT+17, LOADDFLT+18
TIUFPRIV BOIL+1~*
TIUI LOADDFLT+1~*, LOADDFLT+7*, LOADDFLT+8, LOADDFLT+15~, LOADDFLT+17*, LOADDFLT+18, BOIL+1~, BOIL+6*, BOIL+14, BOIL+18
, BOIL+21, REPLACE~, REPLACE+1, INSMULT+3~, INSMULT+7*, INSMULT+9*, INSMULT+12, INSMULT+13
TIUJ LOADDFLT+1~, LOADDFLT+2*, LOADDFLT+4, LOADDFLT+5*, LOADDFLT+6, LOADDFLT+8*, LOADDFLT+10, LOADDFLT+11, LOADDFLT+12, LOADDFLT+13
TIUK LOADDFLT+1~
TIUL LOADDFLT+1~, LOADDFLT+18*
TIULCNT INSMULT~, INSMULT+15*, INSMULT+16, INSMULT+17*, INSMULT+18, INSMULT+20*, INSMULT+21, INSMULT+22*, INSMULT+23
TIULINE INSMULT+3~, INSMULT+7*, INSMULT+8*, INSMULT+14, INSMULT+16, INSMULT+19, INSMULT+21
TIULMETH GETVST+7~, GETVST+12*, GETVST+13, GETVST+17
>> TIUNEW DIE+13
TIUNEWG BOIL+3~, BOIL+18*, BOIL+19, BOIL+20
TIUNEWR BOIL+3~, BOIL+14*, BOIL+15, BOIL+16
TIUODA CANXEC~, CANXEC+1
TIUOLDG BOIL+3~, BOIL+18*, BOIL+19
TIUOLDR BOIL+3~, BOIL+14*, BOIL+15
TIUOST CANXEC+1~*, CANXEC+2
>> TIUOUT SETTL+16*, GETVST+13*, ASKOK+5*
TIUPC INSMULT+1~, INSMULT+2*, INSMULT+4, INSMULT+6, INSMULT+7, INSMULT+8, INSMULT+13
>> TIUPREF DIE+2*
>> TIUPRM3 TEXTEDIT+6
TIUQUIT GETVST+20*, DIE~, DIE+5*, DIE+9*, DIE+11*, DIE+13, DIE+14, DIE+16, DIE+19*, TEXTEDIT+14*
TIUSCNT INSMULT+3~, INSMULT+7*, INSMULT+11*, INSMULT+14, INSMULT+19
TIUSLINE INSMULT+10~, INSMULT+12*, INSMULT+13*, INSMULT+14, INSMULT+18, INSMULT+19, INSMULT+21, INSMULT+23
TIUSRC INSMULT+3~, INSMULT+4*, INSMULT+5*, INSMULT+9, INSMULT+12, INSMULT+13, INSMULT+24
TIUTAIL INSMULT+3~, INSMULT+6*, INSMULT+13
TIUTITLE SETTL~, SETTL+8, SETTL+9*, SETTL+10
TIUTYP SETTL~, SETTL+9*, SETTL+15, SETTL+16, SETTL+17*, GETVST~, GETVST+9, GETVST+12, GETVST+15, ASKOK~
, ASKOK+4, ASKOK+7, LOADDFLT~, LOADDFLT+4, LOADDFLT+7, LOADDFLT+8, LOADDFLT+14, LOADDFLT+16
TIUTYP(1 SETTL+10*, SETTL+11*, SETTL+17, TEXTEDIT+9
TIUVMETH ASKOK+3~, ASKOK+4*, ASKOK+5, ASKOK+9
TIUVSUPP GETVST+7~, GETVST+8*, GETVST+9*, GETVST+11
TIUX INSMULT+3~
TIUXL APPEND+1~*, APPEND+2
TIUY CANXEC+1~, CANXEC+2*, CANXEC+3
U SETTL+8, SETTL+9, SETTL+10, SETTL+11, SETTL+17, DIE+8, DIE+9, TEXTEDIT+3, TEXTEDIT+4, TEXTEDIT+9
, TEXTEDIT+11, LOADDFLT+2, LOADDFLT+4, LOADDFLT+6, LOADDFLT+13, CANXEC+1
>> VALMAR TEXTEDIT+11
>> VALMBG TEXTEDIT+11
X LOADDFLT+8*, LOADDFLT+9*, LOADDFLT+10*, LOADDFLT+11, LOADDFLT+12, BOIL+1~, BOIL+6*, BOIL+8*, BOIL+10*, BOIL+11*
, BOIL+12, BOIL+13, BOIL+14, BOIL+16*, BOIL+17, BOIL+18, BOIL+20*, BOIL+21, REPLACE~, REPLACE+1
, APPEND~, APPEND+1, APPEND+2*, APPEND+3
>> XWBOS LOADDFLT+9
Y DIE+1~, DIE+11, BOIL+1~, BOIL+8, BOIL+9, BOIL+10

Marked Items

Name Field # of Occurrence
$T(DOLMLINE^TIUSRVF1 LOADDFLT+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All