Global: ^PS(58.6

FileMan FileNo	FileMan Filename	Package
58.6	PADE INBOUND TRANSACTIONS	Auto Replenishment Ward Stock

Package	Total	Routines
Inpatient Medications	7	PSJPAD70 PSJPADIT PSJPADPT PSJPDRTP PSJPDRTR PSJPDRU1 PSJPDRUT
Auto Replenishment Ward Stock	2	^PS(58.6 ^PS(59.4

Package	Total	Routines
Inpatient Medications	2	PSJPADIT PSJPDRTR

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[8] NEW PERSON(#200)[6, 7]
Pharmacy Data Management	1	DRUG(#50)[2]
Registration	1	PATIENT(#2)[14]

Fields, Total: 36

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 28, 2015` HELP-PROMPT: `Type a number between 0 and 9999999999999, 0 decimal digits.` DESCRIPTION: `This field is intended to allow for multiple transaction filed at the exact same Date and Time, with identical Internal Entry Numbers equal to the same Date and Time.`
.01	TRANSACTION DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Enter the Date/Time the transaction occurred.` DESCRIPTION: `This field contains the Date and Time the transaction occurred at the PADE device.` DELETE TEST: `1,0)= I 1 D EN^DDIOL("Division cannot be deleted, it must be inactivated!","","$C(7),!?5")` CROSS-REFERENCE: `58.6^B` `1)= S ^PS(58.6,"B",$E(X,1,30),DA)=""` `2)= K ^PS(58.6,"B",$E(X,1,30),DA)` FIELD INDEX: `P (#1372) REGULAR IR LOOKUP & SORTING` `Short Descr: Link patient to PADE transaction` `Description: This cross reference groups PADE transactions by patient, by date, and by drug item, to optimize lookups and report processing. With this cross reference, all transactions related to a specific patient may be retrieved` `quickly and efficiently.` `Set Logic: S ^PS(58.6,"P",$E(X(1),1,30),X(2),$E(X(3),1,45),DA)=""` `Kill Logic: K ^PS(58.6,"P",$E(X(1),1,30),X(2),$E(X(3),1,45),DA)` `Whole Kill: K ^PS(58.6,"P")` `X(1): Computed Code: S X=$$PTIX^PSJPDRUT(DA,.PSJOMS)` `(Subscr 1) (Len 30)` `X(2): TRANSACTION DATE/TIME (58.6,.01) (Subscr 2) (forwards)` `X(3): Computed Code: S X=$$DRGIX^PSJPDRUT(DA,.PSJOMS)` `(Subscr 3) (Len 45)` RECORD INDEXES: `AC (#1352), DEV (#1358), DEVD (#1368), DRG (#1369), MDRG (#1370), ST (#1373), USR (#1374)`
1	DISPENSING DEVICE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field contains the dispensive device or cabinet where the actions described by the transaction were performed.` RECORD INDEXES: `AC (#1352), DEV (#1358), DEVD (#1368), MDRG (#1370)`
1.1	INBOUND PADE SYSTEM	1;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This fields contains a pointer to the PADE INVENTORY SYSTEM (#58.601) file. This represents the Pharmacy Automation Dispensing Equipment (PADE) system from which this transaction originated.` RECORD INDEXES: `AC (#1352), DEV (#1358), DEVD (#1368), DRG (#1369), MDRG (#1370)`
1.2	DRAWER	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the PADE drawer from which, or into which, the drug item in the trasaction was added or removed. A PADE drawer is a storage location for drugs within a PADE dispensing device or cabinet. A drawer is the` `primary storage location within a cabinet and may be subdivided into pockets and/or sub-drawers.` RECORD INDEXES: `AC (#1352)`
2	DRUG	0;3	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) LAST EDITED: `MAR 01, 2016` HELP-PROMPT: `Enter the drug item added or removed from the PADE device.` DESCRIPTION: `This field contains the drug in the PADE device acted upon by the transaction.` TECHNICAL DESCR: `Pointer to the DRUG (#50) file.` RECORD INDEXES: `DEVD (#1368), DRG (#1369)`
3	QUANTITY	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."3N.N) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Type a number between -999999 and 999999, 2 decimal digits.` DESCRIPTION: `This field contains the quantity of the drug acted upon in the transaction. The quantity is a physical item count of drug items in the units in which the drug items are stocked and dispensed.` RECORD INDEXES: `AC (#1352)`
4	TYPE OF TRANSACTION	0;5	SET	**********************REQUIRED FIELD********************** 'L' FOR LOAD; 'U' FOR UNLOAD; 'R' FOR RETURN; 'V' FOR VEND; 'W' FOR WASTE; 'C' FOR COUNT; 'F' FOR REFILL; 'B' FOR EMPTY; 'E' FOR EXPIRED; 'D' FOR DESTOCK; 'A' FOR DISCREPANCY; 'N' FOR CANCEL; LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Enter the transaction type matching the PADE action.` DESCRIPTION: `This field contains the type of the transaction. LOAD and RETURN transactions indicate item(s) were added to a PADE device, UNLOAD and DISPENSE transactions indicate item(s) were removed from a PADE device. A COUNT` `transaction neither adds nor removes items from the PADE device.` RECORD INDEXES: `AC (#1352)`
5	DRUG FORM	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the dispense form of the transaction's drug item. This should indicate exactly what was added or removed from the PADE device. For instance: TABLET, BOTTLE, INHALER.`
6	USER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Enter the user who performed the action at the PADE device.` DESCRIPTION: `This field contains the name of the user physically adding or removing the drug item(s) from or to the PADE device.`
6.1	USER EXTERNAL ID	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the external ID of the user performing the addition or removal of the drug item from the PADE dispensing device, as received from the PADE system via the PADE HL7 interface.` RECORD INDEXES: `USR (#1374)`
6.2	USER TEXT NAME	5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the text name of the user performing the transaction, as received from the vendor via the PADE HL7 interface. This should be the same as the user's name in VistA, however, this is not enforced by any` `automated process. Discrepancies in the user's name between VistA and the vendor database should be reviewed and corrected.`
7	WITNESS	0;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Enter the user who witnessed the action at the PADE device.` DESCRIPTION: `This field contains the name of the user formally witnessing the adding or removing of drug item(s) to or from the PADE.`
7.1	WITNESS EXTERNAL ID	5;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the external PADE system identifier for the user acting as a witness to the addition or removal of the drug item from the PADE dispensing device, as received from the PADE system via the PADE HL7` `interface.`
7.2	WITNESS TEXT NAME	5;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the text name of the person witnessing the transaction, as received from the vendor via the PADE HL7 interface. This should be the same as the person's name in VistA; however, as this is not enforced` `by any automated process, discrepancies in the witnesses' name between VistA and the vendor database should be reviewed and corrected.`
8	DIVISION	0;9	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `NOV 18, 2015` HELP-PROMPT: `Enter the Division associated with the transaction.` DESCRIPTION: `This field conains the medical division associated with the PADE device from which the transaction originated.` TECHNICAL DESCR: `Pointer to the INSTITUTION (#4) file.`
9	HOSPITAL LOCATION	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 30, 2015` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field contains the ward or clinic location associated with the PADE device from which the transaction originated.`
10	POCKET	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the name of the storage pocket in the PADE transaction, from which or to which the transaction's drug item was removed or added.` RECORD INDEXES: `AC (#1352)`
11	SUBDRAWER	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the name of the PADE device's subdrawer, from which the transaction's drug item was removed, or to which the transaction's drug was added.` RECORD INDEXES: `AC (#1352)`
12	EXPECTED BEGIN BALANCE	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 28, 2015` HELP-PROMPT: `Type a number between -9999999 and 9999999, 0 decimal digits.` DESCRIPTION: `This field contains a transaction's expected balance of a drug within a specific PADE drawer/pocket, prior to any actions described by the transaction.`
13	ACTUAL BEGIN BALANCE	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 2016` HELP-PROMPT: `Type a number between -9999999 and 9999999, 0 decimal digits.` DESCRIPTION: `This field contains a physical count of drug items in the specific PADE storage location sent in the transaction, prior to any action described by the transaction.` RECORD INDEXES: `AC (#1352)`
14	PATIENT	0;15	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `MAR 16, 2016` HELP-PROMPT: `Enter the patient associated with the transaction.` DESCRIPTION: `This field contains the name of the patient in the transaction for whom a drug item was removed or returned to the PADE.`
14.1	PATIENT TEXT LAST NAME	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 08, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the patient's last name received in field 5, component 1 of the PID segment received from the PADE vendor when a patient is involved in activity at the PADE dispensing device.` TECHNICAL DESCR: `This is the patient's first (given) name received in field 5, component 2 of the PID segment received from the PADE vendor when a patient is involved in activity at the PADE dispensing device.`
14.2	PATIENT TEXT FIRST NAME	3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 08, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the patient's first name received in field 5, component 2 of the PID segment received from the PADE vendor when a patient is involved in activity at the PADE dispensing device.`
14.3	PATIENT ID	3;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 08, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the patient's identifier received in field 3, component 1 of the PID segment received from the PADE vendor when a patient is involved in activity at the PADE dispensing device.`
15	PHARMACY ORDER	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 30, 2015` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains the pharmacy order from the transaction for which the drug item was removed or returned to the PADE device.`
16	POCKET BALANCE	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 09, 2015` HELP-PROMPT: `Type a number between -9999999 and 9999999, 0 decimal digits.` DESCRIPTION: `This field contains the sum of the Actual Begin Balance received in the transaction and the Quantity received in the transaction and represents the new balance in the PADE device after the event described by the` `transaction was completed.`
17	DEVICE BALANCE	1;5	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: `This field contains the total balance of a drug item within a PADE device as reported by the PADE device in the transaction.`
18	DRUG NAME	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAY 31, 2016` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This field contains the name of the drug in the transaction, as it is defined in the PADE device.` RECORD INDEXES: `MDRG (#1370)`
19	ALTERNATE DRUG ID	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 31, 2016` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field contains an alternate ID of the drug in the PADE device acted transaction.` RECORD INDEXES: `MDRG (#1370)`
20	DRUG LOT NUMBER	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<1) X` LAST EDITED: `SEP 09, 2015` HELP-PROMPT: `Answer must be 1-11 characters in length.` DESCRIPTION: `This field contains the lot number of the drug in the transaction.`
21	TRANSACTION COMMENT	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `SEP 09, 2015` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `This field contains comments entered by the user performing the action described by the transaction.`
22	STATUS	3;1	SET	'P' FOR PENDING; 'C' FOR COMPLETED; 'I' FOR INCOMPLETE; LAST EDITED: `MAR 22, 2016` HELP-PROMPT: `Enter the processing status of the transaction in the inbound queue.` DESCRIPTION: `This field indicates the status of the transaction's update to the PADE INVENTORY file (#58.601). The status is set to P (Pending) at the time the transaction is filed, then changed to I (In Progress) when procesing of the` `transaction begins, and C (Complete) when the transaction has been successfully processed to update the PADE INVENTORY file.` RECORD INDEXES: `ST (#1373)`
23	PAR QUANTITY	3;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 12, 2016` HELP-PROMPT: `Type a number between 0 and 9999, 0 decimal digits.` DESCRIPTION: `PAR Quantity represents the minimum quantity of the item that should be stocked in the PADE device; an inventory count below this level indicates the item should be restocked/refilled.`
24	MISSING PATIENT ID	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 07, 2015` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `If the patient received from PADE via HL7 is not on file in the local VistA system, this field is populated with the unknown patient's ID.`
25	MISSING PATIENT NAME	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `DEC 07, 2015` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `If the patient received from PADE via HL7 is not on file in the local VistA system, this field is populated with the unknown patient's name.` FIELD INDEX: `MPT (#1371) REGULAR IR LOOKUP & SORTING` `Short Descr: Missing Patient` `Description: This cross reference contains patient names received from the PADE system without a corresponding patient ID matching a patient in VistA.` `Set Logic: S ^PS(58.6,"MPT",$E(X,1,30),DA)=""` `Kill Logic: K ^PS(58.6,"MPT",$E(X,1,30),DA)` `Whole Kill: K ^PS(58.6,"MPT")` `X(1): MISSING PATIENT NAME (58.6,25) (Subscr 1) (Len 30) (forwards)`

Name	Field # of Occurrence
^%DT	.01+1
EN^DDIOL	.01DEL1+1
$$DRGXREF^PSJPAD7I	IXACP4CC+1
FIL58601^PSJPADIT	IXACSL+1
$$DRGIX^PSJPDRUT	IXPP3CC+1
$$PTIX^PSJPDRUT	IXPP1CC+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(58.6 - [#58.6]	IXDEVSL+1, IXDEVKL+1!, IXDEVKEIC+1!, IXDEVDSL+1, IXDEVDKL+1!, IXDEVDKEIC+1!, IXDRGSL+1, IXDRGKL+1!, IXDRGKEIC+1!, IXMDRGSL+1 , IXMDRGKL+1!, IXMDRGKEIC+1!, IXMPTSL+1, IXMPTKL+1!, IXMPTKEIC+1!, IXPSL+1, IXPKL+1!, IXPKEIC+1!, IXSTSL+1, IXSTKL+1! , IXSTKEIC+1!, IXUSRSL+1, IXUSRKL+1!, IXUSRKEIC+1!, .01(XREF 1S), .01(XREF 1K)
^PSDRUG - [#50]	IXMDRGSCC+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
>> DA	IXACP4CC+1, IXDEVSL+1, IXDEVKL+1, IXDEVDSL+1, IXDEVDKL+1, IXDRGSL+1, IXDRGKL+1, IXMDRGSL+1, IXMDRGKL+1, IXMPTSL+1 , IXMPTKL+1, IXPSL+1, IXPKL+1, IXPP1CC+1, IXPP3CC+1, IXSTSL+1, IXSTKL+1, IXUSRSL+1, IXUSRKL+1, .01(XREF 1S) , .01(XREF 1K)
>> DIC("S"	1SCR+1*
>> PSJOMS	IXACSL+1, IXACP4CC+1, IXPP1CC+1, IXPP3CC+1
X	IXACSL+1, IXACP4CC+1, IXMDRGSCC+1, IXMPTSL+1, IXMPTKL+1, IXPP1CC+1, IXPP3CC+1, .001+1!, .01+1*!, .01(XREF 1S) , .01(XREF 1K), 1+1!, 1.1+1!, 1.2+1!, 3+1!, 5+1!, 6.1+1!, 6.2+1!, 7.1+1!, 7.2+1! , 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14.1+1!, 14.2+1!, 14.3+1!, 15+1!, 16+1! , 17+1!, 18+1!, 19+1!, 20+1!, 21+1!, 23+1!, 24+1!, 25+1!
X(1	IXDEVSL+1, IXDEVKL+1, IXDEVDSL+1, IXDEVDKL+1, IXDRGSL+1, IXDRGKL+1, IXMDRGSL+1, IXMDRGKL+1, IXPSL+1, IXPKL+1 , IXSTSL+1, IXSTKL+1, IXUSRSL+1, IXUSRKL+1
X(2	IXDEVSL+1, IXDEVKL+1, IXDEVDSL+1, IXDEVDKL+1, IXDRGSL+1, IXDRGKL+1, IXMDRGSL+1, IXMDRGKL+1, IXPSL+1, IXPKL+1 , IXSTSL+1, IXSTKL+1, IXUSRSL+1, IXUSRKL+1
X(3	IXDEVSL+1, IXDEVKL+1, IXDEVDSL+1, IXDEVDKL+1, IXDRGSL+1, IXDRGKL+1, IXMDRGSL+1, IXMDRGKL+1, IXPSL+1, IXPKL+1
X(4	IXDEVDSL+1, IXDEVDKL+1, IXMDRGSL+1, IXMDRGKL+1
X(5	IXMDRGSCC+1
>> Y	.01+1

Customize PDF page

Package: Auto Replenishment Ward Stock

Global: ^PS(58.6

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 4

Fields, Total: 36

External References

Global Variables Directly Accessed

Local Variables

Legend: