Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRCAU

Package: Consult Request Tracking

Routine: GMRCAU


Information

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

Source Information

Source file <GMRCAU.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 NOW^%DTC  FIELD^DID  $$GET1^DIQ  ^DIR  
Consult Request Tracking 3 LISTSRV^GMRCASV  HIER^GMRCT  REGDTM^GMRCU  
Authorization Subscription 1 $$ISA^USRLM  
Order Entry Results Reporting 1 TEAMPROV^ORQPTQ1  

Caller Graph

Caller Graph Total: 30

Package Total Caller Graph
Consult Request Tracking 30 GMRC UPDATE AUTHORITY  GMRCA1  GMRCAAC  GMRCACMT  GMRCACTM  GMRCADC  GMRCAFRD  GMRCAR  
GMRCART  GMRCASF  GMRCASV  GMRCCP  GMRCDIS  GMRCEDIT  GMRCEDT2  GMRCGUIA  
GMRCGUIB  GMRCGUIC  GMRCGUIS  GMRCHL7B  GMRCHL7U  GMRCIAC1  GMRCIACT  GMRCILKP  
GMRCSLM1  GMRCT  GMRCTIU  GMRCTIU1  GMRCTIUE  GMRCUTL1  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC GETDT+2
FIELD^DID FIELD+2
$$GET1^DIQ PROC+3
^DIR GETPROV+2, GETDT+3, TEST+7, TEST+12
LISTSRV^GMRCASV TESTHELP+2
HIER^GMRCT TEST+24
REGDTM^GMRCU GETDT+2
TEAMPROV^ORQPTQ1 CHKTM+5
$$ISA^USRLM USR+6

Interaction Calls

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 and 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
Routine Call
  • DIR
  • Line Location:
    • GETPROV+2
    • GETDT+3
    • TEST+7
    • TEST+12

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] SVC+2, PROC+2
^GMR(123.5 - [#123.5] SVC+3, VALID+7, VALID+10, VALID+21, VALID+22, FINDPAR+5, VALIDU+13, VALIDU+14, VALIDU+16, VALIDU+18
, VALIDU+19, VALIDU+26, VALIDU+32, VALIDU+42, LOC+3, LOC+5, TEAM+4, USR+2, USR+4, TEST+24

Label References

Name Line Occurrences
$$BOTH VALIDU+21, VALIDU+29, VALIDU+35, VALIDU+40, VALIDU+44
$$CHKTM TEAM+5
$$FIELD VALIDU+15, VALIDU+17, VALIDU+18, VALIDU+19, TEAM+6, USR+7
$$PROC ORTX+4, LMTX+4
$$SVC ORTX+3, LMTX+3
$$USR VALIDU+38
$$VALID TEST+14
$$VALIDU VALID+6, VALID+17
FINDPAR VALID+11, VALID+23
GETPROV GETPROV+3
LOC VALIDU+42
TEAM VALIDU+27, VALIDU+33
TEST TEST+28
VALEX VALID+6, VALID+10, VALID+11, VALID+13

Naked Globals

Name Field # of Occurrence
^( SVC+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETDT+1!, GETDT+2
ADMN BOTH~, BOTH+1
ARCNT FINDPAR~, FINDPAR+6, FINDPAR+7*
DIR GETPROV~, GETPROV+2!, GETDT+3!, TEST+4~, TEST+10~, TEST+27!, TESTHELP+1~
DIR("?" TEST+6*
DIR("??" TEST+7*
DIR("A" GETPROV+1*, GETDT+3*, TEST+5*, TEST+11*
DIR("B" GETDT+3*
DIR(0 GETPROV*, GETDT+3*, TEST+5*, TEST+11*
DIROUT GETPROV+2, TEST+4~, TEST+27!
DIRUT GETDT+3, GETDT+5!, TEST+4~, TEST+8, TEST+12, TEST+27!
DTOUT GETPROV+2, TEST+4~, TEST+27!
DUOUT GETDT+5!, TEST+4~, TEST+27!
DUZ VALID+4, VALIDU+10, LOC+6, TEAM+3
FOUND CHKTM+3~, CHKTM+8*, CHKTM+9
>> GETDT GETDT+3
>> GETPROV GETPROV+1
GMRC1 TEST+3~, TESTHELP+1~
GMRCA COMPLETE~, COMPLETE+1*, COMPLETE+2, RESOLUA~, RESOLUA+3*, RESOLUA+4
GMRCAD GETDT+2*, GETDT+4!, GETDT+5*, VALIDU+9~, VALIDU+12*, VALIDU+19*, VALIDU+21, VALIDU+29, VALIDU+31, VALIDU+33
, VALIDU+35, VALIDU+40, VALIDU+44, VALIDU+45, VALIDU+46
GMRCDG TEST+3~, TESTHELP+1~
>> GMRCDT GETDT+2*
GMRCFLD FIELD~, FIELD+2
GMRCFLD("LABEL" FIELD+3
GMRCHIT TEAM+1~, TEAM+5*
GMRCHKD VALID+3~
GMRCHKD( VALID+8*, VALID+15, VALID+18*
GMRCIFC VALID~, VALID+6, VALID+17, VALIDU~, VALIDU+13
GMRCL LOC+1~, LOC+2*, LOC+3*, LOC+5
GMRCL(0 LOC+5*, LOC+6, LOC+7
GMRCLIS VALID+3~, VALID+11
GMRCLIS( VALID+13, VALID+14!, VALID+15, VALID+17, VALID+18, VALID+19*, VALID+21, VALID+22, VALID+23, FINDPAR+6*
GMRCLP VALID+3~, VALID+12*, VALID+13*, VALID+14, VALID+15, VALID+17, VALID+18, VALID+19, VALID+21, VALID+22
, VALID+23, VALID+24*
GMRCLST CHKTM+3~, CHKTM+4*, CHKTM+5
GMRCLST( CHKTM+8
GMRCLST(1 CHKTM+6
GMRCNT VALID+3~, VALID+8*, VALID+11, VALID+23
GMRCO ORTX~, ORTX+3, ORTX+4, SVC~, SVC+2, PROC~, PROC+2, LMTX~, LMTX+3, LMTX+4
, VALID~
GMRCORNP GETPROV!, GETPROV+3*
GMRCORTX ORTX+2~, ORTX+5*, ORTX+6, LMTX+2~, LMTX+5*, LMTX+6
GMRCPROC ORTX+2~, ORTX+4*, ORTX+5, PROC+1~, PROC+2*, PROC+3*, PROC+4
GMRCQIT GETPROV+2*, GETDT+1!, GETDT+3*
GMRCQUIT VALID+3~, VALID+13
GMRCREQ LMTX+2~, LMTX+4*, LMTX+5
GMRCSER VALID~, VALID+6, VALID+7, VALID+8, VALID+10, VALID+11
GMRCSRV TEST+3~, TEST+9*, TEST+14, TEST+24, TEST+26!
GMRCSS VALIDU~, VALIDU+11, VALIDU+13, VALIDU+14, VALIDU+16, VALIDU+18, VALIDU+19, VALIDU+26, VALIDU+32, VALIDU+38
, VALIDU+42, LOC+3, LOC+5, TEAM+4
GMRCSSNM ORTX+2~, ORTX+3*, ORTX+5, SVC+1~, SVC+2*, SVC+3*, SVC+4, LMTX+2~, LMTX+3*, LMTX+5
GMRCSTS RESOLUS~, RESOLUS+3*, RESOLUS+4
GMRCSVC ORTX+2~, SVC+1~, SVC+2*, SVC+3, LMTX+2~
GMRCSVNM TESTHELP~
GMRCTM LOC+1~, LOC+7*, TEAM+1~, TEAM+2*, TEAM+4*, TEAM+5
GMRCTST VALID~, VALID+7, VALID+21, BOTH+1, FIELD+1
GMRCUP VALIDU+9~, VALIDU+12*, VALIDU+14, VALIDU+15*, VALIDU+16, VALIDU+17*, VALIDU+18*, VALIDU+21, VALIDU+25, VALIDU+27
, VALIDU+29, VALIDU+35, VALIDU+38*, VALIDU+40, VALIDU+42, VALIDU+44, VALIDU+45, VALIDU+46
GMRCUPD VALIDU+9~, VALIDU+23*, LOC~, LOC+3, LOC+6*
GMRCUPDL VALID+3~, VALID+6*, VALID+7*, VALID+11*, VALID+13, VALID+17*, VALID+20, VALID+21*, VALEX
GMRCUSER VALID~, VALID+4*, VALID+6, VALID+17
GMRCUSR VALIDU~, VALIDU+10*, VALIDU+14, VALIDU+16, VALIDU+19, VALIDU+27, VALIDU+33, VALIDU+38, TEST+3~, TEST+13*
, TEST+14, TEST+26!
ND CHKTM+3~, CHKTM+7*, CHKTM+8*
NODE VALIDU+25~*, VALIDU+26, VALIDU+27
PARENT FINDPAR+3~, FINDPAR+4*, FINDPAR+5*, FINDPAR+6
PERS CHKTM~, CHKTM+8
SERV FINDPAR~, FINDPAR+5, USR~, USR+2, USR+4
SUBSC TEAM~, TEAM+4, TEAM+6
TEAM CHKTM~, CHKTM+5
TYPE TEAM~, TEAM+4, TEAM+6*
U SVC+3, VALID+7, VALID+10, VALID+14, VALID+19, VALID+21, VALID+22, VALIDU+13, VALIDU+18, BOTH+1
, TEST+17, TEST+18, TEST+21, TEST+22, TEST+23, TEST+24
UCLS USR+1~, USR+3*, USR+4*, USR+5, USR+6
UPD BOTH~, BOTH+1, USR+1~, USR+3*, USR+4, USR+6*, USR+7*, USR+9, TEST+3~, TEST+14*
, TEST+15, TEST+16, TEST+17, TEST+18, TEST+19, TEST+21, TEST+22, TEST+23, TEST+24, TEST+26!
USER TEAM~, TEAM+3*, TEAM+5, USR~, USR+6
X GETPROV+2, GETDT+2*, GETDT+4, GETDT+5!, TEST+4~, TEST+27!
Y GETPROV+3, GETDT+4!, GETDT+5!, TEST+4~, TEST+9, TEST+13, TEST+27!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All