TIULP ; SLC/JER - Functions determining privilege ; 6/9/20 4:44pm
Source file <TIULP.m>
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 |
|
CANDOX | ||
CANLINK(TIUTYP) | ; Can user (DUZ) link (attach) a document of a particular type
|
|
POSSPRNT(TIUTYP) | ; Is a docmt intended as a possible ID parent?
|
|
POSSX | ||
CANENTR(TIUTYP) | ; Evaluate privilege to enter a document of a particular type
|
|
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 |
|
USREVNT(EVENT) | ; Given event name, return:
|
|
CANPICK(TIUTYP) | ; Screens selection of title by title status and
|
|
CANPIX | ||
REQCOSIG(TIUTYP,TIUDA,USER,TIUDT) | ; Evaluate whether user requires cosignature
|
|
REQCOSX | ||
REQCPF(TIUCDA) | ;Check if clinical procedure fields are required
; Input -- TIUCDA Request/Consult File (#123) IEN ; Output -- 1=Required and 0=Not Required |
|
REQCPFQ |
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | CANDO+60 |
$$CPACTM^GMRCCP | REQCPF+5 |
$$CPINTERP^GMRCCP | USRROLE+20 |
$$EN^TIUABBVC | CANDO+39 |
$$ASURG^TIUADSIG | USRROLE+13 |
$$ISSURFOR^TIUADSIG | USRROLE+15, USRROLE+16, USRROLE+17, USRROLE+18 |
$$CLASS^TIUCNSLT | CANLINK+22 |
$$HPCAN^TIUCP | CANDO+19 |
$$ISHISTCP^TIUCP | CANDO+19 |
$$DICTATE^TIUDCT | CANDO+42 |
$$UPDATE^TIUDCT | CANDO+44 |
$$HASIDKID^TIUGBR | CANDO+68 |
$$BLANK^TIULC | CANDO+33 |
$$ISADDNDM^TIULC1 | CANDO+49 |
$$PNAME^TIULC1 | CANDO+63 |
DOCPRM^TIULC1 | REQCOSIG+2 |
$$POSSPRNT^TIULP | CANLINK+16 |
$$ACTION^TIULP3 | CANDO+73 |
$$AUTHUSR^TIULP3 | CANDO+13, CANDO+55 |
$$ISSURG^TIULP3 | CANDO+13, CANDO+55, CANDO+73 |
$$SURMSG^TIULP3 | CANDO+74 |
IDMSG^TIULP3 | CANDO+70 |
$$NAME^TIULS | CANDO+60 |
$$ISA^TIULX | CANLINK+22 |
$$ISCWAD^TIULX | CANLINK+18 |
$$ISPRFDOC^TIUPRF | CANDO+10 |
$$ISPFTTL^TIUPRFL | CANLINK+20 |
$$HASIMG^TIURB2 | CANDO+65 |
$$CANDO^USRLA | CANDO+50, CANDO+52, 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+28, CANDO+30, CANDO+33, CANDO+49, USRROLE+5, USRROLE+6, USRROLE+7, REQCOSIG+4 |
^TIU(8925.1 - [#8925.1] | POSSPRNT+10, CANPICK+3 |
^TIU(8925.6 - [#8925.6] | CANDO+63 |
^TIU(8925.7 - [#8925.7] | USRROLE+25, USRROLE+26, USRROLE+27 |
^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+14, USRROLE+15, USRROLE+16 , USRROLE+17, USRROLE+18, USRROLE+20, USRROLE+21, USRROLE+28 |
^USR(8930.8 - [#8930.8] | USREVNT+4, USREVNT+5 |
Name | Line Occurrences |
---|---|
$$POSSPRNT | POSSPRNT+11 |
$$USREVNT | CANDO+16, CANLINK+10, POSSPRNT+5, CANENTR+2 |
$$USRROLE | CANDO+47 |
CANDOX | CANDO+9, CANDO+10, CANDO+13, CANDO+16, CANDO+19, CANDO+23, CANDO+28, CANDO+30, CANDO+33, CANDO+38 , CANDO+41, CANDO+57, CANDO+65, CANDO+68, CANDO+73 |
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+21, USRROLE+22*, USRROLE+23*, USRROLE+24* |
DADTYP | POSSPRNT+4~, POSSPRNT+10*, POSSPRNT+11 |
DUZ | CANDO+8, CANDO+60, CANLINK+12, CANENTR+4, USRROLE+4, CANPICK+8, REQCOSIG+1 |
EVENT | USREVNT~, USREVNT+4 |
HPCAN | CANDO+19~* |
MODIFIER | CANDO+7~, CANDO+61*, CANDO+63 |
MSG | CANDO+7~, CANDO+63*, CANDO+64 |
NODE0 | USREVNT+3~, USREVNT+5*, USREVNT+6 |
PERSON | CANDO~, CANDO+8*, CANDO+13, CANDO+47, CANDO+50, CANDO+52, CANDO+55, CANDO+60, USRROLE~, USRROLE+4* , USRROLE+8, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+15, USRROLE+16, USRROLE+17, USRROLE+18, USRROLE+20 , USRROLE+23, USRROLE+24, USRROLE+25, USRROLE+26 |
REQF | REQCPF+3~, REQCPF+6*, REQCPFQ |
STATUS | CANDO+7~, CANDO+21*, CANDO+23, CANDO+38, CANDO+41, CANDO+50, CANDO+52, CANDO+63, 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+21 |
TIU0 | USRROLE+3~, USRROLE+5* |
TIU12 | USRROLE+3~, USRROLE+6*, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+15, USRROLE+16, USRROLE+17, USRROLE+18 |
TIU13 | USRROLE+3~, USRROLE+7*, USRROLE+8 |
TIU15 | USRROLE+3~, USRROLE+7*, USRROLE+23, USRROLE+24 |
TIUACT | CANDO~, CANDO+10, CANDO+11, CANDO+16*, CANDO+19, CANDO+23, CANDO+25, CANDO+26, CANDO+28, CANDO+30 , CANDO+33, CANDO+34, CANDO+38, CANDO+41, CANDO+50, CANDO+52, CANDO+61, CANDO+63, CANDO+65, 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+13, CANDO+55, CANDO+68, CANDO+73, CANDO+74 |
TIUATYP | CANDO+7~, CANDO+49*, CANDO+53 |
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+19, CANDO+21, CANDO+48, CANDO+49 |
TIUDA | CANDO~, CANDO+9, CANDO+10, CANDO+13, CANDO+28, CANDO+30, CANDO+33, CANDO+39, CANDO+42, CANDO+44 , CANDO+47, CANDO+49, CANDO+55, CANDO+65, CANDO+68, CANDO+73, USRROLE~, USRROLE+5, USRROLE+6, USRROLE+7 , USRROLE+13, USRROLE+20, USRROLE+25, USRROLE+26, USREVNT+3~, USREVNT+4*, USREVNT+5, USREVNT+6, REQCOSIG~, REQCOSIG+2 , REQCOSIG+4 |
TIUDCTY | CANDO+42~*, CANDO+43, CANDO+44* |
TIUDPRM | REQCOSIG+1~, REQCOSIG+2 |
TIUDPRM(5 | REQCOSIG+3, REQCOSIG+5, REQCOSIG+6 |
TIUDT | REQCOSIG~, REQCOSIG+4*, REQCOSIG+6 |
TIUI | CANDO+7~, CANDO+51*, CANDO+52, REQCOSIG+1~, REQCOSIG+5*, REQCOSIG+6 |
TIUMSG | CANDO+70~ |
TIUPOWN | CANPICK+2~, CANPICK+7*, CANPICK+8 |
>> TIUPRM1 | CANDO+34 |
TIUROLE | CANDO+7~, CANDO+47*, CANDO+50, CANDO+51, CANDO+52 |
TIUT0 | CANPICK+2~, CANPICK+3*, CANPICK+7 |
TIUTSTAT | CANPICK+2~, CANPICK+3*, CANPICK+4, CANPICK+5, CANPICK+6, CANPICK+8 |
TIUTYP | CANDO+7~, CANDO+48*, CANDO+49*, CANDO+50, CANDO+52, CANDO+53*, CANDO+63, 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+26~*, USRROLE+27 |
TIUY | CANDO+7~, CANDO+8*, CANDO+10*, CANDO+14*, CANDO+19*, CANDO+25*, CANDO+26*, CANDO+29*, CANDO+31*, CANDO+34* , CANDO+38, CANDO+39*, CANDO+41, CANDO+42*, CANDO+43*, CANDO+44*, CANDO+50*, CANDO+51, CANDO+52*, CANDO+55* , CANDO+57, CANDO+64*, CANDO+66*, CANDO+70*, CANDO+74*, 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+14, USRROLE+15*, USRROLE+16*, USRROLE+17*, USRROLE+18*, USRROLE+20*, USRROLE+21*, USRROLE+28* , USRROLE+29, 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+21, CANDO+33, CANDO+34, CANDO+49, CANDO+51, CANDO+52, CANDO+61, CANDO+63, CANDO+64, USRROLE+5 , USRROLE+8, USRROLE+9, USRROLE+10, USRROLE+11, USRROLE+12, USRROLE+13, USRROLE+15, USRROLE+16, USRROLE+17, USRROLE+18 , USRROLE+20, USRROLE+21, USRROLE+23, USRROLE+24, USRROLE+27, USRROLE+28, 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+58*, CANDO+60*, CANDO+63 |
>> XQY0 | CANDO+13, CANDO+38, CANDO+73 |