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 ; SPFO/AJB - ADDITIONAL SIGNER CLEANUP ;05/13/22 10:24

Source Information

Source file <TIUASCU.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 6 HOME^%ZIS  ^%ZTLOAD  (CLEAN,IOXY,PREP)^XGF  ($$DT,$$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT  ($$CJ,$$REPLACE)^XLFSTR  EN^XUTMDEVQ  
VA FileMan 4 ^DIC  FILE^DID  ^DIK  ^DIR  
MailMan 1 ^XMD  
Text Integration Utility 1 SEND^TIUALRT  

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 ;
TASK(X,ACTION,DATE,LOC,USER) ;
VIEW(X) ;
DISPLAY(LOC) ;
MAIL(LOC,ACTION) ;
ADD(LOC,CNT,DATA) ; add line of data to location
CLS
CONVERT(SEC) ; convert seconds to hours/minutes/seconds
DATE(X,DATE) ; ask user for begin & end date of search
FLU(FILE) ; file lookup
FMR(DIR,PRM,DEF,HLP,SCR) ; fileman reader
QM(DATA,QM) ; quote me
SETSTR(S,V,X,L) ; -- insert text(S) into variable(V) at position (X) with length of (L)
SETUP(X,DATE,USER) ; ask user for type of search
SIGNER(X,USER) ; lookup user from File #200
MENU ;;Additional Signer Utility
INTRO ;
RPT ; 01234567890123456789012345678901234567890123456789012345678901234567890123456789

External References

Name Field # of Occurrence
HOME^%ZIS EN+1
^%ZTLOAD EN+26
^DIC FLU+4
FILE^DID FLU+2
^DIK TASK+18
^DIR FMR+6
SEND^TIUALRT TASK+20
CLEAN^XGF EXIT+1
IOXY^XGF CLS
PREP^XGF EN+1
$$DT^XLFDT EN+1
$$FMADD^XLFDT EN+8
$$FMTE^XLFDT EN+3, TASK+6, TASK+7, TASK+8, TASK+26, TASK+35, TASK+43, DATE+2, DATE+6
$$HDIFF^XLFDT TASK+38
$$HTE^XLFDT TASK+39
$$NOW^XLFDT TASK+6, TASK+7, TASK+35
$$CJ^XLFSTR EN+13
$$REPLACE^XLFSTR QM+1
^XMD MAIL+12
EN^XUTMDEVQ VIEW+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No outstanding signatures or reports to view.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @Y,!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: IOUON_$$CJ^XLFSTR(Y,IOM)_IOUOFF,!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,?24,CNT_" "_$P(Y,U)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"The task for Job #"_$J_" is still running."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !!,"There are no reports to view.",!
  • Line Location: VIEW+1
Function Call: WRITE
  • Prompt: IOUON
  • Condition for execution: $P($T(RPT+(X+1)),";;",2)="EOM"
  • Line Location: VIEW+5
Function Call: WRITE
  • Prompt: !,TXT
  • Line Location: VIEW+5
Function Call: WRITE
  • Prompt: IOUOFF
  • Condition for execution: $P($T(RPT+(X+1)),";;",2)="EOM"
  • Line Location: VIEW+5
Function Call: WRITE
  • Prompt: !,?1,Y
  • Line Location: VIEW+12
Function Call: WRITE
  • Prompt: !!," There are no results for this criteria: ",$TR($E($P($G(@LOC@("Info")),U,3,4),1,20),U,"-"),!
  • Line Location: VIEW+16
Function Call: WRITE
  • Prompt: IOCUON,"This output is designed for up to 255 characters per row.",!
  • Line Location: VIEW+19
Function Call: WRITE
  • Prompt: !,"Example DEVICE input: ;255;999999",!
  • Line Location: VIEW+20
Function Call: WRITE
  • Prompt: !
  • Line Location: VIEW+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: """ADDITIONAL SIGNER"",""TITLE"",""ENTRY DATE/TIME"",""EXPECTED SIGNER"",""EXPECTED COSIGNER"",""PATIENT"",""DATE REMOVED"""
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,@LOC@("DATA",X)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLS+0
Function Call: WRITE
  • Prompt: !!," No outstanding additional signatures."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: $G(IOCUON)
  • Line Location: FMR+6
Function Call: WRITE
  • Prompt: $G(IOCUOFF)
  • Line Location: FMR+6
Function Call: WRITE
  • Prompt: !,IOCUON
  • Line Location: SIGNER+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIC
  • Line Location:
    • FLU+4
Routine Call
  • DIR
  • Line Location:
    • FMR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.7 - [#8925.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TASK+33
^TIU(8925 - [#8925] TASK+23
^TIU(8925.1 - [#8925.1] TASK+24
^TIU(8925.7 - [#8925.7] EN+2, TASK+4, TASK+5, TASK+10, TASK+11, TASK+12, TASK+13!, TASK+14, TASK+18!, TASK+42
, DATE+1
^VA(200 - [#200] TASK+7, TASK+21, TASK+28, TASK+31
^XTMP("TIUASCU" EN+4, EN+8, EN+14, VIEW+1, VIEW+2, VIEW+3, VIEW+8, VIEW+14

Label References

Name Line Occurrences
$$CONVERT TASK+38
$$FLU SIGNER+1
$$FMR EN+19, EN+22, VIEW+13, DATE+6, SETUP+1
$$QM TASK+22, TASK+25, TASK+27, TASK+29, TASK+32, TASK+34, TASK+35
$$SETSTR VIEW+9, VIEW+10, VIEW+11
ADD MAIL+5, MAIL+6, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11
CLS EN+11, VIEW+2, VIEW+18
DATE SETUP+2
FMR EN+4, EN+7, EN+23, EN+28, VIEW+1, VIEW+17, VIEW+22, DISPLAY+1
MAIL TASK+40
SIGNER SETUP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% MAIL+1~
ACTION EN+11~, EN+19*, EN+20, EN+22, TASK~, TASK+2, TASK+17, TASK+35, TASK+40, MAIL~
, MAIL+7
ACTION( EN+16*, EN+20
C EN+1~
CNT EN+11~, EN+16*, EN+17, EN+18, MAIL+2~, MAIL+5, MAIL+6, MAIL+7, MAIL+8, MAIL+9
, MAIL+10, MAIL+11, ADD~, ADD+1*
D0 TASK+19~, MAIL+1~
D1 MAIL+1~
D2 MAIL+1~
DA TASK+18~*
DATA TASK+21~*, TASK+22, TASK+24*, TASK+25, TASK+26*, TASK+27, TASK+28*, TASK+29, TASK+31*, TASK+32
, TASK+33*, TASK+34, ADD~, ADD+1, QM~, QM+1*, QM+2
DATE EN+1~, TASK~, DATE~, SETUP~, SETUP+2
DATE( DATE+4, DATE+6*, DATE+7*
DATE("Begin" EN+2*, EN+3*, EN+4, EN+15, EN+22, TASK+4*, TASK+8, TASK+10, TASK+37, TASK+42*
, TASK+43*, DATE+1*, DATE+2*, DATE+3, DATE+5, DATE+6
DATE("End" EN+2*, EN+3*, EN+22, TASK+5*, TASK+8, TASK+10, TASK+37, TASK+42*, TASK+43*, DATE+1*
, DATE+2*, DATE+5, DATE+6
DEF FMR~, FMR+3
DG MAIL+1~
DIC MAIL+1~, FLU+1~, FLU+3*
DIC("A" FLU+3*
DIC(0 FLU+3*
DICR MAIL+1~
DIK TASK+18~*
DILN FMR+1~
DILOCKTM TASK+19~, MAIL+1~, FLU+1~, FMR+1~
DIR EN+11~, EN+18*, EN+19*, VIEW+2~, VIEW+7*, VIEW+13*, FMR~, FMR+3, FMR+5*
DIR("?" FMR+4*
DIR("A" FMR+3*
DIR("B" FMR+3*
DIR("S" FMR+3*
DIR(0 FMR+3*
DIROUT FMR+2~, FMR+7
DIRUT FMR+2~, FMR+7
DISYS TASK+19~, MAIL+1~, FLU+1~, FMR+1~
DIW MAIL+1~
DT EN+1*, EN+8
DTOUT FMR+2~, FMR+7
DUOUT FMR+2~, FMR+7
DUZ TASK+7, MAIL+4
EDT TASK+10~*, TASK+11, TASK+12, TASK+13, TASK+18
FDA TASK+19~
FILE FLU~, FLU+2
FINFO FLU+1~
FINFO("GLOBAL NAME" , FLU+3
FINFO("NAME" FLU+3
HELP DATE+5~*, DATE+6
HLP FMR~, FMR+4, FMR+5
IEN TASK+12~*, TASK+13, TASK+14, TASK+18
INF TASK+2~
>> IOCUOFF FMR+6
>> IOCUON VIEW+19, FMR+6, SIGNER+1
IOF DISPLAY+1
IOM EN+13, VIEW+11, DISPLAY+4
IOSL CLS
IOST DISPLAY+1, DISPLAY+4
>> IOUOFF EN+13, VIEW+5
>> IOUON EN+13, VIEW+5
L SETSTR~, SETSTR+1
LOC EN+1~, EN+8*, EN+23, TASK~, TASK+1*, TASK+2*, TASK+3, TASK+7, TASK+8*, TASK+16
, TASK+22*, TASK+25*, TASK+27*, TASK+29*, TASK+32*, TASK+34*, TASK+35*, TASK+36, TASK+37, TASK+38
, TASK+39, TASK+40, VIEW+2~, VIEW+3*, VIEW+4, VIEW+8*, VIEW+9, VIEW+10, VIEW+11, VIEW+14*
, VIEW+15, VIEW+16, VIEW+18, DISPLAY~, DISPLAY+3, DISPLAY+4, MAIL~, MAIL+8, MAIL+9, MAIL+11
, ADD~
LOC( VIEW+4*, VIEW+6, ADD+1*
NODE TASK+14~
NODE( TASK+14*, TASK+15, TASK+21
NODE(8925 TASK+23*, TASK+24, TASK+26, TASK+28, TASK+30, TASK+31, TASK+33
POP EN+1~, VIEW+18~, VIEW+21
PRM FMR~, FMR+3
QM QM~, QM+2
S SETSTR~, SETSTR+1
SCR FMR~, FMR+3
SEC CONVERT~, CONVERT+1, CONVERT+2, CONVERT+3
TIUDA TASK+11~*, TASK+12, TASK+13, TASK+14, TASK+18, TASK+20, TASK+23
TIUDIV1 TASK+19~
TIUPRM0 TASK+19~
TIUPRM1 TASK+19~
TXT VIEW+2~, VIEW+5*
U EN+2, EN+3, EN+8, EN+13, EN+17, EN+18, EN+19, EN+20, EN+22, TASK+7
, TASK+8, TASK+15, TASK+21, TASK+22, TASK+24, TASK+25, TASK+26, TASK+27, TASK+28, TASK+29
, TASK+30, TASK+31, TASK+32, TASK+33, TASK+34, TASK+35, TASK+36, TASK+37, TASK+40, TASK+42
, TASK+43, VIEW+4, VIEW+7, VIEW+8, VIEW+9, VIEW+10, VIEW+11, VIEW+16, MAIL+10, DATE+1
, DATE+2, DATE+5, DATE+7, FMR+7
USER EN+11~, EN+22, TASK~, TASK+8, TASK+15, MAIL+9, MAIL+10, SETUP~, SETUP+3, SIGNER~
, SIGNER+1*
V SETSTR~, SETSTR+1
X EN+1~, EN+5*, EN+10, EN+12*, EN+19*, EN+20, EN+22*, EN+23*, TASK~, TASK+6*
, VIEW~, VIEW+1*, VIEW+2*, VIEW+3, VIEW+4, VIEW+5*, VIEW+6*, VIEW+7, VIEW+8, VIEW+13*
, VIEW+14, VIEW+15*, VIEW+21*, VIEW+22*, DISPLAY+3*, DISPLAY+4*, CLS~*, DATE~, DATE+3*, DATE+4*
, DATE+6, DATE+7, FLU+1~, FLU+5, FMR+2~, FMR+7, QM+1~, SETSTR~, SETSTR+1, SETUP~
, SETUP+1*, SETUP+2, SETUP+3, SIGNER~, SIGNER+1*
X("""" QM+1*
XMDUN MAIL+2~
XMDUZ MAIL+2~, MAIL+3*
XMSUB MAIL+2~, MAIL+3*
XMTEXT MAIL+2~, MAIL+3*, MAIL+5, MAIL+6, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11
XMY MAIL+2~
XMY( MAIL+4*
XMZ MAIL+2~
Y EN+1~, EN+5*, EN+12*, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, TASK+2~
, TASK+6*, TASK+7, VIEW+2~, VIEW+6*, VIEW+7*, VIEW+9*, VIEW+10*, VIEW+11*, VIEW+12, FLU+1~
, FLU+5, FMR+2~, FMR+7
Y(0 FMR+7
ZTDESC EN+24~*
ZTDTH EN+24~*
ZTIO EN+24~*
>> ZTREQ TASK+9*
ZTRTN EN+24~, EN+26*
ZTSAVE EN+24~, VIEW+18~, VIEW+21
ZTSAVE( VIEW+18*
ZTSAVE("ACTION" EN+25*
ZTSAVE("DATE(""Begin"")" EN+25*
ZTSAVE("DATE(""End"")" EN+25*
ZTSAVE("DUZ" EN+25*
ZTSAVE("LOC" EN+25*
ZTSAVE("USER" EN+25*
ZTSK EN+24~, EN+26

Marked Items

Name Field # of Occurrence
$T(INTRO+X EN+5
$T(MENU+X EN+12
$T(RPT+(3) VIEW+5
$T(RPT+X VIEW+5
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