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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: TIUSRVA

Package: Text Integration Utility

Routine: TIUSRVA


Information

TIUSRVA ; SLC/JER,AJB - API'S FOR AUTHORIZATION ;11/02/23 11:00

Source Information

Source file <TIUSRVA.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Text Integration Utility 8 $$ASURG^TIUADSIG  TASKALRT^TIUALRT  $$CLASS^TIUCNSLT  $$EXIST^TIUEDI3  DOCPRM^TIULC1  ($$CANDO,$$POSSPRNT,$$REQCOSIG)^TIULP  ($$ISA,$$ISCWAD)^TIULX  $$MAYCHNG^TIURA1  
VA FileMan 3 $$FIND1^DIC  FIELD^DID  $$GET1^DIQ  
Kernel 2 $$PATCH^XPDUTL  $$ACTVSURO^XQALSURO  
Authorization Subscription 1 $$ISA^USRLM  

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

Package Total Caller Graph
Text Integration Utility 17 TIU AUTHORIZATION  TIU CAN CHANGE COSIGNER?  TIU CAN PRINT WORK/CHART COPY  TIU GET DOCUMENT TITLE  TIU GET DS URGENCIES  TIU HAS AUTHOR SIGNED?  TIU ID CAN ATTACH  TIU ID CAN RECEIVE  
TIU JUSTIFY DELETE?  TIU NEED TO SIGN?  TIU ONE VISIT NOTE?  TIU REQUIRES COSIGNATURE  TIU USER INACTIVE?  TIU WHICH SIGNATURE ACTION  TIUHL7P3  TIUSRVP  
TIUSRVP1  
Clinical Procedures 4 MDCLIO1  MDPS1  MDPS4  MDPSU  
Mental Health 4 YTQAPI9  YTQCONS  YTQRQAD3  YTQTIU  
Order Entry Results Reporting 2 ORPDMP  ORVIMM  

Entry Points

Name Comments DBIA/ICR reference
REQCOS(TIUY,TIUTYP,TIUDA,TIUSER,TIUDT) ; Evaluate cosignature requirement
; Initialize return value
URGENCY(TIUY) ; -- retrieve set values from dd for discharge summary urgency
CANDO(TIUY,TIUDA,TIUACT) ; Boolean function to evaluate privilege
NEEDCS(TIUDA) ; Does user need a cosigner?
USRINACT(TIUY,TIUDA) ; Is user inactive?
AUTHSIGN(TIUY,TIUDA,TIUUSR) ; Has Author signed?
; if TIUY =
; 0 = Author has NOT signed & TIUUSR = Expected Cosigner
; 1 = Author HAS signed or TIUUSR '= Expected Cosigner
TIUVISIT(TIUY,DOCTYP,DFN,VISIT) ; Check for a 1 time only doc
; TIUY = return value
; = 0 if can add more than one or none already exist
; = 1 if cannot add more than one and one already exists
; DOCTYP = Pointer to ^TIU(8925.1, TIU DOCUMENT DEFINITION
; DFN = Patient IEN
; VISIT = Visit String "LOC;VDATE;VTYP"
; *289 ajb
WHATACT(TIUY,TIUDA) ; Evaluate/return whether signature or cosignature
CANCHCOS(TIUY,TIUDA) ; Evaluate/return whether user can change cosigner
NEEDJUST(TIUY,TIUDA) ; Is justification required for deletion?
GETTITLE(TIUY,TIUDA) ; Get the title from a TIU Document Record
CANATTCH(TIUY,TIUDA) ; Can this document be attached as an ID Child
CANRCV(TIUY,TIUDA) ; Can this document receive an ID Child?
WORKCHRT(TIUY,TIUDA) ; RPC: Can user print Work or Chart copy of document
; TIUDA=IEN of docmt
NDTOSIGN(TIUY,TIUDA) ; current user need to sign this document? *355 ajb

External References

Name Field # of Occurrence
$$FIND1^DIC TIUVISIT+15
FIELD^DID URGENCY+2
$$GET1^DIQ USRINACT+1
$$ASURG^TIUADSIG NEEDCS+6, WHATACT+5
TASKALRT^TIUALRT NDTOSIGN+14
$$CLASS^TIUCNSLT CANATTCH+9
$$EXIST^TIUEDI3 TIUVISIT+14, TIUVISIT+18
DOCPRM^TIULC1 TIUVISIT+11, WORKCHRT+10
$$CANDO^TIULP CANDO+10, CANATTCH+11, CANATTCH+14, CANRCV+1, WORKCHRT+7
$$POSSPRNT^TIULP CANATTCH+5
$$REQCOSIG^TIULP REQCOS+8, NEEDCS+8
$$ISA^TIULX TIUVISIT+16, CANATTCH+9
$$ISCWAD^TIULX CANATTCH+7
$$MAYCHNG^TIURA1 CANCHCOS+1
$$ISA^USRLM WORKCHRT+12
$$PATCH^XPDUTL TIUVISIT+8, TIUVISIT+21
$$ACTVSURO^XQALSURO NDTOSIGN+5, NDTOSIGN+9, NDTOSIGN+12, NDTOSIGN+13

Used in RPC

RPC Name Call Tags
TIU REQUIRES COSIGNATURE REQCOS
TIU GET DS URGENCIES URGENCY
TIU AUTHORIZATION CANDO
TIU WHICH SIGNATURE ACTION WHATACT
TIU CAN CHANGE COSIGNER? CANCHCOS
TIU JUSTIFY DELETE? NEEDJUST
TIU GET DOCUMENT TITLE GETTITLE
TIU ID CAN ATTACH CANATTCH
TIU ID CAN RECEIVE CANRCV
TIU USER INACTIVE? USRINACT
TIU ONE VISIT NOTE? TIUVISIT
TIU HAS AUTHOR SIGNED? AUTHSIGN
TIU CAN PRINT WORK/CHART COPY WORKCHRT
TIU NEED TO SIGN? NDTOSIGN

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^TIU(8925 - [#8925] FIELD^DID
^TIU(8925.1 - [#8925.1] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT("AA" TIUVISIT+28
^TIU(8925 - [#8925] REQCOS+5, CANDO+3, CANDO+5, CANDO+7, NEEDCS+2, AUTHSIGN+6, TIUVISIT+29, WHATACT+2, NEEDJUST+1, GETTITLE+1
, CANATTCH+2, CANATTCH+4, WORKCHRT+9, NDTOSIGN+1
^TIU(8925.1 - [#8925.1] TIUVISIT+17, TIUVISIT+18
^TIU(8925.7 - [#8925.7] NEEDCS+4, WHATACT+4, NDTOSIGN+6, NDTOSIGN+7
^TIU(8925.95 - [#8925.95] TIUVISIT+24, TIUVISIT+25

Label References

Name Line Occurrences
$$NEEDCS CANDO+9

Naked Globals

Name Field # of Occurrence
^(12 NEEDCS+2
^(15 AUTHSIGN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDSIGNER NDTOSIGN+7~*, NDTOSIGN+8, NDTOSIGN+9
CANPRNT WORKCHRT+6~, WORKCHRT+7*, WORKCHRT+8
COSIGNER NEEDCS+1~, NEEDCS+3*, NEEDCS+4, WHATACT+1~, WHATACT+3*, WHATACT+4
DFN TIUVISIT~, TIUVISIT+10, TIUVISIT+14, TIUVISIT+18, TIUVISIT+22, TIUVISIT+28, TIUVISIT+29
DOCTYP TIUVISIT~, TIUVISIT+10, TIUVISIT+11, TIUVISIT+14, TIUVISIT+16, TIUVISIT+22, TIUVISIT+24, TIUVISIT+29
DUZ REQCOS+6, NEEDCS+4, NEEDCS+8, WHATACT+4, WORKCHRT+12, NDTOSIGN+4, NDTOSIGN+5, NDTOSIGN+8, NDTOSIGN+9, NDTOSIGN+11
, NDTOSIGN+12, NDTOSIGN+13
IEN TIUVISIT+17~, TIUVISIT+18*, NDTOSIGN+6~*, NDTOSIGN+7
NAME TIUVISIT+17~*, TIUVISIT+18
NODE NDTOSIGN+1~
NODE(0 NDTOSIGN+1*
NODE(12 NDTOSIGN+1*, NDTOSIGN+4, NDTOSIGN+5, NDTOSIGN+6, NDTOSIGN+11, NDTOSIGN+12, NDTOSIGN+13
PARENTDA CANATTCH+1~, CANATTCH+4*, CANATTCH+12, CANATTCH+14
SIGNER NEEDCS+1~, NEEDCS+3*, NEEDCS+4, WHATACT+1~, WHATACT+3*, WHATACT+4
STATUS NDTOSIGN+1~*, NDTOSIGN+2, NDTOSIGN+3, NDTOSIGN+10, NDTOSIGN+14
TITLEDA CANATTCH+1~, CANATTCH+2*, CANATTCH+3, CANATTCH+5, CANATTCH+7, CANATTCH+9
TIUACT CANDO~, CANDO+3, CANDO+4, CANDO+9, CANDO+10
TIUD0 NEEDCS+1~, NEEDCS+2*, NEEDCS+8, WHATACT+1~, WHATACT+2*, WHATACT+6, NEEDJUST+1~*, NEEDJUST+2
TIUD12 NEEDCS+1~, NEEDCS+2*, NEEDCS+3, NEEDCS+8, AUTHSIGN+5~, AUTHSIGN+6*, AUTHSIGN+8, AUTHSIGN+9, WHATACT+1~, WHATACT+2*
, WHATACT+3
TIUD15 AUTHSIGN+5~, AUTHSIGN+6*, AUTHSIGN+9
TIUDA REQCOS~, REQCOS+4, REQCOS+5, REQCOS+8, CANDO~, CANDO+3, CANDO+5, CANDO+7, CANDO+9, CANDO+10
, NEEDCS~, NEEDCS+2, NEEDCS+4, NEEDCS+6, NEEDCS+8, USRINACT~, USRINACT+1, AUTHSIGN~, AUTHSIGN+6, TIUVISIT+14~
, TIUVISIT+17*, TIUVISIT+18*, TIUVISIT+19, WHATACT~, WHATACT+2, WHATACT+4, WHATACT+5, CANCHCOS~, CANCHCOS+1, NEEDJUST~
, NEEDJUST+1, GETTITLE~, GETTITLE+1, CANATTCH~, CANATTCH+2, CANATTCH+3, CANATTCH+4, CANATTCH+11, CANRCV~, CANRCV+1
, WORKCHRT~, WORKCHRT+7, WORKCHRT+9, WORKCHRT+10, NDTOSIGN~, NDTOSIGN+1, NDTOSIGN+6, NDTOSIGN+14
TIUDD URGENCY+1~
TIUDD("POINTER" URGENCY+3
TIUDPRM REQCOS+2~, CANDO+1~, TIUVISIT+11~, WORKCHRT+6~, WORKCHRT+10
TIUDPRM(0 TIUVISIT+12, WORKCHRT+11
TIUDS TIUVISIT+15~*, TIUVISIT+16, TIUVISIT+17, TIUVISIT+18
TIUDT REQCOS~, REQCOS+8
TIUDTYP WORKCHRT+6~, WORKCHRT+9*, WORKCHRT+10
TIUI URGENCY+1~, URGENCY+3*
TIUPOP CANDO+1~*, CANDO+4, CANDO+6*
TIUSER REQCOS~, REQCOS+6*, REQCOS+8
TIUSTAT WHATACT+1~, WHATACT+6*, WHATACT+7
TIUTYP REQCOS~, REQCOS+4, REQCOS+5*, REQCOS+8
TIUUSR AUTHSIGN~, AUTHSIGN+8
TIUX URGENCY+1~, URGENCY+3*
TIUX3 TIUVISIT+23~, TIUVISIT+24*, TIUVISIT+25
TIUY REQCOS~, REQCOS+3*, REQCOS+8*, URGENCY~, CANDO~, CANDO+3*, CANDO+6*, CANDO+9*, CANDO+10*, NEEDCS+1~
, NEEDCS+7*, NEEDCS+8*, NEEDCS+9, USRINACT~, USRINACT+1*, AUTHSIGN~, AUTHSIGN+7*, AUTHSIGN+9*, TIUVISIT~, TIUVISIT+9*
, TIUVISIT+14*, TIUVISIT+19*, TIUVISIT+25*, TIUVISIT+26, TIUVISIT+29*, TIUVISIT+30*, WHATACT~, WHATACT+7*, CANCHCOS~, CANCHCOS+1*
, NEEDJUST~, NEEDJUST+1*, NEEDJUST+2*, GETTITLE~, GETTITLE+1*, CANATTCH~, CANATTCH+3*, CANATTCH+5*, CANATTCH+6*, CANATTCH+8*
, CANATTCH+10*, CANATTCH+11*, CANATTCH+13*, CANATTCH+14*, CANATTCH+15*, CANRCV~, CANRCV+1*, WORKCHRT~, WORKCHRT+8*, WORKCHRT+11*
, WORKCHRT+12*, WORKCHRT+13*, NDTOSIGN~, NDTOSIGN+1*, NDTOSIGN+3, NDTOSIGN+4*, NDTOSIGN+5*, NDTOSIGN+6, NDTOSIGN+8*, NDTOSIGN+9*
, NDTOSIGN+11*, NDTOSIGN+12*, NDTOSIGN+13*, NDTOSIGN+14
TIUY( URGENCY+3*
U CANDO+3, NEEDCS+3, NEEDCS+8, AUTHSIGN+8, AUTHSIGN+9, TIUVISIT+12, TIUVISIT+25, WHATACT+3, WHATACT+6, NEEDJUST+2
, CANATTCH+6, WORKCHRT+11, NDTOSIGN+1, NDTOSIGN+4, NDTOSIGN+5, NDTOSIGN+7, NDTOSIGN+11, NDTOSIGN+12, NDTOSIGN+13
VISIT TIUVISIT~, TIUVISIT+10, TIUVISIT+13, TIUVISIT+14, TIUVISIT+18, TIUVISIT+22, TIUVISIT+27*, TIUVISIT+28*, TIUVISIT+29
XTRASGNR NEEDCS+1~, NEEDCS+3*, NEEDCS+4*, NEEDCS+6*, NEEDCS+7, WHATACT+1~, WHATACT+4*, WHATACT+5*, WHATACT+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All