Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PSD(58.8

Package: Drug Accountability

Global: ^PSD(58.8


Information

FileMan FileNo FileMan Filename Package
58.8 DRUG ACCOUNTABILITY STATS Drug Accountability

Description

Directly Accessed By Routines, Total: 316

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

Accessed By FileMan Db Calls, Total: 64

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    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
Controlled Substances 4 CS WORKSHEET(#58.85)[12]    CS DESTRUCTION(#58.86)[6]    CS CORRECTION LOG(#58.87)[512]    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)[21766]
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)]    

Pointer To FileMan Files, Total: 16

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)[24252629]    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

  • 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
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.

Found Entries, Total: 1

PHARMACY LOCATION: VAULT    

ICR, Total: 5

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
  • External References

    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)

    Global Variables Directly Accessed

    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)

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    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*!
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All