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

Package: Auto Replenishment Ward Stock

Global: ^PS(59.4


Information

FileMan FileNo FileMan Filename Package
59.4 INPATIENT SITE Auto Replenishment Ward Stock

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
Auto Replenishment Ward Stock 8 PSGW SHOW AREA OF USE    PSGWAR1    PSGWCAD2    PSGWRAC    PSGWSET    PSGWUAS    ^PS(59.4    PSGWRA
Drug Accountability 8 PSADA    PSADAI    PSAENT    PSALOC    PSALOCO    PSAOUT    PSARWS    PSAUTL1
Controlled Substances 3 PSDEN    PSDSET    PSDTRVR    
Inpatient Medications 2 PSGRPNT    PSJDDUT2    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Drug Accountability 3 PSADA    PSAENT    PSALOCO    
Controlled Substances 2 PSDNMU    PSDSITE    
Auto Replenishment Ward Stock 1 PSGWSET    
Inpatient Medications 1 PSGSSP    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Auto Replenishment Ward Stock 2 PHARMACY AOU STOCK(#58.1)[4]    AR/WS STATS FILE(#58.5)[#58.501(.01)]    
Drug Accountability 1 DRUG ACCOUNTABILITY STATS(#58.8)[2]    
Pharmacy Data Management 1 PHARMACY SYSTEM(#59.7)[20.4]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 2 DEVICE(#3.5)[32]    INSTITUTION(#4)[1]    

Fields, Total: 35

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!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  SEP 20, 1989
  • HELP-PROMPT:  Name must be 3-30 characters, not starting with punctuation.
  • DESCRIPTION:  This contains the name of the Inpatient Site. A VAMC may have more than one inpatient site name, i.e. for multi-divisional sites or nursing homes. A second site name would be used, for example, whenever different
    parameters are required.
  • DELETE TEST:  1,0)= D ^PSGRPNT
  • GROUP:  PS
  • CROSS-REFERENCE:  59.4^B
    1)= S ^PS(59.4,"B",$E(X,1,30),DA)=""
    2)= K ^PS(59.4,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  59.4^AUPLK^MUMPS
    1)= I '$D(PSGINITF) S ^PS(59.4,"AUPLK")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
    2)= Q
    Sets Inpatient Pharmacy System data cross-ref.
  • CROSS-REFERENCE:  59.4^APLFC^MUMPS
    1)= S ^PS(59.4,"APLFC")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
    2)= Q
    Sets Inpatient Pharmacy System data cross-ref.
1 *RELATED INSTITUTION 0;2 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • DESCRIPTION:  
    (Not currently used.)
  • GROUP:  PSJU
2 *DAYS UNTIL STOP DATE/TIME 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1985
  • HELP-PROMPT:  Enter the number (1-100) of days that an order will last.
  • DESCRIPTION:  This is the number of days a standard order should last. The first order entered for a patient uses this number to calculate a default value for the order's STOP DATE/TIME. This number is also used if SAME STOP DATE
    has no entry, or an entry of "NO".
  • GROUP:  PSJU
3 *SAME STOP DATE ON ALL ORDERS 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 18, 1985
  • HELP-PROMPT:  Answer 'YES' (or '1') if all of a patient's orders are to stop on the same date/time.
  • DESCRIPTION:  
    This is a flag, if found to be YES, uses the STOP DATE/TIME from the patient's first order as a default value for the STOP DATE/TIME of all of the patient's following orders.
  • GROUP:  PSJU
4 MERGE INV. SHEET AND PICK LIST 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 18, 1985
  • DESCRIPTION:  If 1 is entered, the Automatic Replenishment inventory sheet and pick list are merged - a separate pick list does not have to be printed. The inventory sheet contains the quantity dispensed column. The on hand values do
    not have to be input. The user only enters the actual quantity dispensed. If 0 is entered, the inventory sheet and pick list are not merged. The user prints the inventory sheet, enters on hand amounts, prints the pick
    list, and dispenses the items.
  • GROUP:  PSGW
4.5 AR/WS AMIS FLAG 0;25 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 04, 1987
  • HELP-PROMPT:  Set this parameter ONLY after completing the "Prepare AMIS Data" options!
  • DESCRIPTION:  ***WARNING*** The setting of this parameter DIRECTLY AFFECTS THE ACCURACY of the AMIS report! This parameter should be set to "NO" until you have completed ALL of the "Prepare AMIS Data" options on
    the "Supervisor's Menu". Carefully examine the reports produced by the "Data for AMIS Stats - Print" option and the "Show AOU Status for AMIS" option. When you are sure that the data is accurate, then AND ONLY THEN, set
    this site parameter to "YES". Once the parameter is set to "YES", you should under NO CIRCUMSTANCES flip the setting back and forth. While this parameter is set to "NO", NO DATA is collected in the AR/WS Stats File -
    58.5 for AMIS statistics!
  • GROUP:  PSGW
5 PRINT RETURN COLUMNS? 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 19, 1985
  • DESCRIPTION:  
    If 1, the return quantity column and the return reason column will appear on the inventory sheet in the Automatic Replenishment package. If 0, the return columns do not appear on the inventory sheet.
  • GROUP:  PSGW
5.5 IS SITE SELECTABLE FOR AR/WS? 0;26 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 11, 1987
  • DESCRIPTION:  Should this inpatient site name be shown for use by AR/WS users? When users sign into the module to carry out AR/WS functions, should this site name be displayed? If you answer "yes", the software will display or allow
    you to pick this site name when you enter the module. If you answer "no", the software will "screen out" the site name so that AR/WS users will not see or be able to select the site name while in the AR/WS module.
  • GROUP:  PSGW
5.6 PROMPT FOR BAR CODES? 0;27 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 1990
  • HELP-PROMPT:  * NOTE * This field is not in use at this time. In a future version, if this field is answered 'Yes', users will be offered the opportunity to use bar code readers for On-Demands.
  • DESCRIPTION:  
    * NOTE * This field is not in use at this time, it is for a future version. This field will control whether or not users will be given the opportunity to use bar code readers to enter On-Demands.
  • GROUP:  PSGW
7 *TIME OF DAY THAT ORDERS STOP 0;7 NUMBER

  • INPUT TRANSFORM:  K:X'?4N!(X>2400)!(X<1)!(X#100>59) X
  • LAST EDITED:  NOV 30, 1986
  • HELP-PROMPT:  Enter the time of day that orders stop at this site (military time).
  • DESCRIPTION:  
    This is a time of day that, if found, will be used in calculating the default value for the STOP DATE/TIME of patients' orders.
  • EXECUTABLE HELP:  W !!,"ENTER A NUMBER BETWEEN 0001 AND 2400. THE ZEROS ARE NEEDED."
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 *START TIME FOR 24 HOUR MAR 0;8 NUMBER

  • INPUT TRANSFORM:  K:X>2400!(X<1)!(X'?4N)!(X#100>59) X
  • LAST EDITED:  SEP 06, 1985
  • HELP-PROMPT:  Enter the time if day (0001-2400) that the 24 MAR is to start.
  • DESCRIPTION:  This is the start time for the 24 hour MAR. It is used whenever a user enters a start date without a time when running the 24 hour MAR. This time should be in military time format, with leading and trailing zeros.
    (Entering '0001' would be seen as 1 minute after midnight.)
  • EXECUTABLE HELP:  W !,"PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS."
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  59.4^AC^MUMPS
    1)= S Y=X-1 S:'Y Y=2400 S Y=$E("000",1,4-$L(Y))_Y S:$E(Y,3)=9 Y=$E(Y,1,2)_"59" S $P(^PS(59.4,DA,0),"^",9)=Y
    2)= S $P(^PS(59.4,DA,0),"^",9)=""
    Sets Start Time for 24 hr MAR cross-ref.
9 *STOP TIME FOR MAR 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>2400)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 06, 1985
  • HELP-PROMPT:  Type a whole number between 0001 and 2400.
  • DESCRIPTION:  
    This is the stop time for the 24 hour MAR. It is automatically calculated when the START TIME FOR MAR is entered.
  • EXECUTABLE HELP:  W !,"THIS FIELD IS NOT TO CHANGED!!"
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSJU
10 *LABELS 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 25, 1985
  • HELP-PROMPT:  Answer 'YES' (or '1') here to have labels printed at the various Unit Dose options.
  • DESCRIPTION:  This is the flag for all label activity. If this is a `1' (or `YES'), the other site parameters pertaining to labels are asked and labels (containing order data) are created. If you answer `0' or `NO', the other label
    site parameters are reset to NULL.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  ^^TRIGGER^59.4^11
    1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR
    2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR
    CREATE CONDITION)= IF LABELS NOT `ON'
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= DAYS UNTIL LABELS ARE PURGED
    Triggers data into field 11.
  • CROSS-REFERENCE:  ^^TRIGGER^59.4^12
    1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR
    2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR
    CREATE CONDITION)= IF LABELS NOT `ON'
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= FIRST LABEL
    Triggers data into field 12.
11 *DAYS NEW LABELS LAST 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1986
  • HELP-PROMPT:  Enter a whole number between 0 and 25.
  • DESCRIPTION:  The Unit Dose package will run a background job once a day that will delete all unprinted new labels older than the number of days specified here. If no days are specified here, any unprinted new labels for this site
    will be purged at the end of the day.
    **PLEASE NOTE - A label can still be printed for an order even though its new label record has been purged.
  • EXECUTABLE HELP:  W !,"ANY NEW LABELS OLDER THAN THE NUMBER OF DAYS SPECIFIED HERE WILL AUTOMATICALLY BE PURGED."
  • GROUP:  PSJU
  • NOTES:  TRIGGERED by the *LABELS field of the INPATIENT SITE File
12 *FIRST LABEL FOR NURSING 0;12 SET
  • '0' FOR NOT UNTIL NURSE VERIFICATION;
  • '1' FOR BOTH INSTANCES;
  • '2' FOR AT ORDER ENTRY;

  • LAST EDITED:  APR 07, 1986
  • DESCRIPTION:  This is a flag that will `tell' the UNIT DOSE package when to print the first label for an order input by nursing or ward staff personnel. If a `2' is found, a label will print upon the entry or edit of an order and not
    print when a nurse verifies the order. If a `0' (or no entry) is found, no label will be printed for an order until a nurse verifies the order. If a `1' is found, a label will print upon any action taken on an order.
    This flag is independent from the FIRST LABEL FOR PHARMACY.
  • GROUP:  PSJU
  • NOTES:  TRIGGERED by the *LABELS field of the INPATIENT SITE File
13 *CANCEL ON WARD TRANSFER 0;13 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 20, 1986
  • DESCRIPTION:  
    This is a flag that is looked at on patient look-up. If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another ward.
  • GROUP:  PSJU
14 *CANCEL ON SERVICE TRANSFER 0;14 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 20, 1986
  • DESCRIPTION:  
    This is a flag that is looked at on patient look-up. If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another service.
  • GROUP:  PSJU
15 *AUTO NURSE VERIFY 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 05, 1986
  • DESCRIPTION:  If a '1' (for YES) is found here when a nurse enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the nurse will then have an opportunity to delete or edit the order
    immediately after it is entered.
  • GROUP:  PSJU
16 *AUTO PHARMACIST VERIFY 0;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 05, 1986
  • DESCRIPTION:  If a '1' (for YES) is found here when a pharmacist enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the pharmacist will then have an opportunity to delete or edit the order
    immediately after it is entered.
  • GROUP:  PSJU
17 *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:  W !,"Enter a '1' to have the pick lists sort orders by BED-ROOM."
  • GROUP:  PSJU
18 *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
19 *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
20 *FIRST LABEL FOR PHARMACY 0;16 SET
  • '0' FOR NOT UNTIL PHARMACY VERIFICATION;
  • '2' FOR AT ORDER ENTRY ONLY;
  • '1' FOR BOTH INSTANCES;

  • LAST EDITED:  APR 21, 1987
  • DESCRIPTION:  This is a flag that `tells' the Unit Dose package when to print the first label of orders that are input, or worked on, by pharmacists. If a 0 (or no entry) is found here, no label will be printed until the order is
    verified by a pharmacist. If a 2 is found, a label will print only upon the entry of the order (by a pharmacist). If a 1 is found, the label will print at order entry and verification. This flag is independent from the
    FIRST LABEL FOR NURSING.
  • GROUP:  PSJU
21 *ORDER ENTRY PROCESS 0;21 SET
  • '0' FOR REGULAR;
  • '1' FOR ABBREVIATED;
  • '2' FOR WARD;

  • LAST EDITED:  MAR 11, 1991
  • HELP-PROMPT:  Enter the type of Unit Dose order entry to be used by this site.
  • DESCRIPTION:  This is the type of order entry process to be used by each user who signs onto the Inpatient Medications package under this site. The REGULAR order entry is the full set of prompts for the entry of an order, after which
    the user is shown a full view of the order and allowed to take immediate action on the order. The ABBREVIATED order entry gives the user fewer prompts for the entry of an order, after which the user is shown a full view of
    the order and is allowed to take immediate action on the order. The WARD order entry gives the user the same prompts as the ABBREVIATED order entry, but then gives a brief view of the entered order and does not allow
    immediate action to be taken on the order. No entry here is the same as selecting REGULAR order entry.
  • GROUP:  PSJU
22 *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
23 *DEFAULT LABEL PRINTER 0;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET
  • LAST EDITED:  AUG 14, 1987
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    If a device is entered here, all users who sign on under the corresponding site will be shown that device as the default at the LABEL PRINTER prompt.
  • EXECUTABLE HELP:  K %IS S IOP="?" D ^%ZIS K IOP
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
24 *'SELF MED' IN ORDER ENTRY 0;24 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 21, 1987
  • HELP-PROMPT:  Answer 'YES' to have the prompts for patient self-medication included in the order entry process.
  • DESCRIPTION:  If `YES' (or a 1) is entered here, the regular order entry process will prompt the user for SELF MED and HOSPITAL SUPPLIED SELF MED for each order entered. The abbreviated processes and ward order entry and order sets
    are not affected in any way by this site parameter.
  • GROUP:  PSJU
25 *PRE-EXCHANGE ENVELOPES 0;27 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 25, 1988
  • HELP-PROMPT:  Answer 'YES' to have the package print the Pre-Exchange information using the envelope format instead of the regular report format.
  • DESCRIPTION:  This is a flag that tells the package that the pharmacy is using special envelopes for their pre-exchange needs report, and will print the pre-exchange needs information accordingly. PLEASE NOTE that the package expects
    the envelopes to be at least 4 inches long and at least 8 1/2 inches wide.
  • GROUP:  PSJU
26 *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
27 *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
28 *ALLOWABLE CLERK/TECH ACTIONS 0;28 SET
  • '0' FOR 'MARK' ACTIVE ORDERS ONLY;
  • '1' FOR TAKE ACTION ON ACTIVE ORDERS;

  • LAST EDITED:  MAY 05, 1989
  • HELP-PROMPT:  Select the extent of actions a ward clerk (or Pharmacy technician) may take on active orders.
  • DESCRIPTION:  
    This is to allow ward clerks to actually take the actions necessary on Unit Dose Medication orders (all except verify), instead of just marking the order.
  • GROUP:  PSJU
29 *INPATIENT PROFILE ORDER SORT 0;29 SET
  • '0' FOR MEDICATION NAME;
  • '1' FOR START DATE OF ORDER;

  • LAST EDITED:  JUL 11, 1989
  • HELP-PROMPT:  Enter how the Inpatient profile is to sort and show orders.
  • DESCRIPTION:  This is the sort order in which the Inpatient Profile will show inpatient orders. Enter 'MEDICATION NAME' (or '0') to show the orders alphabetically by drug name. Enter 'START DATE OF ORDER' (or '1') to show the orders
    chronologically by start date, with the most recent dates showing first.
    PLEASE NOTE - The profile will always first show orders by status (active, non-verified, and then non-active), and within status, schedule type (continuous, one-time, and then PRN).
  • GROUP:  PSJ
30 *PRINT PROFILE IN ORDER ENTRY 0;30 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 09, 1990
  • HELP-PROMPT:  ANSWER 'YES' TO GIVE USERS THE OPPORTUNITY TO PRINT A PROFILE AFTER ENTERING ORDERS FOR A PATIENT.
  • DESCRIPTION:  
    This is a flag used to determine if the user should be prompted to print a patient's order profile after entering Inpatient orders for the patient.
  • GROUP:  PSJ
31 IS SITE SELECTABLE FOR CS? 0;31 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 23, 1992
  • HELP-PROMPT:  Enter 1 for "YES" or 0 for "NO"
  • DESCRIPTION:  Should this site name be shown for use by the Controlled Substances module of the Pharmacy software? If you answer "YES", the software will display or allow you to pick this site name for Controlled Substances. If you
    answer "NO", the software will screen out the site name so that CS users will not see or be able to select the site name while in the CS package.
  • TECHNICAL DESCR:  
    Flag for use in the Controlled Substances package.
  • GROUP:  PSD
32 DEFAULT WS REQUESTS PRINTER 0;32 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  OCT 18, 2017
  • HELP-PROMPT:  Enter printer from DEVICE file (#3.5)
  • DESCRIPTION:  
    If a printer is entered into this field it will be the default pharmacy printer used to automatically print Ward Stock Requests. If the field is blank the Ward Stock Request will not automatically print.

External References

Name Field # of Occurrence
^%ZIS 23(HELP )
^DICR 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^PSGRPNT .01DEL1+1
ENDLP^PSGSET 23+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( |dd58.19, |dd58.32
^DD(2 |dd58.72
^DD(58.19 |dd58.19
^DD(58.32 |dd58.32
^DD(59.4 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd59.4
^DPT - [#2] |dd58.72
^PS(58.4 - [#58.4] |dd58.4*!, |dd58.4001*!, |dd58.40011*!, |dd58.400111*!
^PS(58.41 - [#58.41] |dd58.41*!
^PS(58.42 - [#58.42] |dd58.42*!, |dd58.42001*!, |dd58.42201*!
^PS(58.6 - [#58.6] |dd58.6*!, |dd58.6*!
^PS(58.601 - [#58.601] |dd58.601*!, |dd58.6011*!, |dd58.60111*!, |dd58.60112*!, |dd58.601121*!, |dd58.601122*!, |dd58.601123*!, |dd58.6014*!, |dd58.60141*!, |dd58.6015*!
, |dd58.6016*!
^PS(58.63 - [#58.63] |dd58.63*!, |dd58.63*!, |dd58.635*!, |dd58.636*!, |dd58.637*!, |dd58.638*!, |dd58.639*!, |dd58.65*!
^PS(58.64 - [#58.64] |dd58.64*!
^PS(58.7 - [#58.7] |dd58.7*!, |dd58.74*!, |dd58.741*!, |dd58.7411*!, |dd58.7412*!, |dd58.7413*!, |dd58.742*!, |dd58.746*!, |dd58.747*!, |dd58.748*!
, |dd58.7481*!, |dd58.749*!
^PS(58.71 - [#58.71] |dd58.71*!
^PS(58.72 - [#58.72] |dd58.72*!
^PS(59.4 - [#59.4] .01(XREF 1S), .01(XREF 1K), .01(XREF 6S), .01(XREF 7S), 8(XREF 1S), 8(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
, |dd59.4*!, |sort
^PS(59.7 - [#59.7] .01(XREF 6S), .01(XREF 7S), |dd59.4
^PSDRUG - [#50] |dd58.6, |sort
^PSI(58.1 - [#58.1] |func, |sort
^PSI(58.16 - [#58.16] |dd58.16*!
^PSI(58.17 - [#58.17] |dd58.17*!
^PSI(58.19 - [#58.19] |dd58.19*!, |dd58.24*!, |sort
^PSI(58.2 - [#58.2] |dd58.19, |dd58.2*!, |dd58.21*!, |dd58.29*!, |inpt
^PSI(58.3 - [#58.3] |dd58.3*!, |dd58.31*!, |dd58.32*!, |func
^PSI(58.5 - [#58.5] |dd58.5*!, |dd58.501*!, |dd58.51*!, |dd58.52*!
^VA(200 - [#200] |dd58.19
^XUSEC("PSJ PADE ADV" |dd58.74

Naked Globals

Name Field # of Occurrence
^("0" |dd58.17, |dd58.19
^("SITE" |sort
^(0 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd58.40011, |dd58.400111, |dd58.42, |dd58.72
, |dd59.4*, |func, |sort
^(20 .01(XREF 6S), .01(XREF 7S), |dd59.4
^(4 |dd58.601

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % |dd58.19*, |dd58.32*
%DT |dd58.19*, |dd58.32*, |dd58.41*, |dd58.42*, |dd58.42102*, |dd58.5*, |dd58.6*, |dd58.60111*, |dd58.601123*, |dd58.639*
, |dd58.7*, |dd58.72*, |dd58.74*, |inpt!
%I |dd58.72*!
%IS 23(HELP ), |dd59.4!
%X |inpt!
%Y |inpt!
C |dd58.72*, |inpt!
>> D0 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd59.4*, |func, |inpt, |sort
>> D1 |dd58.32*, |func, |inpt, |sort
>> D2 |dd58.32*, |sort
>> DA .01(XREF 1S), .01(XREF 1K), 8(XREF 1S), 8(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.16, |dd58.17
, |dd58.19, |dd58.2, |dd58.21, |dd58.24, |dd58.29, |dd58.3, |dd58.31, |dd58.32, |dd58.4, |dd58.4001
, |dd58.40011, |dd58.400111, |dd58.41, |dd58.42, |dd58.42001, |dd58.42201, |dd58.5, |dd58.501, |dd58.51, |dd58.52
, |dd58.6, |dd58.601, |dd58.6011, |dd58.60111, |dd58.60112, |dd58.601121, |dd58.601122, |dd58.601123, |dd58.6014, |dd58.60141
, |dd58.6015, |dd58.6016, |dd58.63, |dd58.635, |dd58.636, |dd58.637, |dd58.638, |dd58.639, |dd58.64, |dd58.65
, |dd58.7, |dd58.71, |dd58.72, |dd58.74, |dd58.741, |dd58.7411, |dd58.7412, |dd58.7413, |dd58.742, |dd58.746
, |dd58.747, |dd58.748, |dd58.7481, |dd58.749, |dd59.4, |inpt
>> DA(1 |dd58.21, |dd58.24, |dd58.29, |dd58.31, |dd58.32, |dd58.4001, |dd58.40011, |dd58.400111, |dd58.42, |dd58.42001
, |dd58.42201, |dd58.501, |dd58.51, |dd58.52, |dd58.601, |dd58.6011, |dd58.60111, |dd58.60112, |dd58.601121, |dd58.601122
, |dd58.601123, |dd58.6014, |dd58.60141, |dd58.6015, |dd58.6016, |dd58.63, |dd58.635, |dd58.636, |dd58.637, |dd58.638
, |dd58.639, |dd58.65, |dd58.7, |dd58.74, |dd58.741, |dd58.7411, |dd58.7412, |dd58.7413, |dd58.742, |dd58.746
, |dd58.747, |dd58.748, |dd58.7481, |dd58.749
>> DA(2 |dd58.32, |dd58.40011, |dd58.400111, |dd58.51, |dd58.52, |dd58.601, |dd58.60111, |dd58.60112, |dd58.601121, |dd58.601122
, |dd58.601123, |dd58.60141, |dd58.741, |dd58.7411, |dd58.7412, |dd58.7413, |dd58.742, |dd58.746, |dd58.747, |dd58.748
, |dd58.7481, |dd58.749
>> DA(3 |dd58.400111, |dd58.601121, |dd58.601122, |dd58.601123, |dd58.7411, |dd58.7481
DIC |dd58.19, |dd58.29*!, |dd58.400111, |dd58.42, |dd58.501*!, |dd58.63*!, |dd58.635*!, |dd58.636*!, |dd58.637*!, |dd58.638*!
, |dd58.72, |dd58.7413*!, |dd58.746*!, |dd58.747*!, |dd58.7481*!, |dd58.749*!, |func*
DIC("S" |dd58.29*, |dd58.501*, |dd58.6*, |dd58.6014*, |dd58.63*, |dd58.635*, |dd58.636*, |dd58.637*, |dd58.638*, |dd58.7413*
, |dd58.746*, |dd58.747*, |dd58.7481*, |dd58.749*
DIC(0 |func*
>> DIE |dd58.29, |dd58.501, |dd58.63, |dd58.635, |dd58.636, |dd58.637, |dd58.638, |dd58.7413, |dd58.746, |dd58.747
, |dd58.7481, |dd58.749
>> DIG 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd59.4*, |inpt!
>> DIH 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd59.4*, |inpt!
>> DINUM |dd58.21*, |dd58.22*, |dd58.24*, |dd58.25*, |dd58.29*, |dd58.291*, |dd58.31*, |dd58.5*, |dd58.501*, |dd58.74*
>> DIU 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd59.4*, |inpt!
DIV 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*!, |dd58.32*!, |dd59.4*!, |inpt!
DIV(0 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), |dd58.19*, |dd58.32*, |dd59.4*
DIV(1 |dd58.32*
DIV(2 |dd58.32*
DUZ |dd58.19, |dd58.74
>> GRP |dd58.19*
IOP 23(HELP ), |dd59.4*!
K |inpt!
>> LP |dd58.19*
>> PC |dd58.19*
>> PSDSITE |dd58.29
>> PSGINITF .01(XREF 6S), |dd59.4
PSGWDRUG |inpt!
PSGWS |inpt*!
PSGWSITE |opt!
PSGWSK |inpt*!
PSGWSKP |inpt*!
>> PSJOMS |dd58.6
U |dd58.17, |dd58.19, |dd58.32, |dd58.40011, |dd58.400111, |dd58.42, |dd58.601, |dd58.72, |sort
W |inpt!
X .01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 7+1!, 8+1!, 8(XREF 1S), 9+1!, 10(XREF 1S), 10(XREF 2S)
, 11+1!, 23+1!, |dd58.16!, |dd58.17!, |dd58.19*!, |dd58.2!, |dd58.21!, |dd58.22, |dd58.24!, |dd58.25
, |dd58.29*!, |dd58.291, |dd58.3, |dd58.31, |dd58.32*!, |dd58.4!, |dd58.4001!, |dd58.40011!, |dd58.400111!, |dd58.41*!
, |dd58.42*!, |dd58.42001!, |dd58.42102*!, |dd58.42201!, |dd58.5*!, |dd58.501*!, |dd58.51!, |dd58.52, |dd58.53!, |dd58.6*!
, |dd58.6!, |dd58.601*!, |dd58.6011, |dd58.60111*!, |dd58.60112!, |dd58.601121!, |dd58.601122!, |dd58.601123*!, |dd58.6014, |dd58.60141
, |dd58.6015, |dd58.6016, |dd58.63*!, |dd58.635*!, |dd58.636*!, |dd58.637*!, |dd58.638*!, |dd58.639*!, |dd58.64*!, |dd58.65!
, |dd58.7*!, |dd58.71!, |dd58.72*!, |dd58.74*!, |dd58.741!, |dd58.7411!, |dd58.7412!, |dd58.7413*!, |dd58.742, |dd58.746*!
, |dd58.747*!, |dd58.748!, |dd58.7481*!, |dd58.749*!, |dd59.4!, |func*, |inpt*!, |sort*
X(1 |dd58.42, |dd58.6, |dd58.601, |dd58.63, |dd58.64, |sort*
X(2 |dd58.42, |dd58.6, |dd58.601, |dd58.63, |dd58.64, |sort*
X(3 |dd58.6, |dd58.64, |sort*
X(4 |dd58.6
X(5 |dd58.6
XLFNC |dd58.64*!
>> XUITNAME |dd58.64
>> Y 8(XREF 1S), |dd58.19!, |dd58.29, |dd58.32!, |dd58.41, |dd58.42, |dd58.42102, |dd58.5, |dd58.501, |dd58.6
, |dd58.60111, |dd58.601123, |dd58.63, |dd58.635, |dd58.636, |dd58.637, |dd58.638, |dd58.639, |dd58.7, |dd58.72*
, |dd58.74, |dd58.7413, |dd58.746, |dd58.747, |dd58.7481, |dd58.749, |dd59.4*, |func, |inpt*!
Y(0 |dd58.32*
Y(1 |dd58.19*, |dd58.32*, |sort*
Y(2 |dd58.19*

Marked Items

Name Field # of Occurrence
$T(TEDH^XPAREDIT |opt
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All