Global: ^MCAR(699.88

Information

FileMan FileNo	FileMan Filename	Package
699.88	NON-ENDOSCOPIC PROCEDURE	Medicine

Package	Total	Routines
Medicine	4	MCOBGN ^MCAR(699.88 DIAGNOSIS MCPOS01F

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

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `FEB 20, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This contains a list of GI non-Endoscopic procedures.` CROSS-REFERENCE: `699.88^B` `1)= S ^MCAR(699.88,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699.88,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `699.88^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.88,"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.88,"C",I,DA)` `This cross-reference indexes non-endoscopic procedure names alphabetically by key word.`

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: FEB 20, 1996
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This contains a list of GI non-Endoscopic procedures.
CROSS-REFERENCE: 699.88^B
1)= S ^MCAR(699.88,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.88,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 699.88^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.88,"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.88,"C",I,DA)
This cross-reference indexes non-endoscopic procedure names alphabetically by key word.

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