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 |  All
Print Page as PDF
Routine: TIURS1

Package: Text Integration Utility

Routine: TIURS1


Information

TIURS1 ; SLC/JER - Additional /es/ actions ; 11/21/12 4:18pm

Source Information

Source file <TIURS1.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Text Integration Utility 23 SEND^TIUALRT  ($$CLASS,CHANGE,CONSCT)^TIUCNSLT  $$CLASS^TIUCP  $$DEVICE^TIUDEV  AUDIT^TIUEDI1  $$DADORKID^TIUGBR  $$ASKSIG^TIULA1  $$ASKTITLE^TIULA3  
($$CHKSUM,$$NOW)^TIULC  ($$CLINDOC,$$DOCCLASS,$$PNAME,$$PTNAME,DOCPRM)^TIULC1  SETPARM^TIULE  $$EMPTYDOC^TIULF  FIXLSTNW^TIULM  ($$CANDO,$$REQCOSIG,$$REQCPF)^TIULP  $$DOCRES^TIULRR  $$ISA^TIULX  
RPC^TIUPD  PRFCT^TIUPRF1  WTRMARK^TIURB3  UPRBLD^TIURL  ($$ASKCPF,$$ASKCSNR,ES)^TIURS  ADDSIG^TIURS1  $$READ^TIUU  
List Manager 4 EN^VALM  (CLEAR,FULL)^VALM1  CNTRL^VALM10  EN^VALM2  
Kernel 1 ^%ZISC  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
Text Integration Utility 16 TIU ACTION CHANGE TITLE  TIU ACTION COMPLETE DOCUMENTS  TIU ACTION SIGN/COSIGN  TIU BROWSE ACTION CHANGE TITLE  TIUGR  TIURA  TIURA1  TIURA3  
TIURB  TIURB3  TIURC  TIURC1  TIURD  TIURS  TIURS1  TIUSRVP2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ELSIG ; Sign rec
ELSIGX
VMSG(TIULST,TIUDAARY,ACTION) ; Set VALMSG for messagebar, bold changed items
NEWLST(TIULST,TIUDAARY) ; Return TIULST with updated item numbers
MULTIPRN(TIUSLST,TIUIO) ; ask device
LIST(LIST) ; build print list
ADDSIG(TIUDA,DA) ; Apply extra signatures to a document
CNVPOST ; Change Titles/Convert Postings
CNVPOST1 ; Convert Single Posting to another title
POST1Q ;clean up, linetag put in with *171
TLDIE(DA,TIUTITL) ; Change title of DA to TIUTITL

External References

Name Field # of Occurrence
^%ZISC MULTIPRN+10
^DIE ADDSIG+4, TLDIE+3
SEND^TIUALRT ADDSIG+5
$$CLASS^TIUCNSLT CNVPOST1+19
CHANGE^TIUCNSLT CNVPOST1+21
CONSCT^TIUCNSLT CNVPOST1+25
$$CLASS^TIUCP ELSIG+36
$$DEVICE^TIUDEV MULTIPRN+8
AUDIT^TIUEDI1 CNVPOST1+33
$$DADORKID^TIUGBR CNVPOST1+10
$$ASKSIG^TIULA1 ELSIG+69
$$ASKTITLE^TIULA3 CNVPOST1+18
$$CHKSUM^TIULC CNVPOST1+32
$$NOW^TIULC ADDSIG+3
$$CLINDOC^TIULC1 CNVPOST1+18
$$DOCCLASS^TIULC1 TLDIE+2
$$PNAME^TIULC1 ELSIG+20
$$PTNAME^TIULC1 ELSIG+39, ELSIG+51
DOCPRM^TIULC1 ELSIG+22
SETPARM^TIULE ELSIG+2
$$EMPTYDOC^TIULF ELSIG+59
FIXLSTNW^TIULM ELSIG+70
$$CANDO^TIULP ELSIG+23, CNVPOST+13, CNVPOST1+9
$$REQCOSIG^TIULP ELSIG+48
$$REQCPF^TIULP ELSIG+36
$$DOCRES^TIULRR ELSIG+11, CNVPOST+9
$$ISA^TIULX ELSIG+36, CNVPOST1+20
RPC^TIUPD ELSIG+81
PRFCT^TIUPRF1 CNVPOST1+26
WTRMARK^TIURB3 CNVPOST1+29
UPRBLD^TIURL ELSIGX+2, CNVPOST+23
$$ASKCPF^TIURS ELSIG+41
$$ASKCSNR^TIURS ELSIG+52
ES^TIURS ELSIG+80
ADDSIG^TIURS1 ELSIG+79
$$READ^TIUU ELSIG+14, ELSIG+31, ELSIG+46, ELSIG+57, ELSIG+62, CNVPOST+12, CNVPOST+16, CNVPOST1+13, CNVPOST1+17, CNVPOST1+23
EN^VALM ELSIG+64, CNVPOST+18
CLEAR^VALM1 ELSIG+5
FULL^VALM1 ELSIG+28, ELSIG+71, ELSIG+82, CNVPOST+5, CNVPOST1+7
CNTRL^VALM10 VMSG+19
EN^VALM2 ELSIG+4, CNVPOST+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Electronic signature not yet enabled."
  • Line Location: ELSIG+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: ELSIG+13
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",$P(ASK,U,2),!
  • Line Location: ELSIG+29
Function Call: WRITE
  • Prompt: !,"Removed from signature list.",!
  • Line Location: ELSIG+30
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for "
  • Line Location: ELSIG+38
Function Call: WRITE
  • Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need Procedure Summary Code and Date/Time Performed..."
  • Line Location: ELSIG+39
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": MUST have a Procedure Summary Code and Date/Time Performed",!,"before you may sign."
  • Line Location: ELSIG+44
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+45
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": ",TIUTYPE," for "
  • Line Location: ELSIG+50
Function Call: WRITE
  • Prompt: $$PTNAME^TIULC1($P(TIU0,U,2))," will need cosignature..."
  • Line Location: ELSIG+51
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": MUST have a cosigner, before you may sign."
  • Line Location: ELSIG+55
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+56
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": This note contains no text and cannot be signed."
  • Line Location: ELSIG+60
Function Call: WRITE
  • Prompt: !!,"Removed from signature list.",!
  • Line Location: ELSIG+61
Function Call: WRITE
  • Prompt: !!,"Please specify the device for printing item"
  • Line Location: MULTIPRN+5
Function Call: WRITE
  • Prompt: $S(TIUPLIST[",":"s",TIUPLIST["-":"s",1:""),": ",TIUPLIST,!!
  • Line Location: MULTIPRN+6
Function Call: WRITE
  • Prompt: !,"Please finish attaching the interdisciplinary note before changing title.",!
  • Line Location: CNVPOST+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: CNVPOST+11
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUVIEW,U,2),!
  • Line Location: CNVPOST+15
Function Call: WRITE
  • Prompt: !!,$C(7),$P(TIUCHTTL,U,2),!
  • Line Location: CNVPOST1+12
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Another user is editing this entry.",!
  • Line Location: CNVPOST1+16
Routine Call
  • DIE
  • Line Location:
    • ADDSIG+4
    • TLDIE+3
Routine Call
  • VALM
  • Line Location:
    • ELSIG+64
    • CNVPOST+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] ELSIG+15, ELSIG+25, ELSIG+36, ELSIG+40, CNVPOST1+5, CNVPOST1+14, CNVPOST1+31, POST1Q+1
^TIU(8925.7 - [#8925.7] ELSIG+18
^TMP("TIUR" VMSG+17, NEWLST+4
^TMP("TIURIDX" ELSIG+10, ELSIG+75, CNVPOST+8

Label References

Name Line Occurrences
$$LIST MULTIPRN+4
$$NEWLST VMSG+7
ELSIGX ELSIG+3, ELSIG+65
MULTIPRN ELSIG+72
POST1Q CNVPOST1+22, CNVPOST1+28, CNVPOST1+29
TLDIE CNVPOST1+30
VMSG ELSIGX+4, CNVPOST+25

Naked Globals

Name Field # of Occurrence
^(12 ELSIG+15
^(15 ELSIG+15
^(702 ELSIG+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTFIRST VMSG+1~, VMSG+2*, VMSG+4, VMSG+9, VMSG+13
ACTION VMSG~, VMSG+2, VMSG+5, VMSG+6*, VMSG+10, VMSG+11, VMSG+14, VMSG+15
ASK ELSIG+8~, ELSIG+9*, ELSIG+23*, ELSIG+24, ELSIG+26*, ELSIG+27, ELSIG+29
CHKSUM CNVPOST1+1~, CNVPOST1+32*, CNVPOST1+33
COSIGNER ELSIG+8~, ELSIG+17*, ELSIG+18, ELSIG+49~, ELSIG+52*, ELSIG+53
DA ADDSIG~, CNVPOST1+2~, TLDIE~
DFN CNVPOST+7~
DIE ADDSIG+1~, ADDSIG+2*, CNVPOST1+1~, TLDIE+1~*
DIROUT CNVPOST+1~, CNVPOST+6
DR ADDSIG+1~, ADDSIG+3*, CNVPOST1+1~, TLDIE+1~, TLDIE+2*
DUZ ELSIG+18, ELSIG+48, ELSIG+52, ADDSIG+3
IO MULTIPRN+1~
>> IOINHI VMSG+19
>> IOINORM VMSG+19
LINENO VMSG+1~, VMSG+18*, VMSG+19
LIST LIST~
LIST( LIST+2, LIST+3
RSTRCTD ELSIG+8~, ELSIG+11*, ELSIG+12, CNVPOST+7~, CNVPOST+9*, CNVPOST+10
SIGNER ELSIG+8~, ELSIG+16*, ELSIG+18
TIU ELSIG+63~, CNVPOST+7~
TIU0 ELSIG+7~, ELSIG+15*, ELSIG+19, ELSIG+20, ELSIG+22, ELSIG+36, ELSIG+39, ELSIG+48, ELSIG+51
TIU12 ELSIG+7~, ELSIG+15*, ELSIG+16, ELSIG+17, ELSIG+48
TIU15 ELSIG+7~, ELSIG+15*, ELSIG+48
TIUASK MULTIPRN+1~
TIUCHNG ELSIG+1~, ELSIGX+2, CNVPOST+1~, CNVPOST+17*, CNVPOST+20, CNVPOST+23, CNVPOST1+5*, CNVPOST1+31*
TIUCHNG("ADDM" ELSIGX
TIUCHNG("DELETE" ELSIGX
TIUCHNG("RBLD" ELSIGX*
TIUCHNG("UPDATE" ELSIGX+1*, CNVPOST+22*
TIUCHNGD CNVPOST1+3~, CNVPOST1+29, CNVPOST1+30
TIUCHTTL CNVPOST1+1~, CNVPOST1+8*, CNVPOST1+9*, CNVPOST1+10*, CNVPOST1+11, CNVPOST1+12
TIUCLSS CNVPOST1+1~, CNVPOST1+19*, CNVPOST1+20
TIUCON CNVPOST1+1~, CNVPOST1+20*, CNVPOST1+21
TIUCPFLD ELSIG+37~, ELSIG+40*, ELSIG+41*, ELSIG+42
TIUD0 CNVPOST1+1~, CNVPOST1+5*, CNVPOST1+8, CNVPOST1+18, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+31
TIUDA ELSIG+8~, ELSIG+11*, ELSIG+15, ELSIG+18, ELSIG+22, ELSIG+23, ELSIG+25, ELSIG+36, ELSIG+40, ELSIG+41
, ELSIG+48, ELSIG+52, ELSIG+59, ELSIG+75*, ELSIG+76, ELSIG+79, ELSIG+80, ELSIG+81, NEWLST+1~, NEWLST+4*
, ADDSIG~, ADDSIG+5, CNVPOST+7~, CNVPOST+9*, CNVPOST+13, CNVPOST+19, CNVPOST1+5, CNVPOST1+9, CNVPOST1+10, CNVPOST1+14
, CNVPOST1+18, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+29, CNVPOST1+30, CNVPOST1+31, CNVPOST1+32, CNVPOST1+33, POST1Q+1
TIUDAARY ELSIG+1~, ELSIGX+4, VMSG~, VMSG+7, NEWLST~, CNVPOST+1~, CNVPOST+25
TIUDAARY( ELSIG+76*, NEWLST+4, CNVPOST+19*
TIUDATA ELSIG+8~, ELSIG+10*, ELSIG+11, ELSIG+75*, CNVPOST+7~, CNVPOST+8*, CNVPOST+9
TIUDPRM ELSIG+7~, ELSIG+22
TIUES ELSIG+1~, ELSIG+69*, ELSIG+70, ELSIG+80
TIUEVNT ELSIG+7~, ELSIG+21*, ELSIG+23
>> TIUGLINK CNVPOST+2
TIUI ELSIG+1~, ELSIG+5*, ELSIG+6*, ELSIG+10, ELSIG+29, ELSIG+38, ELSIG+44, ELSIG+50, ELSIG+55, ELSIG+60
, ELSIG+73*, ELSIG+75, ELSIG+76, ELSIG+77, ELSIG+78, ELSIG+81, VMSG+1~, VMSG+18*, NEWLST+1~, NEWLST+3*
, MULTIPRN+1~*, MULTIPRN+2*, LIST+1~*, LIST+2*, LIST+3, CNVPOST+1~, CNVPOST+4*, CNVPOST+6*, CNVPOST+8, CNVPOST+19
, CNVPOST+20
TIUIO ELSIG+68~, ELSIG+72, ELSIG+81, MULTIPRN~, MULTIPRN+3*, MULTIPRN+8, MULTIPRN+9*
TIUION MULTIPRN+1~, MULTIPRN+8*, MULTIPRN+9
TIULNO NEWLST+1~, NEWLST+3*, NEWLST+4
TIULST ELSIG+1~, ELSIG+77*, ELSIGX+4, VMSG~, VMSG+3, VMSG+7*, VMSG+8, VMSG+10, VMSG+11, VMSG+12
, VMSG+15, VMSG+18, NEWLST~, NEWLST+3, CNVPOST+1~, CNVPOST+20*, CNVPOST+25
TIUNLNO NEWLST+1~, NEWLST+4*, NEWLST+5
TIUNLST NEWLST+1~, NEWLST+2*, NEWLST+5*, NEWLST+6
TIUNOCS CNVPOST1+21, CNVPOST1+22, POST1Q+2!
TIUPLIST MULTIPRN+1~, MULTIPRN+4*, MULTIPRN+6
TIUPOK MULTIPRN+1~*, MULTIPRN+2*, MULTIPRN+3
TIUPOP ELSIG+7~, ELSIG+9*, ELSIG+36, ELSIG+43*, ELSIG+48, ELSIG+54*
>> TIUPRM0 ELSIG+2, ELSIG+3
TIUPY ELSIG+74~, ELSIG+81
TIUQUIT CNVPOST1+1~, CNVPOST1+28, CNVPOST1+29
TIURJCT ELSIG+1~
TIUSCRN MULTIPRN+1~, MULTIPRN+7*, MULTIPRN+8
TIUSLST ELSIG+1~, ELSIG+65, ELSIG+67, ELSIG+72, MULTIPRN~, MULTIPRN+4
TIUSLST( ELSIG+73, ELSIG+78, ELSIG+81, MULTIPRN+2
TIUSTAT ELSIG+7~, ELSIG+19*, ELSIG+21
TIUTITL CNVPOST1+1~, CNVPOST1+18*, CNVPOST1+20, CNVPOST1+21, CNVPOST1+25, CNVPOST1+26, CNVPOST1+29, CNVPOST1+30, TLDIE~, TLDIE+2
TIUTYPE ELSIG+7~, ELSIG+20*, ELSIG+38, ELSIG+50
TIUVALMY ELSIGX+2*!, CNVPOST+22*, CNVPOST+23!
TIUVIEW CNVPOST+1~, CNVPOST+7~, CNVPOST+13*, CNVPOST+14, CNVPOST+15
TIUY ELSIG+63~, LIST+1~, LIST+3*, LIST+4
U ELSIG+3, ELSIG+11, ELSIG+16, ELSIG+17, ELSIG+19, ELSIG+27, ELSIG+29, ELSIG+36, ELSIG+39, ELSIG+40
, ELSIG+48, ELSIG+51, ELSIG+75, ELSIG+78, ELSIG+81, CNVPOST+9, CNVPOST+15, CNVPOST1+12
>> VALM("RM" VMSG+19
>> VALMBCK ELSIGX+3*, CNVPOST+24*
>> VALMSG ELSIG+66*, ELSIG+70*, VMSG+4*, VMSG+5*, VMSG+10*, VMSG+11*, VMSG+14*, VMSG+15*
VALMY ELSIG+4, ELSIG+5, ELSIGX+2!, CNVPOST+3, CNVPOST+7~, CNVPOST+22, CNVPOST+23!
VALMY( ELSIG+6, ELSIG+29!, CNVPOST+6
VALMY(0 CNVPOST+5
X ELSIG+1~, CNVPOST1+2~
X1 ELSIG+1~
XQORM CNVPOST+7~
>> XQORNOD(0 ELSIG+4, CNVPOST+3
XTRASGNR ELSIG+8~, ELSIG+18*, ELSIG+21, ELSIG+36, ELSIG+48, ELSIG+74~, ELSIG+78*, ELSIG+79, ELSIG+80
Y ELSIG+1~, CNVPOST+1~, CNVPOST1+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All