Sub-Field: 130.0682

Parent File	Name	Number	Package
SURGERY(#130)	SPECIAL SUPPLIES	130.0682	Surgery

Details

Field # Name Loc Type Details

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

SPECIAL SUPPLIES

0;1

POINTER TO SPECIAL SUPPLIES FILE (#131.04)

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