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

Package: Text Integration Utility

Routine: TIUALRT


Information

TIUALRT ; SLC/JER,AJB - SEND ALERTS ;11/08/23 10:36

Source Information

Source file <TIUALRT.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 6 ($$PERSNAME,$$PNAME,$$PTNAME,DOCPRM)^TIULC1  SETPARM^TIULE  $$DOCCHK^TIULRR  ($$DATE,$$NAME)^TIULS  PATVADPT^TIULV  $$READ^TIUU  
Kernel 5 ^%ZTLOAD  $$UP^XLFSTR  (DELETEA,SETUP)^XQALERT  $$ACTVSURO^XQALSURO  $$PROVIDER^XUSER  
VA FileMan 2 FILE^DIE  $$GET1^DIQ  
List Manager 1 EN^VALM  
Order Entry Results Reporting 1 $$ONEHR^ORACCESS  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
Text Integration Utility 42 TIU358P  TIUADD  TIUALFUN  TIUASCU  TIUCCRHL7P2  TIUCCRHL7P3  TIUDCT  TIUDSCNV  
TIUEDI4  TIUEDIT  TIUGEDIT  TIUHL7P3  TIUHL7U2  TIULX  TIUPEVN1  TIUPNAPI  
TIUPNCV8  TIUPS98  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN  TIUPUTU  TIURA  
TIURA1  TIURA3  TIURB2  TIURC  TIURD  TIURD1  TIURD2  TIURD3  
TIURE  TIURS  TIURS1  TIURT  TIUSROI  TIUSRVA  TIUSRVP  TIUSRVPT  
TIUT  TIUTSK  

Entry Points

Name Comments DBIA/ICR reference
SEND(DA,OVERDUE,TIUXQA) ;
; DA document IEN
; [OVERDUE] send alert as overdue
; [TIUXQA] third party alerts, passed by reference, TIUXQA(<IEN>)="" recipients
; TIUXQA=0 delete current alerts, TIUXQA=1 keep current alerts
TPA
XQADATA(DA,PT,AS) ; setup message text
; DA document IEN PT patient demographics [passed by reference]
; AS additional signer [default 0]
ACT ; Act on alerts
ISSIGNR(DA,USER) ; *357, is user an additional signer (or surrogate for) and is signature outstanding?
TASKALRT(DA) ; resend alert(s) for a document via a delayed task *357
SENDTRAN(DA) ; Generate "Send back to transcription" alert
SENDADD(DA) ; Generates "Addendum added" alert
ACTADD ; Act on ADDENDUM alerts
ALERTDEL(DA) ; Delete alerts associated with a given document
ADDENDEL(DA) ; Delete alert associated with a Addendum added

External References

Name Field # of Occurrence
^%ZTLOAD TASKALRT+2
FILE^DIE SEND+25, SEND+28
$$GET1^DIQ XQADATA+5
$$ONEHR^ORACCESS ACT+2
$$PERSNAME^TIULC1 SENDADD+15
$$PNAME^TIULC1 XQADATA+6, SENDTRAN+12, SENDADD+16
$$PTNAME^TIULC1 SENDADD+14
DOCPRM^TIULC1 SEND+10, SENDADD+11
SETPARM^TIULE SEND+10, ACT+13, SENDTRAN+4, SENDADD+4, ACTADD+7
$$DOCCHK^TIULRR ACT+8
$$DATE^TIULS XQADATA+7, SENDTRAN+11, SENDADD+18
$$NAME^TIULS SENDADD+15
PATVADPT^TIULV TPA+3, SENDTRAN+14, SENDADD+19
$$READ^TIUU ACT+5, ACT+11, ACTADD+6
EN^VALM ACT+14, ACTADD+8
$$UP^XLFSTR XQADATA+5
DELETEA^XQALERT ALERTDEL+2, ADDENDEL+2
SETUP^XQALERT TPA+5, TPA+12, SENDTRAN+22, SENDADD+32
$$ACTVSURO^XQALSURO ISSIGNR+2
$$PROVIDER^XUSER SENDTRAN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Site has migrated to Electronic Health Record."
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: !,"TIU List Manager access not allowed."
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Ok, no harm done...",!
  • Line Location: ACT+10
Function Call: WRITE
  • Prompt: !!,"A NEW Addendum has been added to your document...",!
  • Line Location: ACTADD+4
Routine Call
  • DIE
  • Line Location:
    • SEND+25
    • SEND+28
Routine Call
  • VALM
  • Line Location:
    • ACT+14
    • ACTADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SENDTRAN+10
^TIU(8925 - [#8925] SEND+6, SEND+7, ACT+7, ACT+12, SENDTRAN+8, SENDTRAN+9, SENDADD+8, SENDADD+12, SENDADD+13, SENDADD+23
ACTADD+3
^TIU(8925.1 - [#8925.1] SEND+8
^TIU(8925.7 - [#8925.7] TPA+2, TPA+6, TPA+7, TPA+8!, TPA+9!, TPA+10, ISSIGNR+2, ISSIGNR+3
^VA(200 - [#200] SENDADD+25, SENDADD+28

Label References

Name Line Occurrences
$$ISSIGNR ACT+12
ADDENDEL SENDADD+5, ACTADD+3
ALERTDEL SEND+9, ACT+7, SENDTRAN+5
SENDADD TPA+1
TASKALRT ISSIGNR+5
TPA SEND+20
XQADATA TPA+5, TPA+12

Naked Globals

Name Field # of Occurrence
^(12 SEND+6, SENDTRAN+8, SENDADD+13, SENDADD+23
^(13 SEND+6, SENDTRAN+8, SENDADD+12, SENDADD+13
^(14 SENDADD+12
^(15 SEND+7, SENDTRAN+9, SENDADD+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDENDUM SEND+5~, SEND+8*, TPA+1
AS XQADATA~, XQADATA+8
D0 TPA+3~
DA SEND~, SEND+6, SEND+7, SEND+9, SEND+10, SEND+25, SEND+28, TPA+1, TPA+2, TPA+5
TPA+6, TPA+7, TPA+8, TPA+9, TPA+12, XQADATA~, XQADATA+3, XQADATA+5, ISSIGNR~, ISSIGNR+2
, ISSIGNR+3, ISSIGNR+5, TASKALRT~, TASKALRT+1, SENDTRAN~, SENDTRAN+5, SENDTRAN+8, SENDTRAN+9, SENDTRAN+20, SENDADD~
, SENDADD+5, SENDADD+8, SENDADD+11, SENDADD+12, SENDADD+30, ALERTDEL~, ALERTDEL+1, ADDENDEL~, ADDENDEL+1
DT SENDADD+17
DUZ ACT+12, SENDADD+28
FDA SEND+5~
FDA(8925 SEND+25*, SEND+28*
I TPA+7~*, TPA+8, TPA+9, TPA+10
NODE SEND+5~
NODE(0 SEND+6*, SEND+8, SEND+10, SEND+15, SEND+16, TPA+3, TPA+6, XQADATA+3, XQADATA+6
NODE(12 SEND+6*, SEND+14, SEND+16, SEND+17, SEND+18, SEND+28, TPA+7, TPA+8, TPA+9
NODE(13 SEND+6*, SEND+21, SEND+22, XQADATA+7
NODE(14 SEND+7*
NODE(15 SEND+7*, SEND+17, SEND+19
NODE0 ISSIGNR+3~*, ISSIGNR+4
OVERDUE SEND~, SEND+7*, XQADATA+7
PT TPA+3~, TPA+5, TPA+12, XQADATA~
PT("PNM" XQADATA+4
PT("SSN" XQADATA+4
RSTOK ACT+1~, ACT+8*, ACT+9
TIU SEND+16~, SENDTRAN+1~, SENDTRAN+14, SENDADD+1~, SENDADD+19
TIU("Attendin g Physician" , SEND+18*, SEND+26, SEND+27
TIU("Author/Dictator" SEND+16*, SEND+23, SEND+24
TIU("Co-signa ture Date/Time" , SEND+19*, SEND+33
TIU("Expected Co-signer" , SEND+18*, SEND+26, SEND+27*, SEND+33, SEND+35, XQADATA+5,  Signer" , SEND+17*, SEND+23
, SEND+24*, SEND+25, SEND+30, SEND+31
TIU("SSN" SENDTRAN+15, SENDADD+20
TIU("Signatur e Date/Time" , SEND+17*, SEND+30, SEND+34
TIU("Status" SEND+16*, SEND+20, SEND+21, SEND+22, SEND+31, SEND+33, XQADATA+5, XQADATA+8
TIU0 SENDTRAN+1~, SENDTRAN+8*, SENDTRAN+10, SENDTRAN+11, SENDTRAN+12, SENDTRAN+14, SENDADD+1~, SENDADD+8*, SENDADD+10, SENDADD+11
, SENDADD+13, SENDADD+14, SENDADD+19, SENDADD+23
TIU12 SENDTRAN+2~, SENDTRAN+8*, SENDTRAN+13, SENDADD+1~, SENDADD+12*, SENDADD+15
TIU13 SENDTRAN+2~, SENDTRAN+8*, SENDTRAN+13, SENDADD+1~, SENDADD+12*, SENDADD+21
TIU14 SENDTRAN+2~, SENDTRAN+9*, SENDADD+1~, SENDADD+12*
TIU15 SENDTRAN+2~, SENDTRAN+9*, SENDADD+1~, SENDADD+12*
TIUAAALRT SEND+5~, SEND+11*, TPA+1
TIUADDL SEND+11, TASKALRT+1~*
TIUAS ISSIGNR+1~*, ISSIGNR+2*, ISSIGNR+3
TIUDA ACT+1~, ACT+6*, ACT+7, ACT+8, ACT+12, ACTADD+1~, ACTADD+2*, ACTADD+3
TIUDATE SENDADD+2~, SENDADD+17*, SENDADD+18*, SENDADD+31
TIUDPRM SEND+5~, SEND+10, SENDADD+1~, SENDADD+11
TIUDPRM(0 SEND+10*, SEND+12, SEND+21, SEND+22, SEND+30, SEND+34, XQADATA+5, SENDADD+11
TIUDPRM(5 SEND+10*
TIUECSNR SENDADD+3~, SENDADD+23*, SENDADD+28
TIUEDT SENDTRAN+1~, SENDTRAN+11*
TIUESNM SENDADD+2~, SENDADD+15*, SENDADD+31
TIUESNR SENDTRAN+2~, SENDTRAN+13*, SENDTRAN+19, SENDADD+2~, SENDADD+23*, SENDADD+25
TIUMSG SENDTRAN+1~, SENDTRAN+19*, SENDTRAN+21
TIUO0 SENDADD+2~, SENDADD+13*, SENDADD+16
TIUO12 SENDADD+2~, SENDADD+13*
TIUO13 SENDADD+2~, SENDADD+13*, SENDADD+17
TIUPNM SENDTRAN+1~, SENDTRAN+10*, SENDTRAN+15, SENDTRAN+21, SENDADD+1~, SENDADD+14*, SENDADD+20, SENDADD+31
TIUPRM0 SEND+5~, ACT+1~, ACT+13, SENDTRAN+4, SENDADD+4, ACTADD+1~, ACTADD+7
TIUPRM1 SEND+5~, SEND+13, SEND+14, ACT+1~, ACT+13, SENDTRAN+4, SENDTRAN+7, SENDADD+4, SENDADD+7, ACTADD+1~
ACTADD+7
TIUPRM3 ACT+1~, ACTADD+1~
TIUQUIK ACT+1~*, ACTADD+1~*
TIUSSN SENDTRAN+1~, SENDTRAN+15*, SENDTRAN+21, SENDADD+1~, SENDADD+20*, SENDADD+31
TIUTITLE SENDADD+1~, SENDADD+16*, SENDADD+31
TIUTRAN SENDTRAN+1~, SENDTRAN+13*, SENDTRAN+17, SENDTRAN+19, SENDADD+1~, SENDADD+21*, SENDADD+25, SENDADD+28
TIUTYP SENDTRAN+2~, SENDTRAN+12*, SENDTRAN+21
TIUXQA SEND~, SEND+9, SEND+20, TPA*, TPA+5
TIUXQA( TPA
TIUY ISSIGNR+1~*, ISSIGNR+2, ISSIGNR+4*, ISSIGNR+5, ISSIGNR+6
U SEND+8, SEND+13, SEND+14, SEND+15, SEND+16, SEND+17, SEND+18, SEND+19, SEND+21, SEND+22
, SEND+28, SEND+30, SEND+34, TPA+3, TPA+6, TPA+9, TPA+10, XQADATA+3, XQADATA+5, XQADATA+6
ACT+6, ACT+12, ISSIGNR+4, SENDTRAN+7, SENDTRAN+10, SENDTRAN+11, SENDTRAN+13, SENDTRAN+14, SENDADD+7, SENDADD+10
, SENDADD+11, SENDADD+13, SENDADD+14, SENDADD+15, SENDADD+17, SENDADD+19, SENDADD+21, SENDADD+23, SENDADD+30, ACTADD+2
ACTADD+5
USER ISSIGNR~, ISSIGNR+2
USR TPA+10~*
XQA SEND+5~, TPA+2, TPA+5!, TPA+11, SENDTRAN+1~, SENDTRAN+18, SENDADD+2~, SENDADD+29, ALERTDEL+1~, ADDENDEL+1~
XQA( SEND+31*, SEND+35*, TPA*, TPA+10*, SENDTRAN+17*, SENDADD+25*, SENDADD+28*
XQAARCH SEND+5~, XQADATA+3*
XQADATA SEND+5~, XQADATA+3*, ACT+6, SENDADD+2~, SENDADD+30*, ACTADD+2
XQADFN SEND+5~, XQADATA+3*
XQAFLG SENDADD+2~
XQAID SEND+5~, XQADATA+3*, SENDTRAN+3~, SENDTRAN+20*, SENDADD+3~, SENDADD+30*, ALERTDEL+1~*, ADDENDEL+1~*
XQAKILL ACT+1!, ACT+12*, ACTADD+1!, ACTADD+2*, ALERTDEL+1~, ADDENDEL+1~
XQALERR TPA+3~
XQAMSG SEND+5~, XQADATA+4*, XQADATA+5*, XQADATA+6*, XQADATA+7*, XQADATA+8*, SENDTRAN+1~, SENDTRAN+21*, SENDADD+2~, SENDADD+31*
XQAROU SEND+5~, XQADATA+3*, SENDADD+2~, SENDADD+30*
>> XQX ACTADD+5
ZTDESC TASKALRT+1~*
ZTDTH TASKALRT+1~*
ZTIO TASKALRT+1~, TASKALRT+2*
>> ZTREQ SEND+7*
ZTRTN TASKALRT+1~, TASKALRT+2*
ZTSAVE TASKALRT+1~
ZTSAVE("DA" TASKALRT+2*
ZTSAVE("TIUADDL" TASKALRT+2*
ZTSK TASKALRT+1~
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