Sub-Field: 130.0683

Parent File	Name	Number	Package
SURGERY(#130)	SPECIAL INSTRUMENTS	130.0683	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SPECIAL INSTRUMENTS	0;1	POINTER TO SPECIAL INSTRUMENTS FILE (#131.02)	SPECIAL INSTRUMENTS(#131.02) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,3)&($$SCR^SRTOVRF(131.02))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `AUG 26, 2015` HELP-PROMPT: `Enter special instrument(s) requested for the planned surgical procedure.` DESCRIPTION: `This is information related to the special instruments to be used for this operative procedure. Enter all special instruments needed for the surgical procedure.` SCREEN: `S DIC("S")="I '$P(^(0),U,3)&($$SCR^SRTOVRF(131.02))"` EXPLANATION: `Screen prevents selection of inactive entries.` CROSS-REFERENCE: `130.0683^B` `1)= S ^SRF(DA(1),61,"B",$E(X,1,30),DA)=""` `2)= K ^SRF(DA(1),61,"B",$E(X,1,30),DA)`

SPECIAL INSTRUMENTS

0;1

POINTER TO SPECIAL INSTRUMENTS FILE (#131.02)

INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,3)&($$SCR^SRTOVRF(131.02))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: AUG 26, 2015
HELP-PROMPT: Enter special instrument(s) requested for the planned surgical procedure.
DESCRIPTION:
This is information related to the special instruments to be used for this operative procedure. Enter all special instruments needed for the surgical procedure.
SCREEN: S DIC("S")="I '$P(^(0),U,3)&($$SCR^SRTOVRF(131.02))"
EXPLANATION: Screen prevents selection of inactive entries.
CROSS-REFERENCE: 130.0683^B
1)= S ^SRF(DA(1),61,"B",$E(X,1,30),DA)=""
2)= K ^SRF(DA(1),61,"B",$E(X,1,30),DA)