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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PSD(58.85

Package: Controlled Substances

Global: ^PSD(58.85


Information

FileMan FileNo FileMan Filename Package
58.85 CS WORKSHEET Controlled Substances

Description

Directly Accessed By Routines, Total: 26

Package Total Routines
Controlled Substances 26 PSDDWK    PSDDWK1    PSDDWK2    PSDDWK3    PSDDWK4    PSDDWKE    PSDEVO    PSDEVO1
PSDNRGO    PSDNRGS    PSDOR21    PSDORD2    PSDORL    PSDORN1    PSDORN2    PSDORP1
PSDORST    PSDORV1    PSDPRG    PSDPWK    PSDPWK1    PSDPWK2    PSDRWK    PSDUTL
PSDUTL1    ^PSD(58.85    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Controlled Substances 3 PSDORN3    PSDORNP    PSDPRG    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[12]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[7]    
Controlled Substances 1 CS ORDER STATUS(#58.82)[6]    
Kernel 1 NEW PERSON(#200)[12141720]    
Pharmacy Data Management 1 DRUG(#50)[3]    
Registration 1 PATIENT(#2)[22]    

Fields, Total: 23

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The record number for this worksheet entry.
  • CROSS-REFERENCE:  58.85^B
    1)= S ^PSD(58.85,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.85,"B",$E(X,1,30),DA)
1 DISPENSING SITE 0;2 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
************************REQUIRED FIELD************************
DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 25, 1992
  • HELP-PROMPT:  Enter the Pharmacy dispensing location.
  • DESCRIPTION:  
    The pharmacy dispensing site (vault) for this Controlled Substances order.
  • SCREEN:  S:$D(PSDSITE) DIC("S")="I $P(^(0),""^"",3)=+PSDSITE,$S($P(^(0),""^"",2)=""M"":1,$P(^(0),""^"",2)=""S"":1,1:0)"
  • EXPLANATION:  Allows selection of Master vault or Satellite vault as a dispensing site.
  • CROSS-REFERENCE:  58.85^AE
    1)= S ^PSD(58.85,"AE",$E(X,1,30),DA)=""
    2)= K ^PSD(58.85,"AE",$E(X,1,30),DA)
  • CROSS-REFERENCE:  58.85^AW1^MUMPS
    1)= D SAW1^PSDUTL1
    2)= D KAW1^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference will be used in displaying the CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report.
    The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
2 NAOU 0;3 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8)
************************REQUIRED FIELD************************
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:  AUG 25, 1992
  • HELP-PROMPT:  Enter the requesting NAOU.
  • DESCRIPTION:  
    The Narcotic Area of Use requesting the Controlled Substances order.
  • 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 a Narcotic location.
3 DRUG 0;4 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Enter drug requested for this order.
  • DESCRIPTION:  
    The Controlled Substances drug requested on this order.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$S($P($G(^(2)),""^"",3)[""N"":1,1:0)"
  • EXPLANATION:  Allows selection of ACTIVE drugs marked for Controlled Substances package use.
4 REQUEST # 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    The request number for this Controlled Substances order.
  • CROSS-REFERENCE:  58.85^AD^MUMPS
    1)= D REQ^PSDUTL
    2)= D KREQ^PSDUTL
    3)= DO NOT DELETE
    This cross-reference will be used for updating order requests stored in the DRUG ACCOUNTABILITY STATS file (#58.8).
    The cross-reference is ^PSD(58.85,"AD",NAOU,DRUG,REQUEST #,DA)=""
5 QUANTITY ORDERED 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The drug quantity originally requested on this Controlled Substances order.
6 ORDER STATUS 0;7 POINTER TO CS ORDER STATUS FILE (#58.82)
************************REQUIRED FIELD************************
CS ORDER STATUS(#58.82)

  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Enter processing status for this order.
  • DESCRIPTION:  
    A pointer to the order status for this Controlled Substances request.
  • CROSS-REFERENCE:  58.85^AC^MUMPS
    1)= D STAT^PSDUTL
    2)= D KSTAT^PSDUTL
    3)= DO NOT DELETE
    This cross-reference is used for various Controlled Substances statistical reports.
    The cross-reference is ^PSD(58.85,"AC",STATUS,NAOU,DRUG,REQUEST #,DA)=""
7 TRANSACTION # 0;8 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) DRUG ACCOUNTABILITY TRANSACTION(#58.81)

  • LAST EDITED:  MAR 25, 1992
  • HELP-PROMPT:  Enter the transaction # for this order.
  • DESCRIPTION:  
    If this request is processed by pharmacy, this field contains a pointer to the transaction dispensing this order.
8 COMMENTS 1;0 WORD-PROCESSING #58.858

  • DESCRIPTION:  
    Comments to pharmacy concerning this Controlled Substances order request.
9 MANUFACTURER 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 05, 1992
  • HELP-PROMPT:  Enter the current manufacturer.
  • DESCRIPTION:  
    The manufacturer for the drug requested on this order.
10 LOT # 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 05, 1992
  • HELP-PROMPT:  Enter the current lot # for this drug.
  • DESCRIPTION:  
    The lot number for the drug requested on this order.
11 EXPIRATION DATE 0;11 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 expiration date for the drug requested on this order.
12 ORDERED BY 0;12 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:  APR 19, 1992
  • HELP-PROMPT:  Enter the person's name requesting this order.
  • DESCRIPTION:  
    A pointer to the name of the person requesting this Controlled Substances order.
  • 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.
13 PRINTED 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 25, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This printed flag will be set to a counter if this request has been printed on a worksheet report.  This flag will be used to compile the pharmacy worksheet log used in dispensing Controlled Substances drugs.
  • CROSS-REFERENCE:  58.85^AW^MUMPS
    1)= D SAW^PSDUTL1
    2)= D KAW^PSDUTL1
    3)= DO NOT DELETE
    This cross-reference will be used in displaying CS request orders in the order printed on the "Pharmacy Dispensing Worksheet" report.
    The cross-reference is ^PSD(58.85,"AW",DISP SITE,PRT #,DA)=""
14 DISPENSED BY 0;13 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 19, 1992
  • HELP-PROMPT:  Enter name of the dispensing pharmacist.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist dispensing this Controlled Substances order.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to pharmacists holding the appropriate security key.
15 DISPENSED DATE/TIME 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 1993
  • DESCRIPTION:  
    The dispensed date/time of this Controlled Substances order.
16 PHARMACY DISPENSING # 0;15 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 (Green Sheet #) assigned to identify and track this Controlled Substances order.
17 TECH 0;16 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:  APR 19, 1992
  • HELP-PROMPT:  Enter the name of the pharmacy employee processing this order.
  • DESCRIPTION:  
    If a pharmacy technician processed this order, this field will contain a pointer to the name of the technician.
  • 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.
18 QUANTITY DISPENSED 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 12, 1999
  • HELP-PROMPT:  Type a Number between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    The actual drug quantity dispensed from pharmacy for this Controlled Substances order.
19 REQUEST DATE/TIME 0;18 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 this Controlled Substances request was entered by the NAOU.
20 ORDERED BY PHARMACY 0;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+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 pharmacy employee's name entering the Controlled Substances request for nursing.
  • SCREEN:  S DIC("S")="I $S($D(^XUSEC(""PSJ RPHAM"",+Y)):1,$D(^XUSEC(""PSJ PHARM TECH"",+Y)):1,1:0)"
  • EXPLANATION:  Access granted to pharmacy personnel holding the appropriate security key.
21 EMERGENCY 2;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 14, 1995
  • HELP-PROMPT:  Answer "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.
22 PATIENT 2;3 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  AUG 16, 1996
  • HELP-PROMPT:  Enter the patient for which this Controlled Substance is being ordered.
  • DESCRIPTION:  
    This field is for infusion and PCA syringe orders.

External References

Name Field # of Occurrence
^%DT 11+1, 15+1, 19+1
^DIC 1+1, 2+1, 3+1, 12+1, 14+1, 17+1, 20+1
Y^DIQ ID2+1, ID3+1
KREQ^PSDUTL 4(XREF 1K)
KSTAT^PSDUTL 6(XREF 1K)
REQ^PSDUTL 4(XREF 1S)
STAT^PSDUTL 6(XREF 1S)
KAW^PSDUTL1 13(XREF 1K)
KAW1^PSDUTL1 1(XREF 2K)
SAW^PSDUTL1 13(XREF 1S)
SAW1^PSDUTL1 1(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(50 ID3+1
^DD(58.8 ID2+1
^PSD(58.8 - [#58.8] ID2+1
^PSD(58.85 - [#58.85] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
^PSDRUG - [#50] ID3+1

Naked Globals

Name Field # of Occurrence
^(0 ID2+1, ID3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 11+1*, 15+1*, 19+1*
%I ID2+1*!, ID3+1*!
>> C ID2+1*, ID3+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
DIC ID2+1, ID3+1, 1+1!*, 2+1!*, 3+1!*, 12+1!*, 14+1!*, 17+1!*, 20+1!*
DIC("S" 1+1*, 1SCR+1*, 2+1*, 2SCR+1*, 3+1*, 3SCR+1*, 12+1*, 12SCR+1*, 14+1*, 14SCR+1*
, 17+1*, 17SCR+1*, 20+1*, 20SCR+1*
>> DIE 1+1, 2+1, 3+1, 12+1, 14+1, 17+1, 20+1
>> PSDSITE 1+1, 1SCR+1
U ID2+1, ID3+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2+1*!, 3+1*!, 4+1!, 5+1!
, 9+1!, 10+1!, 11+1*!, 12+1*!, 13+1!, 14+1*!, 15+1*!, 16+1!, 17+1*!, 18+1!
, 19+1*!, 20+1*!
>> Y ID2+1*, ID3+1*, 1+1, 2+1, 3+1, 11+1, 12+1, 14+1, 15+1, 17+1
, 19+1, 20+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All