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 |  Fields |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PS(50.35

Package: Inpatient Medications

Global: ^PS(50.35


Information

FileMan FileNo FileMan Filename Package
50.35 DRUG APPLICATION Inpatient Medications

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Inpatient Medications 2 APPLICATION    ^PS(50.35    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Inpatient Medications 2 PSGFILD0    PSJUTL    
Pharmacy Data Management 1 PSSFIL    

Fields, Total: 2

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X
  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter the name of an application that will be using entries in the Primary Drug file.
  • DESCRIPTION:  
    This is an application that may make use of the entries within the Primary Drug file.
  • TECHNICAL DESCR:  
    If an application (DHCP package) would like to use entries within the Primary Drug file, it must first have an entry in this file.
  • GROUP:  PS
  • CROSS-REFERENCE:  50.35^B
    1)= S ^PS(50.35,"B",$E(X,1,30),DA)=""
    2)= K ^PS(50.35,"B",$E(X,1,30),DA)
.02 CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X I $D(X) S X(1)=$O(^PS(53.35,"C",X,0)) I X(1) S X(2)=$P($G(^PS(50.35,X(1),0)),"^") S:X(2)="" X(2)=X(1) K X W !,"THIS CODE IS ALREADY USED BY ",X(2)
  • LAST EDITED:  DEC 20, 1991
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is the code for this application.  This code is stored with the drugs associated with this application.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50.35^C
    1)= S ^PS(50.35,"C",$E(X,1,30),DA)=""
    2)= K ^PS(50.35,"C",$E(X,1,30),DA)
    3)= USED FOR LOOK-UP.

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.35 - [#50.35] .01(XREF 1S), .01(XREF 1K), .02+1, .02(XREF 1S), .02(XREF 1K)
^PS(53.35 .02+1

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K)
U ID.02+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K)
X(1 .02+1*
X(2 .02+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All