Global: ^MCAR(699.85

FileMan FileNo	FileMan Filename	Package
699.85	FOLLOWUP DEVICE/THERAPY	Medicine

Directly Accessed By Routines, Total: 7

Package	Total	Routines
Medicine	7	DIAGNOSIS MCOBGA MCOBPE MCPARC MEDICAL PACKAGE USE ^MCAR(699.85 MCPOS01F

Package	Total	FileMan Files
Medicine	1	ENDOSCOPY/CONSULT(#699)[#699.36(.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)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DESCRIPTION: `This field is used to store a list of follow-up devices and therapies applicable to Endoscopies.` CROSS-REFERENCE: `699.85^B` `1)= S ^MCAR(699.85,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699.85,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `699.85^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.85,"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.85,"C",I,DA)` `This cross-reference indexes followup device therapy names alphabetically by key word.`
1	MEDICAL PACKAGE USE	1;0	SET Multiple #699.851	699.851 DESCRIPTION: `This field is used to determine whether the follow-up device/therapy is applicable to GI Endoscopies, Pulmonary Endoscopies or both.`

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This field is used to store a list of follow-up devices and therapies applicable to Endoscopies.
CROSS-REFERENCE: 699.85^B
1)= S ^MCAR(699.85,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.85,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 699.85^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.85,"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.85,"C",I,DA)
This cross-reference indexes followup device therapy names alphabetically by key word.

MEDICAL PACKAGE USE

1;0

SET Multiple #699.851

DESCRIPTION:
This field is used to determine whether the follow-up device/therapy is applicable to GI Endoscopies, Pulmonary Endoscopies or both.

NAME: BILIARY STENT	NAME: PANCREATIC STENT	NAME: SPHINCTEROTOMY PATENCY	NAME: TUMOR ABLATION	NAME: RETAINED BILIARY STONES	NAME: RECURRENT BILIARY STONES	NAME: COMPLETNESS OF POLYPECTOMY	NAME: STRICTURE DILATATION
NAME: sclerotherapy

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