Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Routine: GMRCPC1

Package: Consult Request Tracking

Routine: GMRCPC1

Information

GMRCPC1 ;SLC/dee - List Manager Routine: Collect and display consults by service and status ;1/27/00

Source Information

Source file <GMRCPC1.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Consult Request Tracking	1	(EN,EXIT)^GMRCPC
Kernel	1	$$LOW^XLFSTR
List Manager	1	FULL^VALM1
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 12

Package	Total	Caller Graph
Consult Request Tracking	9	GMRC IF CONSLTS SELECT NUMBERED GMRC IF CONSLTS SELECT STATUS GMRC OUTSTD CONSLTS SELECT NUMBERED GMRC OUTSTD CONSLTS SELECT STATUS GMRC RPT CONSULTS BY STATUS GMRC RPT NUMBERED CONSULTS GMRCIR GMRCPC GMRCPSL1
Electronic Health Modernization	2	EHM-00036 EHM-00037
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ENSTS	;GMRC List Manager Routine -- Second entry point for GMRC PENDING CONSULTS with user selected statuses
NEWSTS	;
STS()	;Select a set of status for view.
STSAGAIN	;Loop to get another status.
END
STCK(RES)
CASE	;
ENDCASE
CKCODE(CODE)	;
FND(CD)	;status already selected?
NUMBER	;

External References

Name	Field # of Occurrence
^DIR	STSAGAIN+9
EN^GMRCPC	ENSTS+3
EXIT^GMRCPC	ENSTS+2
FULL^VALM1	STS+1
$$LOW^XLFSTR	STSAGAIN+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Already selected" Line Location: CKCODE+1
Routine Call	DIR Line Location: STSAGAIN+9

Label References

Name	Line Occurrences
$$FND	CKCODE+1
$$STS	ENSTS+1, NEWSTS+3
CKCODE	CASE+4, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11, CASE+12, CASE+13 , CASE+14, CASE+15, CASE+16, CASE+17, CASE+18, CASE+19, CASE+20
END	STSAGAIN+10, STSAGAIN+11
STCK	STSAGAIN+12
STSAGAIN	STSAGAIN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	FND~, FND+1, FND+2, FND+3
CODE	STCK+1~, CASE+4*, CKCODE~, CKCODE+1, CKCODE+2, CKCODE+3
DIR	STS+2~
DIR("A"	STSAGAIN+4, STSAGAIN+7
DIR("B"	STSAGAIN+5*, STSAGAIN+8!
DIR(0	STSAGAIN+3*
>> DTOUT	STSAGAIN+10
>> DUOUT	STSAGAIN+10
>> GMRCCTRL	NUMBER+1, NUMBER+2
>> GMRCQUT	ENSTS+2, NEWSTS+4, STSAGAIN+10*
>> GMRCSTAT	ENSTS+1, NEWSTS+2, NEWSTS+3, NEWSTS+4*
GMRCSTCK	STS+2~, STSAGAIN+6, STSAGAIN+13, END, CASE+1, CKCODE+1, CKCODE+2, CKCODE+3*, FND+1, FND+2 , FND+3
>> IOBM	STS+1
>> IOSTBM	STS+1
>> IOTM	STS+1
RES	STCK~, CASE+1, CASE+3, CASE+5, CASE+6, CASE+7, CASE+8, CASE+9, CASE+10, CASE+11 , CASE+12, CASE+13, CASE+14, CASE+15, CASE+16, CASE+17, CASE+18, CASE+19, CASE+20
TEMPSTAT	NEWSTS+1~, NEWSTS+2*, NEWSTS+4
X	STS+2~
Y	STS+2~, STSAGAIN+11, STSAGAIN+12

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCPC1

Call Graph Total: 4

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Legend: