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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PSD(58.89

Package: Controlled Substances

Global: ^PSD(58.89


Information

FileMan FileNo FileMan Filename Package
58.89 CS ERROR LOG Controlled Substances

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
Controlled Substances 12 PSDFT    ^PSD(58.89    PBM DA PHARM LOC MAPPINGS    PSDERCP    PSDERP    PSDFIL2    PSDFIL3    PSDFT1
PSDRF1    PSDRFT    PSDRFX    PSDUTL4    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[6]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[1]    
Kernel 1 NEW PERSON(#200)[3]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  NOV 07, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the internal entry number for this Controlled Substances error.
  • TECHNICAL DESCR:  
    DINUMed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.89^B
    1)= S ^PSD(58.89,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.89,"B",$E(X,1,30),DA)
1 TRANSACTION NUMBER 0;2 POINTER TO DRUG ACCOUNTABILITY TRANSACTION FILE (#58.81) DRUG ACCOUNTABILITY TRANSACTION(#58.81)

  • LAST EDITED:  OCT 18, 1993
  • HELP-PROMPT:  Enter the transaction number generating this error.
  • DESCRIPTION:  
    This field contains a pointer to the Controlled Substances transaction generating this error.
  • CROSS-REFERENCE:  58.89^AC
    1)= S ^PSD(58.89,"AC",$E(X,1,30),DA)=""
    2)= K ^PSD(58.89,"AC",$E(X,1,30),DA)
    3)= DO NOT DELETE
2 DATE/TIME 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 07, 1993
  • HELP-PROMPT:  Enter the date/time the error occurred.
  • DESCRIPTION:  
    This field contains the date/time the Controlled Substances error occurred.
  • CROSS-REFERENCE:  58.89^AD^MUMPS
    1)= D SAD^PSDUTL4
    2)= D KAD^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling various CS error log reports.
    The cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)=""
3 CORRECTED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 17, 1993
  • HELP-PROMPT:  Enter the name of the supervisor correcting this error.
  • DESCRIPTION:  
    This field contains a pointer to the name of the pharmacy or nursing supervisor correcting this error.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSD ERROR"",+Y))"
  • EXPLANATION:  Access granted to pharmacy and nursing supervisors holding the appropriate key.
4 DATE/TIME CORRECTED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 07, 1993
  • HELP-PROMPT:  Enter the date/time this error was corrected.
  • DESCRIPTION:  
    The date/time this Controlled Substances error was corrected.
  • CROSS-REFERENCE:  58.89^AE^MUMPS
    1)= D SAE^PSDUTL4
    2)= D KAE^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling the CS resolved error log report.
    The cross-reference is defined by:
    ^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""
5 RESOLUTION 1;0 WORD-PROCESSING #58.895

  • DESCRIPTION:  
    The final resolution for this Controlled Substances error.
6 CS LOCATION 0;6 POINTER TO DRUG ACCOUNTABILITY STATS FILE (#58.8) DRUG ACCOUNTABILITY STATS(#58.8)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",2)'=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 07, 1993
  • HELP-PROMPT:  Enter the NAOU or dispensing site generating this error log entry.
  • DESCRIPTION:  
    This field contains a pointer to the Controlled Substances location, dispensing vault or NAOU, where this error occurred.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",2)'=""P"""
  • EXPLANATION:  Allows selection of CS locations.
  • CROSS-REFERENCE:  58.89^AD1^MUMPS
    1)= D SAD1^PSDUTL4
    2)= D KAD1^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling various CS error log reports.
    This cross-reference is defined by: ^PSD(58.89,"AD",DATE/TIME,NAOU,DA)=""
  • CROSS-REFERENCE:  58.89^AE1^MUMPS
    1)= D SAE1^PSDUTL4
    2)= D KAE1^PSDUTL4
    3)= DO NOT DELETE
    This cross-reference is used in compiling the CS resolved error log report.
    This cross-reference is defined by:
    ^PSD(58.89,"AE",DATE/TIME CORRECTED,CS LOCATION,DA)=""

External References

Name Field # of Occurrence
^%DT 2+1, 4+1
^DIC 3+1, 6+1
Y^DIQ ID6+1
KAD^PSDUTL4 2(XREF 1K)
KAD1^PSDUTL4 6(XREF 1K)
KAE^PSDUTL4 4(XREF 1K)
KAE1^PSDUTL4 6(XREF 2K)
SAD^PSDUTL4 2(XREF 1S)
SAD1^PSDUTL4 6(XREF 1S)
SAE^PSDUTL4 4(XREF 1S)
SAE1^PSDUTL4 6(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 ID6+1
^PSD(58.8 - [#58.8] ID6+1
^PSD(58.89 - [#58.89] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID6+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 2+1*, 4+1*
%I ID6+1*!
>> C ID6+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
DIC ID6+1, 3+1!*, 6+1!*
DIC("S" 3+1*, 3SCR+1*, 6+1*, 6SCR+1*
>> DIE 3+1, 6+1
>> DINUM .01+1*
U ID6+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1*!, 3+1*!, 4+1*!, 6+1*!
>> Y ID6+1*, 2+1, 3+1, 4+1, 6+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All