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

Package: Text Integration Utility

Routine: TIUEDI3


Information

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

Source Information

Source file <TIUEDI3.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Text Integration Utility 6 $$STATUS^TIULC  $$DOCCLASS^TIULC1  $$CANDO^TIULP  $$ISPFTTL^TIUPRFL  $$READ^TIUU  DEFER^TIUVSIT  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Text Integration Utility 17 TIUCPFIX  TIUEDI1  TIUEDIM  TIUEDIT  TIUEDITR  TIUFIX1  TIUGEDI1  TIUGEDIT  
TIUHL7P3  TIUPEFIX  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN  TIUPUTU  TIURC1  
TIUSRVA  
IHS Electronic Health Record 2 BEHODCP  BEHODCS  
IHS Mods To Text Integration Utilities 1 BTIUEDIT  

Entry Points

Name Comments DBIA/ICR reference
EXIST(DFN,TIUTYPDA,TIUVSTR,REQEDIT,PERSON) ; If a docmt already
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 ;
CREXIT
CREATREC(DFN,TIU,TIUTYP1) ; Create document record - Returns DA
; Receives array TIU as in GETRECNW
; Needs var TIUTYP1 as in GETRECNW
INQUIRE() ; Ask user whether to create a new note anyway
EXISTEX ;
LOOP ; -- Find existing docmt for given patient, title, & visit:--

External References

Name Field # of Occurrence
^DIC CREATREC+9
^DIE CREATREC+18
$$STATUS^TIULC CREATREC+17
$$DOCCLASS^TIULC1 CREATREC+17
$$CANDO^TIULP LOOP+17
$$ISPFTTL^TIUPRFL EXIST+14
$$READ^TIUU GETRECNW+85, INQUIRE+3
DEFER^TIUVSIT CREATREC+20
$$UP^XLFSTR CREATREC+17

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
Routine Call
  • DIE
  • Line Location:
    • CREATREC+18
Routine Call
  • DIC
  • Line Location:
    • CREATREC+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] LOOP+1, LOOP+3, LOOP+4!, LOOP+7, LOOP+10

Label References

Name Line Occurrences
$$CREATREC GETRECNW+64, GETRECNW+81, GETRECNW+104
$$EXIST GETRECNW+73, GETRECNW+76
$$INQUIRE GETRECNW+102
CREXIT CREATREC+10
EXISTEX EXIST+14
GETNWX GETRECNW+64, GETRECNW+80, GETRECNW+93
LOOP LOOP+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CANEDIT LOOP+17~*, LOOP+18
DA GETRECNW+57~, GETRECNW+64*, GETRECNW+71*, GETRECNW+81*, GETRECNW+86*, GETRECNW+87*, GETRECNW+94*, GETRECNW+100*, GETRECNW+104*, GETRECNW+106*
, GETNWX+1, GETNWX+2, EXIST+10~, EXIST+13*, LOOP+1, LOOP+14*, LOOP+18*, LOOP+22, EXISTEX+1, CREATREC+3~
, CREATREC+7*, CREATREC+13*, CREATREC+17, CREATREC+20, CREXIT
DFN GETRECNW~, GETRECNW+64, GETRECNW+73, GETRECNW+76, GETRECNW+81, GETRECNW+104, EXIST~, LOOP+1, LOOP+4, CREATREC~
, CREATREC+17
DIC CREATREC+3~, CREATREC+8*
DIC(0 CREATREC+8*
DIE CREATREC+14~*
>> DIROUT GETRECNW+103
DLAYGO CREATREC+3~, CREATREC+8*
DR CREATREC+14~, CREATREC+17*
>> DTOUT GETRECNW+103
>> DUOUT GETRECNW+103
DUZ GETRECNW+60, EXIST+12
EDABLEDA GETRECNW+58~, GETRECNW+71*, GETRECNW+76*, GETRECNW+80, GETRECNW+93, GETRECNW+94, GETRECNW+100, GETRECNW+106
EDIT GETRECNW~, GETRECNW+71*, GETRECNW+94*, GETRECNW+100*, GETRECNW+106*
MULTOK GETRECNW+57~, GETRECNW+69*, GETRECNW+70*, GETRECNW+74
>> NOSAVE GETRECNW+64
PERSON GETRECNW~, GETRECNW+60*, GETRECNW+76, EXIST~, EXIST+12*, LOOP+17
REQEDIT EXIST~, EXIST+11*, LOOP+14
REQUEST EXIST+10~, EXIST+13*, LOOP+1, LOOP+7*
RETRY EXIST+10~, LOOP+22, LOOP+23*, CREATREC+3~
STATUS EXIST+10~, LOOP+10*, LOOP+11
TIU GETRECNW~, GETRECNW+64, GETRECNW+81, GETRECNW+104, CREATREC~
TIU("INST" CREATREC+17
TIU("LOC" CREATREC+17
TIU("STOP" CREATREC+20
TIU("VISIT" CREATREC+16
TIU("VLOC" CREATREC+17
TIU("VSTR" GETRECNW+61, CREATREC+6
>> TIUCHNG("EXIST" GETRECNW+98*, GETRECNW+106*
TIUDPRM GETRECNW~
TIUDPRM(0 GETRECNW+69, GETRECNW+70
TIUFPRIV CREATREC+3~, CREATREC+7*
TIUI EXIST+10~, EXIST+13*, LOOP+1*, LOOP+3, LOOP+4, LOOP+7, LOOP+10, LOOP+14, LOOP+17, LOOP+18
TIUINQ GETRECNW~, GETRECNW+82, GETRECNW+87, GETRECNW+94, GETRECNW+100
TIUNEW GETRECNW~, GETRECNW+64*, GETRECNW+71*, GETRECNW+81*, GETRECNW+104*, GETNWX+1*
TIUPRMT INQUIRE+1~, INQUIRE+2*, INQUIRE+3
TIUTYP1 GETRECNW~, GETRECNW+64, GETRECNW+72, GETRECNW+81, GETRECNW+104, CREATREC~, CREATREC+5
TIUTYPDA GETRECNW+59~, GETRECNW+72*, GETRECNW+73, GETRECNW+76, EXIST~, EXIST+14, LOOP+1, LOOP+4, CREATREC+4~, CREATREC+5*
, CREATREC+9
TIUTYPNM GETRECNW+59~, GETRECNW+72*, GETRECNW+83, GETRECNW+95, GETRECNW+101, CREATREC+4~, CREATREC+5*, CREATREC+10
TIUVISIT CREATREC+3~, CREATREC+16*, CREATREC+17
TIUVSTR GETRECNW+57~, GETRECNW+61*, GETRECNW+73, GETRECNW+76, EXIST~, LOOP+1, LOOP+4, LOOP+22, LOOP+23*, CREATREC+3~
, CREATREC+6*, CREATREC+15
TIUVTYP CREATREC+3~, CREATREC+15*, CREATREC+17
TIUY INQUIRE+1~, INQUIRE+2*, INQUIRE+3*, INQUIRE+4
TLFULL GETRECNW+57~, GETRECNW+71*, GETRECNW+74*, GETRECNW+81, GETRECNW+94, GETRECNW+99
U GETRECNW+70, GETRECNW+72, LOOP+7, LOOP+10, CREATREC+5, CREATREC+17
X CREATREC+3~, CREATREC+9*
XISONE GETRECNW+57~, GETRECNW+73*, GETRECNW+74, GETRECNW+86, GETRECNW+87
Y CREATREC+3~, CREATREC+10, CREATREC+13, CREATREC+17
YESDOIT GETRECNW+58~, GETRECNW+85*, GETRECNW+86, GETRECNW+102*, GETRECNW+104
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All