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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: GMRCPOR

Package: Consult Request Tracking

Routine: GMRCPOR


Information

GMRCPOR ;SLC/DCM,DLT - Get DOC,LOC,TS in interactive defaults ;15-Mar-2012 10:40;PLS

Source Information

Source file <GMRCPOR.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Consult Request Tracking 1 $$HRCN^GMRCMP  
Registration 1 (INP,OERR,SDE)^VADPT  

Entry Points

Name Comments DBIA/ICR reference
DOC ;Get the requesting clinician
DOC1 ;Display Requesting Clinician
DEM ;Similiar to load of variables done by ORUDPA
LOC1 ;Check for patient location
LOC ;GET PT. LOCATION

External References

Name Field # of Occurrence
$$HRCN^GMRCMP DEM+6
INP^VADPT LOC+1
OERR^VADPT DEM+4
SDE^VADPT LOC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Primary Care Physician is "_X,!
  • Line Location: DOC+3
Function Call: WRITE
  • Prompt: !,?5,"Requesting CLINICIAN : ",$S($L(DOC):DOC,1:"****** missing required information ******")
  • Line Location: DOC1+1
Function Call: WRITE
  • Prompt: !!,"Currently enrolled in the following clinics: ",!
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !?17
  • Condition for execution: (CT#2)
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: C=-1
  • Condition for execution: '(CT#2) ?47 W $P(^UTILITY("VAEN",$J,I,"E"),"^") S C=C+1,C(1)=$P(^("E"),"^") S:C'=1
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: "****** missing required information ******"
  • Line Location: LOC1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] DEM+11
^ORD(100.99 - [#100.99] DOC+2
^SC - [#44] DEM+11
^UTILITY("VAEN" LOC+2, LOC+3
^VA(200 - [#200] DEM+8, DOC+2, DOC+3
^XUSEC("PROVIDER" DEM+9

Label References

Name Line Occurrences
DOC DEM+12
DOC1 DEM+12
LOC DEM+12
LOC1 LOC+2

Naked Globals

Name Field # of Occurrence
^("E" LOC+3
^(0 DEM+11, DOC+2, DOC+3
^(44 DEM+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C LOC+2*, LOC+3*
>> C(1 LOC+3*
>> CT LOC+2*, LOC+3*
>> DFN DEM+3, DEM+6
DIC DEM+13!
>> DOC DOC+1*, DOC+2*, DOC1+1
DUZ(2 DEM+6
>> GMRCAGE DEM+4*
>> GMRCDOB DEM+4*
>> GMRCHRCN DEM+6*
>> GMRCPNM DEM+4*
>> GMRCRB DEM+7*
>> GMRCSN DEM+4*
>> GMRCWARD DEM+7*
I LOC+3*, LOC+4!
O DEM+13!, LOC+2*
>> ORATTEND DEM+10*, DOC+3
>> ORL DEM+7*, DEM+11*
>> ORL(0 DEM+7*, DEM+11*, DEM+13!
>> ORL(1 DEM+7*
>> ORL(2 DEM+7*, DEM+11*
>> ORNP DEM+7*, DEM+8*, DEM+9, DEM+10, DOC+2
>> ORPV DEM+9*
>> ORTS DEM+7*
>> ORVP DEM+3*
>> ORWARD DEM+7*, DEM+11
>> SEX DEM+4*
VA DEM+13!
VA("PID" DEM+4
>> VA200 DEM+3*
VADM DEM+13!
VADM(1 DEM+4
VADM(3 DEM+4
VADM(4 DEM+4
VADM(5 DEM+4
VAERR DEM+13!
VAIN DEM+13!, LOC+4!
VAIN(2 DEM+7
VAIN(3 DEM+7
VAIN(4 DEM+7, LOC+2, LOC1+1
VAIN(5 DEM+7
VAINDT DEM+4!
>> X DEM+11*, DOC+2*, DOC+3*
Y DEM+13!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All