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

Package: Controlled Substances

Global: ^PSD(58.87


Information

FileMan FileNo FileMan Filename Package
58.87 CS CORRECTION LOG Controlled Substances

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Controlled Substances 9 PSDCOR    PSDCOR1    PSDCOR2    PSDCOR3    PSDCORP1    PSDUTL2    ^PSD(58.87    PSDCORP2
PSDCORP3    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Controlled Substances 1 CS COMPLETION STATUS(#58.83)[13, 14]    
Drug Accountability 1 DRUG ACCOUNTABILITY STATS(#58.8)[5, 12]    
Kernel 1 NEW PERSON(#200)[2, 6, 9]
Pharmacy Data Management 1 DRUG(#50)[4]    

Fields, Total: 15

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the correction log number for this entry.
  • CROSS-REFERENCE:  58.87^B
    1)= S ^PSD(58.87,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.87,"B",$E(X,1,30),DA)
1 CORRECTION DATE/TIME 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Enter the date/time of this correction action.
  • DESCRIPTION:  
    The date/time of this correction entry.
  • CROSS-REFERENCE:  58.87^AC^MUMPS
    1)= D SAC^PSDUTL2
    2)= D KAC^PSDUTL2
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "CS Correction Log Report".
    The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
2 CORRECTED BY PHARMACIST 0;3 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:  SEP 06, 1992
  • HELP-PROMPT:  Enter the name of the pharmacist correcting this problem.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist associated with this correction action.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSJ RPHARM"",+Y))"
  • EXPLANATION:  Access granted to the pharmacists holding the appropriate security key.
3 PHARMACY DISPENSING # 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    The pharmacy control number to identify and track this Controlled Substances correction entry.
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),$P($G(^(2)),""^"",3)[""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Enter the name of the drug associated with this correction action.
  • DESCRIPTION:  
    A pointer to the drug associated with this correction action.
  • SCREEN:  S DIC("S")="I $S('$D(^(""I"")):1,+^(""I"")>DT:1,1:0),$P($G(^(2)),""^"",3)[""N"""
  • EXPLANATION:  Allows selection of ACTIVE drugs marked for Controlled Substances use.
5 NAOU 0;6 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:  SEP 06, 1992
  • HELP-PROMPT:  Enter the name of the NAOU associated with this correction action.
  • DESCRIPTION:  
    A pointer to the NAOU associated with this correction action.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)=""N"""
  • EXPLANATION:  Allows selection of Narcotic locations only.
6 NURSE 0;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(""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 associated with this correction action.
  • DESCRIPTION:  
    A pointer to the name of the nurse who completed the Green Sheet and marked it ready for pharmacy pickup.
  • 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.
7 PROBLEM DATE/TIME 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Enter the date/time the problem was created.
  • DESCRIPTION:  
    This field contains the date/time when the problem was created.
8 REQUEST # 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    The order request number associated with this correction action.
9 GS ENTERED BY PHARM 0;10 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:  MAY 31, 1993
  • HELP-PROMPT:  Enter the name of the pharmacist who entered the Green Sheet.
  • DESCRIPTION:  
    A pointer to the name of the pharmacist who entered/completed the Green Sheet.
  • 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 pharmacists holding the appropriate security key.
10 QUANTITY 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 06, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    The quantity of the drug associated with this correction action.
11 TYPE OF CORRECTION 0;12 SET
  • '1' FOR GREEN SHEET READY FOR PICKUP;
  • '2' FOR DELETE EXISTING GREEN SHEETS;
  • '3' FOR ERROR FOUND ON COMPLETED GS;
  • '4' FOR ERROR RESOLVED ON GREEN SHEET;

  • LAST EDITED:  MAY 22, 1993
  • HELP-PROMPT:  Enter the appropriate type of correction action.
  • DESCRIPTION:  
    The type of correction action associated with this entry.
  • CROSS-REFERENCE:  58.87^AC1^MUMPS
    1)= D SAC1^PSDUTL2
    2)= D KAC1^PSDUTL2
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "CS Correction Log Report".
    The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
12 PHARM DISPENSING SITE 0;13 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,$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:  SEP 06, 1992
  • HELP-PROMPT:  Enter the dispensing vault associated with this correction action.
  • DESCRIPTION:  
    This field contains a pointer to the pharmacy dispensing site (vault) associated with this correction action.
  • 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:  Selection limited to a Master vault or a Satellite vault.
  • CROSS-REFERENCE:  58.87^AC2^MUMPS
    1)= D SAC2^PSDUTL2
    2)= D KAC2^PSDUTL2
    3)= DO NOT DELETE
    This cross-reference is used in compiling the "CS Correction Log Report".
    The cross-reference is ^PSD(58.87,"AC",TYPE,DISP SITE,DATE,DA)=""
13 PREVIOUS COMPLETION STATUS 0;14 POINTER TO CS COMPLETION STATUS FILE (#58.83) CS COMPLETION STATUS(#58.83)

  • LAST EDITED:  MAY 22, 1993
  • HELP-PROMPT:  Enter the previous completion status for the order.
  • DESCRIPTION:  
    The completion status prior to correction action being taken.
14 CURRENT COMPLETED STATUS 0;15 POINTER TO CS COMPLETION STATUS FILE (#58.83) CS COMPLETION STATUS(#58.83)

  • LAST EDITED:  MAY 22, 1993
  • HELP-PROMPT:  Enter the current completion status for this order.
  • DESCRIPTION:  
    The completion status after this correction action has been performed.

External References

Name Field # of Occurrence
^%DT 1+1, 7+1
^DIC 2+1, 4+1, 5+1, 6+1, 9+1, 12+1
KAC^PSDUTL2 1(XREF 1K)
KAC1^PSDUTL2 11(XREF 1K)
KAC2^PSDUTL2 12(XREF 1K)
SAC^PSDUTL2 1(XREF 1S)
SAC1^PSDUTL2 11(XREF 1S)
SAC2^PSDUTL2 12(XREF 1S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.87 - [#58.87] .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 7+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC 2+1!*, 4+1!*, 5+1!*, 6+1!*, 9+1!*, 12+1!*
DIC("S" 2+1*, 2SCR+1*, 4+1*, 4SCR+1*, 5+1*, 5SCR+1*, 6+1*, 6SCR+1*, 9+1*, 9SCR+1*
, 12+1*, 12SCR+1*
>> DIE 2+1, 4+1, 5+1, 6+1, 9+1, 12+1
>> PSDSITE 12+1, 12SCR+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1*!, 3+1!, 4+1*!, 5+1*!, 6+1*!, 7+1*!
, 8+1!, 9+1*!, 10+1!, 12+1*!
>> Y 1+1, 2+1, 4+1, 5+1, 6+1, 7+1, 9+1, 12+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All