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

Package: Inpatient Medications

Global: ^PS(51.15


Information

FileMan FileNo FileMan Filename Package
51.15 ADMINISTRATION SHIFT Inpatient Medications

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Inpatient Medications 4 HOSPITAL LOCATION    ^PS(51.15    ^PS(59.6    PSJSV    
Pharmacy Data Management 2 PSS51P15    PSSJSV    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Pharmacy Data Management 2 PSS51P15    PSSJEEU    
Inpatient Medications 1 PSJEEU    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 HOSPITAL LOCATION(#44)[#51.153(.01)]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This is an arbitrary name for a shift, such as 'MORNING'.
  • CROSS-REFERENCE:  51.15^B
    1)= S ^PS(51.15,"B",$E(X,1,30),DA)=""
    2)= K ^PS(51.15,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  51.15^ACC^MUMPS
    1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)=""
    2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)
    3)= USED BY SCHEDULE PROCESSOR
    Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AC",PACKAGE,NAME,IEN)=""
  • CROSS-REFERENCE:  51.15^APP^MUMPS
    1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)=""
    2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)
    3)= USED BY SCHEDULE PROCESSOR
    Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""
1 ABBREVIATION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  NOV 12, 1989
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This is a one character code for the shift, such as 'M' for 'MORNING'.
  • CROSS-REFERENCE:  51.15^C
    1)= S ^PS(51.15,"C",$E(X,1,30),DA)=""
    2)= K ^PS(51.15,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  51.15^ACP^MUMPS
    1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)=""
    2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)
    3)= USED BY SCHEDULE PROCESSOR
    Used by the Schedule Processor to do package specific look-ups by abbreviation. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""
2 STANDARD START/STOP TIMES 0;3 FREE TEXT

  • INPUT TRANSFORM:  D ENVSST^PSJSV
  • LAST EDITED:  NOV 25, 1989
  • HELP-PROMPT:  Answer must be 5 or 9 characters in length, a set of two times of the day separated by a dash.
  • DESCRIPTION:  This is two times of the day that define the shift by designating the range over which an action is to take place. The two times must be in military format and must both be either two or four characters, and be
    separated by a dash, such as '09-13' or '0900-1300'.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 HOSPITAL LOCATION 1;0 POINTER Multiple #51.153 51.153

  • DESCRIPTION:  
    This allows the site to enter information pertaining to a shift on a hospital location by hospital location basis. The wards used are from the HOSPITAL LOCATION file.
  • TECHNICAL DESCR:  This allows the site to enter certain information (e.g., start/stop times) about the shift specifically by hospital location. The hospital location point to the HOSPITAL LOCATION (#42) file. In processing, the hospital
    location is determined by the ward on which the patient is shown to reside.
  • GROUP:  PSJ
4 PACKAGE 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$S(X["""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:0) X I $D(X) N DIC S DIC(0)="OX",DIC=9.4,D="C" D IX^DIC K:(+Y'>0) X
  • LAST EDITED:  JAN 07, 1998
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
  • DESCRIPTION:  This is the package prefix (as found in the Package file (9.4)) for the package that will be the primary user of this shift. This is used primarily as a screen to allow various packages to enter and edit their own set
    of shifts. This is NOT to be set through the VA FileMan, but only through the designated utilities.
  • EXECUTABLE HELP:  D EN^DDIOL("ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SHIFT.","","!")
  • GROUP:  PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  51.15^AC^MUMPS
    1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AC",X,$P(^(0),"^"),DA)=""
    2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AC",X,$P(^(0),"^"),DA)
    3)= USED BY SCHEDULE PROCESSOR
    Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AC",PACKAGE,NAME,IEN)=""
  • CROSS-REFERENCE:  51.15^AP^MUMPS
    1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)=""
    2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)
    3)= USED BY SCHEDULE PROCESSOR
    Used by the Schedule Processor to do package specific look-ups. S ^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2114
  • Pharmacy Data Management
    		•
    ICR #2132
  • Pharmacy Data Management
    		•  NAME (.01).
    Access: Direct Global R/W & w/Fileman

    ABBREVIATION (1).
    Access: Direct Global R/W & w/Fileman

    STANDARD START/STOP TIMES (2).
    Access: Direct Global R/W & w/Fileman

    PACKAGE (4).
    Access: Direct Global R/W & w/Fileman

    HOSPITAL LOCATION (.01).
    Access: Direct Global R/W & w/Fileman

    START/STOP TIMES (1).
    Access: Direct Global R/W & w/Fileman

    External References

    Name Field # of Occurrence
    EN^DDIOL 4(HELP )
    IX^DIC 4+1
    ENVSST^PSJSV 2+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(51.15 - [#51.15] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
    , 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 2S), 1(XREF 2K), 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D 4+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K)
    , 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K)
    DIC 4+1~*
    DIC(0 4+1*
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1!, 1(XREF 1S), 1(XREF 1K)
    , 1(XREF 2S), 1(XREF 2K), 4+1!, 4(XREF 1S), 4(XREF 1K), 4(XREF 2S), 4(XREF 2K)
    >> Y 4+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All