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

Package: Text Integration Utility

Routine: TIUASCU


Information

TIUASCU ; NA/AJB - ADDITIONAL SIGNER CLEANUP 2.0;11/08/23 10:30

Source Information

Source file <TIUASCU.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
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, CUONWARN
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
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