Global: ^MCAR(697.2

FileMan FileNo	FileMan Filename	Package
697.2	PROCEDURE/SUBSPECIALTY	Medicine

Package	Total	Routines
Medicine	64	*PROCEDURE CPT DIAGNOSIS MCAR7E MCARAM MCARATVE MCARDSS MCARE MCARGD MCARGE MCARGES MCARGIRCLI MCARGP MCARHEMB MCARHEMBRIEF MCARHEMBRPR MCARHEMEDIT MCAROGR MCAROHB MCARPAC MCARPACE MCARPS1 MCARPS2 MCARUTL5 MCBLHEM MCEPROC MCESCONV MCESEDT MCESMFDV MCFLHEM MCMAGDSP MCOPRG MCOPRG1 MCORMN01 MCPOS01D MCPOS04 ^MCAR(694 MCARP MCARP1 MCARPCE MCARPS MCARPS3 MCARUTL2 MCARUTL3 MCOPRG2 MCOR MCORMN MCORMN0 MCORMN1 MCPARC MCPFTE MCPFTI MCPOS0A MCPOS0B MCPOS0E MCPRE02 MCPSGEN MCRH1 MCUIMAG0 MCWORKLD ^MCAR(691.9 ^MCAR(697.2 ^MCAR(699 ^MCAR(699.5
Clinical Procedures	7	MDARP3 MDCVT1 MDPS1 MDPS2 MDPS3 MDPSU MDSTATU
Imaging	2	MAGGTMC MAGGTMC1
Consult Request Tracking	1	GMRCTIUP
Health Summary	1	GMTSMCPZ
Kernel	1	FILE

Package	Total	Routines
Medicine	6	MCOPRG MCOPRG1 MCOPRG2 MCPRE02 MCPREDT MCPSGEN
Consult Request Tracking	4	GMRCAR GMRCGUIU GMRCMED GMRCSLM3
Imaging	1	MAGDHOWE

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

Name	Line Occurrences (* Changed, ! Killed)
^DIE("B"	9+1, 10+1
^MCAR(697.2 - [#697.2]	.01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7+1, 7(XREF 1S), 7(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K)
MC	.01LAYGO1+1~*
>> MCGEN	IDW+1
U	ID7+1, IDW+1
X	.01+1!, .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 1.1+1!, 2+1!, 2.1+1! , 3(XREF 1S), 3(XREF 1K), 4+1!, 5+1!, 6+1!, 7+1!, 7(XREF 1S), 7(XREF 1K), 9+1!, 10+1! , 12+1!

Customize PDF page

Package: Medicine

Global: ^MCAR(697.2

Information

Description

Directly Accessed By Routines, Total: 77

Accessed By FileMan Db Calls, Total: 11

Pointed To By FileMan Files, Total: 11

Pointer To FileMan Files, Total: 1

Fields, Total: 21

Found Entries, Total: 79

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: