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

Package: Inpatient Medications

Global: ^PS(59.6


Information

FileMan FileNo FileMan Filename Package
59.6 INPATIENT WARD PARAMETERS Inpatient Medications

Description

Directly Accessed By Routines, Total: 27

Package Total Routines
Inpatient Medications 25 PSGBRJ    PSGFILD0    PSGFILED    PSGL0    PSGLW    PSGMAR0    PSGMMAR5    PSGOE41
PSGOERI    PSGP    PSGPER1    PSIVCAL    PSJ0095    PSJ010    PSJAC    PSJADT0
PSJHL4    PSJHL4A    PSJHL7    PSJMDIR    PSJORP2    ^PS(59.6    PSJMPEND    PSJORPOE
PSJP    
Pharmacy Data Management 1 PSSGSGUI    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Inpatient Medications 3 PSGFILD0    PSGPEN    PSJ0095    
Pharmacy Data Management 1 PSSFIL    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Inpatient Medications 1 MAR LABELS(#53.41)[#53.4104(1)]    
Pharmacy Data Management 1 PHARMACY SYSTEM(#59.7)[20.6]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 DEVICE(#3.5)[.19.24]
MailMan 1 MAIL GROUP(#3.8)[5]    
Registration 1 WARD LOCATION(#42)[.01]    

Fields, Total: 26

Field # Name Loc Type Details
.01 WARD 0;1 POINTER TO WARD LOCATION FILE (#42)
************************REQUIRED FIELD************************
WARD LOCATION(#42)

  • LAST EDITED:  APR 22, 1994
  • HELP-PROMPT:  Enter a ward for which you want to tailor the Inpatient Medication package.
  • DESCRIPTION:  
    This is a ward for which the site wants to tailor specific aspects of the Inpatient Medications package.
  • LAYGO TEST:  1,0)= S X(1)=$D(^PS(59.6,"B",$E(X,1,30))) S:X(1) X(2)=$P($G(^DIC(42,+X,0)),"^") S:$S(X(1):X(2)="",1:0) X(2)=X D:X(1) EN^DDIOL("But an entry for "_X(2)_" already exists!") I 'X(1)
  • GROUP:  PSJ
  • CROSS-REFERENCE:  59.6^B
    1)= S ^PS(59.6,"B",$E(X,1,30),DA)=""
    2)= K ^PS(59.6,"B",$E(X,1,30),DA)
.03 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
.04 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, that 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
.05 DEFAULT START DATE CALCULATION 0;5 SET
  • '0' FOR USE CLOSEST ADMIN TIME AS DEFAULT;
  • '1' FOR USE NEXT ADMIN TIME AS DEFAULT;
  • '2' FOR USE NOW AS DEFAULT;

  • LAST EDITED:  JAN 20, 1994
  • HELP-PROMPT:  Enter "0" to use the closest admin time, "1" to use the next admin time, or "2" to use "now" as the default start time for orders.
  • DESCRIPTION:  This field allows the ward to tell the package how the default start date for orders should be calculated. The default may use the next admin time, the closest admin time, or the current time (now) as the default start
    date for Unit Dose and IV orders.
  • GROUP:  PSJ
.07 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 for this ward (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:  D EN^DDIOL("ENTER A NUMBER BETWEEN 0001 AND 2400. THE ZEROS ARE NEEDED.","","!!")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 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 of 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:  D EN^DDIOL("PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS.","","!")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  59.6^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.6,DA,0),"^",9)=Y
    2)= S $P(^PS(59.6,DA,0),"^",9)=""
    3)= Used by the Unit Dose Medications package.
    This is used to automatically update the STOP TIME FOR MAR field (.09).
    S $P(^PS(59.6,Internal Entry number,0),"^",9)=STOP TIME FOR MAR
.09 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
  • 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:  D EN^DDIOL("THIS FIELD IS NOT TO BE CHANGED!!","","!")
    WRITE AUTHORITY: ^
  • GROUP:  PSJU
.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 35.
  • 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:  D LBLS^PSJDDUT
  • GROUP:  PSJU
.12 LABEL FOR WARD STAFF 0;12 SET
  • '0' FOR NO LABELS;
  • '1' FOR FIRST LABEL ON ORDER ENTRY/EDIT;
  • '2' FOR LABEL ON ENTRY/EDIT AND VERIFICATION;
  • '3' FOR FIRST LABEL ON NURSE VERIFICATION;

  • LAST EDITED:  JUL 27, 1991
  • DESCRIPTION:  Select from one of the following: NO LABELS - Labels will not be created when ward staff (nurses, clerks, physicians, etc.) take an action on an order. FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever
    ward staff enter an order or edit a non-verified order, but not when the nurse verifies the order. FIRST LABEL ON NURSE VERIFICATION - Labels will not be created for ward staff until a nurse has verified the order. LABEL
    ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the order is entered/edited and verified.
    Labels are always created for actions taken on orders after they are verified, unless NO LABELS is selected.
  • TECHNICAL DESCR:  
    This is used by the order entry, edit, and verify routines to determine if a label should be created for the order whenever these action take place on the order by ward staff personnel.
  • GROUP:  PSJU
.13 *WARD LABEL PRINTER 0;13 FREE TEXT

  • INPUT TRANSFORM:  D ENDL^PSJUTL
  • LAST EDITED:  APR 08, 1998
  • HELP-PROMPT:  Enter the device to which labels created by ward staff will be printed.
  • DESCRIPTION:  
    If a device is entered here, labels created by ward staff due to actions taken on orders will print automatically to the device entered.
  • TECHNICAL DESCR:  
    This is used to automatically print labels on the ward whenever ward staff create labels due to their actions on orders. The input transform call to ENDLP^PSGSET makes a call to %ZIS to get ION (the device name).
  • EXECUTABLE HELP:  D ENDH^PSJUTL(DZ)
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 *PHARMACY LABEL PRINTER 0;14 FREE TEXT

  • INPUT TRANSFORM:  D ENDL^PSJUTL
  • LAST EDITED:  APR 08, 1998
  • HELP-PROMPT:  Enter the device to which labels created by pharmacy staff will be printed.
  • DESCRIPTION:  
    If a device is entered here, labels created by pharmacy staff due to actions taken on orders will print automatically to the device entered.
  • TECHNICAL DESCR:  
    This is used to automatically print labels in the pharmacy whenever pharmacy staff create labels due to their actions on orders. The input transform call to ENDL^PSJUTL makes a call to %ZIS to get ION (the device name).
  • EXECUTABLE HELP:  D ENDH^PSJUTL(DZ)
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.15 LABEL ON AUTO-DISCONTINUE 0;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 09, 1992
  • HELP-PROMPT:  Answer 'YES' to have labels created when this ward's patients' orders are auto-discontinued.
  • DESCRIPTION:  
    This is used to determine if labels should be created when orders for a patient from this ward are auto-d/c'd due a patient movement. Patient movements include discharges and transfers.
  • TECHNICAL DESCR:  
    Used by the auto-d/c routines (PSJADT*) to determine if labels should be created for orders that are auto-d/c'd due to patient movements from this ward.
  • GROUP:  PSJ
.16 LABEL FOR PHARMACY 0;16 SET
  • '0' FOR NO LABELS;
  • '1' FOR FIRST LABEL ON ORDER ENTRY/EDIT;
  • '2' FOR LABEL ON ENTRY/EDIT AND VERIFICATION;
  • '3' FOR FIRST LABEL ON PHARMACIST VERIFICATION;

  • LAST EDITED:  JUL 27, 1991
  • DESCRIPTION:  Select from the following: NO LABELS - Labels will not be created when pharmacy staff (pharmacists and pharmacy technicians) take an action on an order. FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever
    pharmacy staff enter an order or edit a non-verified order, but not when the pharmacist verifies the order. FIRST LABEL ON VERIFICATION - Labels will not be created for pharmacy staff until a pharmacist has verified the
    order. LABEL ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the order is entered/edited and verified.
    Labels are always created for actions taken on orders after they are verified, unless NO LABELS is selected.
  • TECHNICAL DESCR:  
    This is used to determine if a label should be created whenever an action has taken place on an order by pharmacy personnel.
  • GROUP:  PSJU
.18 MAR HEADER LABELS 0;18 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 07, 1993
  • HELP-PROMPT:  Enter "YES" if MAR header labels should be generated for this ward.
  • DESCRIPTION:  
    This is used to determine if MAR header labels should be generated when MAR order labels are generated for patients on this ward.
  • GROUP:  PSJ
.19 WARD LABEL PRINTER POINTER 0;19 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  APR 08, 1998
  • HELP-PROMPT:  Enter the device to which labels created by ward staff will be printed.
  • DESCRIPTION:  
    If a device is entered here, labels created by ward staff due to actions taken on orders will print automatically to the device entered.
  • TECHNICAL DESCR:  
    This is used to automatically print labels on the ward whenever ward staff create labels due to their actions on orders.
.2 PHARMACY LABEL PRINTER POINTER 0;20 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  APR 08, 1998
  • HELP-PROMPT:  Enter the device to which labels created by pharmacy staff will be printed.
  • DESCRIPTION:  
    If a device is entered here, labels created by pharmacy staff due to actions taken on orders will print automatically to the device entered.
  • TECHNICAL DESCR:  
    This is used to automatically print labels in the pharmacy whenever pharmacy staff create labels due to their actions on orders.
.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
.27 *PRE-EXCHANGE ENVELOPES 0;27 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 19, 1992
  • 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
1 MAR ORDER SELECTION DEFAULT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:'$$ENMARD^PSJDDUT2() X
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This is the default value for the type of orders to be included on the Medication Due Worksheet, MAR and Action Profiles. Multiple order types may be selected using "-" or "," (Example: 2-4 or 2,3,4).
  • TECHNICAL DESCR:  
    This field contains information used by reports in the Inpatient Medications package to determine what type of orders to include on the report, as specified by the Pharmacy Supervisor in the Inpatient Ward Parameters.
  • EXECUTABLE HELP:  D ENMARDH^PSJDDUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 PRINT PENDING ORDERS ON MAR 0;6 SET
  • '1' FOR YES;

  • LAST EDITED:  FEB 06, 1996
  • HELP-PROMPT:  Enter YES to include acknowledged pending orders on the MARs
  • DESCRIPTION:  
    Enter YES to include the pending orders that were acknowledged by a nurse on the MARs and the Medication Due Worksheet.
3 DAYS UNTIL STOP FOR ONE-TIME 0;28 NUMBER

  • INPUT TRANSFORM:  D ENOSD^PSGFILD0
  • LAST EDITED:  SEP 07, 2001
  • HELP-PROMPT:  Enter the number of days a one-time order should last. The number can be from 1-100, however, it cannot exceed the number of days that standard orders last (DAYS UNTIL STOP DATE/TIME).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 PRE-EXCHANGE REPORT DEVICE 0;29 POINTER TO DEVICE FILE (#3.5) DEVICE(#3.5)

  • LAST EDITED:  JAN 24, 2003
  • HELP-PROMPT:  Enter a device on which the Pre-Exchange Report may be printed.
  • DESCRIPTION:  Enter the name of the device that will be used most frequently to print the Pre-Exchange Report for this WARD. This field will be shown as the default for the 'Select DEVICE for PRE-EXCHANGE UNITS REPORT:' prompt when
    printing the Pre-Exchange Report.
5 STAT NOW MAIL GROUP 0;30 POINTER TO MAIL GROUP FILE (#3.8) MAIL GROUP(#3.8)

  • LAST EDITED:  DEC 28, 2004
  • DESCRIPTION:  
    A notification will be sent to this mail group for each new STAT and NOW order that is received from CPRS.
6 PRIORITIES FOR NOTIFICATION 0;32 SET
  • 'S' FOR STAT;
  • 'SA' FOR STAT/ASAP;
  • 'SAN' FOR STAT/ASAP/NOW;
  • 'A' FOR ASAP;
  • 'AN' FOR ASAP/NOW;
  • 'N' FOR NOW;
  • 'SN' FOR STAT/NOW;

  • LAST EDITED:  JUL 27, 2005
  • DESCRIPTION:  
    Enter the priorities of STAT, ASAP, or the schedule of NOW, or any combination the three to be used to send a notification of orders with these priorities to the mail group defined in the STAT NOW MAIL GROUP parameter.
7 HOURS OF RECENTLY DC/EXPIRED 0;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JAN 21, 2009
  • HELP-PROMPT:  Enter a number between 1 and 120. Any orders discontinued/expired within the hours specified here will be displayed on the patient profile.
  • DESCRIPTION:  The Inpatient Meds profiles will display the recently discontinued/expired orders that fall within the hours specified in this field. The value defined in this field will take precedence over the Inpatient System
    parameter.
8 DEFAULT 0 ON PADE PRE-EXCHANGE 0;10 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 05, 2016
  • HELP-PROMPT:  Enter YES to default PADE Pre-Exchange doses to zero.
  • DESCRIPTION:  If set to YES, field defaults zero in the "Pre-Exchange DOSES:" prompt for orders that may be dispensed from Pharmacy Automation Dispensing Equipment (PADE).
    An order may be dispensed from PADE if the order's drug is stocked in at least one PADE dispensing cabinet that is associated with the patient's ward location.

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2110
  • Pharmacy Data Management
  • ICR #2126
  • Pharmacy Data Management
  • MAR ORDER SELECTION DEFAULT (1).
    Access: Both R/W w/Fileman

    PRINT PENDING ORDERS ON MAR (2).
    Access: Both R/W w/Fileman

    DAYS UNTIL STOP DATE/TIME (.03).
    Access: Both R/W w/Fileman

    SAME STOP DATE ON ALL ORDERS (.04).
    Access: Both R/W w/Fileman

    DEFAULT START DATE CALCULATION (.05).
    Access: Both R/W w/Fileman

    TIME OF DAY ORDERS STOP (.07).
    Access: Both R/W w/Fileman

    START TIME FOR 24 HOUR MAR (.08).
    Access: Both R/W w/Fileman

    STOP TIME FOR MAR (.09).
    Access: Both R/W w/Fileman

    DAYS NEW LABELS LAST (.11).
    Access: Both R/W w/Fileman

    LABEL FOR WARD STAFF (.12).
    Access: Both R/W w/Fileman

    WARD LABEL PRINTER (.13).
    Access: Both R/W w/Fileman

    PHARMACY LABEL PRINTER (.14).
    Access: Both R/W w/Fileman

    LABEL ON AUTO-DISCONTINUE (.15).
    Access: Both R/W w/Fileman

    LABEL FOR PHARMACY (.16).
    Access: Both R/W w/Fileman

    ICR #2805
  • Pharmacy Benefits Management
  • DAYS UNTIL STOP DATE/TIME (.03).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    EN^DDIOL .01LAYGO1+1, .07(HELP ), .08(HELP ), .09(HELP )
    ENOSD^PSGFILD0 3+1
    LBLS^PSJDDUT .11(HELP )
    $$ENMARD^PSJDDUT2 1+1
    ENMARDH^PSJDDUT2 1(HELP )
    ENDH^PSJUTL .13(HELP ), .14(HELP )
    ENDL^PSJUTL .13+1, .14+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] |dd57.5
    ^%ZOSF("TEST" |dd53.1
    ^DD("DD" |dd59.5
    ^DD(3.5 |dd57.5
    ^DD(53.1 |dd53.1
    ^DD(53.21 |dd53.21
    ^DD(53.22 |dd53.22
    ^DIC(42 - [#42] .01LAYGO1+1, |dd50.804, |dd50.808, |dd59.6
    ^ORD(101 - [#101] |ptcl
    ^PS(50.3 - [#50.3] |dd50.3*!, |dd50.31*!, |dd50.311*!, |dd50.32*!, |dd53.11, |dd53.2102
    ^PS(50.35 - [#50.35] |dd50.31, |dd50.35*!
    ^PS(50.7 - [#50.7] |dd53.23
    ^PS(50.8 - [#50.8] |dd50.8*, |dd50.805*!, |dd50.809*!, |opt*
    ^PS(51.15 - [#51.15] |dd51.15*!, |dd51.153*!
    ^PS(51.2 - [#51.2] |dd53.1
    ^PS(52.6 - [#52.6] |inpt
    ^PS(52.7 - [#52.7] |inpt
    ^PS(53.1 - [#53.1] |dd53.1*!, |dd53.11*!, |dd53.1112*!, |dd53.1114*!, |dd53.13*!, |dd53.157*!, |dd53.158*!, |dd53.4502, |inpt*
    ^PS(53.2 - [#53.2] |dd53.2*!, |dd53.21*!, |dd53.2102*!, |dd53.22*!, |dd53.23*!
    ^PS(53.3 - [#53.3] |dd53.3*!
    ^PS(53.35 |dd50.35
    ^PS(53.4 - [#53.4] |dd53.4*!, |dd53.401101*!
    ^PS(53.44 - [#53.44] |dd53.4402*!
    ^PS(53.45 - [#53.45] |dd53.45, |dd53.4502*!, |inpt, |list!, |ptcl!
    ^PS(53.46 - [#53.46] |dd53.46*!
    ^PS(53.47 - [#53.47] |dd53.47*!
    ^PS(53.5 - [#53.5] |dd53.5*!, |dd53.51*!, |dd53.52*!, |dd53.53*!, |dd57.5
    ^PS(55 - [#55] |dd53.1, |ptcl
    ^PS(57.1 - [#57.1] |dd57.1*!, |dd57.17*!, |dd57.18*!
    ^PS(57.5 - [#57.5] |dd57.5*!, |dd57.51*!, |inpt
    ^PS(57.7 - [#57.7] |dd57.7*!, |dd57.701*!, |dd57.702*!
    ^PS(57.8 - [#57.8] |dd57.8*!
    ^PS(58.7 - [#58.7] |inpt
    ^PS(59.5 - [#59.5] |dd59.5*!, |dd59.51*!, |dd59.52*!, |inpt
    ^PS(59.6 - [#59.6] .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), |dd59.6*!
    ^PS(59.7 - [#59.7] |dd50.8, |dd57.5
    ^PSDRUG - [#50] |inpt
    ^TMP("PSIVLB" |list
    ^TMP("PSJAL" |list
    ^TMP("PSJALL" |list
    ^TMP("PSJALLRG" |list!
    ^TMP("PSJDA" |list
    ^TMP("PSJI" |list
    ^TMP("PSJINTER" |ptcl!
    ^TMP("PSJPRO" |list!, |ptcl
    ^TMP("PSJUDE" |list
    ^TMP($J |ptcl!
    ^VA(200 - [#200] |dd53.45
    ^XUSEC("PSJ PADE ADV" |inpt
    ^XUSEC("PSJ PHARM TECH" |inpt
    ^XUSEC("PSJ RNURSE" |inpt
    ^XUSEC("PSJ RPHARM" |inpt

    Naked Globals

    Name Field # of Occurrence
    ^( |dd57.1, |dd57.51
    ^("0" |dd53.47
    ^(0 |dd50.3, |dd50.35, |dd50.804, |dd50.808, |dd51.15, |dd53.1*, |dd53.11, |dd53.4, |dd53.5, |dd57.5
    , |dd57.51, |dd59.51, |inpt*
    ^(2 |dd53.1*
    ^(20 |dd50.8, |dd57.5
    ^(3 |dd57.5
    ^(5 |dd53.1
    ^(5.1 |dd53.1*
    ^(660 |inpt

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % |dd53.1*, |opt!
    %1 |opt!
    %DT |dd50.31*, |dd50.8*, |dd50.802*, |dd50.803*, |dd53.1*, |dd53.11*, |dd53.1114*, |dd53.1119*, |dd53.13*, |dd53.21*
    , |dd53.22*, |dd53.4*, |dd53.4104*, |dd53.42*, |dd53.4402*, |dd53.4502*, |dd53.5*, |dd57.6*, |dd59.5*, |dd59.51*
    , |opt!
    %H |opt!
    %I |dd57.5*!
    %T |opt!
    %X |opt!
    %Y |opt!
    A |opt!
    AL |opt!
    B |opt!
    BY |ptcl*!
    C |dd57.5*, |opt!
    CAO |opt!
    CHK |opt!
    D |dd51.15*, |opt!
    D0 |dd50.311, |dd53.1*, |inpt, |opt!
    D1 |dd50.311, |inpt, |opt!
    >> DA .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), |dd50.3, |dd50.31, |dd50.311, |dd50.32, |dd50.35, |dd50.805
    , |dd50.809, |dd51.15, |dd51.153, |dd53.1, |dd53.11, |dd53.1112, |dd53.1114, |dd53.13, |dd53.157, |dd53.158
    , |dd53.2, |dd53.21, |dd53.2102, |dd53.22, |dd53.23, |dd53.3, |dd53.4, |dd53.401101, |dd53.4402, |dd53.4502
    , |dd53.46, |dd53.47, |dd53.5, |dd53.5, |dd53.51, |dd53.52, |dd53.53, |dd57.1, |dd57.17, |dd57.18
    , |dd57.5, |dd57.51, |dd57.7, |dd57.701, |dd57.702, |dd57.8, |dd59.5, |dd59.51, |dd59.52, |dd59.6
    , |inpt, |opt*!, |ptcl*!
    DA(1 |dd50.31, |dd50.311, |dd50.32, |dd50.805, |dd50.809, |dd51.153, |dd53.11, |dd53.1112, |dd53.1114, |dd53.13
    , |dd53.157, |dd53.158, |dd53.21, |dd53.2102, |dd53.22, |dd53.23, |dd53.401101, |dd53.4402, |dd53.4502, |dd53.51
    , |dd53.52, |dd53.53, |dd57.17, |dd57.18, |dd57.51, |dd57.701, |dd57.702, |dd57.8, |dd59.51, |dd59.52
    , |inpt
    DA(2 |dd50.311, |dd50.805, |dd50.809, |dd53.2102!, |dd53.23!, |dd53.401101, |dd53.4402, |dd53.52, |dd53.53, |dd57.702
    DA(3 |dd50.809, |dd53.401101, |dd53.53
    DA(4 |dd50.809
    DFN |list, |opt!, |ptcl
    DGA1 |opt!
    DGT |opt!
    DI |opt!
    DIADD |ptcl*!
    DIC |dd50.31*!, |dd50.311*!, |dd51.15*~, |dd51.153*!, |dd53.1*!, |dd53.11*!, |dd53.157*!, |dd53.158*!, |dd53.21*!, |dd53.2102*!
    , |dd53.22*!, |dd53.23*!, |dd53.4502*!, |dd57.1*!, |dd57.17*!, |dd57.18*!, |dd57.5, |opt*!, |ptcl*!
    DIC("A" |ptcl*
    DIC("S" |dd50.31*, |dd50.311*, |dd51.153*, |dd53.1*, |dd53.11*, |dd53.157*, |dd53.158*, |dd53.21*, |dd53.2102*, |dd53.22*
    , |dd53.23*, |dd53.4502*, |dd57.1*, |dd57.17*, |dd57.18*
    DIC(0 |dd51.15*, |opt*, |ptcl*
    DIE |dd50.31, |dd50.311, |dd51.153, |dd53.1, |dd53.11, |dd53.157, |dd53.158, |dd53.21, |dd53.2102, |dd53.22
    , |dd53.23, |dd53.4502, |dd57.1, |dd57.17, |dd57.18, |inpt, |opt*, |ptcl*!
    DIE("NO^" |inpt*!
    >> DIG |dd53.1*
    >> DIH |dd53.1*
    DIJ |opt!
    >> DIK |inpt*
    >> DINUM |dd50.8*, |dd50.802*, |dd50.803*, |dd50.804*, |dd50.806*, |dd50.807*, |dd50.808*, |dd51.153*, |dd53.401*, |dd53.4011*
    , |dd53.4101*, |dd53.4102*, |dd53.4104*, |dd53.42*, |dd53.43011*, |dd53.44*, |dd53.4401*, |dd53.45*, |dd53.51*, |dd53.55*
    , |dd57.6*, |dd57.61*, |dd57.62*, |dd57.63*, |dd57.7*
    DIOV |opt!
    DISYS |opt!
    >> DIU |dd53.1*
    >> DIU(0 |dd53.1
    DIV |dd53.1*!
    DIV(0 |dd53.1*
    DLAYGO |opt*!, |ptcl*
    >> DONE |opt
    DQ |opt!
    DR |opt*!, |ptcl*!
    DRG |ptcl~
    DRG(1 |dd53.157
    DRGN |opt!
    DT |dd59.5
    DTOUT |opt!
    DUZ |inpt, |ptcl
    >> DZ .13(HELP ), .14(HELP ), |dd59.6
    FIL |opt!
    FLDS |ptcl*!
    >> GECS("SITE" |inpt
    >> GECS("TT" |inpt
    GMRAL |list!
    >> HLMTIEN |ptcl
    >> HLMTIENS |ptcl
    I |opt!, |ptcl*!
    I1 |opt!, |ptcl!
    I10 |opt!
    ION |opt
    IOP |opt*!
    J |opt!, |ptcl!
    J2 |opt!, |ptcl!
    K |opt!
    L |ptcl*!
    N |opt!, |ptcl!
    N2 |opt!, |ptcl!
    ND |opt!
    NF |opt!
    OD |opt!
    ON |dd53.4502, |opt!, |ptcl*
    ON55 |opt!, |ptcl
    ORETURN |opt!
    ORIFN |opt!, |ptcl!
    ORLOG |opt!
    >> ORPK |ptcl*
    ORPV |opt!
    ORSTOP |opt!
    ORSTRT |opt!
    ORSTS |opt!
    >> ORVP |ptcl
    P |opt!, |ptcl~
    P("APPT" |ptcl
    P1 |opt!
    P17 |opt!, |ptcl!
    PDRG |opt!
    >> PQ |opt*
    PS |opt!, |ptcl!
    >> PSGACT |ptcl*
    PSGDT |opt!
    PSGEFN |ptcl!
    >> PSGINITF |dd57.5
    PSGLMT |opt!
    >> PSGMARDF |ptcl*
    >> PSGMRN |ptcl
    >> PSGOEE |dd53.4504
    >> PSGOEEND |dd53.4502
    >> PSGOES |dd53.1
    >> PSGORD |dd53.4504, |list, |ptcl
    PSGP |list, |ptcl*!
    >> PSGPDRG |dd53.4502
    >> PSGPDRGN |dd53.4502
    >> PSGS0XT |dd50.31, |dd53.1, |dd53.21
    >> PSGS0Y |dd50.31, |dd53.1*, |dd53.21
    PSGTOL |opt!
    PSGTOO |opt!
    PSGUOW |opt!
    >> PSGWD |ptcl*
    PSIV |dd53.157*, |opt!
    >> PSIV531 |ptcl
    PSIVAC |opt*!, |ptcl*!
    PSIVAMIS |opt*!
    PSIVBEG |opt!
    PSIVBR |opt*!, |ptcl*!
    PSIVC |list!, |ptcl*
    PSIVCT |opt!, |ptcl!
    >> PSIVDCR |opt*
    PSIVDEL |opt!
    PSIVEND |opt!
    PSIVLAB |opt!, |ptcl*!
    >> PSIVLBTP |ptcl
    PSIVLOG |opt!, |ptcl*!
    PSIVNOL |list!, |opt!, |ptcl!
    PSIVNOW |opt!, |ptcl!
    >> PSIVPAT |opt*
    >> PSIVPCR |opt*
    PSIVPL |opt!
    PSIVPR |opt!
    PSIVPROV |opt!
    PSIVRC |opt*!
    PSIVRD |opt*!
    PSIVREA |opt!
    PSIVSCR |opt!
    PSIVSITE |opt!
    PSIVSN |opt!
    >> PSIVSTR |inpt
    PSIVT |opt!
    >> PSIVTYPE |inpt*
    PSIVUP |opt!
    >> PSIVV |dd50.805
    PSIVWARD |opt!
    >> PSIVWCR |opt*
    PSIVX |dd53.157*, |dd59.5*!, |opt!
    PSIVY |dd59.5*!
    PSIVZION |opt*!
    PSJ |dd53.5*~, |inpt*
    >> PSJACEPT |ptcl*
    >> PSJALL |ptcl
    >> PSJASKDN |inpt*
    PSJCMO |ptcl*!
    >> PSJDIV |inpt*
    PSJEXTP |opt*!, |ptcl*!
    PSJHIDFG |ptcl*!
    PSJIDD |dd57.5!
    PSJIDD("POINTER" |dd57.5
    >> PSJIDLST |ptcl
    PSJINFIN |ptcl*!
    PSJIOPIV |ptcl*!~
    >> PSJIRNF |ptcl
    >> PSJITECH |ptcl
    PSJIVORF |opt!
    PSJLB |ptcl!
    PSJLK |ptcl*!
    PSJLM |ptcl~
    >> PSJLMCON |ptcl*
    >> PSJLMFIN |ptcl
    PSJLMPRO |ptcl~
    >> PSJLMQT |ptcl*
    >> PSJMORE |ptcl
    PSJNODIS |opt*!
    PSJOL |opt!, |ptcl
    >> PSJORD |list, |ptcl
    PSJORIFN |opt!
    PSJORL |opt!
    PSJPDEV |inpt*~
    PSJPFWD |opt!
    >> PSJPNDRN |dd53.4502
    >> PSJPROT |ptcl
    >> PSJPWD |ptcl
    PSJS |opt!
    >> PSJSHLS |dd51.153
    PSJSTARI |list, |ptcl!
    PSJSYSL |opt!
    PSJSYSP |list, |opt!, |ptcl
    PSJSYSP0 |opt!
    PSJSYSU |inpt, |opt!, |ptcl
    >> PSJTASK |opt*
    PSJUDPRF |list!
    >> PSJVALQ |list*
    >> PSOVWI("DIC" |ptcl*
    SCHED |opt!
    SCRNPRO |opt!
    TC |opt!
    TN |opt!, |ptcl!
    U |dd50.3, |dd50.35, |dd53.1, |dd53.47, |dd53.5, |dd57.17, |dd57.5, |inpt, |ptcl
    UL80 |opt!
    VADM |ptcl~
    VAIN |ptcl~
    >> VALM("TITLE" |ptcl*
    >> VALMBCK |list*, |ptcl*, |ptcl*, |ptcl*
    W |opt!
    W42 |opt!
    WCA |opt!
    WRDB |opt!
    WRDE |opt!
    X .01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .03+1!, .07+1!, .08+1!, .08(XREF 1S), .09+1!, .11+1!, 1+1!
    , 7+1!, |dd50.3!, |dd50.31*!, |dd50.311*!, |dd50.32!, |dd50.35!, |dd50.8*!, |dd50.801!, |dd50.802*!, |dd50.803*!
    , |dd50.804!, |dd50.805!, |dd50.806!, |dd50.807!, |dd50.808!, |dd50.809!, |dd51.15!, |dd51.153*!, |dd53.1*!, |dd53.1*!
    , |dd53.1*!, |dd53.11*!, |dd53.1112!, |dd53.1114*!, |dd53.1119*!, |dd53.13*!, |dd53.157*!, |dd53.158*!, |dd53.2!, |dd53.21*!
    , |dd53.2102*!, |dd53.22*!, |dd53.23*!, |dd53.3!, |dd53.4*!, |dd53.401, |dd53.4011!, |dd53.401101!, |dd53.4101!, |dd53.4102
    , |dd53.4104*!, |dd53.42*!, |dd53.4301!, |dd53.43011!, |dd53.44, |dd53.4401, |dd53.4402*!, |dd53.45!, |dd53.4502*!, |dd53.46!
    , |dd53.47*!, |dd53.5*!~, |dd53.51!, |dd53.52!, |dd53.53!, |dd53.55!, |dd53.56!, |dd57.1*!, |dd57.17*!, |dd57.18*!
    , |dd57.5!, |dd57.51!, |dd57.6*!, |dd57.61, |dd57.62, |dd57.63*!, |dd57.7, |dd57.701!, |dd57.702, |dd57.8!
    , |dd59.5*!, |dd59.51*!, |dd59.52!, |dd59.6!, |inpt*, |inpt*, |opt!, |ptcl*!~
    X(1 .01LAYGO1+1*, |dd50.31*, |dd50.35*, |dd53.1, |dd53.11*, |dd53.2102*, |dd53.23*, |dd53.45*, |dd53.4502*, |dd59.6*
    X(2 .01LAYGO1+1*, |dd50.35*, |dd53.1, |dd53.45*, |dd53.4502*, |dd59.6*
    X(3 |dd53.4502*
    >> XQORM("#" |ptcl*
    >> XQORM("?" |ptcl*
    >> XQORM("B" |list*, |ptcl*
    >> XQORMSG |ptcl
    >> XQUIT |opt, |ptcl
    >> XREF |opt*
    >> XX |dd53.1*
    >> Y .08(XREF 1S), |dd50.31*, |dd50.311, |dd50.8, |dd50.802, |dd50.803, |dd50.804*, |dd50.808*, |dd51.15, |dd51.153
    , |dd53.1*, |dd53.11*, |dd53.1114, |dd53.1119, |dd53.13, |dd53.157, |dd53.158, |dd53.21, |dd53.2102*, |dd53.22
    , |dd53.23*, |dd53.4, |dd53.4104, |dd53.42, |dd53.4402, |dd53.4502*, |dd53.5, |dd57.1, |dd57.17, |dd57.18
    , |dd57.5*, |dd57.6, |dd59.5*, |dd59.51, |dd59.6*, |inpt*, |inpt*, |opt!, |ptcl!
    Y( |dd53.1*
    Y(0 |dd50.31*, |dd50.804*, |dd50.808*, |dd53.1*, |dd53.11*, |dd53.2102*, |dd53.23*, |dd53.4502*
    Y(1 |list, |ptcl
    >> Y1 |dd53.1*
    Z |dd53.21*!, |dd53.22*!, |opt!, |ptcl!
    ZISI |opt!, |ptcl!
    ZQ7 |opt!, |ptcl!
    ZTSK |opt!
    ZZAR |inpt*~

    Marked Items

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