TIULP ; SLC/JER - Functions determining privilege ; 12/13/10 3:45pm
Source file <TIULP.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 13 | $$ASURG^TIUADSIG $$CLASS^TIUCNSLT ($$HPCAN,$$ISHISTCP)^TIUCP $$HASIDKID^TIUGBR $$BLANK^TIULC ($$ISADDNDM,$$PNAME,DOCPRM)^TIULC1 $$POSSPRNT^TIULP ($$ACTION,$$ISSURG,$$SURMSG,IDMSG)^TIULP3 $$NAME^TIULS ($$ISA,$$ISCWAD)^TIULX $$ISPRFDOC^TIUPRF $$ISPFTTL^TIUPRFL $$HASIMG^TIURB2 |
Authorization Subscription | 2 | $$CANDO^USRLA $$ISA^USRLM |
Consult Request Tracking | 1 | ($$CPACTM,$$CPINTERP)^GMRCCP |
VA Fileman | 1 | $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
CANDO(TIUDA,TIUACT,PERSON) | ; Can PERSON perform action now
; Receives: TIUDA=Record number in file 8925 ; TIUACT=Name of user action in 8930.8 (USR ACTION) ; PERSON=New Person file IFN. ; Assumed to be DUZ if not received. ; New **100** ID param, backward compatible. ; Returns: TIUY=1:yes,0:no_"^"_why not message |
|
CANLINK(TIUTYP) | ; Can user (DUZ) link (attach) a document of a particular type
|
|
REQCOSX | ||
CANENTR(TIUTYP) | ; Evaluate privilege to enter a document of a particular type
|
|
CANDOX | ||
USREVNT(EVENT) | ; Given event name, return:
|
|
REQCPF(TIUCDA) | ;Check if clinical procedure fields are required
; Input -- TIUCDA Request/Consult File (#123) IEN ; Output -- 1=Required and 0=Not Required |
|
POSSPRNT(TIUTYP) | ; Is a docmt intended as a possible ID parent?
|
|
REQCOSIG(TIUTYP,TIUDA,USER,TIUDT) | ; Evaluate whether user requires cosignature
|
|
POSSX | ||
CANPIX | ||
USRROLE(TIUDA,PERSON) | ; Identify the user's role with respect to the document
; 3/20/00 **100** Added role COMPLETER ; 3/20/00 **100** Added PERSON param |
|
REQCPFQ | ||
CANPICK(TIUTYP) | ; Screens selection of title by title status and
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | CANDO+43 |
$$CPACTM^GMRCCP | REQCPF+5 |
$$CPINTERP^GMRCCP | USRROLE+15 |
$$ASURG^TIUADSIG | USRROLE+13 |
$$CLASS^TIUCNSLT | CANLINK+22 |
$$HPCAN^TIUCP | CANDO+16 |
$$ISHISTCP^TIUCP | CANDO+16 |
$$HASIDKID^TIUGBR | CANDO+51 |
$$BLANK^TIULC | CANDO+30 |
$$ISADDNDM^TIULC1 | CANDO+34 |
$$PNAME^TIULC1 | CANDO+46 |
DOCPRM^TIULC1 | REQCOSIG+2 |
$$POSSPRNT^TIULP | CANLINK+16 |
$$ACTION^TIULP3 | CANDO+55 |
$$ISSURG^TIULP3 | CANDO+55 |
$$SURMSG^TIULP3 | CANDO+56 |
IDMSG^TIULP3 | CANDO+53 |
$$NAME^TIULS | CANDO+43 |
$$ISA^TIULX | CANLINK+22 |
$$ISCWAD^TIULX | CANLINK+18 |
$$ISPRFDOC^TIUPRF | CANDO+10 |
$$ISPFTTL^TIUPRFL | CANLINK+20 |
$$HASIMG^TIURB2 | CANDO+48 |
$$CANDO^USRLA | CANDO+35, CANDO+37, CANLINK+12, CANENTR+4 |
$$ISA^USRLM | CANPICK+8, REQCOSIG+6 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925 - [#8925] | CANDO+9, CANDO+25, CANDO+27, CANDO+30, CANDO+34, USRROLE+5, USRROLE+6, USRROLE+7, REQCOSIG+4 |
^TIU(8925.1 - [#8925.1] | POSSPRNT+10, CANPICK+3 |
^TIU(8925.6 - [#8925.6] | CANDO+46 |
^TIU(8925.7 - [#8925.7] | USRROLE+20, USRROLE+21, USRROLE+22 |
^USR(8930.1 - [#8930.1] | POSSPRNT+7, POSSPRNT+8 |
^USR(8930.2 - [#8930.2] | CANLINK+11, USRROLE+8, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+13, USRROLE+15, USRROLE+16, USRROLE+23 |
^USR(8930.8 - [#8930.8] | USREVNT+4, USREVNT+5 |
Name | Line Occurrences |
---|---|
$$POSSPRNT | POSSPRNT+11 |
$$USREVNT | CANDO+13, CANLINK+10, POSSPRNT+5, CANENTR+2 |
$$USRROLE | CANDO+32 |
CANDOX | CANDO+9, CANDO+10, CANDO+13, CANDO+16, CANDO+20, CANDO+25, CANDO+27, CANDO+30, CANDO+40, CANDO+48 , CANDO+51, CANDO+55 |
CANPIX | CANPICK+4, CANPICK+5, CANPICK+6 |
POSSX | POSSPRNT+6, POSSPRNT+10 |
REQCOSX | REQCOSIG+3 |
REQCPFQ | REQCPF+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
COMPLTR | USRROLE+3~, USRROLE+16, USRROLE+17*, USRROLE+18*, USRROLE+19* |
DADTYP | POSSPRNT+4~, POSSPRNT+10*, POSSPRNT+11 |
DUZ | CANDO+8, CANDO+43, CANLINK+12, CANENTR+4, USRROLE+4, CANPICK+8, REQCOSIG+1 |
EVENT | USREVNT~, USREVNT+4 |
HPCAN | CANDO+16~* |
MODIFIER | CANDO+7~, CANDO+44*, CANDO+46 |
MSG | CANDO+7~, CANDO+46*, CANDO+47 |
NODE0 | USREVNT+3~, USREVNT+5*, USREVNT+6 |
PERSON | CANDO~, CANDO+8*, CANDO+32, CANDO+35, CANDO+37, CANDO+43, USRROLE~, USRROLE+4*, USRROLE+8, USRROLE+9 , USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+15, USRROLE+18, USRROLE+19, USRROLE+20, USRROLE+21 |
REQF | REQCPF+3~, REQCPF+6*, REQCPFQ |
STATUS | CANDO+7~, CANDO+18*, CANDO+20, CANDO+35, CANDO+37, CANDO+46, CANLINK+9~, CANLINK+10*, CANLINK+12, POSSPRNT+4~ , POSSPRNT+6*, POSSPRNT+7, POSSPRNT+8, CANENTR+1~, CANENTR+2*, CANENTR+4, USRROLE+3~, USRROLE+5*, USRROLE+16 |
TIU0 | USRROLE+3~, USRROLE+5* |
TIU12 | USRROLE+3~, USRROLE+6*, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12 |
TIU13 | USRROLE+3~, USRROLE+7*, USRROLE+8 |
TIU15 | USRROLE+3~, USRROLE+7*, USRROLE+18, USRROLE+19 |
TIUACT | CANDO~, CANDO+10, CANDO+11, CANDO+13*, CANDO+16, CANDO+20, CANDO+22, CANDO+23, CANDO+25, CANDO+27 , CANDO+30, CANDO+31, CANDO+35, CANDO+37, CANDO+44, CANDO+46, CANDO+48, CANLINK+9~, CANLINK+10*, CANLINK+12 , POSSPRNT+4~, POSSPRNT+5*, POSSPRNT+7, POSSPRNT+8, CANENTR+1~, CANENTR+2*, CANENTR+4 |
TIUACTW | CANDO+7~, CANDO+11*, CANDO+51, CANDO+55, CANDO+56 |
TIUATYP | CANDO+7~, CANDO+34*, CANDO+38 |
TIUCDA | REQCPF~, REQCPF+4, REQCPF+5 |
TIUCOWN | CANPICK+2~, CANPICK+7*, CANPICK+8 |
TIUCPACT | REQCPF+3~, REQCPF+5*, REQCPF+6 |
TIUD0 | CANDO+7~, CANDO+9*, CANDO+16, CANDO+18, CANDO+33, CANDO+34 |
TIUDA | CANDO~, CANDO+9, CANDO+10, CANDO+25, CANDO+27, CANDO+30, CANDO+32, CANDO+34, CANDO+48, CANDO+51 , CANDO+55, USRROLE~, USRROLE+5, USRROLE+6, USRROLE+7, USRROLE+13, USRROLE+15, USRROLE+20, USRROLE+21, USREVNT+3~ , USREVNT+4*, USREVNT+5, USREVNT+6, REQCOSIG~, REQCOSIG+2, REQCOSIG+4 |
TIUDPRM | REQCOSIG+1~, REQCOSIG+2 |
TIUDPRM(5 | REQCOSIG+3, REQCOSIG+5, REQCOSIG+6 |
TIUDT | REQCOSIG~, REQCOSIG+4*, REQCOSIG+6 |
TIUI | CANDO+7~, CANDO+36*, CANDO+37, REQCOSIG+1~, REQCOSIG+5*, REQCOSIG+6 |
TIUMSG | CANDO+53~ |
TIUPOWN | CANPICK+2~, CANPICK+7*, CANPICK+8 |
>> TIUPRM1 | CANDO+31 |
TIUROLE | CANDO+7~, CANDO+32*, CANDO+35, CANDO+36, CANDO+37 |
TIUT0 | CANPICK+2~, CANPICK+3*, CANPICK+7 |
TIUTSTAT | CANPICK+2~, CANPICK+3*, CANPICK+4, CANPICK+5, CANPICK+6, CANPICK+8 |
TIUTYP | CANDO+7~, CANDO+33*, CANDO+34*, CANDO+35, CANDO+37, CANDO+38*, CANDO+46, CANLINK~, CANLINK+12, CANLINK+16 , CANLINK+18, CANLINK+20, CANLINK+22, POSSPRNT~, POSSPRNT+7, POSSPRNT+8, POSSPRNT+10, CANENTR~, CANENTR+4, CANPICK~ , CANPICK+3, REQCOSIG~, REQCOSIG+2 |
TIUXTRA | USRROLE+21~*, USRROLE+22 |
TIUY | CANDO+7~, CANDO+8*, CANDO+10*, CANDO+16*, CANDO+22*, CANDO+23*, CANDO+26*, CANDO+28*, CANDO+31*, CANDO+35* , CANDO+36, CANDO+37*, CANDO+40, CANDO+47*, CANDO+49*, CANDO+53*, CANDO+56*, CANDOX, CANLINK+9~, CANLINK+12* , CANLINK+13*, CANLINK+16*, CANLINK+18*, CANLINK+20*, CANLINK+22*, CANLINK+23, POSSPRNT+4~, POSSPRNT+5*, POSSPRNT+6, POSSPRNT+7* , POSSPRNT+8*, POSSPRNT+11*, POSSX*, POSSX+1, CANENTR+1~, CANENTR+4*, CANENTR+5, USRROLE+3~, USRROLE+8*, USRROLE+9* , USRROLE+10*, USRROLE+11*, USRROLE+12*, USRROLE+13*, USRROLE+15*, USRROLE+16*, USRROLE+23*, USRROLE+24, USREVNT+3~, USREVNT+6* , USREVNT+7, CANPICK+2~*, CANPICK+4*, CANPICK+5*, CANPICK+6*, CANPICK+8*, CANPIX, REQCOSIG+1~, REQCOSIG+5, REQCOSIG+6* , REQCOSX |
U | CANDO+18, CANDO+30, CANDO+31, CANDO+34, CANDO+36, CANDO+37, CANDO+44, CANDO+46, CANDO+47, USRROLE+5 , USRROLE+8, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+13, USRROLE+15, USRROLE+16, USRROLE+18, USRROLE+19 , USRROLE+22, USRROLE+23, USREVNT+6, CANPICK+3, CANPICK+7, REQCOSIG+4, REQCOSIG+5, REQCOSIG+6 |
USER | REQCOSIG~, REQCOSIG+1*, REQCOSIG+6 |
USRROLE | CANLINK+9~, CANLINK+11*, CANLINK+12, CANENTR+1~, CANENTR+3*, CANENTR+4 |
WHO | CANDO+7~, CANDO+41*, CANDO+43*, CANDO+46 |
>> XQY0 | CANDO+55 |