| SERV1 |
Gets list of orderable consult services.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
GMRCTO |
Input |
Set to 1 to not include disabled or tracking only
services
|
GMRCDG |
Input |
IEN of file 123.5 denoting consult service for which
to return child entries. For OE/RR, this is 'ALL SERVICES' entry.
|
TMP('GMRCSLIST',$J, |
Output |
^TMP("GMRCSLIST",$J,COUNTER)=IEN^NAME^0^(+ if child
exists)^USAGE
|
TMP('GMRCS',$J, |
Output |
^TMP("GMRCS",$J,IEN)=CONSULT SERVICE NAME
|
|
ASRV |
Entry point to select a new consult service
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
GMRCDG |
Output |
IEN of consult service selected
|
GMRCQUT |
Output |
1 if user aborts service question
|
TMP('GMRCSLIST',$J, |
Output |
^TMP("GMRCSLIST",$J,COUNTER)=IEN^NAME^0^(+ if child exists)^USAGE
|
TMP('GMRCS',$J, |
Output |
^TMP("GMRCS",$J,IEN)=CONSULT SERVICE NAME
|
|
