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 |  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: 157

Package Total Routines
Controlled Substances 128 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    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 25 PSADJ    PSADJI    PSADJR    PSADRUG    PSADRUGP    PSAENTO    PSAGIP    PSAHIS
PSAHIS1    PSANAC    PSAOP1    PSAPSI1    PSAPUR    PSAREC    PSAREC1    PSAREPV
PSAREV    PSAREVC    PSAREVD    PSARWS    PSASIG    PSATRAN1    PSAUDP    PSAVER7
PSAVERA    
Pharmacy Benefits Management 2 PSUCS1    PSUPR3    

Accessed By FileMan Db Calls, Total: 40

Package Total Routines
Controlled Substances 23 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 17 PSADJ    PSADJI    PSADRUG    PSADRUGP    PSAENTO    PSAGIP    PSANAC    PSAOP1
PSAPSI1    PSAPUR    PSAREC1    PSAREPV    PSARWS    PSATRAN1    PSAUDP    PSAVER7
PSAVERA    

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: 11

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)[2, 17, 66]
DRUG ACCOUNTABILITY TRANSACTION(#58.81)[69]    DRUG ACCOUNTABILITY TRANSACTION TYPE(#58.84)[1]    
Registration 2 SPECIALTY(#42.4)[105]    VA PATIENT(#2)[73]    
Kernel 1 NEW PERSON(#200)[6, 18, 20, 23, 25, 25.5, 29, 30, 32, 33, 49, 56, 63.6, 65, 68, 74, 78, 80, 81, 83, 84]    
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:  X ^DD("DD")
  • 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 AN UNDEFINED FILE **

  • 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 AN UNDEFINED FILE **

  • 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="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • 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.





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 VA PATIENT FILE (#2)
VA 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
    		• 



    

    


    


    
Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
ICR | 
Found Entries | 
All