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 |  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    PSDPWK1
^PSD(58.85    PSDORP1    PSDORST    PSDORV1    PSDPRG    PSDPWK    PSDPWK2    PSDRWK
PSDUTL    PSDUTL1    

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.
  • LAST EDITED:  APR 05, 1992
  • 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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All