Global: ^MCAR(699.84

FileMan FileNo	FileMan Filename	Package
699.84	DISEASE EVALUATION	Medicine

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Medicine	6	MCOBPE MCPARC ^MCAR(699.84 DIAGNOSIS MCOBGA MCPOS01F

Package	Total	FileMan Files
Medicine	1	ENDOSCOPY/CONSULT(#699)[#699.35(.01)]

Field # Name Loc Type Details

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)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `NOV 30, 1988` HELP-PROMPT: `ANSWER MUST BE 3-45 CHARACTERS IN LENGTH` DESCRIPTION: `This field is used to store a list of possible disease follow-ups for GI and Pulmonary Endoscopies.` CROSS-REFERENCE: `699.84^B` `1)= S ^MCAR(699.84,"B",$E(X,1,45),DA)=""` `2)= K ^MCAR(699.84,"B",$E(X,1,45),DA)` CROSS-REFERENCE: `699.84^C^KWIC` `1)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^MCAR(699.84,"C",I,DA)=""` `2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.84,"C",I,DA)` `This cross-reference indexes disease evaluation names alphabetically by key word.`
1	MEDICAL PACKAGE USE	0;2	SET	'G' FOR GI; 'P' FOR PULMONARY; LAST EDITED: `NOV 30, 1988` HELP-PROMPT: `Enter the Code for Pulmonary or GI for the Disease.` DESCRIPTION: `This field identifies used as a screen to differentiate GI disease follow-ups from Pulmonary follow-ups.`

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
DESCRIPTION:
This field is used to store a list of possible disease follow-ups for GI and Pulmonary Endoscopies.
CROSS-REFERENCE: 699.84^B
1)= S ^MCAR(699.84,"B",$E(X,1,45),DA)=""
2)= K ^MCAR(699.84,"B",$E(X,1,45),DA)
CROSS-REFERENCE: 699.84^C^KWIC
1)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31,^DD("KWIC")'[I S ^MCAR(699.84,"C",I,DA)=""
2)= F %=1:1 Q:$P(X," ",%,99)="" S I=$P(X," ",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.84,"C",I,DA)
This cross-reference indexes disease evaluation names alphabetically by key word.

MEDICAL PACKAGE USE

0;2

SET

LAST EDITED: NOV 30, 1988
HELP-PROMPT: Enter the Code for Pulmonary or GI for the Disease.
DESCRIPTION:
This field identifies used as a screen to differentiate GI disease follow-ups from Pulmonary follow-ups.

NAME: PANCREATITIS	NAME: COLITIS EVALUATION	NAME: ESOPHAGITIS FOLLOWUP	NAME: GASTRIC ULCER FOLLOWUP	NAME: SCLEROSING CHOLANGITIS	NAME: POST-CHOLECYSTECTOMY SYNDROME	NAME: ESOPHAGEAL VARICES FOLLOWUP	NAME: ATELECTASIS EVALUATION
NAME: BRONCHIECTASIS EVALUATION	NAME: CONGENITAL AIRWAY ANOMALY	NAME: CHRONIC BRONCHITIS (INFLAMMATION)	NAME: HEMOPTYSIS EVALUATION	NAME: INTERSTITIAL PNEUMONITIS EVALUATION	NAME: INTERSTITIAL PNEUMONITIS FOLLOWUP	NAME: LARYNGOMALACIA EVALUATION	NAME: OBSTRUCTION EVALUATION
NAME: OBSTRUCTION FOLLOWUP	NAME: OBSTRUCTIVE APNEA EVALUATION	NAME: PERSISTENT COUGH	NAME: PNEUMONIA EVALUATION	NAME: TRACHEOMALACIA EVALUATION	NAME: TRACHEOSTOMY FOLLOWUP

Name	Line Occurrences (* Changed, ! Killed)
^DD("KWIC"	.01(XREF 2S)
^MCAR(699.84 - [#699.84]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)