Global: ^PS(52.7

FileMan FileNo	FileMan Filename	Package
52.7	IV SOLUTIONS	Pharmacy Data Management

Package	Total	Routines
Inpatient Medications	59	PSGCAPIV PSGMIV PSGMMIV PSGMMIVC PSGSICH PSIVAL PSIVAOR1 PSIVEDT PSIVHYPL PSIVHYPR PSIVLABL PSIVLABR PSIVMAN PSIVMAN1 PSIVOE PSIVORAL PSIVORLB PSIVORV1 PSIVQUI PSIVRNL PSIVUDL PSJ200 PSJBCMA PSJBCMA1 PSJBLDOC PSJCLOR5 PSJDCHK PSJDIN PSJEEU0 PSJHL3 PSJHL4A PSJHLU PSJIBAG PSJIEDT PSJLIFN PSJLIUTL PSJMISC PSJMUTL PSJOC PSJORMA2 PSJORPOE PSJORRE PSJORRE1 PSJORRN PSJORRN1 PSJORRO PSJORUT2 PSJPATMR PSJPDCLA PSJPDCLU PSJPDV PSJPDV0 PSJPXRM1 PSJR0103 PSJU DRUG EDIT PSJUTL1 PSJXRFS ^PS(59.6 PSJXRFK
Pharmacy Data Management	46	ELECTROLYTES PSS189PI PSS50E PSS52P7 PSS52P7A PSS55 PSSCLINR PSSCREAT PSSDDUT2 PSSDEE PSSDEE1 PSSDELOI PSSDSAPA PSSDSAPK PSSHLU PSSMATCH PSSOICT1 PSSOUTSC PSSPOI PSSPOID1 PSSPOID2 PSSPOIDT PSSPOIKA PSSPOIM1 PSSPOIM3 PSSPOIMN PSSPOIMO PSSPOST2 PSSPRE PSSPRMIX PSSPRUTL PSSQOC PSSREMCH PSSSOLI1 PSSSPD PSSSUTIL QUICK CODE ^PS(52.6 PSSSOLIT PSSSXRD PSSUTIL1 ^APSPQA(32.5 PSSVX61 ^PS(52.7 PSSVIDRG SYNONYM
Drug Accountability	8	PSADRUG PSADRUGP PSAENTO PSANAC PSAPSI PSAPSI2 PSAPSI3 PSAPSI4
National Drug File	2	PSNJP54 PSNPSS
Barcode Medication Administration	1	PSBVT
Clinical Reminders	1	PXRMISE

Package	Total	Routines
Pharmacy Data Management	16	PSS189PI PSS52P7 PSS52P7A PSSDDUT2 PSSDEE1 PSSDELOI PSSPOI PSSPOIM1 PSSPOIMN PSSPOST2 PSSPRMIX PSSPRUTL PSSSOLI1 PSSSOLIT PSSSUTIL PSSVIDRG
Barcode Medication Administration	8	PSBMD PSBMLLKU PSBOMD PSBOMT PSBOMT1 PSBOPM PSBRPC2 PSBRPCMO
Inpatient Medications	5	PSIVEDT PSIVREC PSJ53P1 PSJBCMA PSJCROC
DSS Extracts	2	ECXAPHA2 ECXBCM
Controlled Substances	1	PSDORNV
National Drug File	1	PSNPSS
National Health Information Network	1	NHINVPSI

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)[1, #50.21(.01)] NON-VERIFIED ORDERS(#53.1)[#53.158(.01)] PHARMACY QUICK ORDER(#57.1)[#57.18(.01)]
Pharmacy Data Management	2	IV ADDITIVES(#52.6)[#52.61(6)] PHARMACY PATIENT(#55)[#55.1058(.01), #55.11(.01)]
Order Entry Results Reporting	1	ORDER CHECK INSTANCES(#100.05)[#100.114(.01), #100.72(.01)]

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: 13

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: `D IVSOLVOL^PSSDDUT2` LAST EDITED: `JUL 01, 2015` 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` LAST EDITED: `NOV 04, 1985` DESCRIPTION: `Any data entered in this field will be shown under the "DRUG INQUIRY" option of the IV PACKAGE. It may be used as a means of passing along information regarding certain IV drugs to other pharmacists or nurses.` 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: `JUL 02, 2015` HELP-PROMPT: `Enter the date this drug was inactivated.` 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` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` 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 *PRIMARY DRUG field of the DRUG File` `TRIGGERED by the GENERIC DRUG field of the IV SOLUTIONS 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; INPUT TRANSFORM: `D UIVFOE^PSSDDUT2` LAST EDITED: `SEP 29, 2015` HELP-PROMPT: `Answer YES to indicate this IV Solution will be available to be ordered via the CPRS IV Fluid Order Entry or NO if it will not be available for selection.` 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.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` 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.`

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 - DECISION SUPPORT SYSTEM 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)

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

>>	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, ID8+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), 7+1!, 8+1!, 9(XREF 1S), 9(XREF 1K), 16(XREF 1S), 16(XREF 1K)
>> 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: 118

Accessed By FileMan Db Calls, Total: 34

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 4

Fields, Total: 13

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
^DIC	1+1
^DICR	1(XREF 3S), 1(XREF 3K)
IVSOLVOL^PSSDDUT2	2+1
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)