Routine: GMRCAU

Information

GMRCAU ;SLC/DLT,JFR - Action Utilities ;10/17/01 18:31

Source file <GMRCAU.m>

Name	Comments	DBIA/ICR reference
GETPROV
GETDT	;Get actual activity date
ORTX(GMRCO)	;Get the abbreviated text for alert displays
SVC(GMRCO)	;Get abbreviated service text
PROC(GMRCO)	;Get abbreviated procedure text
LMTX(GMRCO)	;Get the text for list manager displays
VALID(GMRCSER,GMRCO,GMRCUSER,GMRCTST,GMRCIFC)	;Get users update authority ; check GMRCSS and all parents for authority ; codes returned are same as $$VALIDU
VALEX
FINDPAR(SERV,ARCNT)
VALIDU(GMRCSS,GMRCUSR,GMRCIFC)	;Check to see if user is an update user
BOTH(ADMN,UPD)	;return string with fields if testing
LOC(GMRCUPD)	;Check for the DUZ in the NOTIFICATION BY PT LOCATION multiple
TEAM(TYPE,SUBSC,USER)	;Check for the DUZ in the multiple of SUBSC
CHKTM(TEAM,PERS)	;checks for PERS in list of users on TEAM
USR(SERV,USER)	; check USR classes for user
FIELD(GMRCFLD)	;return field name where became update user
COMPLETE(GMRCA)	;Determine if the action is a complete action (10,13,14)
RESOLUA(GMRCA)	;Determine if action has resolution info for clinician
RESOLUS(GMRCSTS)	;Determine status indicates the consult has a resolution
TEST	;called from GMRC UPDATE AUTHORITY ; determines how a user gets update authority for a service
TESTHELP(GMRCSVNM)	;wrapper for LISTSRV^GMRCASV
TSTINTRO	;entry action of GMRC UPDATE AUTHORITY option

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TEST+2
Function Call: WRITE	Prompt: !!,"This user has no update authority" Line Location: TEST+15
Function Call: WRITE	Prompt: !!,"This user is an update user for: ",$P(UPD,U,3) Line Location: TEST+17
Function Call: WRITE	Prompt: !!,"This user is an administrative user for: ",$P(UPD,U,3) Line Location: TEST+18
Function Call: WRITE	Prompt: !!,"This user is both an administrative and update user" Line Location: TEST+20
Function Call: WRITE	Prompt: " for: ",!,$P(UPD,U,3) Line Location: TEST+21
Function Call: WRITE	Prompt: !,"via the ",$P(UPD,U,2)," field",$S(+UPD=4:"(s).",1:".") Line Location: TEST+22
Function Call: WRITE	Prompt: ! Line Location: TEST+23
Function Call: WRITE	Prompt: !! Line Location: TEST+25
Function Call: WRITE	Prompt: !!,"This option will allow you to check a user's update authority for any given" Line Location: TSTINTRO+1
Function Call: WRITE	Prompt: !,"service in the consults hierarchy. If the PROCESS PARENTS FOR UPDATES field" Line Location: TSTINTRO+2
Function Call: WRITE	Prompt: !,"is set to YES, all ancestors of the selected service will be checked." Line Location: TSTINTRO+3
Function Call: WRITE	Prompt: !,"The type of update authority and the service to which they are assigned will" Line Location: TSTINTRO+4
Function Call: WRITE	Prompt: !,"be displayed.",!! Line Location: TSTINTRO+5

FileNo	Call Tags
^GMR(123.3 - [#123.3]	GET1^DIQ
^GMR(123.5 - [#123.5]	FIELD^DID