Sub-Field: 130.25

Parent File	Name	Number	Package
SURGERY(#130)	SPECIAL EQUIPMENT	130.25	Surgery

Details

Field # Name Loc Type Details

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

SPECIAL EQUIPMENT

0;1

POINTER TO SPECIAL EQUIPMENT FILE (#131.3)

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