Routine: GMRCONS1

Package	Total	Call Graph
Registration	3	$$TESTPAT^VADPT EN^VALM FULL^VALM1
VA Fileman	3	^%DT MIX^DIC1 WAIT^DICD
Consult Request Tracking	2	^GMRCONS2 $$TESTPT^GMRCPC1

Package	Total	Caller Graph
Consult Request Tracking	2	GMRC RPT SD SCH-MGT CONSULTS GMRCONS2

Entry Points

External References

Name	Field # of Occurrence
^%DT	SD, SD+1
MIX^DIC1	SERV+5
WAIT^DICD	START
^GMRCONS2	START+12
$$TESTPT^GMRCPC1	SD+3
$$TESTPAT^VADPT	START+7, START+8
EN^VALM	EN+2
FULL^VALM1	SERV

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Ending Date Can Not Be Before Starting Date.",! Line Location: SD+2
Function Call: WRITE	Prompt: @IOF,CLNC," (",A,")",! Line Location: CLINIC+1
Function Call: READ	Prompt: "Press enter to continue or '^' to exit. " Formatting: !! Timeout: DTIME Variable: HLD Line Location: PROMPT+0
Routine Call	VALM Line Location: EN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	SERVICE+1, SERVICE+3, ASP+3, ASP+5
^DPT - [#2]	START+6
^GMR(123 - [#123]	START+5, ACTIVE+4, ACTIVE+9, SCHEDULE+4, EDITRSB, EDITRSB+2
^GMR(123.1 - [#123.1]	START+6, EDITRSB
^GMR(123.5 - [#123.5]	START+1, START+2, SUBSERV2+3, SUBSERV2+4, SUBSERV2+5, SERVICE+1, SERVICE+2, CLINIC+1
^ORD(100.01 - [#100.01]	SERV+6
^SC - [#44]	SCHEDULE+9, SCHEDULE+10, ASP+3
^SC("AHST1"	START+9, ACTIVE, SCHEDULE, SCHEDULE+13
^SC("AWAS1"	START+9, SCHEDULE+9, SCHEDULE+13
^SDWL(409.3 - [#409.3]	ASP+1
^SDWL(409.31 - [#409.31]	ASP+5
^SDWL(409.32 - [#409.32]	ASP+3
^TMP("GMRCCS"	SERV+3!, START, START+2, START+3, START+5, EXIT2+6!, SUBSERV2+5*
^TMP("GMRCR"	START!
^TMP($J	START!, START+10, SERVICE+3, ACTIVE+1, ACTIVE+2, ACTIVE+5, ACTIVE+7, SCHEDULE+1, SCHEDULE+2, SCHEDULE+5* , SCHEDULE+7, SCHEDULE+11, SCHEDULE+12, SCHEDULE+13, PENDING+1, PENDING+2, PENDING+3, ASP+3, ASP+5, INCMPLTE , CANCELED, DSCNTUED, COMPLETE, CLOSE, TOC, TCC, ACTERNS, ACTERCP, ACTERCC, ACTERAP , ACTEROW*, KILNODE!

Label References

Name	Line Occurrences
ASP	ACTIVE, SCHEDULE, PENDING
EDITRSB	ACTIVE+9
KILNODE	ACTIVE+1, ACTIVE+2, ACTIVE+8, SCHEDULE+1, SCHEDULE+2, SCHEDULE+8, SCHEDULE+11, SCHEDULE+12, SCHEDULE+13, PENDING+1 , PENDING+2, PENDING+3, ACTERNS, ACTERCP, ACTERCC, ACTERAP, ACTEROW
PROMPT	CHKLIN
SD	SD+2
SERV	EN+1
SERVICE	START, START+2, SUBSERV2+5
SUBSERV2	START+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SD, SD+1
>> %DT("A"	SD, SD+1
A	EXIT2!, CLINIC+1
ACT	EXIT2!, EDITRSB*, EDITRSB+1
AD	EXIT2!, ACTIVE+1, ACTIVE+2, ACTIVE+5, ACTIVE+7, SCHEDULE+1, SCHEDULE+2, SCHEDULE+5, SCHEDULE+7, SCHEDULE+11 , SCHEDULE+12, SCHEDULE+13, PENDING+1, PENDING+2, PENDING+3, ASP+4, ASP+6, INCMPLTE, CANCELED, DSCNTUED , COMPLETE, CLOSE, TOC, TCC, ACTERNS, ACTERCP, ACTERCC, ACTERAP, ACTEROW, KILNODE
AHST1	START+9*, START+10, EXIT2!
ASP8	EXIT2+4!, ACTIVE+2, SCHEDULE+2, PENDING+2, ASP+1, ASP+6
ASP9	EXIT2+4!, ACTIVE+1, SCHEDULE+1, PENDING+1, ASP+1, ASP+4
ATDPT	START+6*, EXIT2!
AW	EXIT2!, SCHEDULE+9*
AWAS1	START+9*, START+10, EXIT2!
B	EXIT2!
BB	EXIT2+2!
C	EXIT2+2!
CHKOT	EXIT2!, SCHEDULE+10*, SCHEDULE+11, SCHEDULE+12
CLNC	EXIT2!, CLINIC+1, ASP+3, ASP+5*
>> CLNC2	ASP+3, ASP+4, ASP+5, ASP+6
CLNCNM	EXIT2+2!
CMHD	EXIT2+4!, CHKLIN
CMMT	EXIT2!, EDITRSB+2*, ACTERNS, ACTERCP, ACTERCC, ACTERAP
CNSDT	EXIT2+4!
CNSLT	EXIT2+4!
CNSLTND	EXIT2+4!
CNT	SERV+4, START, START+2, EXIT2+5!, SUBSERV2+5
CS	START, START+1, START+2, EXIT2!, SUBSERV2+1~, SUBSERV2+5*, SERVICE+1, SERVICE+2, ACTIVE, ACTIVE+1 , ACTIVE+2, ACTIVE+4, ACTIVE+5, ACTIVE+7, ACTIVE+9, SCHEDULE, SCHEDULE+1, SCHEDULE+2, SCHEDULE+4, SCHEDULE+5 , SCHEDULE+7, SCHEDULE+9, SCHEDULE+10, SCHEDULE+11, SCHEDULE+12, SCHEDULE+13, PENDING+1, PENDING+2, PENDING+3, INCMPLTE , CANCELED, DSCNTUED, COMPLETE, CLOSE, TOC, TCC, EDITRSB, EDITRSB+2, ACTERNS, ACTERCP , ACTERCC, ACTERAP, ACTEROW, KILNODE
CSS	EXIT2!, SCHEDULE+9*, SCHEDULE+10
D	SERV+5*, EXIT2+2!
DIC	SERV+2!, SERV+5*!, EXIT2+4!
DIC("A"	SERV+5*
DIC(0	SERV+5*
DTIME	PROMPT
ED	SD+1*, SD+2, START+5, EXIT2!
EN	EXIT2!, ACTIVE+9*, EDITRSB, EDITRSB+1
EN2	EXIT2!, ACTIVE+9, EDITRSB+1, EDITRSB+2
FND	ACTIVE+9!, SCHEDULE+9!, ACTERNS, ACTERCP, ACTERCC, ACTERAP, ACTEROW*
GIEN	START+5*, START+9, START+10, EXIT2!
>> GMRCQUT	SD+4
GMRND	EXIT2!, EDITRSB*
GMRNOSRV	EN+1!, SERV+5, SD, SD+1*
GMRTST	EN+1!, SD+3*, START+7, START+8
GRP	START+1*, EXIT2!
GXHEC	EXIT2!
H2	EXIT2!
HEC	EXIT2!
HECA	EXIT2!
HEX	EXIT2!
>> HLD	CHKLIN, PROMPT
I	START+4*, EXIT2!
ICNT	START+3*, EXIT2+5!
>> IOBM	SERV
IOF	CLINIC+1
IOSL	CHKLIN, IOSL
IOST	PROMPT
>> IOSTBM	SERV
>> IOTM	SERV
L4	START+6*, START+10, EXIT2!
LC	EXIT2!
LGTH	EXIT2!
LGTH1	EXIT2!
LSTACT	START+6*, START+10, EXIT2!, ACTIVE+9
ND	START+5*, START+6, EXIT2!
ORD	SERV+6*, EXIT2!
ORDATE	EXIT2!, ASP+1*, ASP+4, ASP+6
P3	EXIT2!
P4	EXIT2+4!
P8	EXIT2!, ASP+2*, ASP+5
P9	EXIT2!, ASP+2*, ASP+3
PD	EXIT2+3!
>> PG	CHKLIN*
POP	EXIT2+4!
>> PROMPT	PROMPT*
PRTCNDT	EXIT2+4!
PSD	SD*, EXIT2+3!
PTIEN	START+6*, START+7, START+8, START+10, EXIT2!, ASP+1
PTNM	START+6*, START+10, EXIT2!
RS	SERV+6*, START, START+1, EXIT2!
S	EXIT2!
SC	EXIT2!, SERVICE+1, SERVICE+2
SCDT	EXIT2!, SCHEDULE+9*, SCHEDULE+10
SCLNC	EXIT2!, SCHEDULE+9*, SCHEDULE+10
SD	SD*, SD+2, START+5, EXIT2!
SDI	START+5*, START+10, EXIT2!
SDWL	EXIT2!, ASP+1*
SDWLND	EXIT2!, ASP+1*, ASP+2
SERV	START+5*, START+10, EXIT2!
SIEN	EXIT2+1!, SCHEDULE+9*, SCHEDULE+10
SRV	EXIT2+2!, ACTIVE+1, ACTIVE+2, ACTIVE+5, ACTIVE+7, SCHEDULE+1, SCHEDULE+2, SCHEDULE+5, SCHEDULE+7, SCHEDULE+11 , SCHEDULE+12, SCHEDULE+13, PENDING+1, PENDING+2, PENDING+3, INCMPLTE, CANCELED, DSCNTUED, COMPLETE, CLOSE , TOC, TCC, ACTERNS, ACTERCP, ACTERCC, ACTERAP, ACTEROW
SRVCON	START+6*, START+10, EXIT2+4!
SRVNM	SERV+6*, EXIT2+2!
ST	SERV+6!*, START+4!, EXIT2+1!, KILNODE
STAT	SERV+2!, SERV+6!, EXIT2+1!, ASP+1*, ASP+4, ASP+6
STAT(	SERV+6*, START+5, START+9
STATS	START+9*, START+10, START+11, EXIT2+2!
STATUS	START+5*, START+9, EXIT2+1!
STCD	EXIT2+4!, ASP+3*
STOPCD	EXIT2+1!, ASP+3, ASP+5
>> STPCLNC	SERVICE+1*, SERVICE+3, ASP+4, ASP+6
STPCOD	EXIT2+1!, SERVICE+1, SERVICE+2, SERVICE+3*
SUBTOT	EXIT2+2!
SUM	EXIT2+1!
SUM2	EXIT2+1!
TEXT	EXIT2+1!
TND	EXIT2+1!, ACTIVE+1, ACTIVE+2, ACTIVE+5, ACTIVE+7, SCHEDULE+1, SCHEDULE+2, SCHEDULE+5, SCHEDULE+7, SCHEDULE+11 , SCHEDULE+12, SCHEDULE+13, PENDING+1, PENDING+2, PENDING+3, INCMPLTE, CANCELED, DSCNTUED, COMPLETE, CLOSE , TOC, TCC, ACTERNS, ACTERCP, ACTERCC, ACTERAP, ACTEROW
TOT	SERV+2!, EXIT2+1!
TOT(	START+4, START+11
TOTAL	SERV+2!, SERV+5, START+11, EXIT2+2!
TOTALTX	EXIT2+1!
TX	EXIT2+2!
TYPE	EXIT2+1!
U	SERV+6, START+1, START+2, START+5, START+6, START+9, START+10, SUBSERV2+4, SUBSERV2+5, SERVICE+1 , SERVICE+2, SERVICE+3, CLINIC+1, ACTIVE+4, SCHEDULE+4, SCHEDULE+9, SCHEDULE+10, ASP+1, ASP+2, ASP+3 , ASP+5, EDITRSB, CHKLIN, PROMPT
>> WL	ACTIVE+1, ACTIVE+2, ACTIVE+3, SCHEDULE+1, SCHEDULE+2, SCHEDULE+3, PENDING+1, PENDING+2, PENDING+3, ASP+1
X	EXIT2+4!
XCS	EXIT2+5!, SUBSERV2+1~, SUBSERV2+4*, SUBSERV2+5
XGRP	EXIT2+5!, SUBSERV2+1~, SUBSERV2+2, SUBSERV2+3, SUBSERV2+4
XSERV	SERV+1~, START+3*, EXIT2+5!, SUBSERV2+3, SUBSERV2+4
Y	SERV+5, SERV+6, SD, SD+1, SD+4*, EXIT2+4!
Y(0	SERV+6

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCONS1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
COMPLETE
SERVICE	;
CANCELED
TOC
PENDING
IOSL
SERV
ASP	;
EDITRSB
SUBSERV2	;
CLOSE
ACTERNS
TCC
EN	;
PROMPT
SCHEDULE
DSCNTUED
KILNODE
START
CLINIC	;
CHKLIN
ACTIVE
ACTEROW
INCMPLTE
EXIT2
ACTERAP
ACTERCP
ACTERCC
SD