STANDARD DATA DICTIONARY #697.2 -- PROCEDURE/SUBSPECIALTY FILE 6/27/25 PAGE 1
STORED IN ^MCAR(697.2, (79 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores various File Manager and Screen Handler parameters associated with medical procedures, including global locations,
names of File Manager full and brief input templates, and names of Screen Handler enter/edit screens.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PRINT NAME (#7)[R]
"W": W:$D(MCGEN) ?43," Release Contol is turned ",$S($P(^(0),U,14):"on",1:"off")
POINTED TO BY: TYPE OF PROCEDURE field (#.05) of the GMRC PROCEDURE File (#123.3)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#690.24) of the MEDICINE VIEW File (#690.2)
PROCEDURE field (#2) of the HEMATOLOGY File (#694)
PROCEDURE/SUBSPECIALTY field (#9) of the PROCEDURE TERM File (#694.8)
PROCEDURE field (#.01) of the *PROCEDURE sub-field (#697.01) of the ANATOMY File (#697)
PROCEDURE field (#.01) of the *PROCEDURE sub-field (#697.53) of the MEDICAL DIAGNOSIS/ICD CODES File (#697.5)
PROCEDURE field (#1) of the ENDOSCOPY/CONSULT File (#699)
SUBSPECIALTY field (#.05) of the GENERALIZED PROCEDURE/CONSULT File (#699.5)
PROCEDURE field (#.06) of the GENERALIZED PROCEDURE/CONSULT File (#699.5)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#699.551) of the GROSS File (#699.55)
PROCEDURE field (#.01) of the PROCEDURE sub-field (#699.571) of the MODIFIER File (#699.57)
PROCEDURE field (#.01) of the *PROCEDURE sub-field (#699.61) of the DIAG/THERAP INTERVENT File (#699.6)
CROSS
REFERENCED BY: NAME(B), PRINT NAME(BA), GLOBAL LOCATION(C), TYPE OF PROCEDURE(D)
697.2,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X
LAST EDITED: OCT 16, 1996
HELP-PROMPT: Answer must be 2-20 characters in length.
DESCRIPTION:
The short names of the various medicine procedures are stored here.
DELETE TEST: 1,0)= D EN^DDIOL("Deletion is not allowed!") I 1
LAYGO TEST: 1,0)= N MC S MC=+$O(^MCAR(697.2,"B",X,0)) D:MC EN^DDIOL("A '"_X_"' entry already exists, duplicates
are not allowed.") I 'MC
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 697.2^B
1)= S ^MCAR(697.2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(697.2,"B",$E(X,1,30),DA)
697.2,1 GLOBAL LOCATION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: MAR 31, 1992
HELP-PROMPT: ANSWER MUST BE 5-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field stores the global reference at which data for this type of medical procedure is stored.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 697.2^C
1)= S ^MCAR(697.2,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(697.2,"C",$E(X,1,30),DA)
This cross-reference allow quick access to the global location of the procedure.
697.2,1.1 MEDICAL PATIENT FIELD NUMBER 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1)!'(X?.3N.1".".3N) X
LAST EDITED: APR 29, 1992
HELP-PROMPT: Answer must be 1-7 characters in length.
DESCRIPTION: This is the field number of the Medical Patient field in the file corresponding to this
Procedure/Subspecialty. The system assumes that the field number is 1 unless another entry is
made.
697.2,2 SCREEN ONE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<3) X
LAST EDITED: APR 29, 1988
HELP-PROMPT: ANSWER MUST BE 3-16 CHARACTERS IN LENGTH
DESCRIPTION:
This holds the name of the first screen for those procedures which have a screen-oriented entry.
697.2,2.1 BRIEF SCREEN ONE 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<3) X
LAST EDITED: MAY 04, 1992
HELP-PROMPT: Answer must be 3-16 characters in length.
DESCRIPTION: This holds the name of the first screen for those procedures which have a brief screen-oriented
entry.
697.2,3 TYPE OF PROCEDURE 0;4 SET (Required)
'C' FOR CARDIOLOGY;
'G' FOR GI;
'H' FOR HEMATOLOGY;
'P' FOR PULMONARY ENDOSCOPY;
'Z' FOR CONSULT;
'PF' FOR PULMONARY FUNCTION TEST;
'R' FOR RHEUMATOLOGY;
'GEN' FOR GENERIC;
'I' FOR INTERNAL;
'HI' FOR INTERNAL HEMATOLOGY;
'N' FOR NEUROLOGY;
LAST EDITED: SEP 27, 1993
HELP-PROMPT: Enter the medical specialty with which this procedure is associated.
DESCRIPTION:
This field contains the medical specialty with which the procedure is associated.
CROSS-REFERENCE: 697.2^D
1)= S ^MCAR(697.2,"D",$E(X,1,30),DA)=""
2)= K ^MCAR(697.2,"D",$E(X,1,30),DA)
This cross-reference allow screening of procedures.
697.2,4 ENTRY POINT OF PRINT ROUTINE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
LAST EDITED: JAN 30, 1989
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the entry point of the print routine for use with summary of patient procedures
routine (MCARPS)
697.2,5 PRINT ROUTINE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<5) X
LAST EDITED: JAN 30, 1989
HELP-PROMPT: ANSWER MUST BE 5-8 CHARACTERS IN LENGTH
DESCRIPTION: This field holds the print routine name for use in the Summary of Patient Procedures routine
(MCARPS)
697.2,6 PRINT LINE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1) X
LAST EDITED: OCT 24, 1990
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: This field is used if the printing of the report is done in routine 'MCARP'. It sets the routine
line name for use by the print routine and the 'Summary of Patient Procedures'.
697.2,7 PRINT NAME 0;8 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!($O(^MCAR(697.2,"BA",X,0))) X
LAST EDITED: MAY 28, 1996
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This field stores the full length name of the medical procedure. This name is used on the print
reports. The name must be unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 697.2^BA
1)= S ^MCAR(697.2,"BA",$E(X,1,30),DA)=""
2)= K ^MCAR(697.2,"BA",$E(X,1,30),DA)
This cross-reference allow the quick access to the full name of the procedure.
697.2,8 USED WITH GENERIC MODULE? 0;9 SET
'1' FOR YES;
LAST EDITED: JAN 29, 1992
DESCRIPTION: This field is used to distinguish those sub-specialties entered through the Generic module and the
individul S.O.A.P. consults.
697.2,9 INPUT TEMPLATE 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'$D(^DIE("B",X)) X
LAST EDITED: MAY 01, 1992
HELP-PROMPT: Answer must be 3-30 characters in length, and must uniquely identify an existing Input Template for
this file.
DESCRIPTION: This field indicates what input template is to be used by File Manager in performing *full* line
entry/editing of the file in Field 1.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.2,10 BRIEF INPUT TEMPLATE 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'$D(^DIE("B",X)) X
LAST EDITED: MAY 01, 1992
HELP-PROMPT: Answer must be 3-30 characters in length, and must uniquely identify an existing brief Input
Template for this file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.2,11 MCESON 0;14 SET
'0' FOR OFF;
'1' FOR ON;
LAST EDITED: FEB 16, 1993
697.2,12 MCESKEY 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 16, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
697.2,13 VIEWING OF SUPERSEDED RECORD 0;16 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 15, 1993
DESCRIPTION: This field allow the manager to remove previous records that has been superseded from the general
users and key holders. Answering 'Yes' will allow the non-managers to view or print superseded
records. Answering 'No' will only allow the managers to view or print superseded records from the
managers menu.
697.2,14 RNV STATUS ON 0;17 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: APR 03, 2003
HELP-PROMPT: Allows the manager to allow release not verified status
DESCRIPTION: This field allows the manager(s) to remove Release Not Verified as a Status. If the Manager
answers "Yes" to RNV STATUS ON for a particular Procedure/Subspecialty, then users with the
subspecialty provider key can select Release Not Verified. If the Manager answers "No" to RNV
STATUS ON, the key holder can only select a verified status and must sign off on it.
697.2,15 VIEW ALL 0;18 SET
'1' FOR YES;
LAST EDITED: SEP 14, 1993
697.2,16 LOCALLY DEFINED 0;19 SET
'1' FOR YES;
LAST EDITED: MAY 24, 1996
DESCRIPTION:
This field is used to identify if the procedure name is locally defined.
697.2,1000 CPT CPT;0 POINTER Multiple #697.21 (Add New Entry without Asking)
697.21,.01 CPT 0;1 POINTER TO CPT FILE (#81) (Multiply asked)
LAST EDITED: JUN 11, 1996
HELP-PROMPT: Enter the CPT code(s) associated with this procedure.
DESCRIPTION:
This field allows the user to associate CPT codes with a procedure.
CROSS-REFERENCE: 697.21^B
1)= S ^MCAR(697.2,DA(1),"CPT","B",$E(X,1,30),DA)=""
2)= K ^MCAR(697.2,DA(1),"CPT","B",$E(X,1,30),DA)
697.2,1001 PROCEDURE/SUBSPECIALTY 1;1 SET (Required)
'P' FOR PROCEDURE;
'S' FOR SUBSPECIALTY;
LAST EDITED: MAY 23, 1997
HELP-PROMPT: Enter P for Procedure, S for Subspecialty
DESCRIPTION:
This new field is to identify if the entry is a procedure, or a subspecialty.
FILES POINTED TO FIELDS
CPT (#81) CPT:CPT (#.01)
INPUT TEMPLATE(S):
MCBUILDGENERIC MAY 15, 1997@11:21 USER #0 ^MCOPRG
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
MCARGEN JUL 01, 1997@14:59 USER #0 USED WITH GENERIC MODULE? EQUALS 1^YES
and LOCALLY DEFINED NULL
Or TYPE OF PROCEDURE EQUALS "P"^PULMONARY ENDOSCOPY
This sort template is to export the entries for generalized procedures,
and to fix three entries BRON, LAR, and LAV for Pulmonary Endoscopy.
FORM(S)/BLOCK(S):