Global: ^MCAR(697.2

FileMan FileNo	FileMan Filename	Package
697.2	PROCEDURE/SUBSPECIALTY	Medicine

Package	Total	Routines
Medicine	48	MCAR7E MCARAM MCARATVE MCARDSS MCARE MCARGD MCARGE MCARGES MCARGP MCAROGR MCAROHB MCARP MCARP1 MCARPAC MCARPACE MCARPCE MCARPS MCARPS1 MCARPS2 MCARPS3 MCARUTL2 MCARUTL3 MCARUTL5 MCEPROC MCESCONV MCESEDT MCESMFDV MCMAGDSP MCOPRG MCOPRG1 MCOR MCORMN MCORMN0 MCORMN01 MCORMN1 MCPARC MCPFTE MCPFTI MCPOS01D MCPOS04 MCPOS0A MCPOS0B MCPOS0E MCPRE02 MCPSGEN MCRH1 MCUIMAG0 MCWORKLD
Consult Request Tracking	1	GMRCTIUP
Health Summary	1	GMTSMCPZ

Package	Total	Routines
Medicine	5	MCOPRG MCOPRG1 MCPRE02 MCPREDT MCPSGEN
Consult Request Tracking	4	GMRCAR GMRCGUIU GMRCMED GMRCSLM3

Package	Total	FileMan Files
Medicine	10	MEDICINE VIEW(#690.2)[#690.24(.01)] HEMATOLOGY(#694)[2] PROCEDURE TERM(#694.8)[9] ANATOMY(#697)[#697.01(.01)] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#697.53(.01)] ENDOSCOPY/CONSULT(#699)[1] GENERALIZED PROCEDURE/CONSULT(#699.5)[.05, .06] GROSS(#699.55)[#699.551(.01)] MODIFIER(#699.57)[#699.571(.01)] DIAG/THERAP INTERVENT(#699.6)[#699.61(.01)]
Consult Request Tracking	1	GMRC PROCEDURE(#123.3)[.05]

Package	Total	FileMan Files
CPT Files	1	CPT(#81)[#697.21(.01)]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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)
1	GLOBAL LOCATION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** 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.
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.
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.
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.
3	TYPE OF PROCEDURE	0;4	SET	**********************REQUIRED FIELD********************** '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.
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)
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)
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'.
7	PRINT NAME	0;8	FREE TEXT	**********************REQUIRED FIELD********************** 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.
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.
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`
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`
11	MCESON	0;14	SET	'0' FOR OFF; '1' FOR ON; LAST EDITED: `FEB 16, 1993`
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.`
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.
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.
15	VIEW ALL	0;18	SET	'1' FOR YES; LAST EDITED: `SEP 14, 1993`
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.
1000	CPT	CPT;0	POINTER Multiple #697.21	697.21
1001	PROCEDURE/SUBSPECIALTY	1;1	SET	**********************REQUIRED FIELD********************** '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.

NAME: A-LEAD IMP	NAME: ABG	NAME: ARTH	NAME: ARTHWC	NAME: ARTRIAL L	NAME: AUD	NAME: BMA	NAME: BMB
NAME: BRON	NAME: CARD	NAME: CATH	NAME: COL	NAME: CONSULT	NAME: CVP LINE	NAME: DEN	NAME: DRM
NAME: ECG	NAME: ECHO	NAME: EEG	NAME: EEG	NAME: EGD	NAME: EMG	NAME: ENDOC	NAME: ENT
NAME: EP	NAME: ERC	NAME: ETT	NAME: GEN	NAME: GEN. MED.	NAME: GEN.IMPL.	NAME: GENERIC PROCEDURE	NAME: GENERIC SUBSPECIALTY
NAME: GER	NAME: GI	NAME: GIENDO	NAME: GYN	NAME: HEM	NAME: HOLTER	NAME: HYD. THER.	NAME: ID
NAME: IMM	NAME: LAP	NAME: LAR	NAME: LAV	NAME: LUMBAR PUN	NAME: LV PARAC	NAME: NEPHR	NAME: NEU
NAME: NG TUBE	NAME: NON-ENDO	NAME: NONENDO	NAME: OCC. THER.	NAME: ONC	NAME: OPH	NAME: ORTH	NAME: OTHER
NAME: PACE SURV	NAME: PARAC	NAME: PFT	NAME: PHY. THER.	NAME: PMR	NAME: POD	NAME: PROS	NAME: PSY
NAME: PULM	NAME: RAD. THER.	NAME: REH	NAME: REN	NAME: RES. THER.	NAME: RHEUM	NAME: SDE	NAME: SPEECH TH.
NAME: STI	NAME: SWAN GANZ	NAME: THORACENT	NAME: URO	NAME: V-LEAD IMP	NAME: VAS	NAME: VAS LAB

Customize PDF page

Package: Medicine

Global: ^MCAR(697.2

Information

Description

Directly Accessed By Routines, Total: 50

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 11

Pointer To FileMan Files, Total: 1

Fields, Total: 21

Found Entries, Total: 79