Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^PS(56

Package: National Drug File

Global: ^PS(56

Information

FileMan FileNo	FileMan Filename	Package
56	DRUG INTERACTION	National Drug File

Description

This file is used to store DRUG-DRUG interactions. This file will be sent out with data. Data can only be added. LOCAL additions and deletions are allowed. APPLICATION GROUP(S): PSO

Accessed By FileMan Db Calls, Total: 15

Pointer To FileMan Files, Total: 1

Fields, Total: 8

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `This field is used to store the name of the drug interaction.` TECHNICAL DESCR: `Name of interaction.` AUDIT: `YES, ALWAYS` DELETE TEST: `.01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED")` LAYGO TEST: `.01,0)= N ZZZ S ZZZ=$D(PSSDF)!$D(PSNDF) D:'ZZZ EN^DDIOL("ADDITIONS MUST BE MADE THROUGH STANDARD PDM OPTIONS") I ZZZ` GROUP: `PSO` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `56^B` `1)= S ^PS(56,"B",$E(X,1,30),DA)=""` `2)= K ^PS(56,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `56^C^KWIC` `1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "/"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^PS(56,"C",I,DA)=""` `2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "/"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^PS(56,"C",I,DA)` `3)= This cross-reference should not be deleted` `This cross-reference is used as a key word lookup to allow lookup based on either of the two ingredients selected.`
1	INGREDIENT 1	0;2	POINTER TO DRUG INGREDIENTS FILE (#50.416)	**********************REQUIRED FIELD********************** DRUG INGREDIENTS(#50.416) INPUT TRANSFORM: `S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Enter name of primary ingredient.` DESCRIPTION: `This field is used to stored the first ingredient of adverse drug/drug reactions.` TECHNICAL DESCR: `Pointer to file #50.416.` SCREEN: `S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",3)"` EXPLANATION: `Only primary ingredients are selected.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `56^AI1` `1)= S ^PS(56,"AI1",$E(X,1,30),DA)=""` `2)= K ^PS(56,"AI1",$E(X,1,30),DA)` `3)= Do not delete !` `This xref will be used to track changes to the Drug Ingredient file (#50.416).` CROSS-REFERENCE: `56^APD^MUMPS` `1)= S DEL=0 D:$P(^PS(56,DA,0),"^",3) ^PSNDDI1 K DEL` `2)= S DEL=1 D:$P(^PS(56,DA,0),"^",3) ^PSNDDI1 K DEL` `3)= This XREF should not be deleted.` `This XREF is used to index file by drug adverse reactions. This XREF is executed if ingredient 2 is filled in. In the form of: ^PS(56,"APD",Drug Indentifier(Ingredient 1),Drug Identifier (Ingredient 2,DA)` CROSS-REFERENCE: `56^AE1^MUMPS` `1)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",3) I ZZZ S ^PS(56,"AE",X,ZZZ,DA)="",^PS(56,"AE",ZZZ,X,DA)=""` `2)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",3) I ZZZ K ^PS(56,"AE",X,ZZZ,DA),^PS(56,"AE",ZZZ,X,DA)` `Cross-reference checks for duplicate ingredient combinations. In the form of: ^PS(56,"AE",Ingredient 1,Ingredient 2,DA)`
2	INGREDIENT 2	0;3	POINTER TO DRUG INGREDIENTS FILE (#50.416)	**********************REQUIRED FIELD********************** DRUG INGREDIENTS(#50.416) INPUT TRANSFORM: `S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Enter name of second ingredient for adverse drug reaction.` DESCRIPTION: `This field is used to store the name of the second ingredient for drug/drug adverse reaction. This ingredient cannot be the same as the first ingredient.` TECHNICAL DESCR: `Pointer to file #50.416.` SCREEN: `S DIC("S")="I '$P(^PS(50.416,+Y,0),""^"",2),+Y'=$P(^PS(56,DA,0),""^"",2)"` EXPLANATION: `Only primary ingredients are to be selected.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `56^AI2` `1)= S ^PS(56,"AI2",$E(X,1,30),DA)=""` `2)= K ^PS(56,"AI2",$E(X,1,30),DA)` `3)= Do not delete !` `This xref is used to track changes to the Drug Ingredient file (#50.416).` CROSS-REFERENCE: `56^APE^MUMPS` `1)= S DEL=0 D:$P(^PS(56,DA,0),"^",2) ^PSNDDI1 K DEL` `2)= S DEL=1 D:$P(^PS(56,DA,0),"^",2) ^PSNDDI1 K DEL` `3)= This XREF should not be deleted.` `This XREF is used to index the file by the drug adverse reactions. This XREF is only executed if ingredient 1 field is filled in. In the form of: ^PS(56,"APD",Drug Identifier(Ingredient 2),Drug Identifier (Ingredient` `1,DA)` CROSS-REFERENCE: `56^AE2^MUMPS` `1)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",2) I ZZZ S ^PS(56,"AE",X,ZZZ,DA)="",^PS(56,"AE",ZZZ,X,DA)=""` `2)= N ZZZ S ZZZ=$P(^PS(56,DA,0),"^",2) I ZZZ K ^PS(56,"AE",X,ZZZ,DA),^PS(56,"AE",ZZZ,X,DA)` `Cross-reference checks for duplicate ingredient combinations. In the form of: ^PS(56,"AE",Ingredient 2,Ingredient 1,DA)`
3	SEVERITY	0;4	SET	**********************REQUIRED FIELD********************** '1' FOR CRITICAL; '2' FOR SIGNIFICANT; LAST EDITED: `MAR 19, 1992` HELP-PROMPT: `Enter severity of drug/drug interaction/` DESCRIPTION: `This field is used to indicate the type of reaction from the interaction.` TECHNICAL DESCR: `Set of Codes.` AUDIT: `YES, ALWAYS` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^`
4	NATIONALLY ENTERED	0;5	SET	'1' FOR YES; LAST EDITED: `MAR 19, 1992` DESCRIPTION: `This field is used to indicate if this data was sent out by the ISC.` TECHNICAL DESCR: `set of codes` AUDIT: `YES, ALWAYS`
5	TOTAL INDEXES	0;6	NUMBER	INPUT TRANSFORM: `K X` LAST EDITED: `APR 23, 1992` HELP-PROMPT: `Data is not entered using File Manager.` DESCRIPTION: `This field is used to store the total number of interaction for an entry into the file. This data is not entered directly through FM.` TECHNICAL DESCR: `Data is stuffed.` AUDIT: `YES, ALWAYS` `SOURCE OF DATA: Data comes from index routine.` GROUP: `PSO` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	LOCALLY EDITED	L;1	SET	'1' FOR YES; LAST EDITED: `JUN 29, 1998` DESCRIPTION: `This field is set if the severity of this interaction has been edited locally. This will allow a site to change the severity of a nationally entered interaction from significant to critical and later change it back.` `Nationally entered critical interactions can not be edited.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^`
7	INACTIVATION DATE	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 15, 1998` DESCRIPTION: `This is the date when this interaction became inactive.` AUDIT: `YES, ALWAYS`

ICR, Total: 2

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All