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 |