Routine: GMRCPS

Information

GMRCPS ;SLC/KCM,DLT -Select Service/specialty to send Consult to ;5/20/98 14:20

Source file <GMRCPS.m>

Package	Total	Call Graph
Consult Request Tracking	1	(EN,READ)^GMRCASV
VA Fileman	1	^DIC

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCPR0

Name	Comments	DBIA/ICR reference
SERV	;Select from Hierarchy of services defined in 123.5
LSRV1
ASRV
LSRV
SERV1	;
LKUP

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASRV+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SERV+2
Function Call: WRITE	Prompt: !,"Select 'TO' Service/Specialty: " Line Location: SERV+2
Function Call: WRITE	Prompt: !,?2,$P(^(0),U) Line Location: LSRV1+1
Function Call: WRITE	Prompt: @IOF Line Location: LSRV1+3
Function Call: WRITE	Prompt: ! Line Location: LSRV1+5
Routine Call	DIC Line Location: LKUP

Name	Field # of Occurrence
DIC	LKUP*!
DIC("S"	LKUP*
DIC("W"	LKUP*
DIC(0	LKUP*
DIROUT	SERV+2*, SERV+4!, LSRV1+5!
DTIME	SERV+2
DUOUT	SERV+4!, LSRV1, LSRV1+1, LSRV1+2, LSRV1+5!
GMRC1	SERV+1~, SERV+2, LKUP+1, LSRV
>> GMRCACT("D"	SERV+3*
GMRCBUF	SERV1+1*, SERV1+2, SERV1+3, SERV1+4!
GMRCDG	ASRV, SERV+1, SERV+2, SERV+3, SERV1+1, SERV1+4!, LKUP+1, LKUP+2, LSRV, LSRV1 , LSRV1+1, LSRV1+4*
>> GMRCDGT	SERV+2*
GMRCGRP	SERV1+2!
GMRCGRP("NAM"	SERV1+2*
GMRCGRP("ROOT"	SERV1+2*
>> GMRCSEL	SERV1+2, LSRV1+3
GMRCSEQ	SERV1+4!
GMRCSTXT	SERV+1*, SERV+4!
GMRCSTXT(0	SERV+1, LKUP+1, LSRV, LSRV1, LSRV1+3, LSRV1+4
>> I	LSRV1*, LSRV1+1
IOF	LSRV1, LSRV1+2, LSRV1+3
IOSL	LSRV1+2
U	LSRV1+1
X	SERV+1!, SERV+2*, LSRV1, LSRV1+3
>> Y	LKUP+1, LKUP+2
>> Y(0	LKUP, LKUP+1