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

Package: Drug Accountability

Global: ^PSD(58.81


Information

FileMan FileNo FileMan Filename Package
58.81 DRUG ACCOUNTABILITY TRANSACTION Drug Accountability

Description

Directly Accessed By Routines, Total: 166

Package Total Routines
Controlled Substances 131 PSD68P    PSD79P    PSDACT1    PSDADJ    PSDADJB    PSDADJC    PSDADJD    PSDADJI
PSDADJIN    PSDADJN    PSDADJN1    PSDADJR    PSDADJW    PSDAMIS1    PSDAMIS2    PSDCOR
PSDCOR1    PSDCOR2    PSDCOSD    PSDCOSH    PSDCOSN    PSDCOSV    PSDCPO    PSDCRP
PSDCSI    PSDDFP1    PSDDSOR2    PSDDWK2    PSDDWK3    PSDEM1    PSDEM2    PSDEM4
PSDERCP    PSDERD    PSDERP    PSDESTP    PSDEVO    PSDEVO1    PSDEVOR    PSDEXGS
PSDEXGS1    PSDFIL2    PSDFIL3    PSDFND    PSDFT    PSDFT1    PSDGSH1    PSDGSH11
PSDGSH2    PSDGSL1    PSDGSPU    PSDGSRV    PSDGSRV1    PSDHRPT    PSDLBL0    PSDLBL5
PSDLBLR0    PSDLBLR2    PSDNBT    PSDNCGS    PSDNMBA    PSDNRGO    PSDNRGS    PSDNSCG
PSDNSCL    PSDNTF    PSDNTFPC    PSDNTR    PSDNTT    PSDNTT1    PSDNTTP1    PSDNTTPC
PSDNU1    PSDNU2    PSDOPT    PSDOPT0    PSDOPT1    PSDOPT2    PSDOPTI    PSDOPTN
PSDOPTS    PSDOPTX    PSDOPTY    PSDOPTZ    PSDORN0    PSDORNV    PSDORSU    PSDPAT1
PSDPAT2    PSDPDR1    PSDPDR2    PSDPGS1    PSDPLOG1    PSDPND    PSDPSI    PSDPUGS
PSDRDR1    PSDRDR2    PSDREC    PSDREC1    PSDREC2    PSDREC3    PSDREC4    PSDREPD
PSDREPV    PSDREV    PSDREVC    PSDREVD    PSDRF    PSDRF1    PSDRF4    PSDRFR
PSDRFS    PSDRFT    PSDRFV    PSDRFW    PSDRFX    PSDRFZ    PSDRLOG1    PSDRPGS1
PSDRPGS2    PSDRPT    PSDRSI    PSDTRV1    PSDTRVR1    PSDUTL    PSDUTL1    PSDUTL2
PSDUTL3    PSDUTL4    PSDUTL5    
Drug Accountability 29 PSADJ    PSADJI    PSADJR    PSADRUG    PSADRUGP    PSAENTO    PSAGIP    PSAHIS
PSAHIS1    PSANAC    PSAOP1    PSAOUT    PSAPSI1    PSAPUR    PSARDCUT    PSAREC
PSAREC1    PSAREPV    PSAREV    PSAREVC    PSAREVD    PSARWS    PSASIG    PSAVERA1
^PSD(58.81    PSATRAN1    PSAUDP    PSAVER7    PSAVERA    
Pharmacy Benefits Management 2 PSUCS1    PSUPR3    

Accessed By FileMan Db Calls, Total: 44

Package Total Routines
Controlled Substances 25 PSD68P    PSD79P    PSDADJ    PSDADJC    PSDADJI    PSDADJIN    PSDADJN    PSDDWK3
PSDFIL2    PSDFIL3    PSDFT    PSDFT1    PSDIPOST    PSDNTT1    PSDNTTP1    PSDOPT0
PSDOPT1    PSDREC1    PSDREC2    PSDREC3    PSDREC4    PSDREPV    PSDRF1    PSDRFT
PSDRFX    
Drug Accountability 19 PSADJ    PSADJI    PSADRUG    PSADRUGP    PSAENTO    PSAGIP    PSANAC    PSAOP1
PSAOUT    PSAPSI1    PSAPUR    PSARDCUT    PSAREC1    PSAREPV    PSARWS    PSATRAN1
PSAUDP    PSAVER7    PSAVERA1    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Controlled Substances 3 CS WORKSHEET(#58.85)[7]    CS DESTRUCTION(#58.86)[8]    CS ERROR LOG(#58.89)[1]    
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[#58.800118(17)#58.800119(.01)]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[69]    

Pointer To FileMan Files, Total: 13

Package Total FileMan Files
Controlled Substances 3 CS ORDER STATUS(#58.82)[10]    CS COMPLETION STATUS(#58.83)[11]    CS DESTRUCTION(#58.86)[47]    
Drug Accountability 3 DRUG ACCOUNTABILITY STATS(#58.8)[21766]
DRUG ACCOUNTABILITY TRANSACTION(#58.81)[69]    DRUG ACCOUNTABILITY TRANSACTION TYPE(#58.84)[1]    
IFCAP 2 PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[8]    CONTROL POINT ACTIVITY(#410)[7]    
Registration 2 SPECIALTY(#42.4)[105]    PATIENT(#2)[73]    
Kernel 1 NEW PERSON(#200)[61820232525.529303233495663.66568747880818384]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[60]    
Pharmacy Data Management 1 DRUG(#50)[4]    

Fields, Total: 96

Field # Name Loc Type Details
.01 TRANSACTION NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The internal entry number for this transaction.
  • TECHNICAL DESCR:  
    DINUMed.
  • DELETE TEST:  .01,0)= I 1 D EN^DDIOL(" DELETIONS ARE NOT ALLOWED")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.81^B
    1)= S ^PSD(58.81,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"B",$E(X,1,30),DA)
1 TYPE 0;2 POINTER TO DRUG ACCOUNTABILITY TRANSACTION TYPE FILE (#58.84) DRUG ACCOUNTABILITY TRANSACTION TYPE(#58.84)

  • LAST EDITED:  JUN 12, 1992
  • HELP-PROMPT:  Enter the transaction type.
  • DESCRIPTION:  
    A pointer to the name of this type transaction.
  • CROSS-REFERENCE:  58.81^AF2^MUMPS
    1)= D SAFT^PSDUTL
    2)= D KAFT^PSDUTL
    3)= DO NOT DELETE
    This cross-reference is used for Controlled Substances and Drug Accountability statistical reporting.  The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)=""
  • CROSS-REFERENCE:  58.81^ACT1^MUMPS
    1)= D SACT1^PSDUTL1
    2)= D KACT1^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""
2 PHARMACY LOCATION 0;3 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,$P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Enter the pharmacy location for this transaction.
  • DESCRIPTION:  This field contains a pointer to the Pharmacy location in the DRUG ACCOUNTABILITY STATS file (#58.8). The Controlled Substances module will recognize this location as the Narcotic Area of Use (NAOU), usually the pharmacy
    dispensing site (vault).
  • SCREEN:  S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$P(^(0),""^"",2)'=""P"""
  • EXPLANATION:  For CS, does not allow selection of a "primary" type pharmacy location.
  • CROSS-REFERENCE:  58.81^AF1^MUMPS
    1)= D SAFL^PSDUTL
    2)= D KAFL^PSDUTL
    3)= DO NOT DELETE
    This cross-reference is used for Controlled Substances and Drug Accountability statistical reporting.  The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)="".
  • CROSS-REFERENCE:  58.81^ACT2^MUMPS
    1)= D SACT2^PSDUTL1
    2)= D KACT2^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)="".
  • CROSS-REFERENCE:  58.81^AEM2^MUMPS
    1)= D SAEM2^PSDUTL5
    2)= D KAEM2^PSDUTL5
    3)= DO NOT DELETE
    This cross-reference is used to track emergency orders.
    The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
3 DATE/TIME 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Enter the date of this transaction.
  • DESCRIPTION:  The date/time of this transaction.
    For Controlled Substances dispensing transactions, this is the date/time the pharmacist verified this transaction.
  • CROSS-REFERENCE:  58.81^AF^MUMPS
    1)= D SAF^PSDUTL
    2)= D KAF^PSDUTL
    3)= DO NOT DELETE
    This cross-reference is used for Controlled Substances and Drug Accountability statistical reporting.  The cross-reference is ^PSD(58.81,"AF",DATE/TIME,LOCATION,TYPE,DA)=""
  • CROSS-REFERENCE:  58.81^ACT^MUMPS
    1)= D SACT^PSDUTL1
    2)= D KACT^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)="".
  • CROSS-REFERENCE:  58.81^AEM^MUMPS
    1)= D SAEM^PSDUTL5
    2)= D KAEM^PSDUTL5
    3)= DO NOT DELETE
    This cross-reference is used to track emergency orders.
    The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
4 DRUG 0;5 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)" S:$D(PSDSITE) DIC("S")=DIC("S")_",$S($P($G(^(2)),""^"",3)[""N"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Enter the name of the drug being processed in this transaction.
  • DESCRIPTION:  
    A pointer to the drug for this transaction.
  • TECHNICAL DESCR:  Within the Controlled Substances module, select only ACTIVE drugs marked for use in the CS package. Do not select INACTIVE or NON-PHARMACY drugs. This field should not be edited directly using VA FileMan. The
    appropriate screen for selecting ACTIVE drugs marked for CS use is contained within the package functionality.  DINUMed pointer to File 50 - DRUG file.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0)" S:$D(PSDSITE) DIC("S")=DIC("S")_",$S($P($G(^(2)),""^"",3)[""N"":1,1:0)"
  • EXPLANATION:  For CS locations, select only ACTIVE drugs marked for CS package use.
  • CROSS-REFERENCE:  58.81^F
    1)= S ^PSD(58.81,"F",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"F",$E(X,1,30),DA)
    To locate all receipt history for a given drug.
  • CROSS-REFERENCE:  58.81^ACT3^MUMPS
    1)= D SACT3^PSDUTL1
    2)= D KACT3^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used for compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""
  • CROSS-REFERENCE:  58.81^AEM3^MUMPS
    1)= D SAEM3^PSDUTL5
    2)= D KAEM3^PSDUTL5
    3)= DO NOT DELETE
    This cross-reference is used to track emergency orders.
    The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
5 QUANTITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  The transaction quantity for this drug.
    If the transaction type is BALANCE ADJUSTMENT, this quantity may be a negative number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 TRANSACTOR 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the name of the person initiating this transaction.
  • DESCRIPTION:  
    This field contains a pointer to the name of the person initiating this transaction.
7 CONTROL POINT ACTIVITY 0;8 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the Control Point Activity number.
  • DESCRIPTION:  
    Posted (Warehouse) Issue activity that created this transaction.  This field is a pointer to the CONTROL POINT ACTIVITY file (#410) and will be used mainly for receipt transactions.
  • TECHNICAL DESCR:  
    Pointer to the entry in File 410 - CONTROL POINT ACTIVITY file - that created this transaction.
  • CROSS-REFERENCE:  58.81^E
    1)= S ^PSD(58.81,"E",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"E",$E(X,1,30),DA)
    To locate all transactions linked to a certain Control Point Activity #.
8 PURCHASE ORDER NUMBER 0;9 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  MAY 01, 1992
  • HELP-PROMPT:  Enter the Purchase Order number for this transaction.
  • DESCRIPTION:  
    The Unposted (Non-Warehouse) Purchase Order from which this transaction was created.  This field is a pointer to the PROCUREMENT & ACCOUNTING TRANSACTION file (#442) and will be used mainly for receipt transactions.
  • TECHNICAL DESCR:  
    Pointer to the entry in File 442 - PROCUREMENT & ACCOUNTING TRANSACTION file - to which this transaction is linked.
  • CROSS-REFERENCE:  58.81^C
    1)= S ^PSD(58.81,"C",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"C",$E(X,1,30),DA)
9 BALANCE FORWARD 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The pharmacy dispensing site (vault) inventory balance forward for this drug.  This balance is used in listing pharmacy's "Daily Activity Log".
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 ORDER STATUS 0;11 POINTER TO CS ORDER STATUS FILE (#58.82) CS ORDER STATUS(#58.82)

  • LAST EDITED:  MAY 07, 1992
  • HELP-PROMPT:  Enter the processing status for this order.
  • DESCRIPTION:  
    The processing status for the Controlled Substances order being updated in this transaction.  This field is a pointer to the CS ORDER STATUS file (#58.82).
  • TECHNICAL DESCR:  
    Pointer to File 58.82 - CS ORDER STATS file.
  • CROSS-REFERENCE:  58.81^AD^MUMPS
    1)= D SAD^PSDUTL
    2)= D KAD^PSDUTL
    3)= DO NOT DELETE
    This cross-reference is used for compiling the "Narcotic Dispensing Report".  The cross-reference is ^PSD(58.81,"AD",ORDER STATUS,NAOU,DA)=""
11 COMPLETION STATUS 0;12 POINTER TO CS COMPLETION STATUS FILE (#58.83) CS COMPLETION STATUS(#58.83)

  • LAST EDITED:  SEP 05, 1992
  • HELP-PROMPT:  Enter the completion status for this Controlled Substances order.
  • DESCRIPTION:  
    The completion status for this Controlled Substances order being updated by this transaction.  This field is a pointer to the CS COMPLETION STATUS file (#58.83).
  • TECHNICAL DESCR:  
    Pointer to File 58.83 - CS COMPLETION STATUS file.
  • CROSS-REFERENCE:  58.81^AG^MUMPS
    1)= D SAG^PSDUTL2
    2)= D KAG^PSDUTL2
    3)= DO NOT DELETE
    This cross-reference is used for compiling reports displaying Green Sheet discrepancies.  The cross-reference is ^PSD(58.81,"AG",COMPLETION STATUS,NAOU,DA)=""
12 MANUFACTURER 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the current manufacturer (1-30 characters).
  • DESCRIPTION:  
    The current manufacturer of this drug.
13 LOT # 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the current lot # for this drug (1-10 characters).
  • DESCRIPTION:  
    The current lot # of this drug.
14 EXPIRATION DATE 0;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 1992
  • HELP-PROMPT:  Enter the expiration date for this drug.
  • DESCRIPTION:  
    The current expiration date for this drug.
15 REASON 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    Reason for creating this transaction.
16 PHARMACY DISPENSING # 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  AUG 12, 1992
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    The pharmacy control number to identify and track this Controlled Substances transaction.  This number may be manually entered in pharmacy or auto-generated by the CS software.
  • CROSS-REFERENCE:  58.81^D
    1)= S ^PSD(58.81,"D",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"D",$E(X,1,30),DA)
    3)= DO NOT DELETE
17 NAOU 0;18 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Enter the NAOU ordering this drug.
  • DESCRIPTION:  
    The NAOU ordering this Controlled Substances drug.
  • SCREEN:  S DIC("S")="I $S($P(^(0),""^"",2)=""N"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
  • EXPLANATION:  Allows selection of a Satellite vault or Narcotic location.
  • CROSS-REFERENCE:  58.81^AD1^MUMPS
    1)= D SAD^PSDUTL1
    2)= D KAD^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "Narcotic Dispensing Report".  The cross-reference is ^PSD(58.81,"AD",ORDER STATUS,NAOU,DA)=""
  • CROSS-REFERENCE:  58.81^AG1^MUMPS
    1)= D SAG1^PSDUTL2
    2)= D KAG1^PSDUTL2
    3)= DO NOT DELETE
    This cross-reference is used in compiling reports displaying Green Sheet discrepancies.  The cross-reference is ^PSD(58.81,"AG",COMPLETION STATUS,NAOU,DA)=""
  • CROSS-REFERENCE:  58.81^AK1^MUMPS
    1)= D SAK1^PSDUTL4
    2)= D KAK1^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "Inspector's Log for Controlled Substances" generated by date received on the NAOU.  The cross-reference is ^PSD(58.81,"AK",D/T RECD,NAOU,DA)=""
18 DISPENSED BY 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the pharmacist dispensing this drug.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist dispensing this drug.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
19 PROCESSED DATE/TIME 1;2 DATE

  • INPUT TRANSFORM:  S %DT="EPSTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 10, 1998
  • HELP-PROMPT:  Enter the date/time pharmacy processed this drug.
  • DESCRIPTION:  
    The date/time this transaction was processed.  For Controlled Substances dispensing transactions, this is the date/time a pharmacy technician processed this transaction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
20 ORDER RECEIVED BY 1;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the person receiving this drug.
  • DESCRIPTION:  
    A pointer to the name of the person receiving this Controlled Substances drug into the ordering Narcotic Area of Use.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to persons holding the appropriate security key.
21 RECEIPT DATE/TIME 1;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Enter the date/time this drug was received from pharmacy.
  • DESCRIPTION:  
    The date/time this drug was received into the ordering Narcotic Area of Use.
  • CROSS-REFERENCE:  58.81^AK^MUMPS
    1)= D SAK^PSDUTL4
    2)= D KAK^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "Inspector's Log for Controlled Substances" generated by date received on the NAOU.  The cross-reference is ^PSD(58.81,"AK",D/T RECD,NAOU,DA)=""
22 COMPLETION DATE/TIME 0;19 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Enter the date/time this order was completed.
  • DESCRIPTION:  
    The date/time this Controlled Substances Green Sheet (VA FORM 10-2638) was reviewed as complete by pharmacy.
23 FILLED BY 1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 30, 1992
  • HELP-PROMPT:  Enter the name of the pharmacy employee processing this transaction.
  • DESCRIPTION:  
    A pointer to the name of the pharmacy technician processing this Controlled Substances transaction.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to technicians holding the appropriate security key.
24 REQUEST DATE/TIME 1;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 01, 1992
  • HELP-PROMPT:  Enter the request date for this order.
  • DESCRIPTION:  
    The date/time the Controlled Substances order request was generated.
25 ORDERED BY 1;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 1992
  • HELP-PROMPT:  Enter the person's name requesting this order.
  • DESCRIPTION:  
    A pointer to the name of the person requesting this Controlled Substances drug.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses and pharmacy personnel holding the appropriate security key.
25.5 ORDERED BY PHARMACY 1.5;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 10, 1993
  • HELP-PROMPT:  Enter the person's name requesting this order for nursing.
  • DESCRIPTION:  
    A pointer to the name of the pharmacy employee requesting the Controlled Substances order for nursing.
  • TECHNICAL DESCR:  
    A screened pointer to NEW PERSON file (#200).
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to pharmacy personnel holding the appropriate security key.
26 COMMENTS 2;0 WORD-PROCESSING #58.8126

  • DESCRIPTION:  
    Comments concerning this transaction.
27 QUANTITY RECEIVED 1;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The actual quantity of the drug received by the ordering NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
28 DISCREPANCY UNRESOLVED 1;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 29, 1992
  • HELP-PROMPT:  Enter "YES" if a receiving/dispensing discrepancy exists.
  • DESCRIPTION:  
    If the actual quantity of the drug received is different from the actual quantity pharmacy dispensed, then this field is set to "1" or "YES".
29 COMPLETED BY NURSE 1;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the name of the nurse returning this Green Sheet.
  • DESCRIPTION:  
    A pointer to the name of the nurse returning the Green Sheet (VA FORM 10-2638) to pharmacy.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses holding the appropriate security key.
29.5 COMP BY NURSE DATE/TIME 1.5;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 10, 1993
  • HELP-PROMPT:  Enter the date/time this Green Sheet was completed by nursing.
  • DESCRIPTION:  
    The date/time this Green Sheet was completed by nursing and ready for pharmacy pickup.
29.6 D/T PLACED ON INSP HOLD 1.5;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the date/time this Green Sheet was placed on hold.
  • DESCRIPTION:  
    The date/time this Green Sheet was placed on hold for review by the Controlled Substances Inspector.
29.7 D/T INSP HOLD REMOVED 1.5;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the date/time this Green Sheet was removed from hold.
  • DESCRIPTION:  
    The date/time this Green Sheet was removed from hold by the Controlled Substances inspector.
29.8 HOLD REMARKS 1.6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JAN 05, 1994
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    This field contains information concerning the Green Sheet being held for CS inspector's review.
30 RECEIVED BY TECH 1;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 01, 1992
  • HELP-PROMPT:  Enter the name of the tech receiving this order.
  • DESCRIPTION:  
    A pointer to the name of the pharmacy technician receiving this Controlled Substances drug into the NAOU.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to technicians with appropriate security key.
31 PICK UP DATE/TIME 1;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 31, 1992
  • HELP-PROMPT:  Enter the date/time pharmacy picked up the Green Sheet.
  • DESCRIPTION:  
    The date/time pharmacy picked up the Green Sheet (VA FORM 10-2638) from the NAOU.
32 PICKED UP BY 1;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 31, 1992
  • HELP-PROMPT:  Enter the name of the technician picking up the Green Sheet.
  • DESCRIPTION:  
    A pointer to the name of the pharmacy technician picking up the Green Sheet (VA FORM 10-2638) from the NAOU.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to technicians picking up Green Sheets.
33 COMPLETED BY PHARMACIST 1;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 13, 1993
  • HELP-PROMPT:  Enter the name of the pharmacist or tech completing this Green Sheet.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist or pharmacy technician completing the Green Sheet (VA FORM 10-2638).
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHARM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to the pharmacists or techs holding the appropriate security key.
34 DATE/TIME RET TO STOCK 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • HELP-PROMPT:  Enter date/time returned to stock.
  • DESCRIPTION:  
    The date/time this drug is being returned to stock.
  • CROSS-REFERENCE:  58.81^ACT4^MUMPS
    1)= D SACT4^PSDUTL1
    2)= D KACT4^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",RET TO STK D/T,LOC,DRUG,TYPE,DA)=""
35 QUANTITY RET TO STOCK 3;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The actual quantity of this drug being returned to stock.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
36 REASON RETURNED TO STOCK 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Enter reason this drug was returned to stock.
  • DESCRIPTION:  
    The reason this drug is being returned to stock.
37 DATE/TIME TURN IN DESTROY 3;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • HELP-PROMPT:  Enter the date/time this drug was turned in for destruction.
  • DESCRIPTION:  
    The date/time this drug is being turned in for destruction.
  • CROSS-REFERENCE:  58.81^ACT7^MUMPS
    1)= D SACT7^PSDUTL3
    2)= D KACT7^PSDUTL3
    3)= DO NOT DELETE
    This cross-reference is used in compiling the cost reports.
    The cross-reference reads ^PSD(58.81,"ACT",D/T TURN IN DEST,LOC,DRUG,DA)=""
38 QUANTITY TURN IN FOR DESTROY 3;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The actual quantity of this drug being turned in for destruction.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
39 REASON TURN IN FOR DESTROY 3;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUN 04, 1992
  • HELP-PROMPT:  Enter reason this drug was turned in for destruction.
  • DESCRIPTION:  
    The reason this drug is being turned in for destruction.
40 REQUEST # 0;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 06, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    The order request number from the ordering NAOU.
41 BALANCE FWD RET/STK 3;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The inventory balance forward for this drug being returned to stock.  This balance is used in listing pharmacy's "Daily Activity Log".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
47 DEST HOLDING # 3;8 POINTER TO CS DESTRUCTION FILE (#58.86) CS DESTRUCTION(#58.86)

  • LAST EDITED:  JUN 07, 1992
  • HELP-PROMPT:  Enter the destruction holding file # for this transaction.
  • DESCRIPTION:  
    A pointer to the destruction number for this drug being held for destruction.
48 EDIT VERIFIED ORDER DATE/TIME 4;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • HELP-PROMPT:  Enter date/time this order was verified.
  • DESCRIPTION:  
    The date/time this verified order is being edited.
  • CROSS-REFERENCE:  58.81^ACT5^MUMPS
    1)= D SACT5^PSDUTL1
    2)= D KACT5^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",EDIT D/T,LOCATION,DRUG,TYPE,DA)=""
49 PHARMACIST EDITING 4;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Enter the name of the pharmacist editing this verified order.
  • DESCRIPTION:  
    A pointer to name of the pharmacist editing this verified order.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
50 NEW QUANTITY 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The actual quantity of this drug being dispensed, if quantity is being edited.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
51 ADJUSTED BY QUANTITY 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The difference in the original quantity dispensed and the edited quantity dispensed.  The inventory balance will be adjusted by this amount.  This quantity may be a negative number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
52 EDIT MFG/LOT/EXP.DATE 4;5 SET
  • '1' FOR Y;
  • '0' FOR N;

  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Answer "YES" if manufacturer, lot #, or exp. date is edited.
  • DESCRIPTION:  
    This field is set to "1" or "YES" if  the manufacturer, lot #, or expiration date is being edited on this verified order.
53 REASON EDITED 4;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    The reason this verified order is being edited.
54 BAL FWD EDIT VERIFIED ORDER 4;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The inventory balance forward for this drug at the time this verified order is being edited.  This balance is used in listing pharmacy's "Daily Activity Log".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55 CANCEL VERIFIED ORD DATE/TIME 5;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • HELP-PROMPT:  Enter the date/time this verified order was cancelled.
  • DESCRIPTION:  
    The date/time this verified order is being cancelled.
  • CROSS-REFERENCE:  58.81^ACT6^MUMPS
    1)= D SACT6^PSDUTL1
    2)= D KACT6^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference is used in compiling data to print the pharmacy VA FORM 10-2320.
    The cross-reference is ^PSD(58.81,"ACT",CANCEL D/T,LOC,DRUG,TYPE,DA)=""
56 PHARMACIST CANCELLING 5;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Enter the name of the pharmacist holding the appropriate security key.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist cancelling this verified order.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
57 ADJUSTMENT QUANTITY 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The actual quantity of the drug for this cancelled order.  The drug inventory balance will be increased by this adjustment quantity.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
58 REASON CANCELLED 5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    The reason this verified order is being cancelled.
59 BAL FWD CANCEL VERIFIED ORD 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The inventory balance forward for this drug at the time this verified order is being cancelled.  This balance is used in listing pharmacy's "Daily Activity Log".
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60 RX # 6;1 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  AUG 24, 1992
  • HELP-PROMPT:  Enter prescription number for this CS transaction.
  • DESCRIPTION:  
    A pointer to the outpatient prescription number.
  • CROSS-REFERENCE:  58.81^AOP
    1)= S ^PSD(58.81,"AOP",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"AOP",$E(X,1,30),DA)
    3)= DO NOT DELETE.
61 REFILL # 6;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    If this prescription is a refill, this field will contain the refill number.
62 PRESCRIPTION DATE 6;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Enter the date/time this prescription was filled.
  • DESCRIPTION:  
    The fill date for this prescription.
63 PARTIAL # 6;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 16, 1992
  • HELP-PROMPT:  Type a Number between 1 and 100, 0 Decimal Digits
  • DESCRIPTION:  
    If this prescription is a partial, this field contains the partial number.
63.5 OUTPATIENT RX # 6;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  MAY 07, 1993
  • HELP-PROMPT:  Answer must be 1-11 characters in length.
  • DESCRIPTION:  
    This is the external form of the Outpatient prescription number.
63.6 RELEASING PHARMACIST 6;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Enter the pharmacist processing the Outpatient release.
  • DESCRIPTION:  
    This field is used to store the pharmacist responsible for the release of an Outpatient prescription in case it is a different person than the transactor.
  • TECHNICAL DESCR:  
    This field records the releasing pharmacist in case this is a different person than the transactor.
64 TRANSFER FROM NAOU DATE/TIME 7;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1992
  • HELP-PROMPT:  Enter the date/time the drug was transferred from this NAOU.
  • DESCRIPTION:  
    The date/time the Controlled Substances drug was transferred from this NAOU to another NAOU.
  • CROSS-REFERENCE:  58.81^ATRN
    1)= S ^PSD(58.81,"ATRN",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"ATRN",$E(X,1,30),DA)
    3)= DO NOT DELETE.
65 TRANSFER FROM NAOU NURSE 7;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 14, 1993
  • HELP-PROMPT:  Enter the name of the nurse transferring the drug from this NAOU.
  • DESCRIPTION:  
    A pointer to the name of the nurse or pharmacist transferring the Controlled Substances drug from this NAOU to another NAOU.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,$D(^XUSEC(""PSJ RPHARM"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses holding the appropriate security key.
66 TRANSFER TO NAOU 7;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)=""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the NAOU receiving the transferred drug.
  • DESCRIPTION:  
    The NAOU receiving this Controlled Substances drug from another NAOU.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=""N"""
  • EXPLANATION:  Allows selection of a Satellite vault or Narcotic location.
67 TRANSFER TO NAOU DATE/TIME 7;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1992
  • HELP-PROMPT:  Enter the date/time the drug was transferred to this NAOU.
  • DESCRIPTION:  
    The date/time the Controlled Substances drug was transferred to this NAOU from another NAOU.
68 TRANSFER TO NAOU NURSE 7;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 27, 1993
  • HELP-PROMPT:  Enter the name of the nurse receiving this transferred drug.
  • DESCRIPTION:  
    A pointer to the name of the nurse receiving this transferred Controlled Substances drug from another NAOU.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RNURSE"",+Y)):1,$D(^XUSEC(""PSD NURSE"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to nurses holding the appropriate security key.
69 PREVIOUS TRANSACTION # 7;6 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) DRUG ACCOUNTABILITY TRANSACTION(#58.81)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",11)=10" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 04, 1992
  • HELP-PROMPT:  Enter the previous transferred from NAOU transaction number.
  • DESCRIPTION:  
    The transaction number of the transferred from NAOU Controlled Substances drug.  This is the previous transaction number for this drug.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",11)=10"
  • EXPLANATION:  Allows selection of transactions transferred from an NAOU.
  • CROSS-REFERENCE:  58.81^AE
    1)= S ^PSD(58.81,"AE",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"AE",$E(X,1,30),DA)
    3)= DO NOT DELETE
70 QUANTITY TRANSFERRED 7;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The quantity of this Controlled Substances drug being transferred from an NAOU to another NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
71 PRIME VENDOR INVOICE 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 22, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  To allow the entering of a Prime Vendor Invoice number for a receipt. The Integrated Funds Distribution, Control Point Activity, Accounting and Procurement (IFCAP) Purchase Order number may be used all month and there may
    not be a corresponding IFCAP transaction number for each Prime Vendor receipt.
  • TECHNICAL DESCR:  
    To track Prime Vendor receipts in the absence of a transaction number.
  • CROSS-REFERENCE:  58.81^PV^MUMPS
    1)= I $P($G(^PSD(58.81,DA,8)),U,2)="" S ^PSD(58.81,"PV",X,DA)=""
    2)= I $P($G(^PSD(58.81,DA,8)),U,2)="" K ^PSD(58.81,"PV",X,DA)
    3)= DO NOT DELETE!
    This cross-reference is used to located the transactions for specific Prime Vendor invoices.
    ^PSD(58.81,"PV",Prime Vendor Invoice#,Transaction internal entry#)=""
72 REFERRED REASON 1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  AUG 24, 1992
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
  • DESCRIPTION:  
    When a completed Green Sheet has been referred to a pharmacy supervisor for review, this field may contain comments about the reason.
73 PATIENT 9;1 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  JUL 22, 1993
  • HELP-PROMPT:  Enter the name of the patient receiving this medication.
  • DESCRIPTION:  
    This field contains a pointer to the name of the patient receiving this Controlled Substances medication.
  • TECHNICAL DESCR:  
    Pointer to the PATIENT file #2.
73.5 FROM PATIENT ID LIST? 9.5;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 10, 1993
  • HELP-PROMPT:  Is this Patient ID from the Patient ID list?
  • DESCRIPTION:  
    This field will be "YES" when the patient ID was picked up from the patient ID list.
74 NURSE ID 9;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 22, 1993
  • HELP-PROMPT:  Enter the name of the nurse dispensing this medication.
  • DESCRIPTION:  
    This field contains a pointer to the name of the nurse dispensing this Controlled Substances medication.
  • TECHNICAL DESCR:  
    Pointer to the NEW PERSON file (#200).
75 ORIGINAL COUNT 9;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    This field contains the original count or balance of this drug when loaded into the TRAKKER for medication dispensing on the NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
76 WASTED QUANTITY 9;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    This field contains the quantity of this Controlled Substances drug that was wasted during dispensing at the NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
77 LIQUID AMOUNT 9;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    This field contains the liquid quantity of the drug dispensed at the NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
78 SECOND NURSE ID 9;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 22, 1993
  • HELP-PROMPT:  Enter the name of the nurse witnessing this transaction.
  • DESCRIPTION:  
    This field contains a pointer to the name of the nurse witnessing this Controlled Substances transaction.
  • TECHNICAL DESCR:  
    Pointer to the NEW PERSON file (#200).
79 CORRECT COUNT 9;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 11, 2001
  • HELP-PROMPT:  Type a Number between -999999 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    This field contains the correct count or balance for a Controlled Substances drug on an NAOU.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
80 PHARMACIST ID 9;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 30, 1993
  • HELP-PROMPT:  Enter the name of the pharmacist inventorying this CS drug.
  • DESCRIPTION:  
    This field contains a pointer to name of the pharmacist inventorying this Controlled Substances drug.
  • TECHNICAL DESCR:  
    Pointer to the NEW PERSON file (#200).
81 SECOND PHARMACIST ID 9;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 30, 1993
  • HELP-PROMPT:  Enter the name of the pharmacist witnessing this transaction.
  • DESCRIPTION:  
    This field contains a pointer to the name of the pharmacist witnessing this Controlled Substances transaction.
  • TECHNICAL DESCR:  
    Pointer to the NEW PERSON file (#200).
82 ACTUAL DATE/TIME 9;10 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 1993
  • HELP-PROMPT:  Enter actual date/time of this transaction.
  • DESCRIPTION:  
    This field contains the actual date/time this transaction was performed using the barcode TRAKKER.
83 CS INSPECTOR 9;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 09, 1993
  • HELP-PROMPT:  Enter the name of the CS inspector performing this inventory.
  • DESCRIPTION:  
    This option contains a pointer to the name of the Controlled Substances inspector inventorying this CS drug.
84 SECOND CS INSPECTOR 9;12 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 09, 1993
  • HELP-PROMPT:  Enter the name of the CS inspector witnessing this inventory.
  • DESCRIPTION:  
    This field contains a pointer to the name of the Controlled Substances inspector witnessing the inventory of this CS drug.
85 EMERGENCY CS;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Anser "YES" if this is an emergency order.
  • DESCRIPTION:  
    A "YES" entry in this field will cause an order to print on the pharmacy emergency order printer and allow for expedited processing.
  • TECHNICAL DESCR:  
    This field is used to flag orders for expedited processing.
  • CROSS-REFERENCE:  58.81^AEM1^MUMPS
    1)= D SAEM1^PSDUTL5
    2)= D KAEM1^PSDUTL5
    3)= DO NOT DELETE
    This cross-reference is used to track emergency orders.
    The cross-reference is ^PSD(58.81,"AEM",DATE/TIME,LOCATION,DRUG,DA)="".
100 CS TRANSACTION CS;1 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 16, 1992
  • HELP-PROMPT:  Is this a Controlled Substances transaction?
  • DESCRIPTION:  
    This field will be set to "1" or "YES" if this is a Controlled Substances package transaction.  This CS flag will be used when purging data within this file.
101 PRINTED 2320 CS;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Enter "1" or "Y" if this transaction has been printed.
  • DESCRIPTION:  
    This field is set to "1" or "YES" when this transaction is printed on pharmacy's VA FORM 10-2320 for this drug.
102 PRINTED 2321 CS;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 04, 1992
  • HELP-PROMPT:  Enter date or date/time this transaction was printed in lieu of the form 2321.
  • DESCRIPTION:  This field is set to "1" or "YES" when this transaction is printed on the dispensing/receiving report (in lieu of VA FORM 10-2321). This flag is used in printing this transaction only once on the dispensing/receiving
    report.  A reprint option is provided in the Controlled Substances module for additional copies to be printed.
  • CROSS-REFERENCE:  58.81^AC
    1)= S ^PSD(58.81,"AC",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"AC",$E(X,1,30),DA)
    3)= DO NOT DELETE
103 PRINTED 2638 CS;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 24, 1992
  • HELP-PROMPT:  Enter "1" or "YES" if the FORM 10-2638 has been printed for this transaction.
  • DESCRIPTION:  This field is set to "1" or "YES" when a Green Sheet (VA FORM 10- 2638) is printed for this Controlled Substances order. This flag is used in printing this transaction only once. A reprint option is provided in the
    Controlled Substances module for additional copies to be printed.
  • CROSS-REFERENCE:  58.81^AH
    1)= S ^PSD(58.81,"AH",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"AH",$E(X,1,30),DA)
104 PRINTED LABEL CS;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 29, 1993
  • HELP-PROMPT:  Enter the date or date/time this transaction label was printed.
  • DESCRIPTION:  This field is set to the date/time when the label for this transaction is printed. This flag is used in printing labels only once for this transaction. A reprint label option is provided in the Controlled Substances
    module for additional labels to be printed.
  • CROSS-REFERENCE:  58.81^AL
    1)= S ^PSD(58.81,"AL",$E(X,1,30),DA)=""
    2)= K ^PSD(58.81,"AL",$E(X,1,30),DA)
    3)= DO NOT DELETE
105 SPECIALTY 9;13 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • LAST EDITED:  AUG 03, 1995
  • HELP-PROMPT:  Enter specialty for patient at time dose dispensed.
  • DESCRIPTION:  
    For CDR reporting the specialty for the patient is stored at the time each dose is dispensed.
  • TECHNICAL DESCR:  
    For CDR reporting a call is made to INP^VADPT to get specialty.
106 PRIME VENDOR ORDER NUMBER 8;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>22!($L(X)<1) X
  • LAST EDITED:  JUL 17, 1997
  • HELP-PROMPT:  Enter the prime vendor's order number if the drug is not marked as a controlled substance.
  • DESCRIPTION:  
    The PRIME VENDOR ORDER NUMBER field contains the order number on which the drugs were purchased if the drug is not marked as a controlled substance.

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2520
  • PHARMACY BENEFITS MANAGEMENT
  • Transaction Number (.01).
    Access: Read w/Fileman

    Type (1).
    Access: Read w/Fileman

    Pharmacy Location (2).
    Access: Read w/Fileman

    Date/time (3).
    Access: Read w/Fileman

    Drug (4).
    Access: Read w/Fileman

    Quantity (5).
    Access: Read w/Fileman

    Purchase Order Number (8).
    Access: Read w/Fileman

    Manufacturer (12).
    Access: Read w/Fileman

    NAOU (17).
    Access: Read w/Fileman

    Edit Verified Order Date/time (48).
    Access: Read w/Fileman

    New Quantity (50).
    Access: Read w/Fileman

    Cancelled Verified Order Date/time (55).
    Access: Read w/Fileman

    Prime Vendor Invoice (71).
    Access: Read w/Fileman

    Prime Vendor Order Number (106).
    Access: Read w/Fileman

    Patient (73).
    Access: Read w/Fileman

    ICR #2808
  • CONTROLLED SUBSTANCES
  • ICR #5189
  • INPATIENT MEDICATIONS
  • ICR #5836
  • OUTPATIENT PHARMACY
  • External References

    Name Field # of Occurrence
    ^%DT 3+1, 14+1, 19+1, 21+1, 22+1, 24+1, 29.5+1, 29.6+1, 29.7+1, 31+1
    , 34+1, 37+1, 48+1, 55+1, 62+1, 64+1, 67+1, 82+1, 102+1, 104+1
    EN^DDIOL .01DEL.01+1
    ^DIC 2+1, 4+1, 17+1, 18+1, 20+1, 23+1, 25+1, 25.5+1, 29+1, 30+1
    , 32+1, 33+1, 49+1, 56+1, 65+1, 66+1, 68+1, 69+1
    Y^DIQ ID4+1, ID17+1
    KAD^PSDUTL 10(XREF 1K)
    KAF^PSDUTL 3(XREF 1K)
    KAFL^PSDUTL 2(XREF 1K)
    KAFT^PSDUTL 1(XREF 1K)
    SAD^PSDUTL 10(XREF 1S)
    SAF^PSDUTL 3(XREF 1S)
    SAFL^PSDUTL 2(XREF 1S)
    SAFT^PSDUTL 1(XREF 1S)
    KACT^PSDUTL1 3(XREF 2K)
    KACT1^PSDUTL1 1(XREF 2K)
    KACT2^PSDUTL1 2(XREF 2K)
    KACT3^PSDUTL1 4(XREF 2K)
    KACT4^PSDUTL1 34(XREF 1K)
    KACT5^PSDUTL1 48(XREF 1K)
    KACT6^PSDUTL1 55(XREF 1K)
    KAD^PSDUTL1 17(XREF 1K)
    SACT^PSDUTL1 3(XREF 2S)
    SACT1^PSDUTL1 1(XREF 2S)
    SACT2^PSDUTL1 2(XREF 2S)
    SACT3^PSDUTL1 4(XREF 2S)
    SACT4^PSDUTL1 34(XREF 1S)
    SACT5^PSDUTL1 48(XREF 1S)
    SACT6^PSDUTL1 55(XREF 1S)
    SAD^PSDUTL1 17(XREF 1S)
    KAG^PSDUTL2 11(XREF 1K)
    KAG1^PSDUTL2 17(XREF 2K)
    SAG^PSDUTL2 11(XREF 1S)
    SAG1^PSDUTL2 17(XREF 2S)
    KACT7^PSDUTL3 37(XREF 1K)
    SACT7^PSDUTL3 37(XREF 1S)
    KAK^PSDUTL4 21(XREF 1K)
    KAK1^PSDUTL4 17(XREF 3K)
    SAK^PSDUTL4 21(XREF 1S)
    SAK1^PSDUTL4 17(XREF 3S)
    KAEM^PSDUTL5 3(XREF 3K)
    KAEM1^PSDUTL5 85(XREF 1K)
    KAEM2^PSDUTL5 2(XREF 3K)
    KAEM3^PSDUTL5 4(XREF 3K)
    SAEM^PSDUTL5 3(XREF 3S)
    SAEM1^PSDUTL5 85(XREF 1S)
    SAEM2^PSDUTL5 2(XREF 3S)
    SAEM3^PSDUTL5 4(XREF 3S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" 3OT+1
    ^DD(50 ID4+1
    ^DD(58.8 ID17+1
    ^PSD(58.8 - [#58.8] ID17+1
    ^PSD(58.81 - [#58.81] .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    60(XREF 1S), 60(XREF 1K), 64(XREF 1S), 64(XREF 1K), 69(XREF 1S), 69(XREF 1K), 71(XREF 1S), 71(XREF 1K), 102(XREF 1S), 102(XREF 1K)
    103(XREF 1S), 103(XREF 1K), 104(XREF 1S), 104(XREF 1K)
    ^PSDRUG - [#50] ID4+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID4+1, ID17+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 3+1*, 14+1*, 19+1*, 21+1*, 22+1*, 24+1*, 29.5+1*, 29.6+1*, 29.7+1*, 31+1*
    , 34+1*, 37+1*, 48+1*, 55+1*, 62+1*, 64+1*, 67+1*, 82+1*, 102+1*, 104+1*
    %I ID4+1*!, ID17+1*!
    >> C ID4+1*, ID17+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 4(XREF 1S), 4(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 16(XREF 1S), 16(XREF 1K)
    60(XREF 1S), 60(XREF 1K), 64(XREF 1S), 64(XREF 1K), 69(XREF 1S), 69(XREF 1K), 71(XREF 1S), 71(XREF 1K), 102(XREF 1S), 102(XREF 1K)
    103(XREF 1S), 103(XREF 1K), 104(XREF 1S), 104(XREF 1K)
    DIC ID4+1, ID17+1, 2+1!*, 4+1!*, 17+1!*, 18+1!*, 20+1!*, 23+1!*, 25+1!*, 25.5+1!*
    , 29+1!*, 30+1!*, 32+1!*, 33+1!*, 49+1!*, 56+1!*, 65+1!*, 66+1!*, 68+1!*, 69+1!*
    DIC("S" 2+1*, 2SCR+1*, 4+1*, 4SCR+1*, 17+1*, 17SCR+1*, 18+1*, 18SCR+1*, 20+1*, 20SCR+1*
    , 23+1*, 23SCR+1*, 25+1*, 25SCR+1*, 25.5+1*, 25.5SCR+1*, 29+1*, 29SCR+1*, 30+1*, 30SCR+1*
    , 32+1*, 32SCR+1*, 33+1*, 33SCR+1*, 49+1*, 49SCR+1*, 56+1*, 56SCR+1*, 65+1*, 65SCR+1*
    , 66+1*, 66SCR+1*, 68+1*, 68SCR+1*, 69+1*, 69SCR+1*
    >> DIE 2+1, 4+1, 17+1, 18+1, 20+1, 23+1, 25+1, 25.5+1, 29+1, 30+1
    , 32+1, 33+1, 49+1, 56+1, 65+1, 66+1, 68+1, 69+1
    >> DINUM .01+1*
    >> PSDSITE 2+1, 2SCR+1, 4+1, 4SCR+1
    U ID4+1, ID17+1, 71(XREF 1S), 71(XREF 1K)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1*!, 3+1*!, 4+1*!, 4(XREF 1S), 4(XREF 1K), 5+1!, 7(XREF 1S)
    7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 9+1!, 12+1!, 13+1!, 14+1*!, 15+1!, 16+1!, 16(XREF 1S)
    16(XREF 1K), 17+1*!, 18+1*!, 19+1*!, 20+1*!, 21+1*!, 22+1*!, 23+1*!, 24+1*!, 25+1*!
    , 25.5+1*!, 27+1!, 29+1*!, 29.5+1*!, 29.6+1*!, 29.7+1*!, 29.8+1!, 30+1*!, 31+1*!, 32+1*!
    , 33+1*!, 34+1*!, 35+1!, 36+1!, 37+1*!, 38+1!, 39+1!, 40+1!, 41+1!, 48+1*!
    , 49+1*!, 50+1!, 51+1!, 53+1!, 54+1!, 55+1*!, 56+1*!, 57+1!, 58+1!, 59+1!
    60(XREF 1S), 60(XREF 1K), 61+1!, 62+1*!, 63+1!, 63.5+1!, 64+1*!, 64(XREF 1S), 64(XREF 1K), 65+1*!
    , 66+1*!, 67+1*!, 68+1*!, 69+1*!, 69(XREF 1S), 69(XREF 1K), 70+1!, 71+1!, 71(XREF 1S), 71(XREF 1K)
    , 72+1!, 75+1!, 76+1!, 77+1!, 79+1!, 82+1*!, 102+1*!, 102(XREF 1S), 102(XREF 1K), 103(XREF 1S)
    103(XREF 1K), 104+1*!, 104(XREF 1S), 104(XREF 1K), 106+1!
    >> Y ID4+1*, ID17+1*, 2+1, 3+1, 3OT+1, 4+1, 14+1, 17+1, 18+1, 19+1
    , 20+1, 21+1, 22+1, 23+1, 24+1, 25+1, 25.5+1, 29+1, 29.5+1, 29.6+1
    , 29.7+1, 30+1, 31+1, 32+1, 33+1, 34+1, 37+1, 48+1, 49+1, 55+1
    , 56+1, 62+1, 64+1, 65+1, 66+1, 67+1, 68+1, 69+1, 82+1, 102+1
    , 104+1
    >> Y(0 3OT+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