Sub-Field: 50.0441

Parent File	Name	Number	Package
DRUG(#50)	IFCAP ITEM NUMBER	50.0441	Pharmacy Data Management

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ITEM NUMBER	0;1	POINTER TO ITEM MASTER FILE (#441)	ITEM MASTER(#441) INPUT TRANSFORM: `D:$G(DA) FI^PSSAUTL S DIC("S")="I $E($G(^(3)),1)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 31, 1992` HELP-PROMPT: `Enter ITEM MASTER Number or short description.` DESCRIPTION: `This field contains any or all items in the ITEM MASTER file that relate to this drug. This relationship will enable automated receiving from the IFCAP Inventory module.` TECHNICAL DESCR: `With the "AB" cross reference this multiple will be used when PRCP routines pass receiving data to PSA routines.` SCREEN: `S DIC("S")="I $E($G(^(3)),1)'=1"` EXPLANATION: `Cannot select Inactive items.` LAYGO TEST: `1,0)= N PSA S PSA=$O(^PSDRUG("AB",+X,0)) S:PSA=DA PSA=$O(^(DA)) W:$G(PSA) $C(7),!!,$P($G(^PSDRUG(+$O(^PSDRUG("AB",+X,0)),0)),U)," is already linked to",!!,"Item #",X," ",$$DESCR^PRCPUX1(0,X) I '$G(PSA)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `50.0441^B` `1)= S ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)=""` `2)= K ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `50^AB` `1)= S ^PSDRUG("AB",$E(X,1,30),DA(1),DA)=""` `2)= K ^PSDRUG("AB",$E(X,1,30),DA(1),DA)` `To locate drug by ITEM MASTER file number.`

ITEM NUMBER

0;1

POINTER TO ITEM MASTER FILE (#441)

INPUT TRANSFORM: D:$G(DA) FI^PSSAUTL S DIC("S")="I $E($G(^(3)),1)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 31, 1992
HELP-PROMPT: Enter ITEM MASTER Number or short description.
DESCRIPTION:
This field contains any or all items in the ITEM MASTER file that relate to this drug. This relationship will enable automated receiving from the IFCAP Inventory module.
TECHNICAL DESCR:
With the "AB" cross reference this multiple will be used when PRCP routines pass receiving data to PSA routines.
SCREEN: S DIC("S")="I $E($G(^(3)),1)'=1"
EXPLANATION: Cannot select Inactive items.
LAYGO TEST: 1,0)= N PSA S PSA=$O(^PSDRUG("AB",+X,0)) S:PSA=DA PSA=$O(^(DA)) W:$G(PSA) $C(7),!!,$P($G(^PSDRUG(+$O(^PSDRUG("AB",+X,0)),0)),U)," is already linked to",!!,"Item #",X," ",$$DESCR^PRCPUX1(0,X) I '$G(PSA)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 50.0441^B
1)= S ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)=""
2)= K ^PSDRUG(DA(1),441,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 50^AB
1)= S ^PSDRUG("AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PSDRUG("AB",$E(X,1,30),DA(1),DA)
To locate drug by ITEM MASTER file number.