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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: TIURS

Package: Text Integration Utility

Routine: TIURS


Information

TIURS ; SLC/JER - Electronic signature actions ;28-Apr-2014 14:52;DU

Source Information

Source file <TIURS.m>

Call Graph

Call Graph Total: 29

Package Total Call Graph
Text Integration Utility 24 ADD^TIUADD  $$ASURG^TIUADSIG  SEND^TIUALRT  ISCNSLT^TIUCNSLT  $$CLASS^TIUCP  SIGNIRT^TIUDIRT  PRINT^TIUEPRNT  $$ASKSIG^TIULA1  
$$NOW^TIULC  ($$ISADDNDM,$$PERSNAME,$$PNAME,$$POSTSIGN,DOCPRM)^TIULC1  GETTIU^TIULD  ($$PERSPRF,SETPARM)^TIULE  $$EMPTYDOC^TIULF  ($$CANDO,$$REQCOSIG,$$REQCPF)^TIULP  ($$ISA,$$ISDS,$$ISPN)^TIULX  MAIN^TIUPD  
$$FLAG^TIUPRPN3  QUE^TIUPXAP1  ($$CHKVST,$$CHKWKL,EDTENC)^TIUPXAP2  $$LNKVST^TIUPXAP3  ADDSIG^TIURS1  ($$HASKIDS,SETKIDS)^TIUSRVLI  $$READ^TIUU  (CREDIT,REMFLAG)^TIUVSIT  
Authorization Subscription 1 $$ISA^USRLM  
Kernel 1 ^%ZTER  
RPC Broker 1 $$BROKER^XWBLIB  
Registration 1 FULL^VALM1  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Text Integration Utility 11 TIUADD  TIUEDIM  TIUEDIT  TIUEDITR  TIUGEDIT  TIUHL7U1  TIUPNAPI  TIURA  
TIURS1  TIUSROI  TIUSRVP2  
IHS Mods To Text Integration Utilities 1 BTIUEDIT  
Order Entry Results Reporting 1 ORCNOTE  

Entry Points

Name Comments DBIA/ICR reference
AGN
THIRD ;
ACCEPT(TIUSLST,TIUI) ; Accept for signing
ASKCOUT
ASKCPFQ
ASKCSNR(DA,SIGNER) ; Ask cosigner
ASKCPF(DA) ;Ask required clinical procedure fields
EDSIG(TIUDA,TIUADD,TIUPASK) ; interactive sign
AGNCP
ES(DA,TIUES,TIUI) ; ^DIE call for /es/

External References

Name Field # of Occurrence
^%ZTER EDSIG+56
^DIE AGNCP+4, AGN+5, ES+19, ES+25
ADD^TIUADD EDSIG+53
$$ASURG^TIUADSIG EDSIG+11
SEND^TIUALRT ES+26
ISCNSLT^TIUCNSLT ES+65
$$CLASS^TIUCP EDSIG+28
SIGNIRT^TIUDIRT ES+26
PRINT^TIUEPRNT EDSIG+57
$$ASKSIG^TIULA1 EDSIG+46
$$NOW^TIULC ES+5
$$ISADDNDM^TIULC1 EDSIG+50, ES+28
$$PERSNAME^TIULC1 ASKCSNR+3
$$PNAME^TIULC1 EDSIG+15
$$POSTSIGN^TIULC1 ES+68
DOCPRM^TIULC1 EDSIG+55, ES+4
GETTIU^TIULD ES+60
$$PERSPRF^TIULE ASKCSNR+2
SETPARM^TIULE EDSIG+4
$$EMPTYDOC^TIULF EDSIG+45
$$CANDO^TIULP ACCEPT+3, EDSIG+14, THIRD+2
$$REQCOSIG^TIULP EDSIG+34, THIRD+4
$$REQCPF^TIULP EDSIG+28
$$ISA^TIULX EDSIG+28
$$ISDS^TIULX ASKCSNR+5
$$ISPN^TIULX EDSIG+18
MAIN^TIUPD ES+29
$$FLAG^TIUPRPN3 ACCEPT+16
QUE^TIUPXAP1 ES+41, ES+62
$$CHKVST^TIUPXAP2 ES+36
$$CHKWKL^TIUPXAP2 ES+45, ES+48
EDTENC^TIUPXAP2 ES+48
$$LNKVST^TIUPXAP3 ES+57
ADDSIG^TIURS1 EDSIG+48
$$HASKIDS^TIUSRVLI ES+70
SETKIDS^TIUSRVLI ES+73
$$READ^TIUU ACCEPT+8, ACCEPT+13, EDSIG+22, EDSIG+33, EDSIG+38, EDSIG+41, EDSIG+43, EDSIG+45, EDSIG+52, AGNCP+2
, AGN+2, ES+42
CREDIT^TIUVSIT ES+45
REMFLAG^TIUVSIT ES+49
$$ISA^USRLM EDSIG+18, EDSIG+19, EDSIG+20, ES+6
FULL^VALM1 ACCEPT+5, EDSIG+47, ASKCPF+2, ASKCSNR+6
$$BROKER^XWBLIB ES+54

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Document has changed...",!,$P(TIUSGN,U,2)
  • Line Location: ACCEPT+6
Function Call: WRITE
  • Prompt: !!,"Item #",TIUI,": Removed from signature list.",!
  • Line Location: ACCEPT+7
Function Call: WRITE
  • Prompt: !,"Item #",TIUI,": Added to signature list."
  • Line Location: ACCEPT+10
Function Call: WRITE
  • Prompt: !,$P(ASK,U,2)
  • Line Location: EDSIG+21
Function Call: WRITE
  • Prompt: !!,"The Procedure Summary Code and Date/Time Performed MUST be entered before",!,"you may sign.",!
  • Line Location: EDSIG+32
Function Call: WRITE
  • Prompt: !!,"This ",TIUTYPE," MUST have a cosigner before you may sign.",!
  • Line Location: EDSIG+37
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: EDSIG+43
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: EDSIG+43
Function Call: WRITE
  • Prompt: !?5,$C(7),"This note contains no text and cannot be signed.",!
  • Line Location: EDSIG+45
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: EDSIG+45
Function Call: WRITE
  • Prompt: !!,$C(7),"You must designate the Procedure Summary Code and Date/Time Performed...",!
  • Line Location: AGNCP+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: AGNCP+2
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: AGNCP+2
Function Call: WRITE
  • Prompt: !!,$C(7),"You must designate an ",TIUFLD,"...",!
  • Line Location: AGN+0
Function Call: WRITE
  • Prompt: !?5,$C(7),"Another user is editing this entry.",!
  • Line Location: AGN+2
Function Call: WRITE
  • Prompt: ""
  • Condition for execution: $$READ^TIUU("EA","Press RETURN to continue...")
  • Line Location: AGN+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ES+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: ES+43
Routine Call
  • DIE
  • Line Location:
    • AGNCP+4
    • AGN+5
    • ES+19
    • ES+25

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] EDSIG+7, EDSIG+28, EDSIG+29, EDSIG+42, EDSIG+46, AGNCP+1, ASKCPFQ, ASKCPFQ+1, ASKCSNR+5, AGN+1
, ASKCOUT, ASKCOUT+1, ES+3, ES+4, ES+5, ES+7, ES+8, ES+22, ES+28, ES+31
, ES+39, ES+54, ES+61, ES+65, ES+67, ES+68, THIRD+3
^TIU(8925.7 - [#8925.7] EDSIG+10

Label References

Name Line Occurrences
$$ASKCPF EDSIG+30
$$ASKCSNR EDSIG+35
ASKCOUT AGN+2
ASKCPFQ AGNCP+2
ES EDSIG+49
THIRD ES+12

Naked Globals

Name Field # of Occurrence
^(0 ES+54
^(12 EDSIG+7, ES+7
^(15 EDSIG+7
^(702 EDSIG+29, ASKCPFQ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASK EDSIG+1~, EDSIG+14*, EDSIG+16, EDSIG+21
COSIGNER EDSIG+1~, EDSIG+9*, EDSIG+10, EDSIG+34, EDSIG+35*, EDSIG+36, ES+1~, ES+7*, ES+11
CSNEED ES+2~, ES+8*, ES+10, ES+11, ES+15
CSREQ ES+1~, ES+7*, ES+10*, ES+12*, ES+14, ES+15, ES+29, ES+69
D0 ES+55~
DA ASKCPF~, AGNCP+1, ASKCPFQ, ASKCPFQ+1, ASKCSNR~, ASKCSNR+5, AGN+1, ASKCOUT, ASKCOUT+1, ES~
, ES+3, ES+4, ES+5, ES+7, ES+8, ES+22, ES+26, ES+27, ES+28*, ES+29
, ES+31, ES+36, ES+39, ES+45, ES+48, ES+49, ES+54, ES+57, ES+60, ES+61
, ES+65, ES+66*, ES+67, ES+68, ES+70, ES+73, THIRD+2, THIRD+4
DAO ES+2~
DAORIG ES+2~, ES+27*, ES+66
DFN ES+55~, ES+61*
DIE ASKCPF+1~, AGNCP+4*, ASKCSNR+1~, AGN+5*, ES+1~, ES+19*, ES+25*
DR ASKCPF+1~, AGNCP+3*, ASKCSNR+1~, AGN+3*, AGN+4*, ES+1~, ES+14*, ES+16*, ES+17*, ES+18
, ES+20*, ES+22*, ES+23*, ES+24*
DT ES+39
DUZ EDSIG+10, EDSIG+18, EDSIG+19, EDSIG+20, EDSIG+39, ES+6, ES+10, ES+11, ES+14, ES+16
, ES+17, THIRD+4
ESDT ES+1~, ES+5*, ES+14, ES+16, ES+17
SEQUENCE ES+71~, ES+72*
SIGNER EDSIG+1~, EDSIG+8*, EDSIG+10, EDSIG+34, EDSIG+35, EDSIG+39, ASKCSNR~, ASKCSNR+2, ES+1~, ES+7*
, ES+10, ES+11
SVCHIEF ES+1~, ES+6*, ES+10, ES+12
TIU EDSIG+1~, ES+55~, ES+60
TIU0 EDSIG+1~, EDSIG+7*, EDSIG+12, EDSIG+15, EDSIG+18, EDSIG+28, EDSIG+34, EDSIG+55
TIU12 EDSIG+1~, EDSIG+7*, EDSIG+8, EDSIG+9
TIU15 EDSIG+2~, EDSIG+7*, EDSIG+34
TIUACT EDSIG+2~, EDSIG+13*, EDSIG+14, EDSIG+50
TIUADD EDSIG~, EDSIG+6*
TIUADDND EDSIG+51~, EDSIG+52*, EDSIG+53
>> TIUCHNG EDSIG+53, ES+25*
TIUCOM EDSIG+2~, EDSIG+50, EDSIG+51*, EDSIG+53*
TIUCONS ES+64~*, ES+65, ES+66, ES+70
TIUCONT ES+37~
TIUCPFLD EDSIG+2~, EDSIG+28, EDSIG+29*, EDSIG+30*, EDSIG+31
TIUCSPM2 ES+2~, ES+3*, ES+12, THIRD+4*
TIUCSPRM ES+2~, ES+3*, ES+12, THIRD+2*
TIUDA ACCEPT+2, ACCEPT+3, EDSIG~, EDSIG+7, EDSIG+10, EDSIG+11, EDSIG+14, EDSIG+28, EDSIG+29, EDSIG+30
, EDSIG+34, EDSIG+35, EDSIG+42, EDSIG+45, EDSIG+46, EDSIG+48, EDSIG+49, EDSIG+50, EDSIG+53, EDSIG+55
, EDSIG+57, THIRD+3
TIUDCSNR ASKCSNR+1~, ASKCSNR+3*, ASKCSNR+4*
TIUDPRM EDSIG+2~, EDSIG+55, ES+2~, ES+4, ES+45, ES+48
TIUDPRM(0 ACCEPT+11, ACCEPT+15, EDSIG+57
TIUES EDSIG+2~, EDSIG+46*, EDSIG+49, ES~
>> TIUEVNT ACCEPT+2, ACCEPT+3
TIUFLAG ACCEPT+1~, ACCEPT+16*, ACCEPT+17
TIUFLD ASKCSNR+1~, ASKCSNR+5*, AGN, AGN+3
TIUI ACCEPT~, ACCEPT+7, ACCEPT+9, ACCEPT+10, ACCEPT+14, ACCEPT+17, ACCEPT+18, ES~
TIUINT ES+71~, ES+72*, ES+73
TIUK ES+71~, ES+72*, ES+74*, ES+75
TIUKIDS ES+71~, ES+72*, ES+73
TIUKIDS( ES+74, ES+75
TIUMSG ACCEPT+1~, ACCEPT+12*, ACCEPT+13, EDSIG+1~, EDSIG+40*, EDSIG+41
TIUPASK EDSIG~, EDSIG+54
TIUPR ACCEPT+1~, ACCEPT+13*, ACCEPT+14, ACCEPT+15
TIUPREF ASKCSNR+1~, ASKCSNR+2*, ASKCSNR+3
TIUPRINT ES+1~
>> TIUPRM0 EDSIG+4, EDSIG+5
TIUPRMT ES+37~
TIUPSIG ES+2~, ES+68*, ES+69, ES+75
>> TIUQUIT EDSIG+43*
TIUSBY ES+22~*, ES+23
TIUSGN ACCEPT+1~, ACCEPT+2, ACCEPT+3*, ACCEPT+4, ACCEPT+6
>> TIUSIGN EDSIG+3
TIUSLST ACCEPT~
TIUSLST( ACCEPT+9*, ACCEPT+14*, ACCEPT+17*, ACCEPT+18*
TIUSTAT EDSIG+1~, EDSIG+12*, EDSIG+13, EDSIG+39, ES+1~, ES+5*, ES+10, ES+12, ES+13, ES+17
, ES+20, ES+21
TIUSTIS ES+2~, ES+67*, ES+70
TIUSTNOW ES+1~
TIUSTWAS ES+2~, ES+3*, ES+70
TIUTTL ES+2~, ES+68*
TIUTYPE EDSIG+1~, EDSIG+15*, EDSIG+37, EDSIG+40
TIUVSIT ES+55~, ES+57
TIUY ASKCPF+1~, ASKCPFQ+1*, ASKCPFQ+2, ASKCSNR+1~, ASKCOUT+1*, ASKCOUT+2
TYPE THIRD+1~, THIRD+3*, THIRD+4
U ACCEPT+6, ACCEPT+11, ACCEPT+15, ACCEPT+17, ACCEPT+18, EDSIG+5, EDSIG+8, EDSIG+9, EDSIG+12, EDSIG+21
, EDSIG+28, EDSIG+29, EDSIG+34, EDSIG+57, ASKCPFQ+1, ASKCSNR+3, ASKCOUT+1, ES+3, ES+5, ES+7
, ES+8, ES+22, ES+28, ES+31, ES+39, ES+54, ES+61, ES+67, ES+75
>> VALMAR EDSIG+23, EDSIG+47
>> VALMBCK EDSIG+5*, EDSIG+17*, EDSIG+41*
X EDSIG+1~
X1 EDSIG+1~
XTRASGNR ACCEPT+18, EDSIG+2~, EDSIG+10*, EDSIG+11*, EDSIG+13, EDSIG+28, EDSIG+48, EDSIG+49
>> XWBOS ES+19, ES+25, ES+38
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 |  Naked Globals |  Local Variables |  All