Routine: TIUASCU

Package	Total	Call Graph
Kernel	7	HOME^%ZIS ^%ZTLOAD ($$READ,CLEAN,IOXY,PREP,RESTORE,SAY,WIN)^XGF ($$DT,$$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT ($$CJ,$$REPLACE)^XLFSTR $$DIV4^XUSER EN^XUTMDEVQ
Text Integration Utility	4	SEND^TIUALRT ($$DIR,$$SETSTR,$$SIG,DIR,INTRO,MAIL)^TIUASCU1 WRAP^TIUFLD PATVADPT^TIULV
VA FileMan	2	^DIK $$GET1^DIQ

Package	Total	Caller Graph
Electronic Health Modernization	1	EHM-00761
Text Integration Utility	1	TIU ADD SIGN UTIL

Entry Points

Name	Comments	DBIA/ICR reference
EN
EXIT
CHK(DATE)	; check environment for outstanding signatures or reports to view, remove if needed
CLEAN	; remove reports generated with previous utility in ^XTMP("TIUASCU")
CUDON
CUDOFF
CUON
CUOFF
ENTER
TASK(SCR)	; create [remove] the report of outstanding additional signatures
CHKLEN(DATA)	; check length of data and truncate fields as needed
DATE(DATA)	; convert to external format MM/DD/YYYY, length 10
F2(PT)	;30;<--truncated length if needed
F200(DATA)	;20;<--truncated length if needed
F49(DATA)	;15;<--truncated length if needed
F4(DATA)	;15;<--truncated length if needed
F8925(DATA)	;30;<--truncated length if needed
VIEW	;
DISPLAY(LOC)	;
CLS
CONVERT(SEC)	; convert seconds to hours/minutes/seconds
QM(DATA,QM)	; quote me
DE	; field;data;
MENU	;;Additional Signer Utility
RPT	;
WARN

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+1
^%ZTLOAD	EN+58
^DIK	TASK+16, TASK+25
$$GET1^DIQ	EN+6, EN+43, TASK+20, F4+1
SEND^TIUALRT	TASK+16, TASK+25
$$DIR^TIUASCU1	EN+14, EN+55, CHK+2, VIEW+18, VIEW+20
$$SETSTR^TIUASCU1	VIEW+5, VIEW+6, VIEW+7, VIEW+8, VIEW+12
$$SIG^TIUASCU1	EN+52
DIR^TIUASCU1	CHK+3, VIEW+1, VIEW+17, VIEW+24, DISPLAY+1
INTRO^TIUASCU1	EN+2
MAIL^TIUASCU1	TASK+31
WRAP^TIUFLD	EN+27
PATVADPT^TIULV	TASK+26
$$READ^XGF	EN+51, ENTER
CLEAN^XGF	EXIT
IOXY^XGF	EN+2, EN+19, EN+51, EN+52, EN+53, EN+54, EN+60, CHK+7, CLS
PREP^XGF	EN+1, EN+4
RESTORE^XGF	EN+44, EN+52, EN+53
SAY^XGF	EN+19, EN+20, EN+21, EN+22, EN+23, EN+24, EN+27, EN+39, EN+40, EN+42 , EN+43, EN+44, EN+47, EN+48, EN+49, EN+50, EN+51, ENTER
WIN^XGF	EN+38, EN+46
$$DT^XLFDT	EN
$$FMADD^XLFDT	EN+18, TASK+2
$$FMTE^XLFDT	EN+18, EN+23, EN+35, TASK+8, DATE+1
$$HDIFF^XLFDT	EN+51, ENTER, TASK+29
$$HTE^XLFDT	TASK+30
$$NOW^XLFDT	TASK+8
$$CJ^XLFSTR	EN+8, VIEW+15
$$REPLACE^XLFSTR	QM+1
$$DIV4^XUSER	EN+29, TASK+20
EN^XUTMDEVQ	VIEW+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IOUON_$$CJ^XLFSTR(Y,IOM)_IOUOFF,! Line Location: EN+8
Function Call: WRITE	Prompt: !,?22,CNT_" "_$P(Y,U) Line Location: EN+11
Function Call: WRITE	Prompt: !,?22,CNT_" QUIT" Line Location: EN+12
Function Call: WRITE	Prompt: ! Line Location: CHK+2
Function Call: WRITE	Prompt: !,IOCUON,"No outstanding signatures or reports to view." Line Location: CHK+6
Function Call: WRITE	Prompt: !!,"Removing entries in ^XTMP..." Line Location: CLEAN+1
Function Call: WRITE	Prompt: "done.",! Line Location: CLEAN+1
Function Call: WRITE	Prompt: IOCUON Line Location: CUON+0
Function Call: WRITE	Prompt: IOCUOFF Line Location: CUOFF+0
Function Call: WRITE	Prompt: !!,"There are no reports to view.",! Line Location: VIEW+1
Function Call: WRITE	Prompt: $S(X=2:IOUON,1:""),!,Y,$S(X=2:IOUOFF,1:"") Line Location: VIEW+2
Function Call: WRITE	Prompt: !,Y Line Location: VIEW+9
Function Call: WRITE	Prompt: !,$$SETSTR^TIUASCU1(DATA,"",(IOM-($L(DATA)-1)),$L(DATA)) Line Location: VIEW+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("No completed report to view.",IOM),!!,$$CJ^XLFSTR("[Report(s) currently in progress.]",IOM),! Line Location: VIEW+15
Function Call: WRITE	Prompt: ! Line Location: VIEW+16
Function Call: WRITE	Prompt: ! Line Location: VIEW+20
Function Call: WRITE	Prompt: "This output is designed for 255 characters per row.",! Line Location: VIEW+21
Function Call: WRITE	Prompt: !,"Example DEVICE setting: ;255",! Line Location: VIEW+22
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+1
Function Call: WRITE	Prompt: @LOC@("zData",X) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ! Condition for execution: $O(@LOC@("zData",X)) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ! Line Location: CLS+0
Function Call: WRITE	Prompt: @Y,!,IOCUON Line Location: WARN+0
Routine Call	%ZIS Line Location: EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^TIU(8925.7 - [#8925.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("EOFF"	CUDOFF
^%ZOSF("EON"	CUDON
^DIC(49 - [#49]	EN+29, F49+1
^TIU(8925 - [#8925]	TASK+14, TASK+18
^TIU(8925.1 - [#8925.1]	F8925+1
^TIU(8925.7 - [#8925.7]	CHK+4, TASK+10, TASK+11, TASK+12, TASK+13!, TASK+15, TASK+16!, TASK+25!
^VA(200 - [#200]	EN+29, EN+30, TASK+19, F200+1
^XTMP("TIUASCU"	EN+9, CHK+1, CHK+5, CLEAN+1!, TASK+1, VIEW+1, VIEW+3, VIEW+19

Label References

Name	Line Occurrences
$$CHK	EN+1, EN+4
$$CHKLEN	TASK+28
$$CONVERT	TASK+29
$$QM	TASK+5, CHKLEN+8
CLEAN	CHK+2
CLS	EN+15, CHK+2, CHK+3, VIEW+1, VIEW+21
CUDOFF	ENTER
CUDON	ENTER
CUOFF	ENTER
CUON	ENTER
ENTER	EN+2, EN+44, EN+53, EN+60, CHK+7
EXIT	EN+1
VIEW	VIEW+19
WARN	CHK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	EN~
CNT	EN+5~, EN+10, EN+11, EN+12, TASK+1~, TASK+7, TASK+23, TASK+28, TASK+29
DA	TASK+16~, TASK+25~
DATA	TASK+1~, TASK+5, TASK+7, TASK+14~, TASK+28, CHKLEN~, CHKLEN+1, CHKLEN+2, CHKLEN+3, CHKLEN+5 , CHKLEN+6, CHKLEN+8, CHKLEN+9, DATE~, DATE+1, F200~, F200+1, F49~, F49+1, F4~ , F4+1, F4+2, F8925~, F8925+1, VIEW+11~, VIEW+12, QM~, QM+1, QM+2
DATA(	F4+1
DATE	EN~, EN+1, EN+4, CHK~, TASK+1~
DATE("End"	EN+18, CHK+4*
DATE("Entry D	T" , TASK+10*, TASK+11, TASK+12, TASK+13, TASK+16, TASK+25
DATE("Start"	EN+9, EN+18, CHK+4*, CHK+5
DE	TASK+1~, TASK+27*
DEFAULT	EN+13~*, EN+14
DELIM	TASK+1~*, TASK+5
DIERR	EN+5~
DIK	TASK+16~, TASK+25~
DILOCKTM	EN+5~
DIR	EN+5~, EN+10, EN+12, EN+13, EN+14, VIEW+2~, VIEW+5, VIEW+14, VIEW+18, VIEW+19
DISP	EN+38~, EN+46~
DISYS	EN+5~
DIV	EN+29~, TASK+14~, TASK+20
DIV(	EN+31, EN+37, EN+43, TASK+22
DIV(0	EN+37, TASK+20
DT	EN*, EN+23, EN+35, CHK+4, TASK+2, TASK+21
DTIME	EN+51, ENTER
DUZ	EN+6
EC	EN+37~*, EN+38
ERR	EN+25~, EN+28, EN+36, EN+37, EN+41, EN+42, EN+43
ERR(	EN+37, EN+41, EN+42
ERR("D"	EN+33*
ERR("T"	EN+34, EN+35
ERR(4	EN+31*
ERR(49	EN+32*
EXE	EN+5~
EXE(	EN+10, EN+12, EN+14, EN+15, EN+19
EXIT	EN~, EN+3, EN+4, EN+14, EN+15, CHK+1~, CHK+2, CHK+4, CHK+6, CHK+8
FN	CHKLEN+2~, CHKLEN+3, CHKLEN+5, CHKLEN+6, CHKLEN+8*
I	EN+17~, EN+18, CHKLEN+1~, CHKLEN+2, CHKLEN+3, CHKLEN+5, CHKLEN+6, CHKLEN+8
IEN	TASK+12~*, TASK+13, TASK+15, TASK+16, TASK+25
>> IOCUOFF	CUOFF
>> IOCUON	EN+14, CHK+6, CUON, WARN
IOF	DISPLAY+1
IOM	EN+8, EN+27, VIEW+12, VIEW+15
IOSL	EN+2, EN+60, CHK+2, CHK+7, VIEW+16, CLS
IOST	DISPLAY+1
>> IOUOFF	EN+8, VIEW+2
>> IOUON	EN+8, VIEW+2
J	EN+17~*, CHKLEN+1~
LEN	CHKLEN+1~, CHKLEN+3, CHKLEN+6
LOC	TASK+1~, TASK+2, TASK+3, TASK+4, TASK+7, TASK+8, TASK+9, TASK+28, TASK+29, TASK+30 , TASK+31, VIEW+2~, VIEW+3, VIEW+4, VIEW+5, VIEW+6, VIEW+7, VIEW+8, VIEW+10, VIEW+11 , VIEW+13, VIEW+19, VIEW+20, DISPLAY~, DISPLAY+2
MAX	CHKLEN+1~, CHKLEN+2, CHKLEN+3
MSG	EN+25~, EN+26*, EN+27
NODE	EN+29~, EN+30, EN+33, EN+34, EN+35, CHK+1~, TASK+14~
NODE(	TASK+15*, TASK+17, TASK+19, TASK+20, TASK+22
NODE(200	TASK+19*, TASK+21, TASK+22
NODE(8925	TASK+14, TASK+15, TASK+18, TASK+22, TASK+26
NOW	EN+51~, ENTER~
POP	EN~, VIEW+23
PT	TASK+14~, TASK+26, F2~
PT("PNM"	F2+1
PT("SSN"	F2+1
QFLDS	TASK+1~
QFLDS(	TASK+6*, CHKLEN+2, CHKLEN+3, CHKLEN+5, CHKLEN+6, CHKLEN+8
QM	QM~, QM+2
REM	TASK+1~
ROW	EN+5~, EN+19, EN+20, EN+21, EN+22, EN+23, EN+24, EN+27*, EN+38, EN+39 , EN+40, EN+41, EN+46, EN+47, EN+48, EN+49, EN+50, EN+52, EN+53, EN+54
SCR	EN+5~, TASK~, TASK+32!
SCR(	EN+17*, EN+21, EN+26, EN+57, TASK+4, TASK+22
SCR("Action"	EN+14*, EN+45, TASK+1, TASK+9, TASK+24
SCR("DISUSER'd"	EN+24, EN+33, TASK+21
SCR("End"	EN+18, EN+20, TASK+7, TASK+9, TASK+10
SCR("Start"	EN+18*, EN+20, TASK+9, TASK+10
SCR("Terminated"	EN+23, EN+34, EN+35, TASK+21
SCR("User"	EN+6*, TASK+8
SCR(200	EN+22, EN+28, EN+29, EN+30, EN+40, TASK+22
SCR(4	EN+31, TASK+22, F4+1
SCR(49	EN+32, TASK+22
SEC	CONVERT~, CONVERT+1, CONVERT+2, CONVERT+3
SRV	EN+29~*, EN+32
TIUDA	TASK+11~*, TASK+12, TASK+13, TASK+14, TASK+16, TASK+17, TASK+18, TASK+25
TIUDIV1	TASK+26~
TIUFT	EN+25~, EN+27!*
TIUFT(	EN+27
TLEN	CHKLEN+4~*, CHKLEN+5, CHKLEN+6
TROW	EN+41~, EN+42, EN+43, EN+44
U	EN*, EN+6, EN+10, EN+11, EN+14, EN+15, EN+18, EN+19, EN+20, EN+21 , EN+22, EN+26, EN+29, EN+32, EN+33, EN+34, EN+35, EN+40, TASK+1, TASK+2 , TASK+6, TASK+7, TASK+8, TASK+9, TASK+15, TASK+19, TASK+20, TASK+21, TASK+22, TASK+26 , TASK+28, CHKLEN+2, CHKLEN+3, CHKLEN+5, CHKLEN+6, CHKLEN+8, F200+1, F49+1, F8925+1, VIEW+5 , VIEW+6, VIEW+11
X	EN~, EN+7, EN+8, EN+14, EN+15, EN+19, EN+25, EN+26, EN+37~, EN+43~* , EN+45, EN+51, EN+52, EN+55, EN+57, ENTER~, TASK+1~, TASK+4, TASK+5, TASK+6 , F4+1~, VIEW+2~, VIEW+3, VIEW+4, VIEW+5, VIEW+6, VIEW+7, VIEW+8, VIEW+10, VIEW+11 , VIEW+13, VIEW+18, VIEW+19, DISPLAY+2~, CLS~, QM+1~, WARN
X(""""	QM+1*
X1	EN+46~
XGRT	EN+37~, EN+51~, ENTER~
Y	EN~, EN+7, EN+8, EN+9, EN+10, EN+11, EN+15, TASK+1~, TASK+5, TASK+6 , TASK+27, VIEW+2~, VIEW+3, VIEW+5, VIEW+6, VIEW+7, VIEW+8, VIEW+9, VIEW+10~, VIEW+11 , WARN*
ZTDESC	EN+56~*
ZTDTH	EN+56~*
ZTIO	EN+56~*
>> ZTREQ	TASK+32*
ZTRTN	EN+56~, EN+58*
ZTSAVE	EN+56~, VIEW+23~
ZTSAVE(	EN+57*
ZTSAVE("LOC"	VIEW+23*
ZTSK	EN+56~, EN+58

Marked Items

Name	Field # of Occurrence
$T(@(3)	CHKLEN+4
$T(DE+DE	TASK+27
$T(DE+X	TASK+5
$T(MENU+X	EN+7
$T(RPT+X	VIEW+2
$T(WARN+X	WARN

Customize PDF page

Package: Text Integration Utility

Routine: TIUASCU

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items