STANDARD DATA DICTIONARY #123.033 -- GMRC CONSULT MAPPING FILE 9/29/25 PAGE 1
STORED IN ^GMR(123.033, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used by the Consult Closure Tool to associate consults, clinics, and note titles.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: NAME(B)
LAST MODIFIED: APR 3,2018@15:31:55
123.033,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
MAXIMUM LENGTH: 30
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
Any descriptive free-text name.
CROSS-REFERENCE: 123.033^B
1)= S ^GMR(123.033,"B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,"B",$E(X,1,30),DA)
123.033,.02 INACTIVE 0;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter Y[es] to inactivate this configuration.
DESCRIPTION: Inactive configurations are not selectable in the report option, but will remain selectable in the
edit option.
123.033,.03 CPRS TEAM 0;3 POINTER TO OE/RR LIST FILE (#100.21)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""TM""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 11, 2006
HELP-PROMPT: Select a CPRS team.
DESCRIPTION: If a CPRS team is associated with the configuration, the team will be populated with the patients
identified by the report. Any pre-existing patients in the team will be replaced. Only manual
patient teams are selectable.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""TM"""
EXPLANATION: Only manual patient list teams are selectable.
123.033,.04 DAYS CONS->APPT 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1836)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a number between 0 and 1836, 0 decimal digits.
DESCRIPTION:
The maximum number of days between the consult and the appointment.
123.033,.05 DAYS APPT->NOTE 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1836)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a number between 0 and 1836, 0 decimal digits.
DESCRIPTION:
The maximum number of days between the appointment and the note.
123.033,.06 STOP CODE 0;6 POINTER TO CLINIC STOP FILE (#40.7)
INPUT TRANSFORM: S DIC("S")="N % S %=$P(^(0),U,3) I (%'>0)!(%>$$DT^XLFDT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM: S Y=$$GET1^DIQ(40.7,+Y,1)
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a stop code associated with the consult(s).
DESCRIPTION:
This is a stop code associated with the consult(s).
SCREEN: S DIC("S")="N % S %=$P(^(0),U,3) I (%'>0)!(%>$$DT^XLFDT)"
EXPLANATION: Only active clinic stops are selectable.
123.033,1000 CONSULTS SERVICE CONS;0 POINTER Multiple #123.0331
DESCRIPTION:
Consult services for the request.
123.0331,.01 CONSULTS SERVICE 0;1 POINTER TO REQUEST SERVICES FILE (#123.5) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0331) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a consult service.
DESCRIPTION:
This is the consult service for the request.
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0331)
EXPLANATION: Disabled consult services are not selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0331)
CROSS-REFERENCE: 123.0331^B
1)= S ^GMR(123.033,DA(1),"CONS","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"CONS","B",$E(X,1,30),DA)
123.033,2000 CONSULTS PROCEDURE CONP;0 POINTER Multiple #123.0332
DESCRIPTION:
Consult procedures that the configuration will look for.
123.0332,.01 CONSULTS PROCEDURE 0;1 POINTER TO GMRC PROCEDURE FILE (#123.3) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0332) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a consult procedure.
DESCRIPTION:
This is the consult procedure that the configuration will look for.
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0332)
EXPLANATION: Inactive consult procedures are not selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0332)
CROSS-REFERENCE: 123.0332^B
1)= S ^GMR(123.033,DA(1),"CONP","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"CONP","B",$E(X,1,30),DA)
123.033,3000 CONSULTS ORDER ITEM PROT;0 POINTER Multiple #123.0333
DESCRIPTION:
Consult order items for this request.
123.0333,.01 CONSULTS ORDER ITEM 0;1 POINTER TO PROTOCOL FILE (#101) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0333) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a consult order item.
DESCRIPTION:
Consult order item.
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0333)
EXPLANATION: Only consult order items are selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0333)
CROSS-REFERENCE: 123.0333^B
1)= S ^GMR(123.033,DA(1),"PROT","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"PROT","B",$E(X,1,30),DA)
123.033,4000 CONSULTS CLIN PROC CLPR;0 POINTER Multiple #123.0334
DESCRIPTION:
Consult clinical procedures for this request.
123.0334,.01 CONSULTS CLIN PROC 0;1 POINTER TO CP DEFINITION FILE (#702.01) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0334) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a consult clinical procedure.
DESCRIPTION:
This is the consult clinical procedure.
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0334)
EXPLANATION: Only active clinical procedures are selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0334)
CROSS-REFERENCE: 123.0334^B
1)= S ^GMR(123.033,DA(1),"CLPR","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"CLPR","B",$E(X,1,30),DA)
123.033,5000 CLINICS CLIN;0 POINTER Multiple #123.0335
DESCRIPTION:
Clinics associated with the consult(s).
123.0335,.01 CLINICS 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0335) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a clinic associated with the consult(s).
DESCRIPTION:
Clinic associated with the consult(s).
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0335)
EXPLANATION: Only clinics are selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0335)
CROSS-REFERENCE: 123.0335^B
1)= S ^GMR(123.033,DA(1),"CLIN","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"CLIN","B",$E(X,1,30),DA)
123.033,6000 NOTE TITLES NOTE;0 POINTER Multiple #123.0336
DESCRIPTION:
Note title associated with the consult(s) / clinic(s).
123.0336,.01 NOTE TITLES 0;1 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1) (Multiply asked)
INPUT TRANSFORM: S DIC("S")=$$DICS^GMRCCX(123.0336) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 01, 2017
HELP-PROMPT: Enter a note title associated with the consult(s) / clinic(s).
DESCRIPTION:
Note title associated with the consult(s) / clinic(s).
SCREEN: S DIC("S")=$$DICS^GMRCCX(123.0336)
EXPLANATION: Only titles are selectable.
PRE-LOOKUP: D LOOKUP^GMRCCX(.X,$G(D0,$G(Y(1))),123.0336)
CROSS-REFERENCE: 123.0336^B
1)= S ^GMR(123.033,DA(1),"NOTE","B",$E(X,1,30),DA)=""
2)= K ^GMR(123.033,DA(1),"NOTE","B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
CLINIC STOP (#40.7) STOP CODE (#.06)
CP DEFINITION (#702.01) CONSULTS CLIN PROC:CONSULTS CLIN PROC (#.01)
GMRC PROCEDURE (#123.3) CONSULTS PROCEDURE:CONSULTS PROCEDURE (#.01)
HOSPITAL LOCATION (#44) CLINICS:CLINICS (#.01)
OE/RR LIST (#100.21) CPRS TEAM (#.03)
PROTOCOL (#101) CONSULTS ORDER ITEM:CONSULTS ORDER ITEM (#.01)
REQUEST SERVICES (#123.5) CONSULTS SERVICE:CONSULTS SERVICE (#.01)
TIU DOCUMENT DEFINITION (#8925.1) NOTE TITLES:NOTE TITLES (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
GMRC CONSULT MAPPING INQIRE JAN 11, 2017@11:19 USER #0 Consult Closure Tool Configuration
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):
GMRC MAIN FEB 09, 2017 USER #0
GMRC BASIC DD #123.033
GMRC CONS SERV DD #123.0331
GMRC CONS PROC DD #123.0332
GMRC CLIN DD #123.0335
GMRC NOTE DD #123.0336
GMRC CONS PROT DD #123.0333
GMRC CONS CLPR DD #123.0334
GMRC STOP DD #123.033