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 |