TIUSRVA ; SLC/JER,AJB - API'S FOR AUTHORIZATION ;11/02/23 11:00
Source file <TIUSRVA.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| 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 |
| 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 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^TIU(8925 - [#8925] | FIELD^DID |
| ^TIU(8925.1 - [#8925.1] | FIND1^DIC |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$NEEDCS | CANDO+9 |
| Name | Field # of Occurrence |
|---|---|
| ^(12 | NEEDCS+2 |
| ^(15 | AUTHSIGN+6 |
| >> | 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 |
