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

Package: Text Integration Utility

Routine: TIUDTBP0


Information

TIUDTBP0 ;AITC/CR/SGM - BOOKMARK TIU NOTE AFTER DOWNTIME ;8/20/18 4:02pm

Source Information

Source file <TIUDTBP0.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 4 EN^DDIOL  (,$$FIND1)^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ($$DOW,$$FMADD,$$FMTE,$$NOW)^XLFDT  ($$CJ,$$RJ,$$UP)^XLFSTR  $$NAME^XUSER  
Text Integration Utility 2 START^TIUDTBPN  $$CNTDIV^TIUUTL2  
Registration 1 DIVISION^VAUTOMA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Text Integration Utility 1 TIUDTBPN  

Entry Points

Name Comments DBIA/ICR reference
T14 ;
T15 ;
T16 ;
T17 ;
T10 ;
GET1(FILE,IEN,FLD,FLG) ;
T12 ;
T13 ;
DIT(L) ;
DIR(LIN) ; extrinsic function
; call returns the value of X
; -3:timeout, -2:'^'-out, null or value
FIND1(FILE,IEN,FLG,VAL,IDX,SCR) ;
DIC31() ;
; Called from ^DIC("S"), naked is set and Y is ien
; Expects TIUD("TIMS") & TIUD("TIME")
; If no date range, default to T @0000 - @2400
; "I" node is inactive_dt^reactivated_dt
; Do not allow selection of a clinic more than once
; Return 1 if clinic is allowed
DICALL() ;
T8 ;
T9 ;
T7 ;
T4 ;
T5 ;
T2 ;
T3 ;
T1 ;
TEXT(TAG,WR,LF,CLR,PAD,CHR,TIUR) ;
; TAG - line label containing the text
; all groups of text should end with ' ;;---'
; WR - Boolean, write or do not write
; LF - 0:no extra line feeds; 1:leading line feed; 2:trailing feed
; CLR - Boolean, clear screen first
; PAD - number of spaces begin each line with
; If PAD="" then default to 3. If PAD=0 then no padding
; CHR - for center justify, character to pad line, default is space
T61 ;
T62 ;
DIC(LIN) ; extrinsic function
; return -2:timeout, -1:'^'-out, null/selection
; this calls returns the value of X
TEST ; programmer testing
DIVISION() ;
; if only one inpatient division, don't ask
; VAUTOMA returns: Y=-1 or Y=1
; VAUTD = 0:if divisions selected
; 1:if selected "ALL" divisions
; TIUD("DIV")= 0:if multiple divisions selected
; 1:if there is only one division
; 2:all divisions
; TIUD("DIV",ien)=division name, only if TIUD("DIV")=0
SAVE ; save local and global variables to ^XTMP
DIRTIM(Y)
DIRCALL() ;
T11 ;

External References

Name Field # of Occurrence
EN^DDIOL DIR+68
^DIC DICALL+2
$$FIND1^DIC FIND1+5
$$GET1^DIQ GET1+5
^DIR DIRCALL+2
START^TIUDTBPN TEST+2
$$CNTDIV^TIUUTL2 DIVISION+10
DIVISION^VAUTOMA DIVISION+11
$$DOW^XLFDT DIRTIM
$$FMADD^XLFDT SAVE+2
$$FMTE^XLFDT DIR+35, DIRTIM
$$NOW^XLFDT DIR+14, DIR+23, SAVE+5
$$CJ^XLFSTR TEXT+20
$$RJ^XLFSTR TEXT+21
$$UP^XLFSTR DIC+26
$$NAME^XUSER DIC+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIRCALL+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: CLR
  • Line Location: TEXT+26
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LF[1
  • Line Location: TEXT+26
Function Call: WRITE
  • Prompt: !,TIUR(Y)
  • Line Location: TEXT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+26
Routine Call
  • DIC
  • Line Location:
    • FIND1+5
Routine Call
  • DIC
  • Line Location:
    • DICALL+2
Routine Call
  • DIR
  • Line Location:
    • DIRCALL+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("TIUDT" DIR+63
^XTMP("TIUDTBP0" SAVE+3

Label References

Name Line Occurrences
$$DICALL DIC+9, DIC+27, DIC+41, DIC+55
$$DIRCALL DIR+7, DIR+16, DIR+26, DIR+34, DIR+48, DIR+57, DIR+70, DIR+75, DIR+83
$$DIRTIM DIR+17, DIR+27
$$DIT DIR+56
$$FIND1 DIC+18, DIC+19
TEXT DIC+6, DIC+22, DIC+49, DIR+40, DIR+65, DIR+79, DIVISION+11

Naked Globals

Name Field # of Occurrence
^("I" DIC31+10
^(0 SAVE+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHR TEXT~, TEXT+13*, TEXT+20, TEXT+21
CLR TEXT~, TEXT+12*, TEXT+26
D0 DICALL+1~
DA DICALL+1~, GET1+1~
DIC DIC+3~, DIC+7*, DIC+24*, DIC+40!*, DIC+54!*, GET1+1~
DIC("A" DIC+22*, DIC+25*
DIC("B" DIC+26*
DIC("S" DIC+8*, DIC+15*, DIC+21*
DIC(0 DIC+7*, DIC+24*
DIERR FIND1+1~, FIND1+6, GET1+1~, GET1+6
DIR DIR+3~
DIR("?" DIR+46*, DIR+47*, DIR+81*
DIR("A" DIR+6*, DIR+15*, DIR+25*, DIR+32*, DIR+44*, DIR+45*, DIR+56*, DIR+69*, DIR+74*, DIR+82*
DIR("B" DIR+33*, DIR+69*, DIR+73*, DIR+80*
DIR(0 DIR+5*, DIR+14*, DIR+24*, DIR+31*, DIR+43*, DIR+56*, DIR+69*, DIR+73*, DIR+80*
DIROUT DIR+3~, DIRCALL+1~
DIRUT DIR+3~, DIRCALL+1~
DT DIC31+8, SAVE+2
DTOUT DIC+3~, DICALL+1~, DICALL+2, DIR+3~, DIRCALL+1~, DIRCALL+2
DUOUT DIC+3~, DICALL+1~, DICALL+2, DIR+3~, DIRCALL+1~, DIRCALL+2
DUZ DIC+26, DIC+58, SAVE+8
ED DIC31+7~, DIC31+9*, DIC31+15
ED(0 DIC31+11*, DIC31+16, DIC31+17
EFORM TEST+1~*
ERRON TEST+1~*
EVENT DIC+17~, DIC+19*, DIC+20
FILE FIND1~, FIND1+2*, FIND1+4, FIND1+5, GET1~, GET1+2*, GET1+4, GET1+5
FLD GET1~, GET1+2*, GET1+4, GET1+5
FLG FIND1~, FIND1+2*, FIND1+3*, FIND1+5, GET1~, GET1+2*, GET1+5
FMT TEXT+11~, TEXT+18*, TEXT+19*, TEXT+20, TEXT+21, TEXT+22, TEXT+24
GL SAVE+1~, SAVE+3*, SAVE+4, SAVE+5, SAVE+6, SAVE+7, SAVE+8, SAVE+9
>> GLT SAVE+9
GLX DIR+62~, DIR+63*, DIR+64, DIR+66, DIR+67, DIR+68
I DIC+3~, DIR+47*, DIR+62~, DIR+66*, DIR+67*, DIVISION+9~, FIND1+1~, GET1+1~, SAVE+1~, SAVE+4*
, SAVE+5, SAVE+6, SAVE+7, SAVE+8, SAVE+9, TEXT+11~, TEXT+17*, TEXT+18*, TEXT+23, TEXT+24*
, TEXT+26
IDX FIND1~, FIND1+5
IEN FIND1~, FIND1+2*, FIND1+5, GET1~, GET1+2*, GET1+3*, GET1+4, GET1+5
INC DIC+33~, DIC+39*, DIC+42, DIC+48~, DIC+53*, DIC+56
IOF TEXT+26
IOM TEXT+15
J DIR+62~, TEXT+11~, TEXT+17*
L DIT~
LAB DIC+3~
LEN TEXT+11~, TEXT+15*, TEXT+16, TEXT+20, TEXT+21
LF TEXT~, TEXT+12*, TEXT+26
LIN DIC~, DIC+4, DIC+12, DIC+30, DIC+46, DIR~, DIR+4, DIR+12, DIR+20, DIR+30
, DIR+38, DIR+51, DIR+60, DIR+72, DIR+77
LN DIR+62~, DIR+66*, DIR+67*
MAX DIR+21~, DIR+22*, DIR+23*, DIR+24
MIN DIR+21~, DIR+22*, DIR+23*, DIR+24
NOKILL TEST+1~*
PAD TEXT~, TEXT+14*, TEXT+22
SCR FIND1~, FIND1+5
SP TEXT+11~, TEXT+16*, TEXT+22
ST DIC31+7~, DIC31+8*, DIC31+9, DIC31+16, DIC31+17
ST(0 DIC31+11*, DIC31+13, DIC31+14, DIC31+15, DIC31+16
STAT DIC+17~, DIC+18*, DIC+19, DIC+20
TAG TEXT~, TEXT+12*
>> TEXT(3 DIR+67
>> TIUD SAVE+6
>> TIUD("CLSEL" DIC+32, DIC+41*, DIC+44, DIC31+12, DIR+49*
>> TIUD("DIV" DIVISION+10*, DIVISION+14*
>> TIUD("MAIL" DIC+55*, DIC+58*
>> TIUD("NOTEDT" DIR+35*, DIR+64
>> TIUD("SCH" DIR+8*
>> TIUD("SIGN" DIC+27*
>> TIUD("TIME" DIC+36, DIC31+9, DIR+27*
>> TIUD("TIMS" DIC+36, DIC31+8, DIR+13, DIR+17*, DIR+22, DIR+23
>> TIUD("TITLE" DIC+9*, DIC+20
>> TIUD("TYPE" DIC+16, DIR+53*, DIR+57*
TIUDIC DIC+33~, DIC+34*, DIC+40, DIC+48~, DIC+50*, DIC+54
TIUDIC("A" DIC+35*, DIC+42*, DIC+56*
TIUDIC("S" DIC+37*, DIC+52*
TIUDIC(0 DIC+34*, DIC+50*
TIUER FIND1+1~, GET1+1~
TIUR DIR+39~, DIR+40, TEXT~
TIUR( DIR+47, TEXT+23*, TEXT+24*, TEXT+26
TIUR(6 DIR+46
TIUX DIR+78~, DIR+79, DIR+81
TX DIC+17~, DIC+22, DIR+62~, DIR+65
TX( DIR+66
U DIC+9, DIC+27, DIC+41, DIC+55, DIC31+11, SAVE+2, SAVE+4
VAL FIND1~, FIND1+2*, FIND1+4, FIND1+5
VAUTD DIVISION+9~, DIVISION+12, DIVISION+13*, DIVISION+14
WR TEXT~, TEXT+12*, TEXT+26
X DIC+3~, DIC+10*, DIC+17~, DIC+20*, DIC+21, DIC+28*, DIC+32*, DIC+36*, DIC+44*, DIC+51*
, DIC+52, DIC+58*, DIC+60, DICALL+1~, DIR+3~, DIR+7*, DIR+10*, DIR+13*, DIR+16*, DIR+18*
, DIR+22*, DIR+26*, DIR+28*, DIR+36*, DIR+42*, DIR+43, DIR+48*, DIR+49*, DIR+53*, DIR+58*
, DIR+70*, DIR+75*, DIR+83*, DIR+85, DIRCALL+1~, DIVISION+9~, FIND1+1~, GET1+1~, GET1+5*, GET1+6*
, GET1+7, SAVE+1~, SAVE+2*, SAVE+4, TEXT+11~, TEXT+17*, TEXT+18*, TEXT+19*, TEXT+20*, TEXT+21*
, TEXT+22*, TEXT+23
Y DIC+3~, DIC+9*, DIC+10, DIC+17~, DIC+27*, DIC+28, DIC+36*, DIC+39, DIC+41*, DIC+53*
, DIC+55*, DIC+58, DICALL+1~, DICALL+2*, DICALL+3, DIC31+12, DIR+3~, DIR+7*, DIR+8, DIR+10
, DIR+16*, DIR+17, DIR+18, DIR+26*, DIR+27, DIR+28, DIR+34*, DIR+35, DIR+36, DIR+48*
, DIR+49, DIR+57*, DIR+58, DIRCALL+1~, DIRCALL+2*, DIRCALL+3, DIRTIM~, DIVISION+9~, DIVISION+12, FIND1+1~
, FIND1+5*, FIND1+6*, FIND1+7, GET1+1~, TEXT+11~, TEXT+26*
Z DIC31+7~, DIC31+10*, DIC31+11, DIC31+12*, DIC31+13*, DIC31+15*, DIC31+16*, DIC31+17*, DIC31+18*, DIC31+20
>> ZTSK SAVE+7

Marked Items

Name Field # of Occurrence
$T(@TAG+J TEXT+17
$T(DIT+L DIT+3
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