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

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: 34

Package Total Caller Graph
Consult Request Tracking 31 GMRC UPDATE AUTHORITY  GMRCA1  GMRCAAC  GMRCACMT  GMRCACTM  GMRCADC  GMRCAFRD  GMRCAR  
GMRCART  GMRCASF  GMRCASV  GMRCCP  GMRCDIS  GMRCEDIT  GMRCEDT2  GMRCGUIA  
GMRCGUIB  GMRCGUIC  GMRCGUIS  GMRCHL7B  GMRCHL7I  GMRCHL7U  GMRCIAC1  GMRCIACT  
GMRCILKP  GMRCSLM1  GMRCT  GMRCTIU  GMRCTIU1  GMRCTIUE  GMRCUTL1  
Kernel 1 ^DIC(19  
Order Entry Results Reporting 1 ORQQCN2  
Prosthetics 1 RMPREOS  

Entry Points

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

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 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
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