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 |  Found Entries |  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: 8

Package Total Routines
Controlled Substances 8 PSDCOR    PSDCOR1    PSDCOR2    PSDCOR3    PSDCORP1    PSDCORP2    PSDCORP3    PSDUTL2

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.







    



Info | 
Desc | 
Directly Accessed By Routines | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All