Routine: TIUSRVA

Information

TIUSRVA ; SLC/JER,AJB - API's for Authorization ; 4/2/09 12:34pm

Source Information

Source file <TIUSRVA.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Text Integration Utility	7	$$ASURG^TIUADSIG $$CLASS^TIUCNSLT $$EXIST^TIUEDI3 DOCPRM^TIULC1 ($$CANDO,$$POSSPRNT,$$REQCOSIG)^TIULP ($$ISA,$$ISCWAD)^TIULX $$MAYCHNG^TIURA1
VA Fileman	2	FIELD^DID $$GET1^DIQ
Kernel	1	$$PATCH^XPDUTL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Text Integration Utility	2	TIUHL7P3 TIUSRVP1

Entry Points

Name	Comments	DBIA/ICR reference
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
WHATACT(TIUY,TIUDA)	; Evaluate/return whether signature or cosignature
CANATTCH(TIUY,TIUDA)	; Can this document be attached as an ID Child
USRINACT(TIUY,TIUDA)	; Is user inactive?
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 ^TUI(8925.1, TIU DOCUMENT DEFINITION ; DFN = Patient IEN ; VISIT = Visit String "LOC;VDATE;VTYP"
GETTITLE(TIUY,TIUDA)	; Get the title from a TIU Document Record
CANRCV(TIUY,TIUDA)	; Can this document receive an ID Child?
NEEDCS(TIUDA)	; Does user need a cosigner?
URGENCY(TIUY)	; -- retrieve set values from dd for discharge summary urgency
CANCHCOS(TIUY,TIUDA)	; Evaluate/return whether user can change cosigner
REQCOS(TIUY,TIUTYP,TIUDA,TIUSER,TIUDT)	; Evaluate cosignature requirement ; Initialize return value
CANDO(TIUY,TIUDA,TIUACT)	; Boolean function to evaluate privilege
NEEDJUST(TIUY,TIUDA)	; Is justification required for deletion?

External References

Name	Field # of Occurrence
FIELD^DID	URGENCY+2
$$GET1^DIQ	USRINACT+1
$$ASURG^TIUADSIG	WHATACT+5
$$CLASS^TIUCNSLT	CANATTCH+9
$$EXIST^TIUEDI3	TIUVISIT+14
DOCPRM^TIULC1	TIUVISIT+10
$$CANDO^TIULP	CANDO+10, CANATTCH+11, CANATTCH+14, CANRCV+1
$$POSSPRNT^TIULP	CANATTCH+5
$$REQCOSIG^TIULP	REQCOS+8, NEEDCS+6
$$ISA^TIULX	CANATTCH+9
$$ISCWAD^TIULX	CANATTCH+7
$$MAYCHNG^TIURA1	CANCHCOS+1
$$PATCH^XPDUTL	TIUVISIT+7, TIUVISIT+17

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

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
COSIGNER	NEEDCS+1~, NEEDCS+3, NEEDCS+4, WHATACT+1~, WHATACT+3, WHATACT+4
DFN	TIUVISIT~, TIUVISIT+8, TIUVISIT+14, TIUVISIT+18, TIUVISIT+24, TIUVISIT+25
DOCTYP	TIUVISIT~, TIUVISIT+8, TIUVISIT+10, TIUVISIT+14, TIUVISIT+18, TIUVISIT+20, TIUVISIT+25
DUZ	REQCOS+6, NEEDCS+4, NEEDCS+6, WHATACT+4
PARENTDA	CANATTCH+1~, CANATTCH+4*, CANATTCH+12, CANATTCH+14
SIGNER	NEEDCS+1~, NEEDCS+3, NEEDCS+4, WHATACT+1~, WHATACT+3, WHATACT+4
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+6, WHATACT+1~, WHATACT+2, WHATACT+6, NEEDJUST+1~*, NEEDJUST+2
TIUD12	NEEDCS+1~, NEEDCS+2, NEEDCS+3, NEEDCS+6, 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, USRINACT~, USRINACT+1, AUTHSIGN~, AUTHSIGN+6, 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
TIUDD	URGENCY+1~
TIUDD("POINTER"	URGENCY+3
TIUDPRM	REQCOS+2~, CANDO+1~, TIUVISIT+9~, TIUVISIT+10
TIUDPRM(0	TIUVISIT+11
TIUDT	REQCOS~, REQCOS+8
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
TIUTEST	TIUVISIT+9~, TIUVISIT+14*, TIUVISIT+15, TIUVISIT+16
TIUTYP	REQCOS~, REQCOS+4, REQCOS+5*, REQCOS+8
TIUUSR	AUTHSIGN~, AUTHSIGN+8
TIUX	URGENCY+1~, URGENCY+3*
TIUX3	TIUVISIT+19~, TIUVISIT+20*, TIUVISIT+21
TIUY	REQCOS~, REQCOS+3, REQCOS+8, URGENCY~, CANDO~, CANDO+3, CANDO+6, CANDO+9, CANDO+10, NEEDCS+1~ , NEEDCS+5, NEEDCS+6, NEEDCS+7, USRINACT~, USRINACT+1, AUTHSIGN~, AUTHSIGN+7, AUTHSIGN+9, TIUVISIT~, TIUVISIT+11 , TIUVISIT+12, TIUVISIT+15, TIUVISIT+16, TIUVISIT+21, TIUVISIT+22, TIUVISIT+25, TIUVISIT+26, 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*
TIUY(	URGENCY+3*
U	CANDO+3, NEEDCS+3, NEEDCS+6, AUTHSIGN+8, AUTHSIGN+9, TIUVISIT+11, TIUVISIT+21, WHATACT+3, WHATACT+6, NEEDJUST+2 , CANATTCH+6
VISIT	TIUVISIT~, TIUVISIT+8, TIUVISIT+13, TIUVISIT+14, TIUVISIT+18, TIUVISIT+23, TIUVISIT+24, TIUVISIT+25
XTRASGNR	NEEDCS+1~, NEEDCS+3, NEEDCS+4, NEEDCS+5, WHATACT+1~, WHATACT+4, WHATACT+5, WHATACT+7

Customize PDF page

Package: Text Integration Utility

Routine: TIUSRVA

Call Graph Total: 10

Caller Graph Total: 2