Global: ^PSB(53.79

FileMan FileNo	FileMan Filename	Package
53.79	BCMA MEDICATION LOG	Barcode Medication Administration

Package	Total	Routines
Barcode Medication Administration	54	ALPBIND ALPBINP PSBAPIPM PSBCHKIV PSBCSUTL PSBCSUTX PSBCSUTY PSBIHS1 PSBIHS4 PSBML PSBML1 PSBML2 PSBML3 PSBMLEN PSBMLEN1 PSBMLLKU PSBMLTS PSBMLU PSBMLVAL PSBO PSBOCI PSBODL PSBODL1 PSBOIV PSBOMH PSBOMH1 PSBOMH2 PSBOML PSBOMM PSBOMM2 PSBOMT PSBOMT1 PSBOMV PSBOPE PSBOPM PSBOPM1 PSBOXA PSBPOIV PSBPRN PSBPRND PSBPXLP PSBRPC2 PSBSVHL7 PSBUTL PSBVAR PSBVDLIV PSBVDLPA PSBVDLPB PSBVDLU1 PSBVDLU2 PSBVDLU3 PSBVDLUD PSBVDLVL PSBVT
IHS GPRA Information System	5	BGPMUH05 BGPMUH06 BGPMUH10 BGPMUH11 BGPMUH15
Patient Care Component Table Maintiance	4	APCM24E2 APCM25E2 APCM2AE2 APCMVAEM
Order Entry Results Reporting	3	ORWGAPI5 ORWGAPI7 ORWGAPIC
Inpatient Medications	1	PSJ0050

Package	Total	Routines
Barcode Medication Administration	30	ALPBINP PSBCSUTL PSBCSUTX PSBCSUTY PSBIHS4 PSBML PSBML1 PSBML2 PSBML3 PSBMLEN PSBMLEN1 PSBMLLKU PSBMLVAL PSBOCI PSBOIV PSBOMH PSBOMH1 PSBOMH2 PSBOML PSBOMT PSBOMT1 PSBOPE PSBOPM PSBOPM1 PSBOXA PSBPRN PSBVDLPB PSBVDLU3 PSBVDLUD PSBVDLVL
Inpatient Medications	2	PSJ0050 PSJUTL2

Package	Total	FileMan Files
Barcode Medication Administration	1	BCMA MEDICATION VARIANCE LOG(#53.78)[.08]

Package	Total	FileMan Files
Pharmacy Data Management	4	PHARMACY ORDERABLE ITEM(#50.7)[.08] IV ADDITIVES(#52.6)[#53.796(.01)] IV SOLUTIONS(#52.7)[#53.797(.01)] DRUG(#50)[#53.795(.01)]
Kernel	2	INSTITUTION(#4)[.03] NEW PERSON(#200)[.05, .07, .23, #53.793(.02), #53.799(.02), #53.799(.05)]
Registration	1	VA PATIENT(#2)[.01]

Fields, Total: 28

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `FEB 21, 2003` DESCRIPTION: This field contains a pointer to the PATIENT File (#2) and is the patient that received the medication. CROSS-REFERENCE: `53.79^B` 1)= S ^PSB(53.79,"B",$E(X,1,30),DA)="" 2)= K ^PSB(53.79,"B",$E(X,1,30),DA) FIELD INDEX: `APATCH (#133) REGULAR IR SORTING ONLY` Short Descr: Updates APATCH when DFN or admin date/time changes. Set Logic: S ^PSB(53.79,"APATCH",X(1),X(2),DA)="" Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,4)="PATCH")&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q Kill Logic: K ^PSB(53.79,"APATCH",X(1),X(2),DA) Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,4)="PATCH" S X=1 Q Whole Kill: K ^PSB(53.79,"APATCH") X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards) X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards) RECORD INDEXES: `AORDX (#131), AUID (#134)`
.02	PATIENT LOCATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `MAR 19, 1999` HELP-PROMPT: `Answer must be 1-50 characters in length.` DESCRIPTION: Free text room-bed and ward location of the patient at the time of the med pass.
.03	PATIENT DIVISION	0;3	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `MAR 13, 1999` DESCRIPTION: Division of the ward that this patient was on during the med pass.
.04	ENTERED DATE/TIME	0;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 14, 1999` DESCRIPTION: Date and time the med pass was filed. Defaults to NOW on record creation. CROSS-REFERENCE: `53.79^AEDT^MUMPS` 1)= S ^PSB(53.79,"AEDT",$P(^PSB(53.79,DA,0),U),X,DA)="" 2)= K ^PSB(53.79,"AEDT",$P(^PSB(53.79,DA,0),U),X,DA) Creates an entry by patient for date/time entries in the log were created. ^PSB(53.79,"AEDT",dfn,Entered Date/Time,DA)=""
.05	ENTERED BY	0;5	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 26, 2002` DESCRIPTION: Pointer to the NEW PERSON file (#200). Contains the user passing meds.
.06	ACTION DATE/TIME	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 21, 2003` DESCRIPTION: Fileman Date/Time containing the actual time the med was administered. CROSS-REFERENCE: `53.79^AADT^MUMPS` 1)= S ^PSB(53.79,"AADT",$P(^PSB(53.79,DA,0),U),X,DA)="" 2)= Q Creates a cross reference by patient for administration times ^PSB(53.79,"AADT",dfn,administration d/t,DA)="" CROSS-REFERENCE: `53.79^AOIP1^MUMPS^^^^^^G` 1)= I $P(^PSB(53.79,DA,0),U,8) S ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA)="" 2)= I $P(^PSB(53.79,DA,0),U,8) K ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA) Creates a cross reference by patient for orderable items and administration date/time ^PSB(53.79,"AOIP",dfn,orderable item,administration d/t,DA)="" Same as field ADMINISTRATION MEDICATION (#.08) CROSS-REFERENCE: `53.79^AU06^MUMPS` 1)= D AUDIT^PSBUTL(DA,53.79,.06,X,"S") 2)= D AUDIT^PSBUTL(DA,53.79,.06,X,"K") Creates an entry in this items audit log whenever changed or deleted. CROSS-REFERENCE: `^^TRIGGER^53.79^.14` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^PSB(53.79,DA,.1)),U,2)="C"&($P($G(^(.1)),U,3)]"") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.06,1,8,1.1) X ^DD( 53.79,.06,1,8,1.4) 1.1)= S X=DIV X ^DD(53.79,.06,1,8,49.2) S X1=Y(1) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X1440+Y 1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^PSB(53.79,DA,.1)),U,2)="C"&($P($G(^(.1)),U,3)]"") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.06,1,8,2.4) 2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S Y(2)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=DIV,Y(1)=X S X=$P(Y(2),U,3) CREATE CONDITION)= I $P($G(^PSB(53.79,DA,.1)),U,2)="C"&($P($G(^(.1)),U,3)]"") CREATE VALUE)= MINUTES(#.06,#.13) DELETE CONDITION)= I $P($G(^PSB(53.79,DA,.1)),U,2)="C"&($P($G(^(.1)),U,3)]"") DELETE VALUE)= @ FIELD)= #.14 FIELD INDEX: `APATCH (#133) REGULAR IR SORTING ONLY` Short Descr: Updates APATCH when DFN or admin date/time changes. Set Logic: S ^PSB(53.79,"APATCH",X(1),X(2),DA)="" Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,4)="PATCH")&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q Kill Logic: K ^PSB(53.79,"APATCH",X(1),X(2),DA) Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,4)="PATCH" S X=1 Q Whole Kill: K ^PSB(53.79,"APATCH") X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards) X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards) RECORD INDEXES: `AORDX (#131)`
.07	ACTION BY	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 11, 2001` DESCRIPTION: Pointer to the NEW PERSON file (#200). Contains the user passing meds.
.08	ADMINISTRATION MEDICATION	0;8	POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)	**********************REQUIRED FIELD********************** PHARMACY ORDERABLE ITEM(#50.7) LAST EDITED: `APR 27, 1999` DESCRIPTION: Pointer to ORDERABLE ITEM (#50.7) containing the medication entered for the order. CROSS-REFERENCE: `53.79^AOIP^MUMPS` 1)= I $P(^PSB(53.79,DA,0),U,6) S ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA)="" 2)= I $P(^PSB(53.79,DA,0),U,6) K ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA) Creates a cross reference by patient for orderable items and administration date/time ^PSB(53.79,"AOIP",dfn,orderable item,administration d/t,DA)="" Same as Field ADMINISTRATION DATE/TIME (#.06)
.09	ACTION STATUS	0;9	SET	**********************REQUIRED FIELD********************** 'G' FOR GIVEN; 'H' FOR HELD; 'R' FOR REFUSED; 'N' FOR NOT GIVEN; 'RM' FOR REMOVED; 'I' FOR INFUSING; 'S' FOR STOPPED; 'C' FOR COMPLETED; 'M' FOR MISSING DOSE; LAST EDITED: `FEB 26, 2002` DESCRIPTION: Status of administration (H:Held,R:Refused,G:Given,N:NOT GIVEN) CROSS-REFERENCE: `53.79^AU09^MUMPS` 1)= D AUDIT^PSBUTL(DA,53.79,.09,X,"S") 2)= D AUDIT^PSBUTL(DA,53.79,.09,X,"K") Creates an entry in this items audit log whenever changed or deleted.
.11	ORDER REFERENCE NUMBER	.1;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1)!'(X?.N1"U"!(X?.N1"V")!(X?.N1"P")) X` LAST EDITED: `MAY 09, 2001` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: Contains the IEN to the actual order in PHARMACY PATIENT (#55) followed by a U for Unit Dose or V for IV RECORD INDEXES: `AORDX (#131), AUID (#134)`
.12	ORDER SCHEDULE	.1;2	SET	'C' FOR CONTINUOUS; 'P' FOR PRN; 'O' FOR ONE-TIME; 'OC' FOR ON-CALL; LAST EDITED: `APR 27, 1999` DESCRIPTION: Contains the schedule type of the order. CROSS-REFERENCE: `53.79^APRN2^MUMPS` 1)= S:X="P"&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,"APRN",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA)="" 2)= K:X="P"&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,"APRN",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA) Creates an index for all PRN administered medications for recall with the PRN effectiveness options. ^PSB(53.79,"APRN",dfn,entered date/time,DA)="" NOTE: This is entered date/time (#.04), not administered date/time.
.13	SCHEDULED ADMINISTRATION TIME	.1;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 11, 2001` DESCRIPTION: If a continuous order this field will contain the actual administration date and time the medication was ordered for. CROSS-REFERENCE: `53.79^AORD2^MUMPS` 1)= I $P($G(^PSB(53.79,DA,.1)),U,1)]"" S ^PSB(53.79,"AORD",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA)="" 2)= I $P($G(^PSB(53.79,DA,.1)),U,1)]"" K ^PSB(53.79,"AORD",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA) Creates an index by patient for Order reference number and administration time. ^PSB(53.79,"AORD",dfn,order reference,administration date/time,DA)="" CROSS-REFERENCE: `^^TRIGGER^53.79^.14` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)="C") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.13,1,8,1.1) X ^DD(53.79,.1 3,1,8,1.4) 1.1)= S X=DIV X ^DD(53.79,.13,1,8,49.2) S X1=Y(2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X1440+Y 1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)="C") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.13,1,8,2.4) 2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S Y(1)=$S($D(^PSB(53.79,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),Y(2)=X S X=DIV CREATE CONDITION)= I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)="C") CREATE VALUE)= MINUTES(#.06,#.13) DELETE CONDITION)= I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)="C") DELETE VALUE)= @ FIELD)= #.14
.14	ORDER ADMINISTRATION VARIANCE	.1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X` LAST EDITED: `APR 14, 1999` HELP-PROMPT: `Type a Number between -99999 and 99999, 0 Decimal Digits` DESCRIPTION: If a continuous order this field contains the minutes early (<1) or Late (>1) that the medication was given. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the ACTION DATE/TIME field of the BCMA MEDICATION LOG File` TRIGGERED by the SCHEDULED ADMINISTRATION TIME field of the BCMA MEDICATION LOG File CROSS-REFERENCE: `53.79^AVARCHK^MUMPS` 1)= D CHECK^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA) 2)= Q This field is triggered by the administration date/time. If this field is greater than or less than the allowable administration window times for this division a variance will be filed.
.15	ORDER DOSAGE	.1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `APR 09, 1999` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: Free text field containing the dosage from the original order.
.16	INJECTION SITE	.1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 09, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Free text field containing the injection site of medication that are injected. CROSS-REFERENCE: `53.79^AU16^MUMPS` 1)= D AUDIT^PSBUTL(DA,53.79,.16,X,"S") 2)= D AUDIT^PSBUTL(DA,53.79,.16,X,"K") Creates an entry in this items audit log whenever changed or deleted.
.21	PRN REASON	.2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 22, 1999` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Free text field containing the PRN reason for a PRN med being given. CROSS-REFERENCE: `53.79^AU21^MUMPS` 1)= D AUDIT^PSBUTL(DA,53.79,.21,X,"S") 2)= D AUDIT^PSBUTL(DA,53.79,.21,X,"K") Creates an entry in this items audit log whenever changed or deleted.
.22	PRN EFFECTIVENESS	.2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>150!($L(X)<1) X` LAST EDITED: `APR 22, 1999` HELP-PROMPT: `Answer must be 1-150 characters in length.` DESCRIPTION: Free text field containing the effectiveness of a PRN medication. CROSS-REFERENCE: `^^TRIGGER^53.79^.24` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.22,1,1,1.1) X ^DD(53.79,.22,1,1,1.4) 1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% 1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.22,1,1,2.4) 2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NOW DELETE VALUE)= @ FIELD)= PRN EFFECTIVENESS ENTERED AT CROSS-REFERENCE: `^^TRIGGER^53.79^.23` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(53.79,.22,1,2,1.4) 1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(53.79,.22,1,2,2.4) 2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=DUZ DELETE VALUE)= @ FIELD)= PRN EFFECTIVENESS ENTERED BY CROSS-REFERENCE: `53.79^AU22^MUMPS` 1)= D AUDIT^PSBUTL(DA,53.79,.22,X,"S") 2)= D AUDIT^PSBUTL(DA,53.79,.22,X,"K") Creates an entry in this items audit log whenever changed or deleted.
.23	PRN EFFECTIVENESS ENTERED BY	.2;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 13, 1999` DESCRIPTION: Pointer to file NEW PERSON (#200) with the IEN of the user logging the PRN effectiveness. NOTES: `TRIGGERED by the PRN EFFECTIVENESS field of the BCMA MEDICATION LOG File`
.24	PRN EFFECTIVENESS ENTERED AT	.2;4	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 24, 1999` DESCRIPTION: Date/time the PRN effectiveness was charted. NOTES: `TRIGGERED by the PRN EFFECTIVENESS field of the BCMA MEDICATION LOG File` CROSS-REFERENCE: `^^TRIGGER^53.79^.25` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(53.79,.24,1,1,1.1) X ^DD(53.79,.24,1,1,1.4) 1.1)= S X=DIV X ^DD(53.79,.24,1,1,49.2) S X1=Y(1) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X1440+Y 1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(53.79,.24,1,1,2.4) 2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 49.2)= S Y(2)=$S($D(^PSB(53.79,D0,0)):^(0),1:"") S X=DIV,Y(1)=X S X=$P(Y(2),U,6) CREATE VALUE)= MINUTES(#.24,#.06) DELETE VALUE)= @ FIELD)= PRN EFFECTIVENESS MINUTES
.25	PRN EFFECTIVENESS MINUTES	.2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X` LAST EDITED: `APR 28, 1999` HELP-PROMPT: `Type a Number between -99999 and 99999, 0 Decimal Digits` DESCRIPTION: Number of minutes from administration to the charting of PRN effectiveness. WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the PRN EFFECTIVENESS ENTERED AT field of the BCMA MEDICATION LOG File` CROSS-REFERENCE: `53.79^ACHKPRN^MUMPS` 1)= D CHKPRN^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA) 2)= Q This field is triggered by the PRN EFFECTIVENESS DATE/TIME field. If this field is greater than the allowable PRN EFFECTIVENESS window times for this division a variance will be filed.
.26	IV UNIQUE ID	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 19, 2001` 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. RECORD INDEXES: `AUID (#134)`
.27	PRN REASON FLAG	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `NOV 04, 2003` HELP-PROMPT: `Type a number between 0 and 1, 0 Decimal Digits` DESCRIPTION: The PRN REASON FLAG field is to indicate whether the BCMA Med Log file entry is PRN activity and has an associated PRN REASON which has been set to require BCMA user attention or action.
.3	COMMENT	.3;0	Multiple #53.793	53.793 DESCRIPTION: Multiple containing the comments entered for each med pass.
.35	INFUSION RATE	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>47!($L(X)<1) X` LAST EDITED: `FEB 25, 2003` HELP-PROMPT: `Answer must be 1-47 characters in length.` DESCRIPTION: This is the infusion rate for an IV bag, which is passed by Inpatient Medications.
.5	DISPENSE DRUG	.5;0	POINTER Multiple #53.795	53.795 INDEXED BY: `UNIT OF ADMINISTRATION (APATCH)`
.6	ADDITIVES	.6;0	POINTER Multiple #53.796	53.796
.7	SOLUTIONS	.7;0	POINTER Multiple #53.797	53.797
.9	AUDIT LOG	.9;0	DATE Multiple #53.799	53.799

Customize PDF page

Package: Barcode Medication Administration

Global: ^PSB(53.79

Information

Description

Directly Accessed By Routines, Total: 78

Accessed By FileMan Db Calls, Total: 32

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 28