Global: ^PS(52.7

FileMan FileNo	FileMan Filename	Package
52.7	IV SOLUTIONS	Pharmacy Data Management

Package	Total	Routines
Inpatient Medications	51	ELECTROLYTES PSGCAPIV PSGMIV PSGMMIV PSGMMIVC PSIVAL PSIVAOR1 PSIVEDT PSIVHYPL PSIVHYPR PSIVLABL PSIVLABR PSIVMAN PSIVMAN1 PSIVOE PSIVORAL PSIVORLB PSIVORV1 PSIVQUI PSIVRNL PSIVUDL PSJ200 PSJBCMA PSJBCMA1 PSJDCHK PSJDIN PSJEEU0 PSJHL3 PSJHL4A PSJHLU PSJLIFN PSJLIUTL PSJMUTL PSJORMA2 PSJORPOE PSJORRE PSJORRE1 PSJORRN PSJORRN1 PSJORRO PSJORUT2 PSJPATMR PSJPDV PSJPDV0 PSJPXRM1 PSJR0103 PSJUTL1 PSJXRFK PSJXRFS QUICK CODE SYNONYM
Pharmacy Data Management	39	PSS50E PSS52P7 PSS52P7A PSS55 PSSCLINR PSSCREAT PSSDEE PSSDEE1 PSSDELOI PSSHLU PSSMATCH PSSOICT1 PSSOUTSC PSSPOI PSSPOID1 PSSPOID2 PSSPOIDT PSSPOIKA PSSPOIM1 PSSPOIM3 PSSPOIMN PSSPOIMO PSSPOST2 PSSPRE PSSPRMIX PSSPRUTL PSSQOC PSSREMCH PSSSOLI1 PSSSOLIT PSSSPD PSSSUTIL PSSSXRD PSSUTIL1 PSSVIDRG PSSVX61 ^PS(52.6 ^PS(52.7 ^PSDRUG
Drug Accountability	8	PSADRUG PSADRUGP PSAENTO PSANAC PSAPSI PSAPSI2 PSAPSI3 PSAPSI4
Barcode Medication Administration	3	PSBIHS3 PSBIHS4 PSBZVSD
Third Party Billing	3	ABMDE8D ABMDESMR ABMDVST9
IHS GPRA Information System	2	BGPMUUT4 BGPMUUT6
National Drug File	2	PSNJP54 PSNPSS
Clinical Reminders	1	PXRMISE

Package	Total	Routines
Pharmacy Data Management	13	PSS52P7 PSS52P7A PSSDEE1 PSSDELOI PSSPOI PSSPOIM1 PSSPOST2 PSSPRMIX PSSPRUTL PSSSOLI1 PSSSOLIT PSSSUTIL PSSVIDRG
Barcode Medication Administration	9	PSBMD PSBMLLKU PSBOMD PSBOMT PSBOMT1 PSBOPM PSBRPC2 PSBRPCMO PSBZVSD
Controlled Substances	1	PSDORNV
Inpatient Medications	1	PSIVREC
National Drug File	1	PSNPSS

Package	Total	FileMan Files
Barcode Medication Administration	3	BCMA MISSING DOSE REQUEST(#53.68)[#53.687(.01)] BCMA UNABLE TO SCAN LOG(#53.77)[#53.7712(.01)] BCMA MEDICATION LOG(#53.79)[#53.797(.01)]
Inpatient Medications	3	IV CATEGORY(#50.2)[#50.21(.01)] NON-VERIFIED ORDERS(#53.1)[#53.158(.01)] PHARMACY QUICK ORDER(#57.1)[#57.18(.01)]
IHS Omnicell Pyxis Interface	2	BOP QUEUE(#90355.1)[#90355.12(.01)] BOP IV(#90355.35)[2.01]
Pharmacy Data Management	2	IV ADDITIVES(#52.6)[#52.61(6)] PHARMACY PATIENT(#55)[#55.1058(.01), #55.11(.01)]
Third Party Billing	2	3P BILL(#9002274.4)[#9002274.4023(.08)] 3P CLAIM DATA(#9002274.3)[#9002274.3023(.08)]

Package	Total	FileMan Files
Pharmacy Data Management	3	DRUG ELECTROLYTES(#50.4)[#52.702(.01)] PHARMACY ORDERABLE ITEM(#50.7)[9] DRUG(#50)[1]
Inpatient Medications	1	PRIMARY DRUG(#50.3)[16]

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	PRINT NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `APR 06, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field should contain the print name of the solution. The name that is entered here will be printed on the IV label, manufacturing list, ward list, etc. The volume should NOT be part of the print name, since the` volume of the IV ORDER will be printed next to the print name. DELETE TEST: `.01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED")` DELETE AUTHORITY: ^ GROUP: `PSJI` CROSS-REFERENCE: `52.7^B` 1)= S ^PS(52.7,"B",$E(X,1,30),DA)="" 2)= K ^PS(52.7,"B",$E(X,1,30),DA)
.02	PRINT NAME {2}	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>24!($L(X)<3) X` LAST EDITED: `DEC 19, 1985` HELP-PROMPT: `Answer must be 3-24 characters in length.` DESCRIPTION: An additional print name can be added for each primary solution. This field should only be used when the primary solution is a premix. GROUP: `PSJI`
1	GENERIC DRUG	0;2	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) INPUT TRANSFORM: `S DIC("S")="I '$P($G(^PSDRUG(+Y,2)),""^"",5)"_$S($D(DRUGEDIT):"",1:",$S('$G(^(""I"")):1,1:^(""I"")'` `LAST EDITED: OCT 18, 2000` `DESCRIPTION:` `This field will link the IV Solution file (#52.7) to the drug file (#50).` `SCREEN: S DIC("S")="I '$P($G(^PSDRUG(+Y,2)),""^"",5)"_$S($D(DRUGEDIT):"",1:",$S('$G(^(""I"")):1,1:^(""I"")'` `EXPLANATION: INACTIVE DRUGS ARE NOT SELECTABLE` `GROUP: PSJI` `CROSS-REFERENCE: 52.7^AC` `1)= S ^PS(52.7,"AC",$E(X,1,30),DA)=""` `2)= K ^PS(52.7,"AC",$E(X,1,30),DA)` `CROSS-REFERENCE: 52.6^AAP^MUMPS` `1)= I $P($G(^PSDRUG(X,2)),"^",3)'["I" S PSIUDA=X,PSIUX="I" D ENS^PSSGIU K PSIUDA,PSIUX` `2)= I '$D(^PS(52.6,"AC",X)) S XX=$O(^PS(52.7,"AC",X,0)) S:XX=DA XX=$O(^(XX)) I XX,$P($G(^PSDRUG(X,2)),"^",3)["I" S PSIUDA=X,PSIUX="I" D END^PSSGIU K PSIUDA,PSIUX` `3)= Updates the Application Package's Use field for the generic drug selected.` `This is used to automatically update the Application Packages' use field in the Drug file for the generic drug selected. In the form of: ^PS(52.7,"AC",X,DA)` `CROSS-REFERENCE: ^^TRIGGER^52.7^16` `1)= K DIV S (DIV,X)=$P($G(^PSDRUG(X,2)),"^",6) I DIV S DIU=$P($G(^PS(52.7,DA,0)),"^",12) I DIV'=DIU S $P(^(0),"^",12)=DIV I $O(^DD(52.7,16,1,0)) S (D0,DIV(0))=DA,DIH=52.7,DIG=16 D ^DICR` `2)= S DIU=$P($G(^PS(52.7,DA,0)),"^",12) I DIU]"" S $P(^(0),"^",12)="" I $O(^DD(52.7,16,1,0)) K DIV S (DIV,X)="",(D0,DIV(0))=DA,DIH=52.7,DIG=16 D ^DICR` `3)= Needed to update the PRIMARY DRUG field.` `CREATE VALUE)= GENERIC DRUG:#64` `DELETE VALUE)= @` `FIELD)= PRIMARY DRUG` `Used to update the PRIMARY DRUG field (16) when the solution's GENERIC DRUG field (1) is changed. The primary drug field will only be updated if the generic drug entered has been matched to a primary drug in the PRIMARY` `DRUG file (50.3).` `CROSS-REFERENCE: 52.7^AD^MUMPS` `1)= D S527^PSSPOID1` `2)= D K527^PSSPOID1` `This cross reference is used to update the Pharmacy Orderable Item field (#9) of the IV SOLUTIONS file (#52.7). This cross reference is also used to keep the Pharmacy Orderable Item entries in the PHARMACY ORDERABLE ITEM` `file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary` `status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE` `ITEMS file (#101.43). The cross references that are set and killed are: ^PSDRUG("A527",Dispense Drug IEN,IV Solution IEN)="", ^PS(52.7,"AOI",Pharmacy Orderable Item IEN,IV Solution IEN)="".`
2	VOLUME	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45)!(X'?.N0.1".".N)!(X>9999)!(X<.01) X I $D(X) S X=X_" ML" D EN^DDIOL(" ML","","?0")` LAST EDITED: `JUN 24, 2005` HELP-PROMPT: `Enter a number from 0.01-9999.` DESCRIPTION: The number entered here will represent the volume of this solution. When entering an IV order, this volume will be stuffed into the volume field for that IV ORDER. GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	ELECTROLYTES	2;0	POINTER Multiple #52.702	52.702 LAST EDITED: `JAN 17, 1992` DESCRIPTION: This contains information on the electrolytes that make up this solution. GROUP: `PSJI`
5	SYNONYM	3;0	Multiple #52.703	52.703 DESCRIPTION: These are other names by which a solution may be identified. GROUP: `PSJI`
6	DRUG INFORMATION	4;0	WORD-PROCESSING #52.704	DESCRIPTION: `Any data entered here will be shown under the 'DRUG INQUIRY' option of the IV PACKAGE. This field can be used as a means of communication to other pharmacists or nurses on the wards to inform them about critical IV` DRUGS. GROUP: `PSJI`
7	AVERAGE DRUG COST	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."10N.N) X` LAST EDITED: `SEP 26, 1989` HELP-PROMPT: `Type a Number between 0 and 9999999, 9 Decimal Digits.` DESCRIPTION: This is the average drug cost per ml for this IV solution. GROUP: `PSJI`
8	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 17, 2000` DESCRIPTION: `This field is used to inactivate a drug. An IV drug should NEVER be deleted from a file since some IV ORDERS may still be using it. Enter the date the drug should be inactivated. Once the date of inactivation arrives,` the drug will no longer be a valid choice for IV SOLUTIONS. GROUP: `PSJI` CROSS-REFERENCE: `52.7^AE^MUMPS` 1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),"^",11) Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q 2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),"^",11) Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q 3)= Do Not Delete This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
9	PHARMACY ORDERABLE ITEM	0;11	POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)	PHARMACY ORDERABLE ITEM(#50.7) LAST EDITED: `OCT 17, 2000` DESCRIPTION: `This field is a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. This field is not editable. It is controlled by the software. Every IV Solution has a Generic Drug pointer to the DRUG (#50) File, and every Drug entry` has a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. The software will automatically keep this field updated with the Pharmacy Orderable Item that the Generic Drug points to. TECHNICAL DESCR: This field is a pointer the Pharmacy Orderable Item (#50.7) File. SCREEN: `S DIC("S")="I $P(^PS(52.7,DA,0),U,4)="""""` EXPLANATION: `Only solutions with no data in the PRINT NAME {2} field may be selected.` DELETE AUTHORITY: ^ WRITE AUTHORITY: ^ UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `52.7^AOI` 1)= S ^PS(52.7,"AOI",$E(X,1,30),DA)="" 2)= K ^PS(52.7,"AOI",$E(X,1,30),DA) Cross-reference on PHARMACY ORDERABLE ITEM, field #50.7.
16	*PRIMARY DRUG	0;12	POINTER TO PRIMARY DRUG FILE (#50.3)	**********************REQUIRED FIELD********************** PRIMARY DRUG(#50.3) LAST EDITED: `JAN 25, 1996` DESCRIPTION: Links the solution in the IV SOLUTIONS file (52.7) to a primary drug in the PRIMARY DRUG file (50.3). TECHNICAL DESCR: When the GENERIC DRUG field is edited, the primary drug linked to the generic drug entered for the solution is triggered into this field. NOTES: `TRIGGERED by the GENERIC DRUG field of the IV SOLUTIONS File` TRIGGERED by the *PRIMARY DRUG field of the DRUG File CROSS-REFERENCE: `52.7^APD` 1)= S ^PS(52.7,"APD",$E(X,1,30),DA)="" 2)= K ^PS(52.7,"APD",$E(X,1,30),DA) Used to check if a solution is linked to an order's primary drug if the order is a "non-fluid" type.
17	USED IN IV FLUID ORDER ENTRY	0;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 2000` DESCRIPTION: Allows Pharmacy to limit the solutions available in IV Fluid order entry. Solutions having data in the PRINT NAME {2} field are assumed to be multi-ingredient drugs, and are not selectable. TECHNICAL DESCR: Limits solutions used in clinician IV Fluid order entry to single ingredient drugs only. Solutions with data in the PRINT NAME {2} field (.02) are now allowed to be marked. SCREEN: `S DIC("S")="I $P(^PS(52.7,DA,0),U,4)="""""` EXPLANATION: `Only solutions with no data in the PRINT NAME {2} field may be selected.` CROSS-REFERENCE: `52.7^AF^MUMPS` 1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),"^",11) Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q 2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),"^",11) Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
18	PREMIX	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 29, 2007` HELP-PROMPT: `Enter 1 if this Solution is a PreMix IV, enter 0 if this Solution is not a PreMix IV.` DESCRIPTION: This field is used to identify an IV Solution as a PreMix IV. This indication will be used to identify which entries will have order checks performed against them.
9999999.01	BEYOND USE DAYS	9999999;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 22, 2013` HELP-PROMPT: `Type a Number between 0 and 30, 0 Decimal Digits` DESCRIPTION:

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #437	PHARMACY BENEFITS MANAGEMENT Barcode Medication Administration	PRINT NAME (.01). Access: Pointed to GENERIC DRUG (1). Access: Read w/Fileman AVERAGE DRUG COST (7). Access: Read w/Fileman INACTIVATION DATE (8). Access: Read w/Fileman VOLUME (2). Access: Read w/Fileman PHARMACY ORDERABLE ITEM (9). Access: Read w/Fileman AOI (X-REF). Access: Read w/Fileman
ICR #474	PHARMACY BENEFITS MANAGEMENT	GENERIC DRUG (1). Access: Read w/Fileman
ICR #537	HEALTH SUMMARY
ICR #770	DRUG ACCOUNTABILITY
ICR #1881	DSS EXTRACTS	GENERIC DRUG (1). Access: Direct Global Read & w/Fileman
ICR #2173	INPATIENT MEDICATIONS NATIONAL DRUG FILE
ICR #3013	CONTROLLED SUBSTANCES
ICR #6794	OUTPATIENT PHARMACY

Name	Line Occurrences (* Changed, ! Killed)
^DD(52.7	1(XREF 3S), 1(XREF 3K)
^PS(52.6 - [#52.6]	1(XREF 2K)
^PS(52.7 - [#52.7]	IDWRITE+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 8(XREF 1S), 8(XREF 1K) , 9(XREF 1S), 9(XREF 1K), 16(XREF 1S), 16(XREF 1K), 17(XREF 1S), 17(XREF 1K)
^PSDRUG - [#50]	IDWRITE+1, 1(XREF 2S), 1(XREF 2K), 1(XREF 3S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	8+1*
>> D0	1(XREF 3S), 1(XREF 3K)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 8(XREF 1S), 8(XREF 1K), 9(XREF 1S) , 9(XREF 1K), 16(XREF 1S), 16(XREF 1K), 17(XREF 1S), 17(XREF 1K)
DIC	1+1!*
DIC("S"	1+1, 1SCR+1, 9SCR+1, 17SCR+1
>> DIE	1+1
>> DIG	1(XREF 3S), 1(XREF 3K)
>> DIH	1(XREF 3S), 1(XREF 3K)
>> DIU	1(XREF 3S), 1(XREF 3K)
>> DIU(0	8(XREF 1S), 8(XREF 1K), 17(XREF 1S), 17(XREF 1K)
DIV	1(XREF 3S), 1(XREF 3K)
DIV(0	1(XREF 3S), 1(XREF 3K)
>> DRUGEDIT	1+1, 1SCR+1
PSIUDA	1(XREF 2S), 1(XREF 2K)
PSIUX	1(XREF 2S), 1(XREF 2K)
PSSCROSS	8(XREF 1S), 8(XREF 1K), 17(XREF 1S), 17(XREF 1K)
PSSTEST	8(XREF 1S), 8(XREF 1K), 17(XREF 1S), 17(XREF 1K)
U	ID.02+1, ID2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S) , 1(XREF 3K), 2+1!, 7+1!, 8+1*!, 9(XREF 1S), 9(XREF 1K), 16(XREF 1S), 16(XREF 1K), 9999999.01+1!
>> XX	1(XREF 2K)
>> Y	IDWRITE+1, 1+1, 8+1

Customize PDF page

Package: Pharmacy Data Management

Global: ^PS(52.7

Information

Description

Directly Accessed By Routines, Total: 112

Accessed By FileMan Db Calls, Total: 25

Pointed To By FileMan Files, Total: 12

Pointer To FileMan Files, Total: 4

Fields, Total: 14

ICR, Total: 8

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	8+1
EN^DDIOL	.01DEL.01+1, 2+1
^DIC	1+1
^DICR	1(XREF 3S), 1(XREF 3K)
END^PSSGIU	1(XREF 2K)
ENS^PSSGIU	1(XREF 2S)
K527^PSSPOID1	1(XREF 4K)
S527^PSSPOID1	1(XREF 4S)
EN1^PSSPOIDT	8(XREF 1S), 8(XREF 1K), 17(XREF 1S), 17(XREF 1K)

Name	Field # of Occurrence
^(	1(XREF 2K)
^(0	ID.02+1, ID2+1, IDWRITE+1, 1(XREF 3S), 1(XREF 3K)