Global: ^PSD(58.8

FileMan FileNo	FileMan Filename	Package
58.8	DRUG ACCOUNTABILITY STATS	Drug Accountability

Package	Total	Routines
Controlled Substances	206	PSDACT PSDACT1 PSDADJ PSDADJC PSDADJD PSDADJI PSDADJIN PSDADJN PSDADJN1 PSDADJR PSDAMIS PSDAMIS1 PSDAMIS2 PSDBAL PSDBALI PSDBAN PSDBAN1 PSDCOR PSDCOR1 PSDCOR2 PSDCORP PSDCORP1 PSDCORP2 PSDCORP3 PSDCOSD PSDCOSH PSDCOSN PSDCOST PSDCOSV PSDCPO PSDCRP PSDCSI PSDDFP PSDDFP1 PSDDWK PSDDWK1 PSDDWK2 PSDDWK3 PSDDWK4 PSDDWKE PSDEA41 PSDEM PSDEM1 PSDEM2 PSDEM4 PSDEN PSDERCP PSDERP PSDEST PSDESTP PSDEVO PSDEVO1 PSDEVOR PSDEXGS PSDEXGS1 PSDEXP PSDFIL2 PSDFIL3 PSDFND PSDFT PSDFT1 PSDGPR PSDGSH PSDGSH1 PSDGSH11 PSDGSL PSDGSL1 PSDGSPU PSDGSRV PSDGSRV1 PSDGSRV2 PSDHRPT PSDIPOS1 PSDLBL PSDLBL0 PSDLBL1 PSDLBL4 PSDLBL5 PSDLBLB PSDLBLP PSDLBLR PSDLBLR0 PSDLBLR1 PSDLBLR2 PSDLSTK PSDLSTK1 PSDLSTK2 PSDMAPU PSDMFG PSDNACT PSDNARC PSDNBT PSDNCGS PSDNDES PSDNMU PSDNRGO PSDNRGS PSDNSCG PSDNSCL PSDNSTK PSDNTF PSDNTFPC PSDNTR PSDNTT PSDNTT1 PSDNTTP1 PSDNTTPC PSDNU PSDNU1 PSDNU2 PSDOPT PSDOPT0 PSDOPT1 PSDOPT2 PSDOPTI PSDOPTN PSDOPTS PSDOPTX PSDOR2 PSDOR21 PSDORD PSDORD1 PSDORD2 PSDORD3 PSDORD4 PSDORN PSDORN0 PSDORN1 PSDORN2 PSDORN3 PSDORNC PSDORNO PSDORNP PSDORNV PSDORP PSDORP1 PSDORP2 PSDORSN PSDORST PSDORSU PSDORV PSDORV1 PSDPAT PSDPAT1 PSDPDR PSDPDR1 PSDPDR2 PSDPDU PSDPDU1 PSDPGS PSDPGS1 PSDPLOG1 PSDPMFG PSDPND PSDPSI PSDPSTK PSDPSTK1 PSDPUGS PSDPWK PSDPWK1 PSDRDR PSDRDR1 PSDREC PSDREC1 PSDREC2 PSDREC3 PSDREC4 PSDREPD PSDREPV PSDREV PSDREVC PSDREVD PSDRF PSDRF1 PSDRF4 PSDRFD PSDRFM PSDRFR PSDRFS PSDRFT PSDRFW PSDRFX PSDRFZ PSDRLOG1 PSDRPGS PSDRPGS1 PSDRPGS2 PSDRPT PSDRSI PSDRWK PSDSET PSDSITE PSDSP PSDSTK PSDTRA PSDTRA1 PSDTRN PSDTRN1 PSDTRV PSDTRV1 PSDTRVR1 PSDUP2 PSDUP3 PSDUTL PSDWADD PSDWCHG
Drug Accountability	76	PSABRKU2 PSADA PSADAI PSADJ PSADJI PSADJR PSADRU PSADRUG PSADRUGP PSAENT PSAENTO PSAENVIR PSAFIX PSAGIP PSAGIP1 PSAHIS1 PSALEVEL PSALEVRP PSALOC PSALOC2 PSALOCO PSAMON PSANAC PSAOP PSAOP1 PSAOP2 PSAOP3 PSAORDP1 PSAPROC PSAPROC1 PSAPROC2 PSAPROC6 PSAPROC8 PSAPROC9 PSAPSI PSAPSI1 PSAPSI2 PSAPSI3 PSAPSI5 PSAPUR PSAREC PSAREC1 PSAREORD PSAREPV PSAREV PSAREVC PSAREVD PSARIN PSARWS PSASIG PSATRAN PSATRAN1 PSAUDP PSAUP4 PSAUTL PSAUTL1 PSAUTL3 PSAUTL4 PSAUTL5 PSAUTL6 PSAV3P53 PSAVER PSAVER1 PSAVER3 PSAVER4 PSAVER5 PSAVER6 PSAVER7 PSAVERA PSAVERA1 PSAVIN ^PSD(58.8 PSAVIN1 PSAVIN2 PSAVINC PSAWARD
Outpatient Pharmacy	11	ACTIVITY DRUG IV ROOM MONTHLY ACTIVITY ORDERS OUTPATIENT SITE(S) PRIMARY INVENTORY POINT(S) PSODISP PSOHLDI1 WARD WARD (FOR DRUG)
Inpatient Medications	6	PSGLOI PSGPEN PSGSICHK PSJDCHK PSJO PSJORMAR
Pharmacy Benefits Management	2	PSUMAPR PSUPR2
IHS Changes To Pharmacy	1	APSPAUTO
Pharmacy Data Management	1	PSSAUTL

Package	Total	Routines
Controlled Substances	31	PSDADJ PSDADJC PSDADJD PSDADJI PSDADJIN PSDADJN PSDADJN1 PSDADJR PSDDSOR2 PSDEN PSDIPOS1 PSDOPT0 PSDOPTI PSDOPTR PSDOPTS PSDORD1 PSDORD4 PSDORNO PSDREC PSDREC1 PSDREC2 PSDREC3 PSDREC4 PSDREPD PSDREVD PSDRF PSDRF4 PSDRFR PSDRFS PSDRFW PSDSET
Drug Accountability	31	PSADA PSADJ PSADJI PSADJR PSADRUG PSAENT PSAENTO PSAGIP PSALEVEL PSALOC PSALOC2 PSALOCO PSAMON PSANAC PSAOP PSAOP1 PSAPROC6 PSAPSI PSAPSI4 PSAPUR PSAREC PSAREC1 PSAREVD PSARIN PSARWS PSAUDP PSAVER6 PSAVIN1 PSAVIN2 PSAVINC PSAWARD
Pharmacy Benefits Management	1	PSUMAPR

Package	Total	FileMan Files
Controlled Substances	4	CS WORKSHEET(#58.85)[1, 2] CS DESTRUCTION(#58.86)[6] CS CORRECTION LOG(#58.87)[5, 12] CS ERROR LOG(#58.89)[6]
Drug Accountability	3	DRUG ACCOUNTABILITY STATS(#58.8)[3, #58.800118(2)] DRUG ACCOUNTABILITY TRANSACTION(#58.81)[2, 17, 66] DRUG ACCOUNTABILITY ORDER(#58.811)[#58.8112(4), #58.8112(13)]
Auto Replenishment Ward Stock	1	AOU INVENTORY GROUP(#58.2)[#58.29(.01)]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[#59.79002(.01), #59.79003(.01)]

Package	Total	FileMan Files
Auto Replenishment Ward Stock	2	INPATIENT SITE(#59.4)[2] AOU INVENTORY TYPE(#58.16)[#58.800116(.01)]
Controlled Substances	2	CS ORDER STATUS(#58.82)[#58.800118(10)] CS COMPLETION STATUS(#58.83)[#58.800118(11)]
Drug Accountability	2	DRUG ACCOUNTABILITY STATS(#58.8)[3, #58.800118(2)] DRUG ACCOUNTABILITY TRANSACTION(#58.81)[#58.800118(17), #58.800119(.01)]
Kernel	2	DEVICE(#3.5)[24, 25, 26, 29] NEW PERSON(#200)[#58.800118(3), #58.800118(4), #58.800118(6), #58.800118(23)]
Outpatient Pharmacy	2	OUTPATIENT SITE(#59)[20, #58.836(.01)] PRESCRIPTION(#52)[#58.800118(18)]
Inpatient Medications	1	IV ROOM(#59.5)[#58.831(.01)]
MailMan	1	MAIL GROUP(#3.8)[32]
Pharmacy Data Management	1	DRUG(#50)[#58.8001(.01)]
Registration	1	WARD LOCATION(#42)[#58.800115(.01), #58.842(.01)]

Field #	Name	Loc	Type	Details
.01	PHARMACY LOCATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `AUG 17, 2000` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field contains the name of the Pharmacy location.` The Controlled Substances module will recognize this location as the Narcotic Area of Use (NAOU) throughout this package. TECHNICAL DESCR: Free text name of this Pharmacy location. Not to exceed 30 characters. DELETE TEST: `.01,0)= I 1 W !,?5,"DO NOT DELETE. Use the Inactivate NAOU option. "` CROSS-REFERENCE: `58.8^B` 1)= S ^PSD(58.8,"B",$E(X,1,30),DA)="" 2)= K ^PSD(58.8,"B",$E(X,1,30),DA)
1	LOCATION TYPE	0;2	SET	**********************REQUIRED FIELD******************** 'M' FOR MASTER VAULT; 'S' FOR SATELLITE VAULT; 'N' FOR NARCOTIC LOCATION; 'P' FOR PRIMARY; INPUT TRANSFORM: `K X W $C(7),!,?10," No Editing ** ",!` LAST EDITED: `OCT 21, 1993` HELP-PROMPT: `Enter the location type.` DESCRIPTION: `This field contains the location type for this pharmacy location. Location types are "M" for master vault, "S" for satellite vault, "N" for narcotic location, and "P" for primary.` This field should NOT be edited directly using VA FileMan. The Drug Accountability and Controlled Substances modules depend on the accuracy of this data. The Controlled Substances module supports "M", "S" and "N" location types. For CS use, enter the master vault locations first. TECHNICAL DESCR: Set of codes. Do NOT edit directly using VA FileMan. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.8^ADISP` 1)= S ^PSD(58.8,"ADISP",$E(X,1,30),DA)="" 2)= K ^PSD(58.8,"ADISP",$E(X,1,30),DA) CROSS-REFERENCE: `58.8^ASITE1^MUMPS` 1)= D SASITE1^PSDUTL 2)= D KASITE1^PSDUTL 3)= DO NOT DELETE This cross-reference is used in determining site for all Controlled Substances applications. The cross-reference is ^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".
2	INPATIENT SITE	0;3	POINTER TO INPATIENT SITE FILE (#59.4)	**********************REQUIRED FIELD********************** INPATIENT SITE(#59.4) INPUT TRANSFORM: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 09, 1992` HELP-PROMPT: `Enter inpatient site.` DESCRIPTION: This field contains a pointer to the inpatient site. This is a required data element within the Controlled Substances module. TECHNICAL DESCR: Screened pointer to File 59.4 - INPATIENT SITE file. Required for CS use. SCREEN: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)"` EXPLANATION: `Select only sites that are "Selectable for CS" in File 59.4.` CROSS-REFERENCE: `58.8^ASITE^MUMPS` 1)= D SASITE^PSDUTL 2)= D KASITE^PSDUTL 3)= DO NOT DELETE This cross-reference is used in distinguishing multi-divisional sites. The Controlled Substances software uses this cross-reference in all ordering, dispensing, and reporting activity. The cross-reference is ^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".
3	PRIMARY DISPENSING SITE	0;4	POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)	DRUG ACCOUNTABILITY STATS(#58.8) INPUT TRANSFORM: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 21, 1992` HELP-PROMPT: `Answer must be the name of an existing Master or Satellite vault.` DESCRIPTION: This field contains a pointer to the primary dispensing site for this pharmacy location. This data is utilized within the Controlled Substances module. TECHNICAL DESCR: Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file. Selection limited to Master vault or Satellite vault. SCREEN: `S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)"` EXPLANATION: `Selection limited to Master or Satellite vault.`
4	INACTIVE DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 06, 1992` HELP-PROMPT: `Enter the date when this pharmacy location became inactive.` DESCRIPTION: The date on which this pharmacy location was inactivated. TECHNICAL DESCR: Inactive date for this pharmacy location.
5	ASK MFG/LOT #/EXP.DATE?	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 06, 1992` HELP-PROMPT: `Enter "1" or "Y" if you wish to be prompted for mfg., lot #, and exp. date.` DESCRIPTION: `The answer for asking manufacturer, lot #, and expiration date on drugs tracked within this Pharmacy location . If this field is set to "1" or "YES", manufacturer, lot number, and expiration date will be asked when` dispensing drugs within this Pharmacy location. For Controlled Substances use, this field should be answered for Master vaults and Satellite vaults. TECHNICAL DESCR: Set of codes - "1" for "YES" or "0" for "NO".
6	IS THIS PHARM WORKING STOCK?	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 05, 1992` HELP-PROMPT: `Enter "1" or "Y" if this is a Pharmacy NAOU for working stock.` DESCRIPTION: Pharmacy location designated as a Narcotic Area of Use for pharmacy working stock. If this field is set to "1" or "YES" drug data will be utilized differently within the Controlled Substances module. TECHNICAL DESCR: Set of codes - "1" for "YES" or "0" for "NO".
10	DRUG	1;0	POINTER Multiple #58.8001	58.8001 DESCRIPTION: `Drug is defined by physical location, stock level, balance on-hand, reorder level, quantity to reorder, breakdown unit, package size, manufacturer, lot number, and expiration date. Other information available is inventory` types, ward (for drug), and prime vendor item number (if applicable). In the Controlled Substances module, all CS order requests are stored in the ORDERS multiple within DRUG.
11	*PRIMARY INVENTORY POINT	0;6	POINTER TO AN UNDEFINED FILE	INPUT TRANSFORM: `S DATABASE=1,DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)" D ^DIC K DIC S DIC=DIE,X=+Y D ^PSAUTL K DATABASE K:Y<0 X` LAST EDITED: `JUL 29, 1997` HELP-PROMPT: `For Controlled Substances enter the name of the pharmacy inventory point which contains ONLY the controlled substances stored in this pharmacy master vault.` DESCRIPTION: To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this file. Receiving that occurs in the inventory point will update on hand quantities in the pharmacy location. TECHNICAL DESCR: To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY STATS file (#58.8). SCREEN: `S DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)"` EXPLANATION: `You can only select a Primary Inventory Point with a Cost Center of 822400.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.8^E` 1)= S ^PSD(58.8,"E",$E(X,1,30),DA)="" 2)= K ^PSD(58.8,"E",$E(X,1,30),DA) To identify Pharmacy location linked to an Inventory Point.
11.5	*RECEIPT FAILURE NOTIFICATION?	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 19, 1993` HELP-PROMPT: `Enter "1" or "Y" to notify the RECEIPT FAILURE mail group of items that could not be received.` DESCRIPTION: `If a Drug Accountability location is linked to a Primary Inventory Point the items received into the Primary Inventory Point will also be updated in the Drug Accountability location. If items are received into the linked` Primary Inventory that are not connected to the DRUG file (#50) or not stocked in the Drug Accountability location, and this field is set to "YES", the RECEIPT FAILURE mail group will be notified with a list of the items. TECHNICAL DESCR: Set of codes - "1" for "YES" or "0" for "NO".
12	PRIME VENDOR?	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1997` HELP-PROMPT: `Enter "1" or "Y" for "YES". Enter "0" or "N" for "NO".` DESCRIPTION: `To more efficiently process prime vendor receipts, setting this flag to "YES" will allow you to store an obligation number. This number will then be offered as a default whenever using the Receive Directly into Drug` Accountability [PSA RECEIVING] option on the Receipts Menu [PSA RECEIPTS MENU] menu. TECHNICAL DESCR: Directs the flow of receipt processing and checks for a 1358 obligation number stored in the CURRENT PRIME VENDOR PO# field (#13).
13	CURRENT PRIME VENDOR PO#	0;9	POINTER TO AN UNDEFINED FILE	INPUT TRANSFORM: `S DIC("S")="I $P($G(^(0)),U,5)[822400" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 29, 1997` HELP-PROMPT: `Enter the 1358 obligation number for the current month.` DESCRIPTION: This entry will be used as a default when receiving from the prime vendor. TECHNICAL DESCR: Default value for prime vendor receiving. SCREEN: `S DIC("S")="I $P($G(^(0)),U,5)[822400"` EXPLANATION: `You can only select P.O.#s with a 822400 cost center.`
14	AUTO GENERATE DISPENSING #'S?	2;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 06, 1992` HELP-PROMPT: `Answer "YES" to automatically generate the pharmacy dispensing # for CS orders.` DESCRIPTION: `The pharmacy dispensing number (Green Sheet #) will be automatically generated when dispensing Controlled Substances orders if this field is set to "1" or "YES". If left blank, or if "0", or "NO" are entered the pharmacy` employee processing the Controlled Substances order will have to enter the dispensing number (Green Sheet #).
15	LOW DISPENSING #	2;2	NUMBER	INPUT TRANSFORM: `K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LOW^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDL` LAST EDITED: `NOV 23, 1992` HELP-PROMPT: `Enter the lowest CS dispensing # for this dispensing site (1 to 999999999).` DESCRIPTION: The lowest CS pharmacy dispensing number for this dispensing site. The system will not allow numbers smaller than the one you choose. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16	HIGH DISPENSING #	2;3	NUMBER	INPUT TRANSFORM: `K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D HIGH^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDH,PSDL` LAST EDITED: `NOV 23, 1992` HELP-PROMPT: `Enter the largest CS dispensing number for this dispensing site (1-999999999).` DESCRIPTION: `The largest acceptable pharmacy dispensing number for this dispensing site. The difference between this number and the lowest pharmacy dispensing number should be substantial. The system will not allow numbers larger` than the one you choose. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
17	LAST DISPENSING #	2;4	NUMBER	INPUT TRANSFORM: `K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LAST^PSDSITE K:$D(PSDFLAG) X K PSDFLAG` LAST EDITED: `NOV 23, 1992` HELP-PROMPT: `Enter the last CS dispensing number used for this dispensing site (1 to 999999999).` DESCRIPTION: `The last CS pharmacy dispensing number used. This number will start at the lowest pharmacy dispensing number, increment it by one until it finds a number that has not been used, and then use that number for the next` Controlled Substances order. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
18	USING PERPETUAL INVENTORY?	2;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 22, 1997` HELP-PROMPT: `Answer "YES" if this site is using the perpetual inventory method.` DESCRIPTION: `This flag is used to determine if this NAOU is using the Controlled Substances perpetual inventory functionality.` If this field is set to "YES" or "1" the standard Controlled Substance Administration Record VA FORM 10-2638 (Green Sheet) WILL NOT be printed and will be replaced by the perpetual inventory method of tracking CS drugs. For an NAOU that is using a perpetual inventory, the MAXIMUM QUANTITY PER ORDER field (#8.5) for a drug in the dispensing site will limit the maximum quantity that Nursing Service may enter for any single order for that drug. If the MAXIMUM QUANTITY PER ORDER is left blank, deleted, or set to zero, Nursing Service will be able to enter any quantity that is a multiple of package size, up to 999999, for any single order of that drug.
19	PRINT GREEN SHEET	2;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 06, 1992` HELP-PROMPT: `Enter "YES" to print the Green Sheet after process only, "NO" to print after RPh verification.` DESCRIPTION: `This is a flag used to determine the sequence in which a Controlled Substance Administration Record VA FORM 10-2638 (Green Sheet) will be printed. If set to "YES" or "1" the "Green Sheet" will print after the order has` been processed and prior to a RPh verification. If set to "NO" or "0" the "Green Sheet" will print after a RPh has verified the filled order.
19.5	GREEN SHEET STOCK	2.5;1	SET	'1' FOR GPO 1992 PRINTING; '0' FOR OTHER GPO PRINTING; LAST EDITED: `MAY 26, 1993` HELP-PROMPT: `Enter 1 for GPO 1992 printed stock.` DESCRIPTION: `The VA FORM 10-2638 (Green Sheet) stock was printed on 8 x 10 1/2 paper. In 1992, the paper size changed to 8 1/2 x 11. This field is used as a site parameter when printing the Green Sheet forms. Additional spacing is` required for the GPO 1992 printed stock.
20	OUTPATIENT SITE	0;10	POINTER TO OUTPATIENT SITE FILE (#59)	OUTPATIENT SITE(#59) INPUT TRANSFORM: `I $D(X) S Z=$O(^PSD(58.8,"AOP",+X,0)) S:Z=DA Z=$O(^(DA)) W:$G(Z) $C(7),!,$P($G(^PSD(58.8,+$O(^PSD(58.8,"AOP",+X,0)),0)),U)," is already linked to ",$P($G(^PS(59,+X,0)),U) K:$G(Z) X,Z` LAST EDITED: `JUL 29, 1997` HELP-PROMPT: `Enter the Outpatient Site from which to gather prescription dispensing data.` DESCRIPTION: When prescriptions are filled the corresponding drug for this Outpatient Site will be updated for monthly total dispensed. TECHNICAL DESCR: To be used for automated updating of total dispensed when Rx is filled. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.8^AOP` 1)= S ^PSD(58.8,"AOP",$E(X,1,30),DA)="" 2)= K ^PSD(58.8,"AOP",$E(X,1,30),DA) To be used for automated updating of total dispensed when Rx is filled.
21	WARD	3;0	POINTER Multiple #58.842	58.842 DESCRIPTION: When Unit Dose and IV dispensing data is compiled, it will affect the Drug Accountability Location to which a ward is linked. TECHNICAL DESCR: For UD/IV dispensing to be subtracted from the appropriate DA location.
22	PRIMARY INVENTORY POINT(S)	4;0	POINTER Multiple #58.8445	58.8445 DESCRIPTION: To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this file. Receiving that occurs in the inventory point will update on hand quantities in the pharmacy location. TECHNICAL DESCR: To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY STATS file (#58.8). SCREEN: `S DIC("S")="I $P(^(0),U,20)=""D"""` EXPLANATION: `Must be Special Inventory Point Type "D" for Drug Accountability.`
23	DISPENSING WORKSHEET SORT	2;7	SET	'D' FOR DRUG/NAOU; 'N' FOR NAOU/DRUG; 'S' FOR SELECT AT PRINTING; LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Enter the sort order to be used in creating the dispensing worksheet.` DESCRIPTION: This field determines the sort order when printing the Controlled Substances "Pharmacy Dispensing Worksheet". The sort order may be defined by drug then NAOU, by NAOU then drug, or selected when printing the worksheet. TECHNICAL DESCR: Set of codes used in determining the sort order when printing the "Pharmacy Dispensing Worksheet".
24	DEFAULT GREEN SHEET PRINTER	2;8	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Enter the name of the device selected to print Green Sheets.` DESCRIPTION: A pointer to the name of the device selected as the default printer for Green Sheets. TECHNICAL DESCR: Pointer to File 3.5 - the DEVICE file.
25	DEFAULT REPORT PRINTER	2;9	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Enter the name of the device selected to print CS reports.` DESCRIPTION: A pointer to the name of the device selected as the default printer for various Controlled Substances reports. TECHNICAL DESCR: Pointer to File 3.5 - the DEVICE file.
26	DEFAULT LABEL PRINTER	2;10	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Enter the name of the device selected to print CS labels.` DESCRIPTION: A pointer to the name of the device selected as the default printer for Controlled Substances labels. TECHNICAL DESCR: Pointer to File 3.5 - the DEVICE file.
27	LAST UD UPDATE	0;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 29, 1997` HELP-PROMPT: `The last date that dispensing from the UNIT DOSE PICK LIST STATS file (#57.6) was collected to update this location.` DESCRIPTION: When the UD dispensing data is collected from the UNIT DOSE PICK LIST STATS file (#57.6) a date is stored here. Each time unit dose dispensing data is collected, it begins FROM this date. TECHNICAL DESCR: Used and stored by the PSAUDP routine for the collection of dispensing data from the UNIT DOSE PICK LIST STATS file (#57.6).
28	ORDER ENTRY BANNER	5;0	WORD-PROCESSING #58.828	DESCRIPTION: A banner to be displayed for Nursing Order Entry, Pharmacy Order Entry from Nursing, and Infusion Order Entry. This banner may be edited via the option, Create/Edit the Narcotic Area of Use. TECHNICAL DESCR: A banner to be displayed for Order Entry.
29	EMERGENCY ORDER PRINTER	2;11	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `JAN 30, 1995` HELP-PROMPT: `Select a device for this dispensing vault which can receive notice of emergency orders submitted by nursing personnel.` DESCRIPTION: `This device will be used to print a notice of emergency orders submitted by nursing personnel. The printer designated to receive these messages SHOULD NOT be the printer which prints green sheets or controlled substances` labels. TECHNICAL DESCR: This field is a pointer to the DEVICE file (#3.5).
30	ALLOW ONE-TIME REQUESTS?	0;13	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 31, 1995` HELP-PROMPT: `Enter "1" or "Y" to allow NAOUs to place one-time requests.` DESCRIPTION: `If the primary dispensing site for an NAOU allows one-time requests, any active drug in that dispensing site may be ordered, even though it may be inactive or not stocked by that NAOU. Certain drugs within a` dispensing site may be marked as not selectable and are unavailable for even one-time requests. TECHNICAL DESCR: Checked by order entry routines (PSDOR*) before allowing one-time requests.
31	IV ROOM	3.5;0	POINTER Multiple #58.831	58.831 DESCRIPTION: `The IV Room multiple contains the Outpatient Clinic's IV rooms to which the Outpatient Pharmacy dispenses IVs. When IV dispensing data is compiled, it will affect the Drug Accountability outpatient pharmacy location to` which the IV Room is linked. TECHNICAL DESCR: This field points to the IV ROOM FILE (#59.5).
32	ADJUSTMENT MAIL GROUP	6;1	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `OCT 07, 1996` HELP-PROMPT: `Enter the mail group that should receive messages when adjustments occur.` DESCRIPTION: The persons in this mail group will receive messages whenever an adjustment or count correction occurs for this Narcotic Area of Use (NAOU).
33	TIME LIMIT FOR DELAYED DOSES	6;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `OCT 07, 1996` HELP-PROMPT: `Type a Number between 0 and 12, 2 Decimal Digits` DESCRIPTION: `This is the time limit for Nursing to record a delayed wastage or return to stock for a dose that was not administered to a patient. If a "1" is entered, Nurses will have one hour to record the disposition of a dose for` this Narcotic Area of Use.
34	MAINTAIN REORDER LEVELS?	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 31, 1997` HELP-PROMPT: `Enter YES if the reorder level is to entered for each drug in the pharmacy location or master vault.` DESCRIPTION: The MAINTAIN REORDER LEVELS? field denotes if the drugs in the pharmacy location or master vault are to maintain their reorder levels.
35	DAYS TO KEEP INVOICE DATA	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<120)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 19, 1997` HELP-PROMPT: `Enter the number of days to keep the invoices in the DA ORDERS file. Enter 120 to 9999 days.` DESCRIPTION: `The DAYS TO KEEP INVOICE DATA field contains the number of days invoices are to remain in the DRUG ACCOUNTABILITY ORDERS (#58.811) file. A nightly job checks this field to determine if the invoice data should be deleted.` Invoice data must remain in the file at least 120 days.
36	OUTPATIENT SITE(S)	7;0	POINTER Multiple #58.836	58.836

Field #

Name

Loc

Type

Details

.01

PHARMACY LOCATION

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X
LAST EDITED: AUG 17, 2000
HELP-PROMPT: Answer must be 2-30 characters in length.

DESCRIPTION: This field contains the name of the Pharmacy location.

The Controlled Substances module will recognize this location as the Narcotic Area of Use (NAOU) throughout this package.

TECHNICAL DESCR:

Free text name of this Pharmacy location.  Not to exceed 30 characters.

DELETE TEST: .01,0)= I 1 W !,?5,"DO NOT DELETE. Use the Inactivate NAOU option. "

CROSS-REFERENCE: 58.8^B

1)= S ^PSD(58.8,"B",$E(X,1,30),DA)=""

2)= K ^PSD(58.8,"B",$E(X,1,30),DA)

1

LOCATION TYPE

0;2

SET

************************REQUIRED FIELD************************

'M' FOR MASTER VAULT;
'S' FOR SATELLITE VAULT;
'N' FOR NARCOTIC LOCATION;
'P' FOR PRIMARY;

INPUT TRANSFORM: K X W $C(7),!,?10," ** No Editing ** ",!
LAST EDITED: OCT 21, 1993
HELP-PROMPT: Enter the location type.

DESCRIPTION: This field contains the location type for this pharmacy location. Location types are "M" for master vault, "S" for satellite vault, "N" for narcotic location, and "P" for primary.

This field should NOT be edited directly using VA FileMan.  The Drug Accountability and Controlled Substances modules depend on the accuracy of this data.

The Controlled Substances module supports "M", "S" and "N" location types.  For CS use, enter the master vault locations first.

TECHNICAL DESCR:

Set of codes.  Do NOT edit directly using VA FileMan.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 58.8^ADISP

1)= S ^PSD(58.8,"ADISP",$E(X,1,30),DA)=""

2)= K ^PSD(58.8,"ADISP",$E(X,1,30),DA)

CROSS-REFERENCE: 58.8^ASITE1^MUMPS

1)= D SASITE1^PSDUTL

2)= D KASITE1^PSDUTL

3)= DO NOT DELETE

This cross-reference is used in determining site for all Controlled Substances applications.  The cross-reference is ^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".

2

INPATIENT SITE

0;3

POINTER TO INPATIENT SITE FILE (#59.4)

************************REQUIRED FIELD************************

INPATIENT SITE(#59.4)

INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 09, 1992
HELP-PROMPT: Enter inpatient site.

DESCRIPTION:

This field contains a pointer to the inpatient site.  This is a required data element within the Controlled Substances module.

TECHNICAL DESCR:

Screened pointer to File 59.4 - INPATIENT SITE file.  Required for CS use.

SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",31)"
EXPLANATION: Select only sites that are "Selectable for CS" in File 59.4.

CROSS-REFERENCE: 58.8^ASITE^MUMPS

1)= D SASITE^PSDUTL

2)= D KASITE^PSDUTL

3)= DO NOT DELETE

This cross-reference is used in distinguishing multi-divisional sites.  The Controlled Substances software uses this cross-reference in all ordering, dispensing, and reporting activity.  The cross-reference is

^PSD(58.8,"ASITE",INPATIENT SITE,LOC TYPE,DA)="".

3

PRIMARY DISPENSING SITE

0;4

POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)

DRUG ACCOUNTABILITY STATS(#58.8)

INPUT TRANSFORM: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 21, 1992
HELP-PROMPT: Answer must be the name of an existing Master or Satellite vault.

DESCRIPTION:

This field contains a pointer to the primary dispensing site for this pharmacy location.  This data is utilized within the Controlled Substances module.

TECHNICAL DESCR:

Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file.  Selection limited to Master vault or Satellite vault.

SCREEN: S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
EXPLANATION: Selection limited to Master or Satellite vault.

4

INACTIVE DATE

I;1

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 06, 1992
HELP-PROMPT: Enter the date when this pharmacy location became inactive.

DESCRIPTION:

The date on which this pharmacy location was inactivated.

TECHNICAL DESCR:

Inactive date for this pharmacy location.

5

ASK MFG/LOT #/EXP.DATE?

0;5

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JAN 06, 1992
HELP-PROMPT: Enter "1" or "Y" if you wish to be prompted for mfg., lot #, and exp. date.
DESCRIPTION: The answer for asking manufacturer, lot #, and expiration date on drugs tracked within this Pharmacy location . If this field is set to "1" or "YES", manufacturer, lot number, and expiration date will be asked when
```
dispensing drugs within this Pharmacy location.
```
```
For Controlled Substances use, this field should be answered for Master vaults and Satellite vaults.
```

TECHNICAL DESCR:

Set of codes - "1" for "YES" or "0" for "NO".

6

IS THIS PHARM WORKING STOCK?

0;7

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: MAY 05, 1992
HELP-PROMPT: Enter "1" or "Y" if this is a Pharmacy NAOU for working stock.

DESCRIPTION:

Pharmacy location designated as a Narcotic Area of Use for pharmacy working stock. If this field is set to "1" or "YES" drug data will be utilized differently within the Controlled Substances module.

TECHNICAL DESCR:

Set of codes - "1" for "YES" or "0" for "NO".

10

DRUG

1;0

POINTER Multiple #58.8001

58.8001

DESCRIPTION: Drug is defined by physical location, stock level, balance on-hand, reorder level, quantity to reorder, breakdown unit, package size, manufacturer, lot number, and expiration date. Other information available is inventory
```
types, ward (for drug), and prime vendor item number (if applicable).
```
```
In the Controlled Substances module, all CS order requests are stored in the ORDERS multiple within DRUG.
```

11

*PRIMARY INVENTORY POINT

0;6

POINTER ** TO AN UNDEFINED FILE **

INPUT TRANSFORM: S DATABASE=1,DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)" D ^DIC K DIC S DIC=DIE,X=+Y D ^PSAUTL K DATABASE K:Y<0 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: For Controlled Substances enter the name of the pharmacy inventory point which contains ONLY the controlled substances stored in this pharmacy master vault.

DESCRIPTION:

To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this file.  Receiving that occurs in the inventory point will update on hand quantities in the pharmacy location.

TECHNICAL DESCR:

To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY STATS file (#58.8).

SCREEN: S DIC("S")="I $P(^(0),U,3)=""P""&($P(^(0),U,7)=822400)"
EXPLANATION: You can only select a Primary Inventory Point with a Cost Center of 822400.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 58.8^E

1)= S ^PSD(58.8,"E",$E(X,1,30),DA)=""

2)= K ^PSD(58.8,"E",$E(X,1,30),DA)

To identify Pharmacy location linked to an Inventory Point.

11.5

*RECEIPT FAILURE NOTIFICATION?

0;11

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: MAR 19, 1993
HELP-PROMPT: Enter "1" or "Y" to notify the RECEIPT FAILURE mail group of items that could not be received.
DESCRIPTION: If a Drug Accountability location is linked to a Primary Inventory Point the items received into the Primary Inventory Point will also be updated in the Drug Accountability location. If items are received into the linked
```
Primary Inventory that are not connected to the DRUG file (#50) or not stocked in the Drug Accountability location, and this field is set to "YES", the RECEIPT FAILURE mail group will be notified with a list of the items.
```

TECHNICAL DESCR:

Set of codes - "1" for "YES" or "0" for "NO".

12

PRIME VENDOR?

0;8

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter "1" or "Y" for "YES". Enter "0" or "N" for "NO".
DESCRIPTION: To more efficiently process prime vendor receipts, setting this flag to "YES" will allow you to store an obligation number. This number will then be offered as a default whenever using the Receive Directly into Drug
```
Accountability [PSA RECEIVING] option on the Receipts Menu [PSA RECEIPTS MENU] menu.
```

TECHNICAL DESCR:

Directs the flow of receipt processing and checks for a 1358 obligation number stored in the CURRENT PRIME VENDOR PO# field (#13).

13

CURRENT PRIME VENDOR PO#

0;9

POINTER ** TO AN UNDEFINED FILE **

INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,5)[822400" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter the 1358 obligation number for the current month.

DESCRIPTION:

This entry will be used as a default when receiving from the prime vendor.

TECHNICAL DESCR:

Default value for prime vendor receiving.

SCREEN: S DIC("S")="I $P($G(^(0)),U,5)[822400"
EXPLANATION: You can only select P.O.#s with a 822400 cost center.

14

AUTO GENERATE DISPENSING #'S?

2;1

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUN 06, 1992
HELP-PROMPT: Answer "YES" to automatically generate the pharmacy dispensing # for CS orders.
DESCRIPTION: The pharmacy dispensing number (Green Sheet #) will be automatically generated when dispensing Controlled Substances orders if this field is set to "1" or "YES". If left blank, or if "0", or "NO" are entered the pharmacy
```
employee processing the Controlled Substances order will have to enter the dispensing number (Green Sheet #).
```

15

LOW DISPENSING #

2;2

NUMBER

INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LOW^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDL
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the lowest CS dispensing # for this dispensing site (1 to 999999999).

DESCRIPTION:

The lowest CS pharmacy dispensing number for this dispensing site.  The system will not allow numbers smaller than the one you choose.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

16

HIGH DISPENSING #

2;3

NUMBER

INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D HIGH^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDH,PSDL
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the largest CS dispensing number for this dispensing site (1-999999999).
DESCRIPTION: The largest acceptable pharmacy dispensing number for this dispensing site. The difference between this number and the lowest pharmacy dispensing number should be substantial. The system will not allow numbers larger
```
than the one you choose.
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

17

LAST DISPENSING #

2;4

NUMBER

INPUT TRANSFORM: K:'$D(PSDJLP) X W:'$D(X) " NO EDITING" Q:'$D(X) K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X D LAST^PSDSITE K:$D(PSDFLAG) X K PSDFLAG
LAST EDITED: NOV 23, 1992
HELP-PROMPT: Enter the last CS dispensing number used for this dispensing site (1 to 999999999).
DESCRIPTION: The last CS pharmacy dispensing number used. This number will start at the lowest pharmacy dispensing number, increment it by one until it finds a number that has not been used, and then use that number for the next
```
Controlled Substances order.
```
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

18

USING PERPETUAL INVENTORY?

2;5

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: SEP 22, 1997
HELP-PROMPT: Answer "YES" if this site is using the perpetual inventory method.

DESCRIPTION: This flag is used to determine if this NAOU is using the Controlled Substances perpetual inventory functionality.

If this field is set to "YES" or "1" the standard Controlled Substance Administration Record VA FORM 10-2638 (Green Sheet) WILL NOT be printed and will be replaced by the perpetual inventory method of tracking CS drugs.

For an NAOU that is using a perpetual inventory, the MAXIMUM QUANTITY PER ORDER field (#8.5) for a drug in the dispensing site will limit the maximum quantity that Nursing Service may enter for any single order for that

drug.  If the MAXIMUM QUANTITY PER ORDER is left blank, deleted, or set to zero, Nursing Service will be able to enter any quantity that is a multiple of package size, up to 999999, for any single order of that drug.

19

PRINT GREEN SHEET

2;6

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUN 06, 1992
HELP-PROMPT: Enter "YES" to print the Green Sheet after process only, "NO" to print after RPh verification.
DESCRIPTION: This is a flag used to determine the sequence in which a Controlled Substance Administration Record VA FORM 10-2638 (Green Sheet) will be printed. If set to "YES" or "1" the "Green Sheet" will print after the order has
```
been processed and prior to a RPh verification.  If set to "NO" or "0" the "Green Sheet" will print after a RPh has verified the filled order.
```

19.5

GREEN SHEET STOCK

2.5;1

SET

'1' FOR GPO 1992 PRINTING;
'0' FOR OTHER GPO PRINTING;

LAST EDITED: MAY 26, 1993
HELP-PROMPT: Enter 1 for GPO 1992 printed stock.
DESCRIPTION: The VA FORM 10-2638 (Green Sheet) stock was printed on 8 x 10 1/2 paper. In 1992, the paper size changed to 8 1/2 x 11. This field is used as a site parameter when printing the Green Sheet forms. Additional spacing is
```
required for the GPO 1992 printed stock.
```

20

OUTPATIENT SITE

0;10

POINTER TO OUTPATIENT SITE FILE (#59)

OUTPATIENT SITE(#59)

INPUT TRANSFORM: I $D(X) S Z=$O(^PSD(58.8,"AOP",+X,0)) S:Z=DA Z=$O(^(DA)) W:$G(Z) $C(7),!,$P($G(^PSD(58.8,+$O(^PSD(58.8,"AOP",+X,0)),0)),U)," is already linked to ",$P($G(^PS(59,+X,0)),U) K:$G(Z) X,Z
LAST EDITED: JUL 29, 1997
HELP-PROMPT: Enter the Outpatient Site from which to gather prescription dispensing data.

DESCRIPTION:

When prescriptions are filled the corresponding drug for this Outpatient Site will be updated for monthly total dispensed.

TECHNICAL DESCR:

To be used for automated updating of total dispensed when Rx is filled.

NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 58.8^AOP

1)= S ^PSD(58.8,"AOP",$E(X,1,30),DA)=""

2)= K ^PSD(58.8,"AOP",$E(X,1,30),DA)

To be used for automated updating of total dispensed when Rx is filled.

21

WARD

3;0

POINTER Multiple #58.842

58.842

DESCRIPTION:

When Unit Dose and IV dispensing data is compiled, it will affect the Drug Accountability Location to which a ward is linked.

TECHNICAL DESCR:

For UD/IV dispensing to be subtracted from the appropriate DA location.

22

PRIMARY INVENTORY POINT(S)

4;0

POINTER Multiple #58.8445

58.8445

DESCRIPTION:

To provide a direct link between a pharmacy inventory point and a pharmacy location entry in this file.  Receiving that occurs in the inventory point will update on hand quantities in the pharmacy location.

TECHNICAL DESCR:

To provide a direct link between the GENERIC INVENTORY file (#445) and the DRUG ACCOUNTABILITY STATS file (#58.8).

SCREEN: S DIC("S")="I $P(^(0),U,20)=""D"""
EXPLANATION: Must be Special Inventory Point Type "D" for Drug Accountability.

23

DISPENSING WORKSHEET SORT

2;7

SET

'D' FOR DRUG/NAOU;
'N' FOR NAOU/DRUG;
'S' FOR SELECT AT PRINTING;

LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the sort order to be used in creating the dispensing worksheet.

DESCRIPTION:

This field determines the sort order when printing the Controlled Substances "Pharmacy Dispensing Worksheet".  The sort order may be defined by drug then NAOU, by NAOU then drug, or selected when printing the worksheet.

TECHNICAL DESCR:

Set of codes used in determining the sort order when printing the "Pharmacy Dispensing Worksheet".

24

DEFAULT GREEN SHEET PRINTER

2;8

POINTER TO DEVICE FILE (#3.5)

DEVICE(#3.5)

LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print Green Sheets.

DESCRIPTION:

A pointer to the name of the device selected as the default printer for Green Sheets.

TECHNICAL DESCR:
```
Pointer to File 3.5 - the DEVICE file.
```

25

DEFAULT REPORT PRINTER

2;9

POINTER TO DEVICE FILE (#3.5)

DEVICE(#3.5)

LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print CS reports.

DESCRIPTION:

A pointer to the name of the device selected as the default printer for various Controlled Substances reports.

TECHNICAL DESCR:
```
Pointer to File 3.5 - the DEVICE file.
```

26

DEFAULT LABEL PRINTER

2;10

POINTER TO DEVICE FILE (#3.5)

DEVICE(#3.5)

LAST EDITED: APR 26, 1993
HELP-PROMPT: Enter the name of the device selected to print CS labels.

DESCRIPTION:

A pointer to the name of the device selected as the default printer for Controlled Substances labels.

TECHNICAL DESCR:
```
Pointer to File 3.5 - the DEVICE file.
```

27

LAST UD UPDATE

0;12

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 29, 1997
HELP-PROMPT: The last date that dispensing from the UNIT DOSE PICK LIST STATS file (#57.6) was collected to update this location.

DESCRIPTION:

When the UD dispensing data is collected from the UNIT DOSE PICK LIST STATS file (#57.6) a date is stored here.  Each time unit dose dispensing data is collected, it begins FROM this date.

TECHNICAL DESCR:

Used and stored by the PSAUDP routine for the collection of dispensing data from the UNIT DOSE PICK LIST STATS file (#57.6).

28

ORDER ENTRY BANNER

5;0

WORD-PROCESSING #58.828

DESCRIPTION:

A banner to be displayed for Nursing Order Entry, Pharmacy Order Entry from Nursing, and Infusion Order Entry.  This banner may be edited via the option, Create/Edit the Narcotic Area of Use.

TECHNICAL DESCR:

A banner to be displayed for Order Entry.

29

EMERGENCY ORDER PRINTER

2;11

POINTER TO DEVICE FILE (#3.5)

DEVICE(#3.5)

LAST EDITED: JAN 30, 1995
HELP-PROMPT: Select a device for this dispensing vault which can receive notice of emergency orders submitted by nursing personnel.
DESCRIPTION: This device will be used to print a notice of emergency orders submitted by nursing personnel. The printer designated to receive these messages SHOULD NOT be the printer which prints green sheets or controlled substances
```
labels.
```

TECHNICAL DESCR:

This field is a pointer to the DEVICE file (#3.5).

30

ALLOW ONE-TIME REQUESTS?

0;13

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUL 31, 1995
HELP-PROMPT: Enter "1" or "Y" to allow NAOUs to place one-time requests.
DESCRIPTION: If the primary dispensing site for an NAOU allows one-time requests, any active drug in that dispensing site may be ordered, even though it may be inactive or not stocked by that NAOU. Certain drugs within a
```
dispensing site may be marked as not selectable and are unavailable for even one-time requests.
```

TECHNICAL DESCR:

Checked by order entry routines (PSDOR*) before allowing one-time requests.

31

IV ROOM

3.5;0

POINTER Multiple #58.831

58.831

DESCRIPTION: The IV Room multiple contains the Outpatient Clinic's IV rooms to which the Outpatient Pharmacy dispenses IVs. When IV dispensing data is compiled, it will affect the Drug Accountability outpatient pharmacy location to
```
which the IV Room is linked.
```

TECHNICAL DESCR:

This field points to the IV ROOM FILE (#59.5).

32

ADJUSTMENT MAIL GROUP

6;1

POINTER TO MAIL GROUP FILE (#3.8)

MAIL GROUP(#3.8)

LAST EDITED: OCT 07, 1996
HELP-PROMPT: Enter the mail group that should receive messages when adjustments occur.

DESCRIPTION:

The persons in this mail group will receive messages whenever an adjustment or count correction occurs for this Narcotic Area of Use (NAOU).

33

TIME LIMIT FOR DELAYED DOSES

6;2

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>12)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 07, 1996
HELP-PROMPT: Type a Number between 0 and 12, 2 Decimal Digits
DESCRIPTION: This is the time limit for Nursing to record a delayed wastage or return to stock for a dose that was not administered to a patient. If a "1" is entered, Nurses will have one hour to record the disposition of a dose for
```
this Narcotic Area of Use.
```

34

MAINTAIN REORDER LEVELS?

0;14

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JAN 31, 1997
HELP-PROMPT: Enter YES if the reorder level is to entered for each drug in the pharmacy location or master vault.

DESCRIPTION:

The MAINTAIN REORDER LEVELS? field denotes if the drugs in the pharmacy location or master vault are to maintain their reorder levels.

35

DAYS TO KEEP INVOICE DATA

0;15

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<120)!(X?.E1"."1N.N) X
LAST EDITED: MAY 19, 1997
HELP-PROMPT: Enter the number of days to keep the invoices in the DA ORDERS file. Enter 120 to 9999 days.
DESCRIPTION: The DAYS TO KEEP INVOICE DATA field contains the number of days invoices are to remain in the DRUG ACCOUNTABILITY ORDERS (#58.811) file. A nightly job checks this field to determine if the invoice data should be deleted.
```
Invoice data must remain in the file at least 120 days.
```

36

OUTPATIENT SITE(S)

7;0

POINTER Multiple #58.836

58.836

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #223	OUTPATIENT PHARMACY
ICR #1036	OUTPATIENT PHARMACY	OUTPATIENT SITE (20). Access: Direct Global Read & w/Fileman DRUG (10). Access: Direct Global Read & w/Fileman
ICR #2283	INPATIENT MEDICATIONS	WARD (FOR DRUG) (D Cross ref). Access: Direct Global Read & w/Fileman
ICR #2519	PHARMACY BENEFITS MANAGEMENT	Pharmacy Location (.01). Access: Read w/Fileman Location type (1). Access: Read w/Fileman Inpatient site (2). Access: Read w/Fileman Primary dispensing site (3). Access: Read w/Fileman Outpatient site (20). Access: Read w/Fileman INACTIVE DATE (4). Access: Read w/Fileman Drug (.01). Access: Read w/Fileman Breakdown Unit (7). Access: Read w/Fileman Package Size (8). Access: Read w/Fileman IV Room (.01). Access: Read w/Fileman Ward (.01). Access: Read w/Fileman	"B" x-ref, direct global read access permitted.
ICR #2711	CONTROLLED SUBSTANCES

Name	Field # of Occurrence
^%DT	4+1, 27+1
EN^DDIOL	IDWRITE+1
^DIC	2+1, 3+1, 11+1, 13+1
^PSAUTL	11+1
HIGH^PSDSITE	16+1
LAST^PSDSITE	17+1
LOW^PSDSITE	15+1
KASITE^PSDUTL	2(XREF 1K)
KASITE1^PSDUTL	1(XREF 2K)
SASITE^PSDUTL	2(XREF 1S)
SASITE1^PSDUTL	1(XREF 2S)

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	20+1
^PSD(58.8 - [#58.8]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 11(XREF 1S), 11(XREF 1K), 20+1, 20(XREF 1S), 20(XREF 1K)

Name	Field # of Occurrence
^(	20+1
^("I"	IDWRITE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Drug Accountability

Global: ^PSD(58.8

Information

Description

Directly Accessed By Routines, Total: 303

Accessed By FileMan Db Calls, Total: 63

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 14

Fields, Total: 36

Found Entries, Total: 1

ICR, Total: 5

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
>> %DT	4+1, 27+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 11(XREF 1S), 11(XREF 1K), 20+1, 20(XREF 1S), 20(XREF 1K)
DATABASE	11+1*!
DIC	2+1!, 3+1!, 11+1!, 13+1!
DIC("S"	2+1, 2SCR+1, 3+1, 3SCR+1, 11+1, 11SCR+1, 13+1, 13SCR+1
>> DIE	2+1, 3+1, 11+1, 13+1
DT	IDWRITE+1
PSD	15+1!, 16+1!
PSDFLAG	15+1!, 16+1!, 17+1!
PSDH	16+1!
>> PSDJLP	15+1, 16+1, 17+1
PSDL	15+1!, 16+1!
>> PSDSITE	2+1, 2SCR+1, 3+1, 3SCR+1
U	20+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1!, 11+1!, 11(XREF 1S) , 11(XREF 1K), 13+1!, 15+1!, 16+1!, 17+1!, 20+1!, 20(XREF 1S), 20(XREF 1K), 27+1!, 33+1! , 35+1!
>> Y	2+1, 3+1, 4+1, 11+1, 13+1, 27+1
Z	20+1*!