Global: ^PSD(58.8

FileMan FileNo	FileMan Filename	Package
58.8	DRUG ACCOUNTABILITY STATS	Drug Accountability

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