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 |