Global: ^PSB(53.69

FileMan FileNo	FileMan Filename	Package
53.69	BCMA REPORT REQUEST	Barcode Medication Administration

Package	Total	Routines
Barcode Medication Administration	5	PSBIHS6 PSBO PSBO1 PSBOBL PSBOBZ

Package	Total	Routines
Barcode Medication Administration	6	PSBIHS6 PSBO PSBO1 PSBOBL PSBOBZ PSBODO

Package	Total	FileMan Files
Kernel	3	DEVICE(#3.5)[.06] INSTITUTION(#4)[.04] NEW PERSON(#200)[.03]
Nursing Service	1	NURS LOCATION(#211.4)[.13]
Registration	1	VA PATIENT(#2)[.12]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	REQUEST NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 12, 1999` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Unique identifier for the report request. CROSS-REFERENCE: `53.69^B` 1)= S ^PSB(53.69,"B",$E(X,1,30),DA)="" 2)= K ^PSB(53.69,"B",$E(X,1,30),DA)
.02	DATE/TIME ENTERED	0;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1999` DESCRIPTION: Automatically stuffed at record creation with a value of NOW.
.03	ENTERED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 13, 1999` DESCRIPTION: Automatically stuffed at record creation time with the current value for DUZ.
.04	DIVISION	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 13, 1999` DESCRIPTION: Automatically stuffed at record creation time with the current value for DUZ(2).
.05	TYPE OF REQUEST	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `NOV 05, 2008` HELP-PROMPT: `Answer must be 2 characters in length` DESCRIPTION: `Automatically stuffed at record creation with the type of report that is being requested. Used to drive the report later on by appending the internal code to "DQ^PSBO"_type for the routine reference to run. (i.e. ML for` med log would call DQ^PSBOML to generate the report.) Report types DL = Due List MH = Medication Admin History (MAH) ML = Med Log MM = Missed Medications PE = PRN Effectiveness List PM = Patient Medication History WA = Ward Administration Times MV = Medication Variance Log BL = Bar Code Label MD = Missing Dose Follow-up AL = Allergy Report PI = Patient Inquiry DO = Display Order VT = Vitals Cumulative PF = Patient Record Flag XA = Unknown Action Status Report CE = BCMA Coversheet Expired Orders Report CI = BCMA Coversheet IV Overview Report CM = BCMA Coversheet Medication Overview Report CP = BCMA Coversheet PRN Overview Report IV = BCMA IV Bag Status Report MT = BCMA Medication Therapy Report BZ = Barcode Label Print SF = Unable to Scan (Detailed) ST = Unable to Scan (Summary)
.06	OUTPUT DEVICE	0;6	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `MAR 17, 1999` DESCRIPTION: `Pointer to the device file the user has selected.` NOTE: A device containing 'BROWSER' will be sent directly to the device, all other devices will be submitted to Taskman.
.07	DEQUEUE TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1999` DESCRIPTION: Date/time the user would like the report to print.
.08	ZTSK	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAR 13, 1999` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: Automatically stuffed when the print job starts for later tracking and trouble shooting.
.09	ORDER/ORDERABLE ITEM NUMBER	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 19, 2001` HELP-PROMPT: `Answer must be 1-15 characters in length` DESCRIPTION: This field will contain either the Inpatient Medications order number for the "Display Order" request from the GUI or the orderable item number for a "Med History" request. TECHNICAL DESCR:
.11	SORT BY	.1;1	SET	'P' FOR Patient; 'W' FOR Ward; LAST EDITED: `NOV 19, 2001` DESCRIPTION: Determines the type of report (W:An entire ward P:An individual patient)
.12	PATIENT	.1;2	POINTER TO VA PATIENT FILE (#2)	VA PATIENT(#2) LAST EDITED: `JUL 01, 1999` DESCRIPTION: Pointer to the patient file with the selected patient for a Patient specific report.
.121	PATIENT SSN (C)		COMPUTED	MUMPS CODE: `X ^DD(53.69,.121,9.2) S Y(53.69,.121,101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(53.69,.121,101),U,9) S D0=Y(53.69,.121,80)` 9.2 = S Y(53.69,.121,80)=$S($D(D0):D0,1:""),Y(53.69,.121,1)=$S($D(^PSB(53.69,D0,.1)):^(.1),1:""),D0=$P(Y(53.69,.121,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `#.12:#.09` DESCRIPTION: Computed field to easily display Patients SSN.
.122	PATIENT WARD LOCATION (C)		COMPUTED	MUMPS CODE: `X ^DD(53.69,.122,9.2) S Y(53.69,.122,101)=$S($D(^DPT(D0,.1)):^(.1),1:"") S X=$E(Y(53.69,.122,101),1,30) S D0=Y(53.69,.122,80)` 9.2 = S Y(53.69,.122,80)=$S($D(D0):D0,1:""),Y(53.69,.122,1)=$S($D(^PSB(53.69,D0,.1)):^(.1),1:""),D0=$P(Y(53.69,.122,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 ALGORITHM: `#.12:#.1` DESCRIPTION: Computed field to easily display Patients Ward Location.
.13	WARD	.1;3	POINTER TO NURS LOCATION FILE (#211.4)	NURS LOCATION(#211.4) INPUT TRANSFORM: `S DIC("S")="I $P($G(^NURSF(211.4,+Y,1)),U,1)=""A""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 09, 2003` DESCRIPTION: Pointer to the NURS LOCATION file for reports to be generated by ward instead of patient. SCREEN: `S DIC("S")="I $P($G(^NURSF(211.4,+Y,1)),U,1)=""A"""` EXPLANATION: `Only active Nurse Location Entries Allowed`
.14	TEAM	.1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JAN 12, 1999` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: Not used at this time. Future plans are to incorporate a medication team.
.15	SORT BY PATIENT OR BED	.1;5	SET	'P' FOR Patient; 'B' FOR Room-Bed; LAST EDITED: `MAR 21, 1999` DESCRIPTION: Ward based reports are asked to sort either by patient name or room bed locations.
.16	START DATE	.1;6	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 18, 2002` DESCRIPTION: Fileman Date that the selected report is to start generating from. No time is allowed in this field. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.17	START TIME	.1;7	NUMBER	INPUT TRANSFORM: `D TIMEIN^PSBUTL` OUTPUT TRANSFORM: `S Y=$$TIMEOUT^PSBUTL(Y)` LAST EDITED: `JAN 12, 1999` HELP-PROMPT: `Enter in the starting time (i.e. 8A or 0800).` DESCRIPTION: Contains the decimal portion of an internal fileman date/time to specify the time that the report is to generate from. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.18	STOP DATE	.1;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 18, 2002` DESCRIPTION: Fileman Date that the selected report is to stop generating. No time is allowed in this field. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.19	STOP TIME	.1;9	NUMBER	INPUT TRANSFORM: `D TIMEIN^PSBUTL` OUTPUT TRANSFORM: `S Y=$$TIMEOUT^PSBUTL(Y)` LAST EDITED: `JAN 12, 1999` HELP-PROMPT: `Enter in the stop time (i.e. 8A or 0800).` DESCRIPTION: Contains the decimal portion of an internal fileman date/time to specify the time that the report is to generate to. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.21	[DL] INCLUDE CONTINUOUS MEDS	.2;1	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `JAN 26, 1999` DESCRIPTION: Yes/No question for the Due List to include continuous medications or not.
.22	[DL] INCLUDE PRN MEDS	.2;2	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `JAN 26, 1999` HELP-PROMPT: DESCRIPTION: Yes/No question for the Due List to include PRN medications or not.
.23	[DL] INCLUDE ON-CALL MEDS	.2;3	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `JAN 26, 1999` HELP-PROMPT: DESCRIPTION: Yes/No question for the Due List to include On-Call medications or not.
.24	[DL] INCLUDE ONE-TIME MEDS	.2;4	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `JAN 26, 1999` HELP-PROMPT: DESCRIPTION: Yes/No question for the Due List to include One Time medications or not.
.25	[DL] INCLUDE BLANKS	.2;5	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `MAR 17, 1999` HELP-PROMPT: DESCRIPTION: Yes/No question for the Due List to include blank addendums for newly ordered meds or not.
.26	[DL] INLCUDE IV MEDS	.2;6	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `MAR 17, 1999` DESCRIPTION: Yes/No question for the Due List to include IV medications or not.
.27	[DL] INCLUDE UNIT DOSE MEDS	.2;7	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `MAR 17, 1999` HELP-PROMPT: DESCRIPTION: Yes/No question for the Due List to include Unit Dose medications or not.
.28	[ML] INCLUDE COMMENTS	.2;8	SET	'1' FOR Yes; '0' FOR No; LAST EDITED: `MAR 31, 1999` DESCRIPTION: When printing the medication log, comments can be included for each med pass if this question is answered Yes.
.29	[ML] INCLUDE AUDITS	.2;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 1999` HELP-PROMPT: DESCRIPTION: When printing the medication log, audits can be included for each med pass if this question is answered Yes.
.31	[BL] DRUG	.3;1	FREE TEXT	INPUT TRANSFORM: `D INPTR^PSBOBL` OUTPUT TRANSFORM: `S Y=$P(Y,"~",1)` LAST EDITED: `NOV 01, 2002` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: Stores the Name and IEN of the selected drug to print a bar code label for. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.32	[BL] LOT NUMBER	.3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<1) X` LAST EDITED: `JUN 09, 2005` HELP-PROMPT: `Answer must be 1-25 characters in length.` DESCRIPTION: Contains the lot number of the drug to print a bar code label for.
.33	[BL] EXPIRATION DATE	.3;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 18, 1999` DESCRIPTION: Contains the exp date of the drug to print a bar code label for.
.34	[BL] MANUFACTURER	.3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUN 09, 2005` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: Contains the manufacturer of the drug to print a bar code label for.
.35	[BL] QUANTITY	.3;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<.25)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 18, 1999` HELP-PROMPT: `Type a Number between .25 and 9999, 2 Decimal Digits` DESCRIPTION: Contains the quantity of the drug to print a bar code label for.
.36	[BL] FILLED BY	.3;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X` LAST EDITED: `MAR 26, 1999` HELP-PROMPT: `Answer must be 2-5 characters in length.` DESCRIPTION: Contains the initials of the pharmacists filling the meds for this label.
.37	[BL] CHECKED BY	.3;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X` LAST EDITED: `MAR 18, 1999` HELP-PROMPT: `Answer must be 2-5 characters in length.` DESCRIPTION: Contains the initials of the pharmacists checking the meds for this label.
.38	[BL] NUMBER OF LABELS	.3;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 18, 1999` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: Contains the number of labels the user is requesting to be printed.
.39	[BL] DOSAGE	.3;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>22!($L(X)<1) X` LAST EDITED: `APR 17, 2006` HELP-PROMPT: `Answer must be 1-22 characters in length.` DESCRIPTION: Free text dosage to print on each label.
.41	[DL] INCLUDE FUTURE ORDERS	.4;1	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `NOV 29, 2001` DESCRIPTION: Yes/No question for the Due List to include future orders or not.
.51	[SF] SORT BY FIELD	.5;1	SET	'1' FOR PATIENT'S NAME; '2' FOR EVENT Dt/Tm (ascending); '3' FOR LOCATION WARD/RmBd; '4' FOR TYPE; '5' FOR DRUG ITEM (ID); '6' FOR USER'S NAME; '7' FOR REASON UNABLE TO SCAN; '-2' FOR EVENT Dt/Tm (descending); LAST EDITED: `JUL 18, 2006` HELP-PROMPT: `Enter the column to sort the Unable to Scan report by.` DESCRIPTION: This field is designated for Unable to Scan (detailed) report sorting purposes. The number in this field will determine which "column" is determining the actual order an Unable to Scan (detail) report entry is listed.
.52	PSBPST	.5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `JUL 21, 2008` HELP-PROMPT: `The Sort Option Header text passed from the BCMA GUI by the RPC PSBO.` DESCRIPTION: This field specifies the Sort Option Header text to print on the Unable to Scan Detail report.
.61	CRITERIA	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `JUL 17, 2007` HELP-PROMPT: `Answer must be 1-250 characters in length` DESCRIPTION: (Free Text) Custom "flags" and "parameters" to support processing of the requested report.
1	INPUT LIST	2;0	Multiple #53.692	53.692 DESCRIPTION: (Multiple) List of custom data items to be used when processing the requested report.
2	PSBTR	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 14, 2008` HELP-PROMPT: `This entry specifies which sub headers to print on the report. It is passed to the RPC.` DESCRIPTION: This field defines what sub-headers will be printed on the report. It is passed by the RPC.

Customize PDF page

Package: Barcode Medication Administration

Global: ^PSB(53.69

Information

Description

Directly Accessed By Routines, Total: 5

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 5

Fields, Total: 44