Global: ^PSD(58.8

FileMan FileNo	FileMan Filename	Package
58.8	DRUG ACCOUNTABILITY STATS	Drug Accountability

Package	Total	Routines
Controlled Substances	211	PSD68P PSDADJD PSDADJN PSDCORP1 PSDCOSH PSDCPO PSDDWK PSDEA41 PSDERCP PSDERP PSDEVO PSDEXGS PSDFIL2 PSDGSRV2 PSDLBL PSDLBL0 PSDLBLB PSDLBLR PSDLBLR1 PSDNBT PSDNRGO PSDNSCG PSDNSCL PSDNTT PSDNTT1 PSDNU PSDNU1 PSDOPT PSDOPT2 PSDOPTI PSDOPTN PSDORN0 PSDORN3 PSDORNV PSDORP2 PSDORSU PSDPAT PSDPAT2 PSDPDR2 PSDPDU PSDPLOG1 PSDPND PSDREVC PSDRFR PSDRPGS1 PSDRPT PSDSP PSDTRA PSDTRA1 PSDTRN PSDTRV PSDTRVR1 ^PSD(58.89 PSD79P PSDADJ PSDADJI PSDAMIS PSDAMIS1 PSDBAL PSDCOR1 PSDCOST PSDDWK1 PSDDWKE PSDEM PSDEM1 PSDEXP PSDFT1 PSDGPR PSDGSPU PSDIPOS1 PSDLBL4 PSDLBLP PSDLSTK1 PSDNARC PSDNTFPC PSDNTTPC PSDORD1 PSDORD2 PSDORN PSDORN1 PSDORNO PSDORP PSDORP1 PSDORST PSDPSI PSDPSTK1 PSDPWK PSDRDR PSDREC2 PSDREC3 PSDREC4 PSDREPD PSDREPV PSDREV PSDREVD PSDRFD PSDRFM PSDRFZ PSDRPGS2 PSDRWK PSDSET PSDSTK PSDTRN1 PSDTRV1 PSDWCHG ^PSD(58.85 PSDACT PSDACT1 PSDADJC PSDADJIN PSDADJN1 PSDADJR PSDAMIS2 PSDBALI PSDBAN PSDBAN1 PSDCOR PSDCOR2 PSDCORP PSDCORP2 PSDCORP3 PSDCOSD PSDCOSN PSDCOSV PSDCRP PSDCSI PSDDFP PSDDFP1 PSDDWK2 PSDDWK3 PSDDWK4 PSDEM2 PSDEM4 PSDEN PSDEST PSDESTP PSDEVO1 PSDEVOR PSDEXGS1 PSDFIL3 PSDFND PSDFT PSDGSH PSDGSH1 PSDGSH11 PSDGSL PSDGSL1 PSDGSRV PSDGSRV1 PSDHRPT PSDLBL1 PSDLBL5 PSDLBLR0 PSDLBLR2 PSDLSTK PSDLSTK2 PSDMAPU PSDMFG PSDNACT PSDNCGS PSDNDES PSDNMU PSDNRGS PSDNSTK PSDNTF PSDNTR PSDNTTP1 PSDNU2 PSDOPT0 PSDOPT1 PSDOPTS PSDOPTX PSDOR2 PSDOR21 PSDORD PSDORD3 PSDORD4 PSDORN2 PSDORNC PSDORNP PSDORSN PSDORV PSDORV1 PSDPAT1 PSDPDR PSDPDR1 PSDPDU1 PSDPGS PSDPGS1 PSDPMFG PSDPSTK PSDPUGS PSDPWK1 PSDRDR1 PSDREC PSDREC1 PSDRF PSDRF1 PSDRF4 PSDRFS PSDRFT PSDRFW PSDRFX PSDRLOG1 PSDRPGS PSDRSI PSDSITE PSDUP2 PSDUP3 PSDUTL PSDWADD
Drug Accountability	91	ACTIVITY DRUG IV ROOM MONTHLY ACTIVITY ORDERS OUTPATIENT SITE(S) PRIMARY INVENTORY POINT(S) PSA81PI 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 PSAOUT PSAPRE71 PSAPROC PSAPROC1 PSAPROC2 PSAPROC6 PSAPROC8 PSAPROC9 PSAPSI PSAPSI1 PSAPSI2 PSAPSI3 PSAPSI5 PSAPUR PSARDCU1 PSARDCUT 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 PSAVIN1 PSAVIN2 PSAVINC PSAWARD WARD WARD (FOR DRUG) ^PSD(58.8 ^PSD(58.81
Inpatient Medications	6	PSGLOI PSGPEN PSGSICHK PSJDCHK PSJO PSJORMAR
Outpatient Pharmacy	2	PSODISP PSOHLDI1
Pharmacy Benefits Management	2	PSUMAPR PSUPR2
Pharmacy Data Management	1	PSSAUTL

Package	Total	Routines
Drug Accountability	32	PSADA PSADJ PSADJI PSADJR PSADRUG PSAENT PSAENTO PSAGIP PSALEVEL PSALOC PSALOC2 PSALOCO PSAMON PSANAC PSAOP PSAOP1 PSAPROC6 PSAPSI PSAPSI4 PSAPUR PSARDCUT PSAREC PSAREC1 PSAREVD PSARIN PSARWS PSAUDP PSAVER6 PSAVIN1 PSAVIN2 PSAVINC PSAWARD
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
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	4	RETURN DRUG(#58.35)[.01] 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)]
IFCAP	2	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[13] GENERIC INVENTORY(#445)[11, #58.8445(.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)]

Fields, Total: 37

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 GENERIC INVENTORY FILE (#445)	GENERIC INVENTORY(#445) 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 PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) 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	TECHNICAL DESCR: `A banner to be displayed for Order Entry.` LAST EDITED: `JAN 16, 1995` HELP-PROMPT: `Enter a banner which will be displayed for Nursing Order Entry, Pharmacy Order Entry from Nursing, and Infusion 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
37	BALANCE DISCREPANCY CHECK	8;1	SET	'1' FOR ON; '0' FOR OFF; LAST EDITED: `AUG 31, 2018` HELP-PROMPT: `Enter '1' to turn the balance discrepancy checking software ON, or '0' to turn it OFF.` DESCRIPTION: `Enables Control Substance Dispensing sites to turn off the manual balance discrepancy inventory software. ON will include the dispensing site in the manual count when dispensing controlled substances. OFF is used for` `automated dispensing when manual counting is not desired. A null entry in this field is the same as OFF.` TECHNICAL DESCR: `This field is designed to allow VA locations to decide which control substance dispensing sites will be included in the Balance Discrepancy software checks to help avoid diversion. Some automated dispensing systems may not` `require individual prescription level inventory. Since each location can have different dispensing site names, each will need to be turned on individually if Balance Discrepancy Checks are required.` CROSS-REFERENCE: `58.8^BC` `1)= S ^PSD(58.8,"BC",$E(X,1,30),DA)=""` `2)= K ^PSD(58.8,"BC",$E(X,1,30),DA)` `3)= Used for Balance Discrepancy Check On Off Switch.` `This cross reference is used to look up balance discrepancy check on/off selections. Automated Master Dispensing may need this turned off to function correctly.`

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), 37(XREF 1S) , 37(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: 318

Accessed By FileMan Db Calls, Total: 64

Pointed To By FileMan Files, Total: 10

Pointer To FileMan Files, Total: 16

Fields, Total: 37

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), 37(XREF 1S) , 37(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!, 37(XREF 1S), 37(XREF 1K)
>> Y	2+1, 3+1, 4+1, 11+1, 13+1, 27+1
Z	20+1*!