Sub-Field: 130.48

Parent File	Name	Number	Package
130.06	TEST DOSE	130.48	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEST DOSE	0;1	POINTER TO DRUG FILE (#50)	DRUG(#50) INPUT TRANSFORM: `S DIC("S")="I $$SCR^SROMED("""",""S"")",D="B^C" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `JAN 30, 2008` DESCRIPTION: `This is the name of the drug used for the epidural test dose.` SCREEN: `S DIC("S")="I $$SCR^SROMED("""",""S"")"` EXPLANATION: `ENTRY MUST BE FLAGGED AS AN ANESTHESIA AGENT` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `130.48^B` `1)= S ^SRF(DA(2),6,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^SRF(DA(2),6,DA(1),4,"B",$E(X,1,30),DA)`
1	DOSE (mg)	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X D ZERO^SROUTL1` LAST EDITED: `JAN 13, 2011` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the number of milligrams used of the test drug.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

TEST DOSE

0;1

POINTER TO DRUG FILE (#50)

INPUT TRANSFORM: S DIC("S")="I $$SCR^SROMED("""",""S"")",D="B^C" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JAN 30, 2008
DESCRIPTION:
This is the name of the drug used for the epidural test dose.
SCREEN: S DIC("S")="I $$SCR^SROMED("""",""S"")"
EXPLANATION: ENTRY MUST BE FLAGGED AS AN ANESTHESIA AGENT
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 130.48^B
1)= S ^SRF(DA(2),6,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^SRF(DA(2),6,DA(1),4,"B",$E(X,1,30),DA)

DOSE (mg)

0;2

FREE TEXT