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

Package: Inpatient Medications

Global: ^PS(57.5


Information

FileMan FileNo FileMan Filename Package
57.5 WARD GROUP Inpatient Medications

Description

Directly Accessed By Routines, Total: 40

Package Total Routines
Inpatient Medications 39 PSGAMS    PSGAP0    PSGCAP0    PSGDS0    PSGEUD    PSGEUDD    PSGFILD3    PSGL
PSGLPI    PSGMAR0    PSGMMAR0    PSGMMAR1    PSGPEN    PSGPL    PSGPL1    PSGPLD
PSGPLDP    PSGPLR    PSGPLRP    PSGPLUP    PSGPLUP0    PSGPR    PSGSICHK    PSGTAP
PSGTCTD    PSGTCTD0    PSGVBW    PSGVBW1    PSGVBWU    PSIVORC    PSIVUDL    PSJ010
PSJDCHK    PSJEXP    PSJMEDS    PSJPR    PSJPRE43    ^PS(57.5    WARD    
Pharmacy Data Management 1 PSS50ATC    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Inpatient Medications 18 PSGCAP    PSGFILED    PSGL    PSGMAR    PSGMMAR    PSGPL    PSGPLD    PSGPLDP
PSGPLRP    PSGPLUP    PSGTAP    PSGTCTD    PSGVBW    PSIVORC    PSJEXP    PSJMDIR1
PSJPDIR    PSJPRE43    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Inpatient Medications 1 PICK LIST(#53.5)[.02]    
Pharmacy Data Management 1 DRUG(#50)[#50.0212(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 DEVICE(#3.5)[32]    
Registration 1 WARD LOCATION(#42)[#57.51(.01)]    

Fields, Total: 15

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!(X=+X) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  NOV 15, 1990
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is a generic name for a grouping of wards.
  • DELETE TEST:  .01,0)= I $D(^PS(53.5,"A",DA)) D WRDGP^PSJDDUT
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  57.5^B
    1)= S ^PS(57.5,"B",$E(X,1,30),DA)=""
    2)= K ^PS(57.5,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  57.5^ATNC^MUMPS
    1)= I '$D(PSGINITF) S ^PS(57.5,"ATNC")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
    2)= Q
    3)= Needed by the Inpatient Medications init process.
    This is used by the Inpatient Medications init process.  If the post-init process does not find this cross reference, it converts this file for use with the new pick list.  (Routine used is PSGPOST.) S
    ^PS(57.5,"ATNC")=VERSION NUMBER LAST INITS RUN
1 WARD 1;0 POINTER Multiple #57.51 57.51

  • DESCRIPTION:  
    This is the wards that make up this ward group.
  • TECHNICAL DESCR:  
    This is the wards that make up this ward group.  Wards are obtained from the WARD LOCATION file (#42).
  • GROUP:  PSJU
2 PICK LIST DATA 2;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  NOV 23, 1990
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  This is sets of data pertaining to pick lists run for this ward group.
    The corresponding fields are:
    PIECES       DATA TYPE
    ----------   ---------------------------------------------
    1,6,11,16 - PICK LIST INTERNAL NUMBER (DA)
    2,7,12,17 - DATE PICK LIST WAS RUN
    3,8,13,18 - COVERAGE START DATE/TIME
    4,9,14,19 - COVERAGE STOP DATE/TIME
    5,10,15,20 - INTERNAL NUMBER OF USER WHO RAN THE PICK LIST
    Data from the last four (4) pick lists run are kept.  When a new pick list is run, its data comes in from the left (first 5 pieces), and the oldest pick list's data (last 5 pieces) drop off the right.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
    UNEDITABLE
3 TYPE 0;2 SET
************************REQUIRED FIELD************************
  • 'M' FOR MAS;
  • 'P' FOR PHARMACY;

  • LAST EDITED:  MAY 06, 1987
  • DESCRIPTION:  Differentiates between MAS ward groups and PHARMACY ward groups. Only PHARMACY ward groups are selectable in the PICK LIST options and no two PHARMACY ward groups may contain the same ward (for dose counting and
    tracking purposes).  MAS ward groups may be set up as desired, and are selectable (along with PHARMACY ward groups) in all other print options.
  • TECHNICAL DESCR:  This should never be made editable. It is only asked when the user first creates the ward group. MAS ward groups can be set up any way the users desire, but no two PHARMACY ward groups may contain the same ward.
    Making this editable could defeat that scheme, which would cause the cost reports to be useless.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
    UNEDITABLE
  • CROSS-REFERENCE:  57.5^AP^MUMPS
    1)= I $E(X)="P",$D(^PS(57.5,DA,0)) S ^PS(57.5,"AP",$P(^(0),"^"),DA)=""
    2)= I $D(^PS(57.5,DA,0)) K ^PS(57.5,"AP",$P(^(0),"^"),DA)
    3)= USED FOR LOOK-UP
    Used to facilitate the look-up of only those ward groups marked as PHARMACY types.
4 LENGTH OF PICK LIST (in hours) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 09, 1987
  • HELP-PROMPT:  Enter the number of hours a pick list for this ward group usually lasts.
  • DESCRIPTION:  
    If an entry is found here when a pick list is run for this ward group, the Unit Dose package will add the number of hours found to the start date to produce a DEFAULT stop date.
  • GROUP:  PSJU
5.01 PICK LIST - ROOM/BED SORT 5;1 SET
  • '0' FOR ROOM-BED;
  • '1' FOR BED-ROOM;

  • LAST EDITED:  FEB 04, 1987
  • HELP-PROMPT:  Enter how you want the pick list to sort the room-bed.
  • DESCRIPTION:  The Pick List normally sorts patients' orders by ROOM-BED. To have the Pick List sort orders by BED-ROOM, enter a '1' here. Any change in this field will NOT affect Pick Lists already run. PLEASE NOTE that if the pick
    list is flagged to NOT sort by ROOM-BED, this flag will be ignored.
  • EXECUTABLE HELP:  D EN^DDIOL("Enter a '1' to have the pick lists sort orders by BED-ROOM.","","!")
  • GROUP:  PSJU
5.02 PICK LIST - OMIT WARD SORT 5;2 SET
  • '0' FOR NO (SORT BY WARD);
  • '1' FOR YES (DO NOT SORT BY WARD);

  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Answer 'YES' (or '1') to have the pick list NOT sort by ward.
  • DESCRIPTION:  The Pick List normally sorts orders by TEAM, WARD, ROOM-BED... To have the Pick List omit the WARD sort, answer 'YES' here, and the Pick List will sort by TEAM, ROOM-BED (and NOT by WARD). Any change here will NOT
    affect any Pick Lists that have already been run.
  • GROUP:  PSJU
5.03 PICK LIST - OMIT ROOM-BED SORT 5;3 SET
  • '1' FOR YES (DO NOT SORT BY ROOM-BED);
  • '0' FOR NO (SORT BY ROOM-BED);

  • LAST EDITED:  APR 10, 1990
  • HELP-PROMPT:  Answer 'YES' to have the pick list NOT sort by room-bed.
  • DESCRIPTION:  The PICK LIST normally sorts orders by ...TEAM, WARD, ROOM-BED, PATIENT NAME... To have the pick list NOT sort by ROOM-BED at all, answer 'YES' here. Any change here will NOT affect pick lists that have already been
    run.
  • GROUP:  PSJU
5.04 PICK LIST - FORM FEED/PATIENT 5;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 21, 1987
  • HELP-PROMPT:  Answer 'YES' to have the pick lists printed start a new page for each patient.
  • DESCRIPTION:  
    This is a flag that tells the package to start a new page for each patient found when printing the pick list.
  • GROUP:  PSJU
5.05 PICK LIST - FORM FEED/WARD 5;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 26, 1988
  • HELP-PROMPT:  Answer 'YES' to have the pick list start a new page for each ward.
  • DESCRIPTION:  
    This is a flag that tells the pick list to start a new page for each ward found when printing.  This flag is ignored if the "NEW PAGE PER PATIENT" flag is turned on.
  • GROUP:  PSJU
5.06 PICK LIST - LINES ON FORM FEED 5;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 26, 1988
  • HELP-PROMPT:  Answer 'YES' to have the "FILLED BY" lines print after each ward or patient on the pick list.
  • DESCRIPTION:  This is a flag that tells the pick list to print the "FILLED BY" and the "CHECKED BY" lines after each ward or patient. This is used only if either of the "PICK LIST FORM FEED/PATIENT" or "PICK LIST FORM FEED/WARD" site
    parameters is turned on.
  • GROUP:  PSJU
5.07 PRINT NON-ACTIVE ORDERS FIRST 5;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 28, 1992
  • HELP-PROMPT:  Answer 'YES' to have expired and dc'd orders 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'd 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.
  • GROUP:  PSJU
30 *BAXTER ATC DEVICE 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X I $D(X) D ENDLP^PSJDDUT2
  • LAST EDITED:  APR 13, 1998
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the device corresponding to the Baxter ATC dispensing machine for which all pick lists run for this ward group will be sent.
  • GROUP:  PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
31 USE OLD ATC INTERFACE 3;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 06, 1991
  • HELP-PROMPT:  Enter 'YES' to have the ATC interface use the old method.
  • DESCRIPTION:  Beginning in version 3.2 of the Inpatient Medications package, an attempt has been made to increase the speed of the ATC/Unit Dose interface. This new interface may not work for all sites. If your site is one of those,
    answer 'YES' to have the interface use the old method.
  • GROUP:  PSJU
32 ATC DEVICE POINTER 3;3 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  JUN 01, 2000
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the device corresponding to the ATC dispensing machine for which all pick lists run for this ward group will be sent.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2112
  • PHARMACY DATA MANAGEMENT
  • ICR #2129
  • PHARMACY DATA MANAGEMENT
  • NAME (.01).
    Access: Both R/W w/Fileman

    TYPE (3).
    Access: Both R/W w/Fileman

    LENGTH OF PICK LIST (in hours) (4).
    Access: Both R/W w/Fileman

    WARD (.01).
    Access: Both R/W w/Fileman

    PICK LIST DATA (2).
    Access: Both R/W w/Fileman

    BAXTER ATC DEVICE (30).
    Access: Both R/W w/Fileman

    USE OLD ATC INTERFACE (31).
    Access: Both R/W w/Fileman

    PICK LIST - ROOM/BED SORT (5.01).
    Access: Both R/W w/Fileman

    PICK LIST - OMIT WARD SORT (5.02).
    Access: Both R/W w/Fileman

    PICK LIST - OMIT ROOM-BED SORT (5.03).
    Access: Both R/W w/Fileman

    External References

    Name Field # of Occurrence
    EN^DDIOL ID3+1, 5.01(HELP )
    FIELD^DID ID3+1
    Y^DIQ ID32+1
    WRDGP^PSJDDUT .01DEL.01+1
    ENDLP^PSJDDUT2 30+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] ID32+1
    ^DD(3.5 ID32+1
    ^PS(53.5 - [#53.5] .01DEL.01+1
    ^PS(57.5 - [#57.5] ID3+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), 3(XREF 1S), 3(XREF 1K)
    ^PS(59.7 - [#59.7] .01(XREF 2S)

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %I ID32+1*!
    >> C ID32+1*
    >> DA .01DEL.01+1, .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K)
    >> DIC ID32+1
    >> PSGINITF .01(XREF 2S)
    PSJIDD ID3+1!
    PSJIDD("POINTER" ID3+1
    U ID3+1, ID32+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 3(XREF 1S), 4+1!, 30+1!
    >> Y ID3+1, ID32+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All