Sub-Field: 123.32

Parent File	Name	Number	Package
GMRC PROCEDURE(#123.3)	RELATED SERVICES	123.32	Consult Request Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RELATED SERVICES	0;1	POINTER TO REQUEST SERVICES FILE (#123.5)	REQUEST SERVICES(#123.5) INPUT TRANSFORM: `I $P($G(^GMR(123.5,+X,0)),"^",2)=9!($P($G(^GMR(123.5,+X,0)),"^",2)=1)!(+$G(^GMR(123.5,+X,"IFC")))!(+$O(^GMR(123.5,+X,"IFCS",0))) D EN^DDIOL("This service is not orderable. Try again.") K X` LAST EDITED: `MAY 02, 2006` HELP-PROMPT: `Enter the service that will perform this procedure` DESCRIPTION: `This field will indicate which Consult services from the REQUEST SERVICES (#123.5) file are responsible for the processing of requests for this procedure.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `123.32^B` `1)= S ^GMR(123.3,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(123.3,DA(1),2,"B",$E(X,1,30),DA)`

RELATED SERVICES

0;1

POINTER TO REQUEST SERVICES FILE (#123.5)

INPUT TRANSFORM: I $P($G(^GMR(123.5,+X,0)),"^",2)=9!($P($G(^GMR(123.5,+X,0)),"^",2)=1)!(+$G(^GMR(123.5,+X,"IFC")))!(+$O(^GMR(123.5,+X,"IFCS",0))) D EN^DDIOL("This service is not orderable. Try again.") K X
LAST EDITED: MAY 02, 2006
HELP-PROMPT: Enter the service that will perform this procedure
DESCRIPTION:
This field will indicate which Consult services from the REQUEST SERVICES (#123.5) file are responsible for the processing of requests for this procedure.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 123.32^B
1)= S ^GMR(123.3,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^GMR(123.3,DA(1),2,"B",$E(X,1,30),DA)