Sub-Field: 130.33

Parent File	Name	Number	Package
SURGERY(#130)	MEDICATIONS	130.33	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MEDICATIONS	0;1	POINTER TO DRUG FILE (#50)	DRUG(#50) INPUT TRANSFORM: `S DIC("S")="I $$SCR^SROMED(1,"""")",D="B^C" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `JAN 30, 2008` HELP-PROMPT: `Answer must be 4-20 characters in length` DESCRIPTION: `This is the name of the medication (generic or proprietary). More than one medication may be entered for each case.` SCREEN: `S DIC("S")="I $$SCR^SROMED(1,"""")"` EXPLANATION: `Inactive Drugs are not selectable.` DELETE TEST: `.01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	TIME ADM	1;0	DATE Multiple #130.34	130.34 DESCRIPTION: `This is information related to the administration of the medication.`

MEDICATIONS

0;1

POINTER TO DRUG FILE (#50)

INPUT TRANSFORM: S DIC("S")="I $$SCR^SROMED(1,"""")",D="B^C" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JAN 30, 2008
HELP-PROMPT: Answer must be 4-20 characters in length
DESCRIPTION: This is the name of the medication (generic or proprietary). More than one medication may be entered for each case.
SCREEN: S DIC("S")="I $$SCR^SROMED(1,"""")"
EXPLANATION: Inactive Drugs are not selectable.
DELETE TEST: .01,0)= I $D(^SRF(DA(1),"CON")),$P(^("CON"),"^") D ^SROCOND I 0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

TIME ADM

1;0

DATE Multiple #130.34

DESCRIPTION: This is information related to the administration of the medication.