Global: ^MCAR(699.48

FileMan FileNo	FileMan Filename	Package
699.48	INSTRUMENT	Medicine

Directly Accessed By Routines, Total: 4

Package	Total	Routines
Medicine	4	MCAROG MCPARC MCPOS01F MCPOS03

Pointed To By FileMan Files, Total: 1

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

Fields, Total: 2

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!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 07, 1990` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: This field contains instruments used in GI and Pulmonary procedures. This list is built locally through options on the management menus. CROSS-REFERENCE: `699.48^B` 1)= S ^MCAR(699.48,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(699.48,"B",$E(X,1,30),DA) CROSS-REFERENCE: `699.48^AC^MUMPS` 1)= S:$G(MCARCODE)]"" $P(^MCAR(699.48,DA,0),U,2)=MCARCODE,^MCAR(699.48,"C",MCARCODE,DA)="" 1.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K:$G(MCARCODE)]"" ^MCAR(699.48,"C",MCARCODE,DA) 2.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=MCARCODE DELETE VALUE)= S X="" FIELD)= MEDIC This cross-reference indexes instruments by selected procedures.
1	MEDICAL PACKAGE USE	0;2	SET	'G' FOR GI; 'P' FOR PULMONARY; LAST EDITED: `DEC 14, 1988` HELP-PROMPT: `Enter code to establish a screen to distinguish GI instruments from Pulmonary instruments.` DESCRIPTION: This field is used as a screen to distinguish GI instruments from Pulmonary instruments. NOTES: `TRIGGERED by the NAME field of the INSTRUMENT File` CROSS-REFERENCE: `699.48^C` 1)= S ^MCAR(699.48,"C",$E(X,1,30),DA)="" 2)= K ^MCAR(699.48,"C",$E(X,1,30),DA) This cross-reference allow screening of Instrument.

.01

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAR 07, 1990
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH

DESCRIPTION:

This field contains instruments used in GI and Pulmonary procedures.  This list is built locally through options on the management menus.

CROSS-REFERENCE: 699.48^B

1)= S ^MCAR(699.48,"B",$E(X,1,30),DA)=""

2)= K ^MCAR(699.48,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 699.48^AC^MUMPS

1)= S:$G(MCARCODE)]"" $P(^MCAR(699.48,DA,0),U,2)=MCARCODE,^MCAR(699.48,"C",MCARCODE,DA)=""

1.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K:$G(MCARCODE)]"" ^MCAR(699.48,"C",MCARCODE,DA)

2.4)= S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

CREATE VALUE)= S X=MCARCODE

DELETE VALUE)= S X=""

FIELD)= MEDIC

This cross-reference indexes instruments by selected procedures.

1

MEDICAL PACKAGE USE

0;2

SET

'G' FOR GI;
'P' FOR PULMONARY;

LAST EDITED: DEC 14, 1988
HELP-PROMPT: Enter code to establish a screen to distinguish GI instruments from Pulmonary instruments.

DESCRIPTION:

This field is used as a screen to distinguish GI instruments from Pulmonary instruments.

NOTES: TRIGGERED by the NAME field of the INSTRUMENT File

CROSS-REFERENCE: 699.48^C

1)= S ^MCAR(699.48,"C",$E(X,1,30),DA)=""

2)= K ^MCAR(699.48,"C",$E(X,1,30),DA)

This cross-reference allow screening of Instrument.

Customize PDF page

Package: Medicine

Global: ^MCAR(699.48

Information

Description

Directly Accessed By Routines, Total: 4

Pointed To By FileMan Files, Total: 1

Fields, Total: 2