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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PS(53.5

Package: Inpatient Medications

Global: ^PS(53.5


Information

FileMan FileNo FileMan Filename Package
53.5 PICK LIST Inpatient Medications

Description

Directly Accessed By Routines, Total: 30

Package Total Routines
Inpatient Medications 30 DISPENSE DRUG    ORDER    PATIENT    PSGAMS    PSGBRJ    PSGPEN    PSGPL    PSGPL1
PSGPLD    PSGPLDP    PSGPLDP0    PSGPLF    PSGPLG    PSGPLPRG    PSGPLR    PSGPLR0
PSGPLRP    PSGPLUP    PSGPLUP0    PSGPLUTL    PSGPLXR    PSGPO    PSGTAP    PSGTAP0
PSJPATMR    ^PS(53.5    ^PS(57.5    PSGTAP1    PSJ0026    PSJIPST2    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Inpatient Medications 7 PSGBRJ    PSGPL    PSGPL1    PSGPLDP0    PSGPLPRG    PSGPLUP0    PSJIPST2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Inpatient Medications 1 UNIT DOSE/ATC MEDS(#53.55)[.01]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Inpatient Medications 2 PRIMARY DRUG(#50.3)[#53.52(.03)]    WARD GROUP(#57.5)[.02]    
Pharmacy Data Management 1 PHARMACY ORDERABLE ITEM(#50.7)[#53.52(.06)]    
Registration 1 VA PATIENT(#2)[#53.51(.01)]    

Fields, Total: 14

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 30, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    PICK LIST NUMBER This is the IEN of the pick list, and is printed on the pick list for identification purposes.
  • TECHNICAL DESCR:  
    NUMERIC PICK LIST IDENTIFIER This is the IEN of the pick list, and may be used to identify the it for reprinting, entering units dispensed, etc.
  • GROUP:  PSJ
  • CROSS-REFERENCE:  53.5^B
    1)= S ^PS(53.5,"B",$E(X,1,30),DA)=""
    2)= K ^PS(53.5,"B",$E(X,1,30),DA)
    Regular 'B' index of file by Pick List #.
  • CROSS-REFERENCE:  53.5^AC1^MUMPS
    1)= D EN535^PSGPLXR(DA,"S","AC")
    2)= D EN535^PSGPLXR(DA,"K","AC")
    Cross-reference by:  Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and sending to the ATC
    dispensing machine by patient.
  • CROSS-REFERENCE:  53.5^AB1^MUMPS
    1)= D ENABO^PSGPLXR(DA,"AB","S")
    2)= D ENABO^PSGPLXR(DA,"AB","K")
    Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #.  This cross-reference exists until a user files the Pick List away.
  • CROSS-REFERENCE:  53.5^AO1^MUMPS
    1)= D ENABO^PSGPLXR(DA,"AO","S")
    2)= D ENABO^PSGPLXR(DA,"AO","K")
    Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #.  This cross-reference is created when the Pick List is completely filed away, and deleted when the Pick List is purged.
  • CROSS-REFERENCE:  53.5^A2^MUMPS
    1)= D ENA^PSGPLXR(DA,"S")
    2)= D ENA^PSGPLXR(DA,"K")
    Cross-reference on Ward Group, Pick List #.  This cross-reference is created when the user originally runs the Pick List, and exists until the Pick List is purged or deleted.
.02 WARD GROUP 0;2 POINTER TO WARD GROUP FILE (#57.5)
************************REQUIRED FIELD************************
WARD GROUP(#57.5)

  • LAST EDITED:  JUL 08, 1993
  • DESCRIPTION:  
    This is the pharmacy ward group for which the pick list was run.
  • CROSS-REFERENCE:  53.5^A1^MUMPS
    1)= D ENA^PSGPLXR(DA,"S")
    2)= D ENA^PSGPLXR(DA,"K")
    Cross-reference on Ward Group, Pick List #.  This cross-reference is created when the user originally runs the Pick List, and exists until the Pick List is purged or deleted.
  • CROSS-REFERENCE:  53.5^AB2^MUMPS
    1)= D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,"AB","S")
    2)= D ENABO^PSGPLXR(DA,"AB","K")
    Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #.  This cross-reference exists until a user files the Pick List away.
  • CROSS-REFERENCE:  53.5^AO2^MUMPS
    1)= D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,"AO","S")
    2)= D ENABO^PSGPLXR(DA,"AO","K")
    Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #.  This cross-reference is created when the Pick List is completely filed away, and deleted when the Pick List is purged.
.03 START DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 08, 1993
  • DESCRIPTION:  
    This is the start date/time of the period of coverage for the pick list.
  • TECHNICAL DESCR:  
    This is the start date/time of the period of coverage for the pick list.  When a pick list is run, the start date is calculated based on the stop dat date of the last pick list run for the selected ward group.
  • GROUP:  PSJ
  • CROSS-REFERENCE:  53.5^AB3^MUMPS
    1)= D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,"AB","S")
    2)= D ENABO^PSGPLXR(DA,"AB","K")
    Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #.  This cross-reference exists until a user files the Pick List away.
  • CROSS-REFERENCE:  53.5^AO3^MUMPS
    1)= D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,"AO","S")
    2)= D ENABO^PSGPLXR(DA,"AO","K")
    Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #.  This cross-reference is created when the Pick List is completely filed away, and deleted when the Pick List is purged.
.04 STOP DATE/TIME 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 16, 1993
  • DESCRIPTION:  
    This is the stop date/time for the period of coverage for which the pick list was run.
  • GROUP:  PSJ
.05 FILED AWAY FLAG 0;5 SET
  • '0' FOR NOT YET FLAGGED TO BE FILED AWAY;
  • '1' FOR FLAGGED TO BE FILED AWAY;
  • '2' FOR FILED AWAY;

  • LAST EDITED:  JAN 22, 1998
  • DESCRIPTION:  
    This is an internal flag set when the pick list is filed away.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  53.5^AF^MUMPS
    1)= S:X=1 ^PS(53.5,"AF",DA)=""
    2)= K ^PS(53.5,"AF",DA)
    This cross-reference on Pick List # is created when a user elects to file the Pick List away, and is deleted when the entire Pick List is completely filed away.
  • CROSS-REFERENCE:  53.5^AB1^MUMPS
    1)= N PSJ S PSJ=^PS(53.5,DA,0) K:X>0 ^PS(53.5,"AB",$P(PSJ,U,2),$P(PSJ,U,3),DA) S:'X ^PS(53.5,"AB",+$P(PSJ,U,2),+$P(PSJ,U,3),DA)=""
    2)= N PSJ S PSJ=^PS(53.5,DA,0) S:'X ^PS(53.5,"AB",+$P(PSJ,U,2),+$P(PSJ,U,3),DA)=""
    Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #.  This cross-reference exists until a user files the Pick List away.
  • CROSS-REFERENCE:  53.5^C^MUMPS
    1)= Q:X<2  N X S X=^PS(53.5,DA,0),^PS(53.5,"AO",$P(X,U,2),$P(X,U,3),DA)=""
    2)= Q
    Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #.  This cross-reference is created when the Pick List is completely filed away, and deleted when the Pick List is purged.
.06 ROOM-BED FLAG 0;6 SET
  • '0' FOR SORT BY ROOM-BED;
  • '1' FOR SORT BY BED-ROOM;

  • LAST EDITED:  JUN 16, 1993
  • DESCRIPTION:  
    This is an internal flag set when the pick list is to sort by bed-room instead of room-bed.
.07 WARD SORT FLAG 0;7 SET
  • '0' FOR SORTED BY ROOM-BED;
  • '1' FOR NOT SORTED BY ROOM-BED;

  • LAST EDITED:  JUN 16, 1993
  • DESCRIPTION:  
    This is an internal flag set when the pick list is NOT to sort by the patient's ward.
.08 ROOM-BED SORT FLAG 0;8 SET
  • '0' FOR SORT BY ROOM-BED;
  • '1' FOR NOT SORTED BY ROOM-BED;

  • LAST EDITED:  JUN 22, 1993
  • DESCRIPTION:  
    This is an internal flag set when the pick list is NOT to sort by the patient's room-bed.
.09 RUN COMPLETION DATE/TIME 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 23, 1993
  • DESCRIPTION:  
    This is a flag that is set when the original run of the pick list has completed. It is a date and time to allow the package to know when the run completed.
.11 UPDATE COMPLETION DATE/TIME 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 23, 1993
  • DESCRIPTION:  This is a flag that is set when an update for the pick list has started and reset when the update is completed. This is set to 1 when the update is started and to a date and time when the update has completed to allow the
    package to know when the update finished.
.12 RUN START DATE/TIME 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 23, 1993
  • DESCRIPTION:  
    This is a flag that is set when the original run of the pick list is s to allow the package to know the date and time the run was started.
.13 DATE/TIME LAST SENT TO THE ATC 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 23, 1993
  • DESCRIPTION:  
    This is the date/time the pick list was last sent to ATC. If the site is running KERNEL version 6.5 or greater, this is automatically entered each time the pick list is sent.
.14 PRINT NON-ACTIVE ORDERS FIRST 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 23, 1993
  • HELP-PROMPT:  Answer 'YES' to have expired and dc'ed order print before active orders for each patient on the pick list.
  • DESCRIPTION:  For each patient, a pick list will print active orders and any orders that have expired or have been discontinued within 24 hours of the start date of the pick list. Normally, for each patient, the patient's active orders
    are printed first. This will allow pick lists run for this ward group to print each patient's expired and dc'ed orders first. This does not affect pick lists that have already been run.
  • TECHNICAL DESCR:  This is used to determine the sort order of active vs. non-active orders for each patient within the pick list. If this is 'NO' (or not set), each patient's active orders will print first, as they always have. If this is
    set to 'YES', each patient's non-active orders (if any exist) will print first.
1 PATIENT 1;0 POINTER Multiple #53.51 53.51

  • LAST EDITED:  DEC 16, 1993
  • DESCRIPTION:  
    This multiple contains the patient specific data for each patient on the pick list.
  • GROUP:  psj

External References

Name Field # of Occurrence
^%DT .03+1, .04+1, .09+1, .11+1, .12+1, .13+1
EN535^PSGPLXR .01(XREF 2S), .01(XREF 2K)
ENA^PSGPLXR .01(XREF 5S), .01(XREF 5K), .02(XREF 1S), .02(XREF 1K)
ENABO^PSGPLXR .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K)
, .03(XREF 2S), .03(XREF 2K)

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 .02(XREF 2S), .02(XREF 3S), .03(XREF 1S), .03(XREF 2S)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .04+1*, .09+1*, .11+1*, .12+1*, .13+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K)
, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
, .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S)
PSJ .05(XREF 2S), .05(XREF 2K)
U .02(XREF 2S), .02(XREF 3S), .03(XREF 1S), .03(XREF 2S), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1*!, .04+1*!, .05(XREF 1S), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .09+1*!
, .11+1*!, .12+1*!, .13+1*!
>> Y .03+1, .04+1, .09+1, .11+1, .12+1, .13+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All