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

Print Page as PDF

Sub-Field: 58.60111

Package: Auto Replenishment Ward Stock

PADE INVENTORY SYSTEM(#58.601)-->58.6011-->58.60111

Sub-Field: 58.60111

Information

Parent File	Name	Number	Package
58.6011	DRUG (DEVICE)	58.60111	Auto Replenishment Ward Stock

Details

Field #	Name	Loc	Type	Details
.01	DRUG (DEVICE)	0;1	POINTER TO DRUG FILE (#50)	DRUG(#50) LAST EDITED: `DEC 01, 2015` HELP-PROMPT: `Enter the drug stored in this PADE DISPENSING DEVICE.` DESCRIPTION: `The drug stored in this PADE device.` EXECUTABLE HELP: `W ?7,"Enter the drug stored in the PADE device.",!` CROSS-REFERENCE: `58.60111^B` `1)= S ^PS(58.601,DA(2),"DEVICE",DA(1),"DRUG","B",$E(X,1,30),DA)=""` `2)= K ^PS(58.601,DA(2),"DEVICE",DA(1),"DRUG","B",$E(X,1,30),DA)` FIELD INDEX: `DEV (#1375) REGULAR IR LOOKUP & SORTING WHOLE FILE (#58.601)` `Short Descr: Group drugs by PADE device` `Description: This cross reference groups drug items by PADE dispensing device in order to optimized lookups and reports.` `Set Logic: S ^PS(58.601,"DEV",X(1),X(2),DA(2),DA(1),DA)=""` `Kill Logic: K ^PS(58.601,"DEV",X(1),X(2),DA(2),DA(1),DA)` `Whole Kill: K ^PS(58.601,"DEV")` `X(1): Computed Code: S X=$G(^PS(58.601,+$G(DA(2)),"DEVICE",+$G(DA(1)),0))` `(Subscr 1)` `X(2): DRUG (DEVICE) (58.60111,.01) (Subscr 2) (forwards)` FIELD INDEX: `DRG (#1376) REGULAR IR LOOKUP & SORTING WHOLE FILE (#58.601)` `Short Descr: Group PADE Device by Drug` `Description: This cross reference groups PADE Dispensing Devices by drug, to optimize PADE inventory lookups and reports. Grouping PADE Dispensing Devices by drug allows the quick retrieval of a list of all PADE Dispensing Devices` `containing a specific drug item.` `Set Logic: S ^PS(58.601,"DRG",X(1),X(2),DA(2),DA(1),DA)=""` `Kill Logic: K ^PS(58.601,"DRG",X(1),X(2),DA(2),DA(1),DA)` `Whole Kill: K ^PS(58.601,"DRG")` `X(1): DRUG (DEVICE) (58.60111,.01) (Subscr 1) (forwards)` `X(2): Computed Code: S X=$G(^PS(58.601,DA(2),"DEVICE",DA(1),0))` `(Subscr 2)`
1	CALCULATED DEVICE BALANCE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 05, 2015` HELP-PROMPT: `Type a number between -9999999 and 9999999, 0 decimal digits.` DESCRIPTION: `The CALCULATED DEVICE BALANCE contains a drug's device balance calculated by adding together all sub-drawer/pocket balances associated with the device.` EXECUTABLE HELP: `D CBALHLP^PSJPADSI`
2	REPORTED DEVICE BALANCE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 06, 2015` HELP-PROMPT: `Type a number between -99999 and 99999, 0 decimal digits.` DESCRIPTION: `The REPORTED DEVICE BALANCE contains a drug's device balance received directly from the vendor HL7 message.` EXECUTABLE HELP: `D RBALHLP^PSJPADSI`
3	INACTIVE DATE/TIME	0;4	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 17, 2015` HELP-PROMPT: `Enter the Date/Time the drug was no longer available in this PADE device.` DESCRIPTION: `The INACTIVE DATE/TIME field captures the date and time a drug was completedly removed, or de-stocked, from a PADE device, indicating the drug will no longer be available from the device.` EXECUTABLE HELP: `D DRGINHLP^PSJPADSI`
4	DOSE FORM	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 14, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the dosage form of the drug, for example, TABLET, VIAL, CAP.`