Global: ^PSB(53.68

FileMan FileNo	FileMan Filename	Package
53.68	BCMA MISSING DOSE REQUEST	Barcode Medication Administration

Package	Total	Routines
Barcode Medication Administration	6	^PSB(53.68 ADDITIVES AUDIT LOG PSBMD PSBOMD SOLUTIONS

Package	Total	Routines
Barcode Medication Administration	3	PSB3P100 PSBMD PSBOMD

Package	Total	FileMan Files
Pharmacy Data Management	3	IV ADDITIVES(#52.6)[#53.686(.01)] IV SOLUTIONS(#52.7)[#53.687(.01)] DRUG(#50)[.13]
Registration	3	ROOM-BED(#405.4)[.18] WARD LOCATION(#42)[.12] PATIENT(#2)[.11]
Kernel	2	INSTITUTION(#4)[.04] NEW PERSON(#200)[.03, .22]
Scheduling	1	HOSPITAL LOCATION(#44)[1]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	REQUEST NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>18!($L(X)<18) X` LAST EDITED: `MAR 13, 1999` HELP-PROMPT: `Answer must be 18 characters in length.` DESCRIPTION: `Contains a system generated unique request number for each missing dose request entered.` CROSS-REFERENCE: `53.68^B` `1)= S ^PSB(53.68,"B",$E(X,1,30),DA)=""` `2)= K ^PSB(53.68,"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 18, 1999` DESCRIPTION: `Automatically stuffed at record creation time with a value of NOW.` CROSS-REFERENCE: `53.68^ADTE` `1)= S ^PSB(53.68,"ADTE",$E(X,1,30),DA)=""` `2)= K ^PSB(53.68,"ADTE",$E(X,1,30),DA)`
.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 of DUZ.`
.04	DIVISION	0;4	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `APR 19, 2017` HELP-PROMPT: `Select an institution.` DESCRIPTION: `Automatically stuffed at record creation time with the current value of DUZ(2).` RECORD INDEXES: `DIVAS (#1519)`
.05	SENT TO MAILGROUP	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 26, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Once submitted this field contains the Mail group the request was sent to.`
.06	PRINTED ON DEVICE	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 26, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `If printing is enabled this contains the printer that the request printed on.`
.07	STATUS	0;7	SET	'0' FOR CLOSED; '1' FOR UNRESOLVED; LAST EDITED: `APR 19, 2017` HELP-PROMPT: `Enter 0 or CLOSED if the request has been closed. Enter 1 or UNRESOLVED for a new request.` DESCRIPTION: `Status of the request as Closed or Unresolved.` NOTES: `TRIGGERED by the PHARMACY REASON NEEDED field of the BCMA MISSING DOSE REQUEST File` CROSS-REFERENCE: `53.68^AS` `1)= S ^PSB(53.68,"AS",$E(X,1,30),DA)=""` `2)= K ^PSB(53.68,"AS",$E(X,1,30),DA)` RECORD INDEXES: `DIVAS (#1519)`
.11	PATIENT	.1;1	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `MAR 13, 1999` DESCRIPTION: `Pointer to the PATIENT file (#2) of the patient missing the medication.`
.12	WARD LOCATION	.1;2	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `MAR 26, 1999` DESCRIPTION: `Pointer to the WARD LOCATION file (#42) with the selected ward for the report.`
.13	DRUG REQUESTED	.1;3	POINTER TO DRUG FILE (#50)	DRUG(#50) INPUT TRANSFORM: `I ($P($G(^PSDRUG(X,2)),U,3)'["U")&($P($G(^PSDRUG(X,2)),U,3)'["I")!($G(^PSDRUG(X,"I"),DT)` `LAST EDITED: MAY 08, 2000` `HELP-PROMPT: Drug must be active and a Unit Dose or IV med.` `DESCRIPTION:` `Pointer to DRUG file (#50) with the medication needed.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	DOSE NEEDED	.1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 13, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Free text description of the dosage needed.`
.15	REASON NEEDED	.1;5	SET	'1' FOR DROPPED; '2' FOR EMPTY PACKAGE; '3' FOR NOT AVAILABLE; '4' FOR WRONG DOSE/DRUG DELIVERED; '5' FOR PACKAGE CONTENTS DAMAGED; '6' FOR PACKAGE INTEGRITY DAMAGED; '7' FOR BARCODE/IEN ILLEGIBLE; LAST EDITED: `OCT 30, 2003` DESCRIPTION: `Set of codes containing the reason a medication is missing.`
.16	ADMINISTRATION DATE/TIME	.1;6	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1999` DESCRIPTION: `Date/Time the medication is to be administered.`
.17	NEEDED BY DATE/TIME	.1;7	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 2002` DESCRIPTION: `Date/Time the medication will be needed to meet the next administration.`
.18	ROOM/BED	.1;8	POINTER TO ROOM-BED FILE (#405.4)	ROOM-BED(#405.4) LAST EDITED: `MAY 11, 2000` DESCRIPTION: `The room/bed of the patient when the request is entered.`
.19	SCHEDULE	.1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<2) X` LAST EDITED: `APR 26, 2002` HELP-PROMPT: `Answer must be 2-25 characters in length.`
.21	DOSE DELIVERED	.2;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 13, 1999` DESCRIPTION: `Was a dose delivered to complete this missing med request. (y/n)`
.22	DOSE DELIVERED BY	.2;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 13, 1999` DESCRIPTION: `Pointer to NEW PERSON file (#200) with the user who resolved the request.`
.23	DELIVERY TIME	.2;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1999` DESCRIPTION: `Date/Time the medication was delivered/resolved.`
.24	PHARMACY REASON NEEDED	.2;4	SET	'1' FOR WS/FILL ON REQUEST; '2' FOR FOUND IN DRAWER; '3' FOR PHARMACIST ERROR; '4' FOR EXPIRED/NO ORDER; '5' FOR ATC ERROR; '6' FOR NOT ENOUGH PRNS; '7' FOR TECHNICIAN ERROR; '8' FOR ON PRE-EXCHANGE/PICK LIST; '9' FOR PATIENT TRANSFERRED; '10' FOR NURSE ADMIN ERROR; LAST EDITED: `APR 08, 1999` DESCRIPTION: `Set of coded for resolution reason.` CROSS-REFERENCE: `^^TRIGGER^53.68^.07` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(53.68,.24,1,1,1.4)` `1.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(53.68,.24,1,1,2.4)` `2.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DICR` `CREATE VALUE)= "0"` `DELETE VALUE)= "1"` `FIELD)= STATUS`
.25	UNIQUE ID	.1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 28, 2002` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the unique ID number of an IV bag, which is generated from Inpatient Medications.`
.26	ADDITIVES	.6;0	POINTER Multiple #53.686	53.686 DESCRIPTION: `Pointer to the additives file. Filled in automatically with the ordered additives when a missing dose is submitted.`
.27	SOLUTIONS	.7;0	POINTER Multiple #53.687	53.687 DESCRIPTION: `Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing dose is submitted.`
1	CLINIC	1;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `NOV 15, 2012` HELP-PROMPT: `Enter the Clinic assoiciated with the missing dose.` DESCRIPTION: `Pointer to the HOSPITAL LOCATION file (#44) for the selected clinic for the report.`

Name	Line Occurrences (* Changed, ! Killed)
^DD(53.68	.24(XREF 1S), .24(XREF 1K)
^PSB(53.68 - [#53.68]	IXDIVASSL+1*, IXDIVASKL+1!, IXDIVASKEIC+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .07(XREF 1S), .07(XREF 1K), .24(XREF 1S) , .24(XREF 1n1.4), .24(XREF 1K), .24(XREF 1n2.4)
^PSDRUG - [#50]	.13+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .16+1, .17+1, .23+1
>> D0	.24(XREF 1S), .24(XREF 1K)
>> DA	IXDIVASSL+1, IXDIVASKL+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .07(XREF 1S), .07(XREF 1K), .24(XREF 1S), .24(XREF 1K)
>> DIG	.24(XREF 1n1.4), .24(XREF 1n2.4)
>> DIH	.24(XREF 1n1.4), .24(XREF 1n2.4)
>> DIU	.24(XREF 1S), .24(XREF 1K)
DIV	.24(XREF 1S), .24(XREF 1n1.4), .24(XREF 1K), .24(XREF 1n2.4)
DIV(0	.24(XREF 1S), .24(XREF 1n1.4), .24(XREF 1K), .24(XREF 1n2.4)
DT	.13+1
U	.13+1, .24(XREF 1S), .24(XREF 1n1.4), .24(XREF 1K), .24(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .05+1!, .06+1!, .07(XREF 1S), .07(XREF 1K) , .13+1!, .14+1!, .16+1!, .17+1!, .19+1!, .23+1!, .24(XREF 1S), .24(XREF 1n1.4), .24(XREF 1K), .24(XREF 1n2.4) , .25+1!
X(1	IXDIVASSL+1, IXDIVASKL+1
X(2	IXDIVASSL+1, IXDIVASKL+1
Y	.02+1, .16+1, .17+1, .23+1, .24(XREF 1S), .24(XREF 1K)
Y(1	.24(XREF 1S), .24(XREF 1K)

Customize PDF page

Package: Barcode Medication Administration

Global: ^PSB(53.68

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 3

Pointer To FileMan Files, Total: 9

Fields, Total: 24

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.02+1, .16+1, .17+1, .23+1
^DICR	.24(XREF 1n1.4), .24(XREF 1n2.4)