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

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^GMR(123.3

Package: Consult Request Tracking

Global: ^GMR(123.3

Information

FileMan FileNo	FileMan Filename	Package
123.3	GMRC PROCEDURE	Consult Request Tracking

Description

This file is used for the maintenance of procedures used in the CONSULT/REQUEST TRACKING package. The procedures contained in this file are orderable in CPRS if not inactive.

Directly Accessed By Routines, Total: 35

Package	Total	Routines
Consult Request Tracking	31	GMRC PROCEDURE SETUP GMRC SERVICE USER MGMT GMRC1233 GMRC1235 GMRCAPI GMRCAR GMRCCP GMRCDRFR GMRCEDT2 GMRCEDT4 GMRCGUIU GMRCHL7B GMRCISG1 GMRCITST GMRCIUTL GMRCMED GMRCP85 GMRCPR0 GMRCSLM2 GMRCSLM3 GMRCTIU GMRCTIUE GMRCUTL1 GMRCYP15 GMRCYP50 GMRCYP68 IFC SENDING FACILITY PRE-V3 ACTION IENS FROM 123.1 RELATED SERVICES ^GMR(123.3 SYNONYM
Clinical Procedures	2	MDCONUT2 MDCONUTL
Imaging	2	^MAG(2006.5831 IMAGES PRINTED

Accessed By FileMan Db Calls, Total: 22

Package	Total	Routines
Consult Request Tracking	17	GMRC1233 GMRCAFRD GMRCAU GMRCEDT1 GMRCEDT2 GMRCEDT3 GMRCEDT4 GMRCGUIC GMRCHL72 GMRCIERR GMRCIUTL GMRCP5D GMRCPSL2 GMRCPSL3 GMRCPSL4 GMRCSLM1 GMRCYP15
Imaging	3	MAGDHOWE MAGDSTA8 MAGDTRDX
Clinical Procedures	2	MDCONUT2 MDCONUTL

Pointed To By FileMan Files, Total: 5

Package	Total	FileMan Files
Consult Request Tracking	2	REQUEST/CONSULTATION(#123)[4] GMRC CONSULT MAPPING(#123.033)[#123.0332(.01)]
Imaging	2	CLINICAL SPECIALTY DICOM & HL7(#2006.5831)[2] TELEREADER ACQUISITION SERVICE(#2006.5841)[1]
Text Integration Utility	1	TIU TEMPLATE(#8927)[.19]

Pointer To FileMan Files, Total: 5

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[126, #123.3128(.01)] NEW PERSON(#200)[129]
Clinical Procedures	1	CP DEFINITION(#702.01)[.04]
Consult Request Tracking	1	REQUEST SERVICES(#123.5)[#123.32(.01)]
Medicine	1	PROCEDURE/SUBSPECIALTY(#697.2)[.05]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>63!($L(X)<3)!'(X'?1P.E)!($O(^GMR(123.3,"B",X,0))'="") X` LAST EDITED: `JUL 20, 2006` HELP-PROMPT: `Answer must be a unique name between 3-63 characters in length.` DESCRIPTION: `This is the name of the procedure that will be requested within CPRS.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `123.3^B` `1)= S ^GMR(123.3,"B",$E(X,1,30),DA)=""` `2)= K ^GMR(123.3,"B",$E(X,1,30),DA)`
.02	INACTIVE	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 08, 1999` HELP-PROMPT: `Enter YES if this procedure is no longer used.` DESCRIPTION: `The INACTIVE field, if set to YES causes a procedure to no longer be selectable when ordering within CPRS. Existing requests for this procedure may be processed to completion even if the procedure is inactive.`
.04	CLINICAL PROCEDURE	0;4	POINTER TO CP DEFINITION FILE (#702.01)	CP DEFINITION(#702.01) INPUT TRANSFORM: `S DIC("S")="I $P(^MDS(702.01,+Y,0),U,9)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 04, 2001` HELP-PROMPT: `Enter the Clinical Procedure to associate with this item` DESCRIPTION: `This field provides a mapping between the CP DEFINITIONS (#702.01) file and the GMRC PROCEDURES file. Orders placed for a procedure having a valid entry in this field will be processed and resulted via the Clinical` `Procedures package.` SCREEN: `S DIC("S")="I $P(^MDS(702.01,+Y,0),U,9)"` EXPLANATION: `Only active procedures may be selected.` CROSS-REFERENCE: `123.3^AC` `1)= S ^GMR(123.3,"AC",$E(X,1,30),DA)=""` `2)= K ^GMR(123.3,"AC",$E(X,1,30),DA)` `This field allows the sorting of all procedures linked to a given CP DEFINITION`
.05	TYPE OF PROCEDURE	0;5	POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2)	PROCEDURE/SUBSPECIALTY(#697.2) INPUT TRANSFORM: `S DIC("S")="I $$PATCH^XPDUTL(""MC2.327"")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `FEB 01, 2001` HELP-PROMPT: `Select the appropriate type of procedure` DESCRIPTION: `This field indicates which type of medicine procedure and thus which result file in the Medicine Package will hold results for this procedure.` `Coordination may be necessary with the Medicine Adpac to determine the correct procedure mapping.` `If this field is not entered, the procedure may still be resulted using a TIU document, but Medicine results may not be linked to requests for this procedure.` `This field invokes IA# 616.` SCREEN: `S DIC("S")="I $$PATCH^XPDUTL(""MC2.327"")"` EXPLANATION: `MC2.327 is required to utilize the Medicine interface`
.06	PROTOCOL	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUN 01, 2000` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This field serves as a placeholder for a conversion value. The field` `contains the pointer value of the PROTOCOL that represented this` `procedure before conversion.` CROSS-REFERENCE: `123.3^AP` `1)= S ^GMR(123.3,"AP",$E(X,1,30),DA)=""` `2)= K ^GMR(123.3,"AP",$E(X,1,30),DA)`
.07	PROVISIONAL DX PROMPT	0;7	SET	'O' FOR OPTIONAL; 'R' FOR REQUIRED; 'S' FOR SUPPRESS; LAST EDITED: `DEC 01, 2000` HELP-PROMPT: `Enter a code to indicate the type of input allowed by CPRS when entering a provisional diagnosis` DESCRIPTION: `This field will be used by CPRS to determine how to prompt for the provisional diagnosis when ordering this procedure. If this field is set to OPTIONAL, the user will be prompted for the provisional diagnosis but may` `bypass answering the prompt. If the field is set to SUPPRESS, the user will not be presented with the provisional diagnosis prompt. If set to REQUIRED, the user must answer the prompt to continue placing the order.`
.08	PROVISIONAL DX INPUT	0;8	SET	'F' FOR FREE TEXT; 'L' FOR LEXICON; LAST EDITED: `DEC 01, 2000` HELP-PROMPT: `Enter a code to indicate the type of input allowed by CPRS when entering a provisional diagnosis` DESCRIPTION: `This field will determine the method that CPRS will use to prompt the user for input of the provisional diagnosis when ordering. If set to FREE TEXT, the user may type any text from 2-80 characters in length. If set to` `LEXICON, the user will be required to select a coded diagnosis from the Clinical Lexicon.`
.09	RESTRICT DEFAULT REASON EDIT	0;9	SET	'0' FOR UNRESTRICTED; '1' FOR ASK ON EDIT ONLY; '2' FOR NO EDITING; LAST EDITED: `OCT 17, 2000` HELP-PROMPT: `Choose 0, 1 or 2` DESCRIPTION: `If a DEFAULT REASON FOR REQUEST exists for this procedure this field affects the ordering person's ability to edit the default reason while placing an order.` `0 - UNRESTRICTED` `User will be able to edit the default text at any time.` `1 - ASK ON EDIT ONLY` `User will only be allowed to edit the default reason if the` `order is edited before releasing to the service.` `2 - NO EDITING` `User will not be allowed to edit the default reason at any` `time.` `The value of this field will be ignored if no DEFAULT REASON FOR REQUEST exists for this procedure.`
1	SYNONYM	1;0	Multiple #123.31	123.31
2	RELATED SERVICES	2;0	POINTER Multiple #123.32	123.32
3	INTERNAL NAME	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `FEB 01, 2002` HELP-PROMPT: `Enter a name by which this service can be referred` DESCRIPTION: `This field holds a name that can be used for internal name-spacing. This name will not be viewable to users when selecting a procedure. This name may be used to look up entries in the file via VA Fileman and the Setup` `Procedures option.` CROSS-REFERENCE: `123.3^D` `1)= S ^GMR(123.3,"D",$E(X,1,30),DA)=""` `2)= K ^GMR(123.3,"D",$E(X,1,30),DA)` `This cross-reference allows the look up of a procedure by the INTERNAL NAME.`
124	DEFAULT REASON FOR REQUEST	124;0	WORD-PROCESSING #123.3124	LAST EDITED: `DEC 01, 2000` DESCRIPTION: `This field will allow a boilerplate of text to be imported into the reason for request when placing orders for this procedure. If the user places an order using a quick order having boilerplate text, that text will` `supersede any default text stored in this field.` `This field may contain any text including TIU objects. TIU Objects must be enclosed in vertical bars (e.g. \|PATIENT NAME\| ).`
125	PREREQUISITE	125;0	WORD-PROCESSING #123.3125	LAST EDITED: `DEC 01, 2000` HELP-PROMPT: `Enter any pre-requisite information for ordering this procedure.` DESCRIPTION: `This word-processing field is utilized to communicate pre-requisite information to the ordering person prior to ordering this procedure.` `This field will be presented to the ordering person upon selecting a procedure and will allow them to abort the ordering at that time if they choose.` `TIU objects may be embedded within this field which will be resolved for the current patient during ordering. Any TIU objects must be contained within vertical bars (e.g. \|BLOOD PRESSURE\| ).`
126	IFC ROUTING SITE	IFC;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""INST"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 18, 2002` HELP-PROMPT: `Enter the facility where this procedure will be performed.` DESCRIPTION: `This field contains the VA facility that will perform this procedure when requested. When a request for this procedure is ordered, it will automatically be routed to the VA facility in this field.` SCREEN: `S DIC("S")="N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""INST"")"` EXPLANATION: `Only national INSTITUTION file entries may be selected.`
127	IFC REMOTE PROC NAME	IFC;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>63!($L(X)<3) X` LAST EDITED: `NOV 20, 2001` HELP-PROMPT: `Answer must be 3-63 characters in length.` DESCRIPTION: `This field contains the name of the PROCEDURE that will be requested at the VAMC defined in the IFC ROUTING SITE field.` `Enter the name of the procedure exactly as it is named at the remote facility. If this name does not match the name of the procedure at the routing site, the request will fail to be filed at the remote site. This will` `delay or prohibit the performance and processing of this request.`
128	IFC SENDING FACILITY	IFCS;0	POINTER Multiple #123.3128	123.3128
129	IFC COORDINATOR	IFC;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 07, 2001` DESCRIPTION: `The person entered in this field will have expanded abilities to correct IFC records that require manual intervention to remain updated.` `The full capabilities of this field are not yet defined.`

External References

Name	Field # of Occurrence
^DIC	.04+1, .05+1, 126+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.3 - [#123.3]	.01+1, .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .06(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), .06(XREF 1S), .06(XREF 1K), 3(XREF 1S), 3(XREF 1K)
DIC	.04+1!, .05+1!, 126+1!*
DIC("S"	.04+1, .04SCR+1, .05+1, .05SCR+1, 126+1, 126SCR+1
>> DIE	.04+1, .05+1, 126+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .04+1!, .04(XREF 1S), .04(XREF 1K), .05+1!, .06+1!, .06(XREF 1S), .06(XREF 1K) , 3+1!, 3(XREF 1S), 3(XREF 1K), 126+1*!, 127+1!
>> Y	.04+1, .05+1, 126+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All