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(53.1

Package: Inpatient Medications

Global: ^PS(53.1


Information

FileMan FileNo FileMan Filename Package
53.1 NON-VERIFIED ORDERS Inpatient Medications

Description

Directly Accessed By Routines, Total: 227

Package Total Routines
Inpatient Medications 209 ADDITIVE    DISPENSE DRUG    INTERVENTION    LAST RENEW    ORDER CHECKS    PSGAH    PSGAL5    PSGAPP
PSGAXR    PSGBRJ    PSGCAP0    PSGCAPP    PSGMAR2    PSGMIV    PSGMUTL    PSGOD
PSGOE41    PSGOE91    PSGOEF    PSGOESF    PSGORS0    PSGOT    PSGOU    PSGSICH1
PSGSICH2    PSGSICHK    PSGXR310    PSGXR311    PSGXR312    PSGXR313    PSGXR314    PSIVARH
PSIVCAL    PSIVEDT1    PSIVORFA    PSIVORFB    PSIVORFE    PSJ0050    PSJ50265    PSJ53P1
PSJBCBU    PSJBCMA    PSJCLNOC    PSJCLOR2    PSJCLOR3    PSJCLOR4    PSJCLOR5    PSJCOM
PSJDGAL2    PSJDIN    PSJLIVMD    PSJLMUDE    ^PS(53.1    PSGDL    PSGDSP0    PSGGAO
PSGL    PSGL0    PSGLW    PSGMMAR0    PSGMMAR2    PSGMMAR5    PSGMMIVC    PSGNE3
PSGO    PSGOE1    PSGOE2    PSGOE6    PSGOE7    PSGOE81    PSGOE82    PSGOE9
PSGOE92    PSGOEC    PSGOECS    PSGOEE    PSGOEEW    PSGOEF1    PSGOEI    PSGOERS
PSGOES    PSGOETO    PSGOEV    PSGOEVS    PSGOTR    PSGPEN    PSGPR    PSGS0
PSGSH    PSGSICH    PSGVBW    PSGVBW0    PSGVBW1    PSGVBWP    PSGVBWU    PSGVW
PSGVW0    PSGXR31    PSGXR32    PSGXR33    PSGXR34    PSGXR35    PSGXR36    PSGXR37
PSGXR38    PSGXR39    PSIVACT    PSIVEDT    PSIVHIS    PSIVLTR1    PSIVOPT    PSIVOPT2
PSIVORA    PSIVORA1    PSIVORC    PSIVORC1    PSIVORC2    PSIVORE    PSIVOREN    PSIVORLB
PSIVORV1    PSIVPRO    PSIVSPDC    PSIVUDL    PSIVUTL    PSIVUTL1    PSIVVW1    PSJ005
PSJ007    PSJADT0    PSJBCMA1    PSJBCMA2    PSJBCMA3    PSJBCMA5    PSJBCMA6    PSJBLDOC
PSJCLOR    PSJCOM1    PSJCOMV    PSJDCU    PSJDDUT    PSJEEU0    PSJGMRA    PSJH1
PSJHIS    PSJHL2    PSJHL3    PSJHL4    PSJHL4A    PSJHL5    PSJHL7    PSJHL9
PSJHLU    PSJHLV    PSJIBAG    PSJIEDT    PSJIMO1    PSJINHIS    PSJINVW    PSJLIACT
PSJLIFN    PSJLIFNI    PSJLIUTL    PSJLIVFD    PSJLMGUD    PSJLMHED    PSJLMPRI    PSJLMPRU
PSJLMUT1    PSJLMUTL    PSJLOI    PSJMISC    PSJMPEND    PSJNEWOA    PSJNEWOC    PSJO1
PSJO2    PSJOCDI    PSJOCDS    PSJOCDT    PSJOE    PSJOE0    PSJOE1    PSJOEA
PSJOEA1    PSJOEA2    PSJOEEW    PSJOREN    PSJORMA2    PSJORMAR    PSJORRE    PSJORRE1
PSJORREN    PSJORRN    PSJORRN1    PSJORRO    PSJORUT2    PSJPAD50    PSJPADSI    PSJPATMR
PSJPR    PSJPR0    PSJPXRM1    PSJRXI    PSJU DRUG EDIT    PSJUTL    PSJUTL1    PSJUTL2
SOLUTION    
Pharmacy Data Management 4 PSSGS0    PSSGSGUI    PSSGSH    PSSORUTE    
Outpatient Pharmacy 2 PSODGAL1    PSONEWOA    
Barcode Medication Administration 1 ALPBINP    
Text Integration Utility 1 TIULMED    

Accessed By FileMan Db Calls, Total: 37

Package Total Routines
Inpatient Medications 34 PSGBRJ    PSGGAO    PSGOEC    PSGOECS    PSGOEE    PSGOEF1    PSGOEI    PSGOETO
PSGOEV    PSGSH    PSIVEDT    PSIVOPT1    PSIVORA    PSIVORC    PSIVOREN    PSIVORFA
PSIVSPDC    PSJ005    PSJ257PO    PSJ299PO    PSJ311PO    PSJBLDOC    PSJCLNOC    PSJCLOR2
PSJDGAL2    PSJDGCK    PSJHL4    PSJHL9    PSJHLV    PSJIMO1    PSJNEWOC    PSJOEA1
PSJOEA2    PSJUTL1    
Health Summary 2 GMTSPST1    GMTSPSTN    
Outpatient Pharmacy 1 PSONEWOA    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Order Entry Results Reporting 1 ORDER CHECK INSTANCES(#100.05)[#100.07(.01)]    
Pharmacy Data Management 1 PHARMACY SYSTEM(#59.7)[20.1420.404]    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
Pharmacy Data Management 5 APSP INTERVENTION(#9009032.4)[#53.13(.01)]    PHARMACY ORDERABLE ITEM(#50.7)[108]    IV ADDITIVES(#52.6)[#53.157(.01)]    IV SOLUTIONS(#52.7)[#53.158(.01)]    DRUG(#50)[24#53.11(.01)]    
Inpatient Medications 3 PRIMARY DRUG(#50.3)[101]    ACTIVITY LOG REASON(#53.3)[#53.1119(2)]    IV ROOM(#59.5)[62]    
Registration 2 WARD LOCATION(#42)[5052]    PATIENT(#2)[.5]    
Kernel 1 NEW PERSON(#200)[115161820223151#53.1114(1)#53.1114(2)#53.1119(1)]
National Drug File 1 MEDICATION ROUTES(#51.2)[3]    
Order Entry Results Reporting 1 ORDER(#100)[125]    
Scheduling 1 HOSPITAL LOCATION(#44)[113]    

Fields, Total: 108

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

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 25, 2013
  • HELP-PROMPT:  Type a whole number between 1 and 1000000000.
  • DESCRIPTION:  
    This is a reference number for this order.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  53.1^B
    1)= S ^PS(53.1,"B",$E(X,1,30),DA)=""
    2)= K ^PS(53.1,"B",$E(X,1,30),DA)
.24 PRIORITY .2;4 SET
  • 'S' FOR STAT;
  • 'A' FOR ASAP;
  • 'R' FOR ROUTINE;
  • 'P' FOR PREOP;
  • 'T' FOR TIMING CRITICAL;
  • 'D' FOR DONE;

  • LAST EDITED:  MAY 22, 2001
  • HELP-PROMPT:  Enter a priority for processing the order, if desired.
  • DESCRIPTION:  
    This field contains the priority of the order that was received from OERR.
.25 NUMBER 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 20, 1986
  • HELP-PROMPT:  Type a whole number between 1 and 1000000000.
  • DESCRIPTION:  
    (Not currently used.)
  • GROUP:  PSJU
.5 PATIENT NAME 0;15 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  JUN 25, 2013
  • DESCRIPTION:  
    This is the patient for which the medication has been ordered.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  53.1^AP^MUMPS
    1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENNPS^PSGAXR
    2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENNPK^PSGAXR
    3)= Used by Inpatient Meds to set several cross-references.
    This is used to set and kill the following cross-references:
    ^PS(53.1,"AC",patient,DA)=""
    ^PS(53.1,"AOD",patient,primary drug,DA)=""
    ^PS(53.1,"AS",status,patient,DA)=""
    ^PS(53.1,"AV",patient,DA)=""
    ^PS(53.1,"C",patient,DA)=""
    The AC and AOD x-refs are only set if the order has not been verified or discontinued.
    The AV x-ref is only set if the order has a pending status and was acknowledged by a nurse.
  • RECORD INDEXES:  AD (#502), CIMO (#808)
1 PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 02, 1993
  • DESCRIPTION:  
    This field should contain the prescribing physician's name.
  • SCREEN:  S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"
  • EXPLANATION:  Provider must be active and privileged to write medication orders.
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  53.1^APR^MUMPS
    1)= I $P($G(^PS(53.1,DA,0)),"^",15),$D(^PS(55,+$P(^(0),U,15),0)),$P($G(^(5.1)),"^",2)'=X S $P(^(5.1),"^",2)=X
    2)= Q
    Updates the UD PROVIDER field of the PHARMACY PATIENT file.  This field is used as a default value for Unit Dose order entry.  S $P(^PS(55,DFN,5.1),"^",2)=PROVIDER
2 DISPENSE DRUG 1;0 POINTER Multiple #53.11 53.11

  • LAST EDITED:  JUL 17, 1991
  • DESCRIPTION:  
    This is the medication ordered for the patient.
  • GROUP:  PSJU
3 MED ROUTE 0;3 POINTER TO MEDICATION ROUTES FILE (#51.2)
************************REQUIRED FIELD************************
MEDICATION ROUTES(#51.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^PS(51.2,+Y,0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 09, 1987
  • HELP-PROMPT:  Enter how this medication will be administered to the patient.
  • DESCRIPTION:  
    This is the route of administration for this medication.  (If a corresponding abbreviation is found for this route in the MEDICATION ROUTES file, this package will print that abbreviation on it's reports.)
  • SCREEN:  S DIC("S")="I $P(^PS(51.2,+Y,0),""^"",4)"
  • EXPLANATION:  
  • GROUP:  PSJU
4 TYPE 0;4 SET
************************REQUIRED FIELD************************
  • 'U' FOR UNIT DOSE;
  • 'I' FOR INPATIENT;
  • 'F' FOR FLUID;
  • 'H' FOR HYPERAL;

  • LAST EDITED:  JUN 03, 1991
  • DESCRIPTION:  
    This identifies the type of medication ordered.
  • GROUP:  PSJU
5 SELF MED 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 16, 1986
  • HELP-PROMPT:  Enter a '1' (or 'YES') if this medication is to be self administered.
  • DESCRIPTION:  
    This should contain a `1' (or `YES') if this medication is to be administered by the patient to himself.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  ^^TRIGGER^53.1^6
    1)= I 'X S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),"^",6),1:"") I DIU]"" S $P(^(0),"^",6)="" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=6 D ^DICR K DIV
    2)= S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),"^",6),1:"") I DIU S $P(^(0),"^",6)="" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=6 D ^DICR K DIV
    3)= Used by Inpatient Meds.
    CREATE CONDITION)= I 'X
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= HOSPITAL SUPPLIED SELF MED
    Used to update HOSPITAL SUPPLIED SELF MED field to a value of 'NO' when this field is changed from 'YES' to 'NO'.
6 HOSPITAL SUPPLIED SELF MED 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 18, 1985
  • HELP-PROMPT:  Enter 'Yes' (or a '1') if this SELF MED is to be supplied by the medical center's pharmacy.
  • DESCRIPTION:  This should contain a `1' (or `YES') if this medication is to be a `SELF MED' and this site's pharmacy is to supply the medication. This is only asked if the user enters `YES' (or `1') to the SELF MED prompt. If the
    SELF MED field is ever edited to show `NO' (or `0'), this is automatically deleted.
  • GROUP:  PSJU
  • NOTES:  TRIGGERED by the SELF MED field of the NON-VERIFIED ORDERS File
7 SCHEDULE TYPE 0;7 SET
************************REQUIRED FIELD************************
  • 'O' FOR ONE-TIME;
  • 'P' FOR PRN;
  • 'C' FOR CONTINUOUS;
  • 'R' FOR FILL on REQUEST;
  • 'OC' FOR ON CALL;

  • LAST EDITED:  FEB 02, 2011
  • HELP-PROMPT:  Enter the code (C, O, OC, P, or R) corresponding to the scheduling of this order.
  • DESCRIPTION:  This describes the type of schedule for the dispensing of the medication(s) that make up the order.
    PRE-OP orders are usually considered to be ON-CALL orders, and orders dispensed as MUTLI-DOSE CONTAINERS are usually considered to be FILL ON REQUEST orders.
  • TECHNICAL DESCR:  
    This is used to determine how the order will be dispensed by the pharmacy to the ward.  This is used mainly when the Unit Dose package calculates the number of units or doses to be dispensed for a given date/time range.
  • EXECUTABLE HELP:  D SCHTP^PSJDDUT
  • GROUP:  PSJU
  • CROSS-REFERENCE:  ^^TRIGGER^53.1^25
    1)= I X="O",$D(^PS(53.1,DA,2)),$P(^(2),"^",2),$P(^(2),"^",4),$P(^(2),"^",2)'=$P(^(2),"^",4) S DIU=$P(^(2),"^",4),$P(^(2),"^",4)=$P(^(2),"^",2) I $O(^DD(53.1,25,1,0)) K DIV S DIV=$P(^PS(53.1,DA,2),"^",2) X ^DD(53.1,7,1,2,1.
    4)
    1.4)= S (DIV(0),D0)=DA,DIH=53.1,DIG=25 D ^DICR K DIV W "   ...This changes the STOP DATE/TIME..."
    2)= Q
    3)= Used by Inpatient Meds.
    CREATE CONDITION)= I X="O"
    CREATE VALUE)= START DATE/TIME
    DELETE VALUE)= NO EFFECT
    FIELD)= STOP DATE/TIME
    If the SCHEDULE TYPE is changed to "ONE-TIME", the STOP DATE/TIME is changed to be the same as the START DATE/TIME.
8 SPECIAL INSTRUCTIONS 6;1 FREE TEXT

  • INPUT TRANSFORM:  D CHKSI^PSJDDUT
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Answer must be 1-180 characters in length.
  • DESCRIPTION:  This is any special instructions (using abbreviations whenever possible) needed for this order. This would include the physician's reason for ordering a PRN. The abbreviations and expansions from the MEDICATION
    INSTRUCTIONS file are utilized.
  • EXECUTABLE HELP:  D SPCIN^PSJDDUT
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 RENEWAL 4;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 24, 1986
  • DESCRIPTION:  
    (Not currently used.)
  • GROUP:  PSJU
10 START DATE/TIME 2;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D:X="P" STRDT^PSJDDUT I $D(X) S %DT="ETX" D ^%DT S X=Y K:Y<1!('$P(X,".",2)) X
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Enter the date and time that the first dose is to be given.
  • DESCRIPTION:  This is the date and time the order is to begin. This package initially
    assigns the START DATE/TIME to the closest administration time or next
    admin. time or NOW depends on the value of the DEFAULT START DATE
    CALCULATION field in the INPATIENT WARD PARAMETERS file.
    START DATE/TIME may not be entered prior to 7 days from the order's
    LOGIN DATE.
  • EXECUTABLE HELP:  D EN^DDIOL(" TIME IS REQUIRED.","","!")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11 DAY LIMIT 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 18, 1985
  • HELP-PROMPT:  Type a whole number between 1 and 99.
  • DESCRIPTION:  
    This is the number of days that this order will last.
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
12 DOSE LIMIT 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 18, 1985
  • HELP-PROMPT:  Type a whole number between 1 and 99.
  • DESCRIPTION:  
    This is the number of times the medication is to be administered.
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
13 *UNITS PER DOSE 0;12 NUMBER

  • INPUT TRANSFORM:  S X=$S(X="1/2":.5,X="1/4":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"."3.N) X
  • OUTPUT TRANSFORM:  S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
  • LAST EDITED:  NOV 12, 1992
  • HELP-PROMPT:  Enter a number between 0 and 30 (will accept '1/2' or '1/4').
  • DESCRIPTION:  
    This is now for use only by the package.  Units per Dose is now associated with each dispense drug.
  • TECHNICAL DESCR:  
    This is now for use only by the package for look-up purposes during order entry.  Units per dose is now associated with each dispense drug.  See Units per Dose (field #.02) within the Dispense Drug multiple (#53.11).
  • EXECUTABLE HELP:  D UNPD^PSJDDUT
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
14 *PRE-EXCHANGE UNITS 5;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  NOV 12, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the number of actual units needed for this order until the next cart exchange.
  • GROUP:  PSJU
15 RENEWAL USER 4;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who renewed this order, or marked this order to be renewed.
  • GROUP:  PSJU
16 VERIFYING NURSE 4;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 22, 1996
  • DESCRIPTION:  
    This is the nurse who verifies the order.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  53.1^AV^MUMPS
    1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENNACK^PSGAXR
    2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENNACKK^PSGAXR
    If the order has a pending status and was acknowledged by a nurse, this x-ref is set:
    ^PS(53.1,"AV",patient,DA)=""
17 DATE VERIFIED BY NURSE 4;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    This is the date the order was verified by the nurse.
  • GROUP:  PSJU
18 VERIFYING PHARMACIST 4;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the pharmacist who verified the order.
  • GROUP:  PSJU
19 DATE VERIFIED BY PHARMACIST 4;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    This is the date the order was verified by the pharmacist.
  • GROUP:  PSJU
20 PHYSICIAN 4;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""PS""),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the physician who signed off on the order.
  • SCREEN:  S DIC("S")="I $D(^(""PS""),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"
  • EXPLANATION:  Provider must be active and privileged to write medciation orders.
  • GROUP:  PSJU
21 DATE VERIFIED BY PHYSICIAN 4;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    This is the date the physician signed off on the order.
  • GROUP:  PSJU
22 CLERK 4;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who entered the order.
  • GROUP:  PSJU
23 DATE ENTERED BY CLERK 4;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    This is the date (to the second) that the order was entered.
  • GROUP:  PSJU
24 SOLUTION 0;17 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • LAST EDITED:  APR 18, 1985
  • DESCRIPTION:  
    (Not currently used.)
  • GROUP:  PSJU
25 STOP DATE/TIME 2;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  X:X=+X&X&$D(^PS(53.1,DA,2)) "S PSGDL=X D EN^PSJDDUT" S %DT="ERTX" D ^%DT S X=+Y K:Y'>0 X
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Enter the date and time that the last dose is to be given (and the order will expire).
  • DESCRIPTION:  
    This is the date and time the order will automatically expire.  This package initially assigns a default STOP DATE/TIME, depending on the SITE PARAMETERS.
  • EXECUTABLE HELP:  D EN^PSJDDUT3("STPDTHLP")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SCHEDULE TYPE field of the NON-VERIFIED ORDERS File
26 SCHEDULE 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D:'$D(PSGOES) SCH^PSJDDUT
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Answer must be 1-70 characters in length and may contain only two spaces.
  • DESCRIPTION:  This is the frequency (ONLY) with which the doses are to be administered. Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD, and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the
    admin times).  The schedule will show on the MAR, labels, etc.  No more than TWO spaces (Q3H 4, TID PC PRN, or Q4H PRN) in the schedule are acceptable.  If the letters PRN are found as part of the schedule, no admin times
    will print on the MAR or labels, and the PICK LIST will always show a count of zero (0).
    Avoid using notation such as W/F (with food) or WM (with meals)in the schedule as it may cause erroneous calculations.  That information should be entered into the SPECIAL INSTRUCTIONS.
    When using the MO-WE-FR@AD schedule, please remember that this type of schedule will not work properly without the "@" character and at least one admin time, and that at least the first two letters of each weekday
    entered is needed.
  • EXECUTABLE HELP:  D SCH3^PSJDDUT
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^53.1^39
    1)= I '$D(DIU(0)),$D(PSGS0Y),PSGS0Y S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",5),1:"") I DIU'=PSGS0Y S $P(^(2),"^",5)=PSGS0Y I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0Y,DIH=53.1,DIG=39 D ^DICR K DIV
    2)= I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",5),1:"") I DIU]"" S $P(^(2),"^",5)="" I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=39 D ^DICR K DIV
    CREATE VALUE)= PSGS0Y
    DELETE VALUE)= @
    FIELD)= ADMIN TIMES
    Triggers data into Admin. Times field.
  • CROSS-REFERENCE:  ^^TRIGGER^53.1^41
    1)= I $D(PSGS0XT),PSGS0XT S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",6),1:"") I DIU'=PSGS0XT S $P(^(2),"^",6)=PSGS0XT I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0XT,DIH=53.1,DIG=41 D ^DICR K DIV
    2)= I $D(PSGS0XT) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",6),1:"") I DIU]"" S $P(^(2),"^",6)="" I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=41 D ^DICR K DIV
    CREATE VALUE)= PSGS0XT
    DELETE VALUE)= @
    FIELD)= FREQUENCY (in minutes)
    Triggers data into Frequency (min.) field.
27 ORDER DATE 0;14 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1!($P(X,".",2)']"") X
  • LAST EDITED:  APR 30, 1985
  • HELP-PROMPT:  Enter Date/Time that order was written.
  • DESCRIPTION:  
    This is the date the medication was ordered.
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
27.1 LOG-IN DATE 0;16 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 24, 1986
  • DESCRIPTION:  
    This is the date (to the second) the ordered was entered.
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
    UNEDITABLE
28 STATUS 0;9 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'D' FOR DISCONTINUED;
  • 'I' FOR INCOMPLETE;
  • 'N' FOR NON-VERIFIED;
  • 'U' FOR UNRELEASED;
  • 'P' FOR PENDING;
  • 'DE' FOR DISCONTINUED (EDIT);

  • LAST EDITED:  MAY 27, 1992
  • DESCRIPTION:  
    This is the status of the order.
  • GROUP:  PSJU
  • CROSS-REFERENCE:  53.1^AS^MUMPS
    1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENSS^PSGAXR
    2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I  S X=XX D ENSK^PSGAXR
    3)= NEEDED BY UNIT DOSE
    Sets the following x-refs: ^PS(53.1,"AS",status,patient,DA)
    If the status is not ACTIVE or a DISCONTINUED status, the following are also set: ^PS(53.1,"AC",patient,DA) ^PS(53.1,"AOD",patient,primary drug,DA)
    If the status is pending and order has been acknowledged by a nurse, the following is also set: ^PS(53.1,"AV",patient,DA)
    These are used for certain look-ups.
29 DATE RENEWAL MARKED 4;11 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 24, 1986
  • DESCRIPTION:  
    This is the date the order was marked to be renewed.
  • GROUP:  PSJU
30 MARKED CANCELLED 4;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 24, 1986
  • DESCRIPTION:  
    This is an internal flag showing that the order has been marked to be cancelled.
  • GROUP:  PSJU
31 MARKED CANCELLED USER 4;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who marked the order to be cancelled.
  • GROUP:  PSJU
32 INACTIVE DATE/TIME 2;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 06, 1987
  • DESCRIPTION:  
    This is the original stop date of the order, and is updated when the order is cancelled.
  • GROUP:  PSJU
33 DOSES CALLED FOR 5;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 11, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 9999.
  • DESCRIPTION:  
    This is the total amount of the medication to be dispensed as calculated by the package.
  • GROUP:  PSJU
34 DOSES ACTUALLY DISPENSED 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 11, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 9999.
  • DESCRIPTION:  
    This is the amount of the medication actually dispensed as entered by the pharmacist.
  • GROUP:  PSJU
35 RETURNS 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 11, 1985
  • HELP-PROMPT:  Enter a whole number between -100 and 100.
  • DESCRIPTION:  
    This is the number of doses returned of this medication from the patient's cassette upon the termination of this order.
  • EXECUTABLE HELP:  S Y1=$S('$D(^PS(53.1,DA,5)):0,1:$P(^(5),"^",4)) D EN^DDIOL($S(Y1:Y1_"TOTAL",1:"NO")_" DOSE"_$E("S",Y1'=1)_" RETURNED, SO FAR.","","!")
  • GROUP:  PSJU
36 TOTAL RETURNS 5;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 11, 1985
  • HELP-PROMPT:  Type a whole number between 0 and 9999.
  • DESCRIPTION:  
    This is the total amount of returns for this order.
  • GROUP:  PSJU
37 TOTAL UNITS DISPENSED COMPUTED

  • MUMPS CODE:  S Y(53.1,37,2)=$S($D(^PS(53.1,D0,0)):^(0),1:""),Y(53.1,37,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(53.1,37,1),U,3)+$P(Y(53.1,37,2),U,13)-$P(Y(53.1,37,1),U,4)
  • ALGORITHM:  DOSES ACTUALLY DISPENSED+PRE-EXCHANGE NEEDS-TOTAL RETURNS
  • LAST EDITED:  NOV 11, 1985
  • DESCRIPTION:  
    This is the total amount dispensed for this order, including PRE-EXCHANGE NEEDS and EXTRA UNITS DISPENSED.
  • GROUP:  PSJU
38 DATE MARKED CANCELLED 4;14 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 24, 1986
  • DESCRIPTION:  
    This is the date that the order was marked for cancellation.
  • GROUP:  PSJU
39 ADMIN TIMES 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) D ENCHK^PSGS0
  • LAST EDITED:  FEB 09, 2009
  • HELP-PROMPT:  Enter a set of administration times for this order.
  • DESCRIPTION:  
    This is the set of administration times for this order.
  • EXECUTABLE HELP:  D ADTM2^PSJDDUT
  • DELETE TEST:  5,0)= I $D(^PS(53.1,DA,2)),$P(^(2),"^")["@" D EN^DDIOL("YOU CANNOT DELETE THE ADMIN TIMES FOR THIS TYPE OF SCHEDULE. ","","!?2")
    41,0)= I $D(^PS(53.1,DA,2)),$P(^(2),"^",6)="D" D EN^DDIOL("This is a 'DAY OF THE WEEK' schedule, and must have admin times.","","!")
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SCHEDULE field of the NON-VERIFIED ORDERS File
  • CROSS-REFERENCE:  53.1^AAT^MUMPS
    1)= S PSGS0Y=X
    2)= Q
    Used to ensure the variable PSGS0Y contains the admin times for the order when the field is set using VA FileMan.
    S PSGS0Y=ADMIN TIMES
  • CROSS-REFERENCE:  53.1^ADM^MUMPS
    1)= I $D(^PS(53.1,DA,2)),$P(^(2),"^")["@" S $P(^(2),"^")=$P($P(^(2),"^"),"@")_"@"_X
    2)= Q
    3)= NEEDED BY UNIT DOSE
    Used to update a DAY OF THE WEEK type schedule whenever the admin times are changed.  S $P(^PS(53.1,ORDER NUMBER,2),"^")=$P(SCHEDULE,"@",2)_@_ADMIN TIMES
40 COMMENTS 3;0 WORD-PROCESSING #53.12

  • DESCRIPTION:  
    This is any remarks needed for this order.
  • GROUP:  PSJU
41 FREQUENCY (in minutes) 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  JAN 09, 1990
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is either a code or the number of minutes between the administration times for the order.
    WRITE AUTHORITY:  ^
  • GROUP:  PSJU
  • NOTES:  TRIGGERED by the SCHEDULE field of the NON-VERIFIED ORDERS File
42 TRANSFER 4;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 24, 1986
  • DESCRIPTION:  
    This is an internal flag set if the order was cancelled due to the patient being transferred.
  • GROUP:  PSJU
43 PV FLAG 4;16 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 27, 1986
  • DESCRIPTION:  
    This is an internal flag set if the order was ever verified by a pharmacist.
  • GROUP:  PSJU
44 LABEL DATE 7;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 1986
  • HELP-PROMPT:  Enter the date the latest label was created for this order.
  • DESCRIPTION:  
    This is the date the last label record was created for this order.
  • GROUP:  PSJU
45 LABEL REASON 7;2 SET
  • 'D' FOR DISCONTINUED;
  • 'E' FOR EDITED;
  • 'N' FOR NEW;
  • 'DE' FOR DISCONTINUED (EDIT);

  • LAST EDITED:  AUG 31, 1992
  • HELP-PROMPT:  Enter the reason the latest label was created for this order.
  • DESCRIPTION:  
    This is the last activity to take place on the order that created a label record.
  • GROUP:  PSJU
46 NEW ORDER NO. 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 22, 1986
  • HELP-PROMPT:  Enter a whole number between 0 and 999999999
  • DESCRIPTION:  When an order is first made active, the new order number (from ^PS(55)) is stored in this field.
    (Not currently used.)
  • GROUP:  PSJU
47 SIG 6.5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>180!($L(X)<1) X
  • LAST EDITED:  OCT 22, 1987
  • HELP-PROMPT:  Answer must be 1-180 characters in length.
  • DESCRIPTION:  
    This is the provider's exact instructions for this order's medication and its administration.
  • GROUP:  PSJU
48 PURGE FLAG 0;20 SET
  • '1' FOR ORDER TO BE PURGED;

  • LAST EDITED:  JUN 17, 1987
  • DESCRIPTION:  
    This is an internal flag set when the order is due to be purged (deleted).
  • GROUP:  PSJU
49 ORDERS FILE ENTRY 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 29, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the pointer value of the corresponding entry in the Orders file (100) when the order is entered through the OE/RR process.
  • GROUP:  PSJU
50 LAST WARD 0;23 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  AUG 15, 1988
  • HELP-PROMPT:  SHOULD NOT BE ENTERED THROUGH VA FILEMAN.
  • DESCRIPTION:  This is the last ward the patient was located when the order expired or was discontinued. This is automatically updated by the Unit Dose package when the package finds that the patient is first admitted or when the
    patient is found to have been transferred.  This allows any returns that are entered to be credited to the correct ward.
  • GROUP:  PSJU
51 LABEL CREATOR 7;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who took the action that created the label for this order.
  • GROUP:  PSJU
52 WARD FOR AUTO-CANCEL LABEL 7;4 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  NOV 01, 1988
  • DESCRIPTION:  
    This is the ward the patient was on before the transfer or discharge that created the label occurred.
  • GROUP:  PSJU
53 IV TYPE 8;1 SET
  • 'A' FOR ADMIXTURE;
  • 'C' FOR CHEMOTHERAPY;
  • 'H' FOR HYPERAL;
  • 'P' FOR PIGGYBACK;
  • 'S' FOR SYRINGE;

  • LAST EDITED:  MAY 21, 1991
  • DESCRIPTION:  
    Type of IV - "A" for Admixture, "C" for Chemotherapy, "H" for Hyperal, "P" for Piggyback, and "S" for Syringe.
54 CHEMOTHERAPY TYPE 8;2 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADMIXTURE;
  • 'P' FOR PIGGYBACK;
  • 'S' FOR SYRINGE;

  • LAST EDITED:  MAY 21, 1991
  • DESCRIPTION:  A chemotherapy IV order may be one of three type: admixture, piggyback, or syringe. The type of chemotherapy IV must be identified as one of these types, so the system will know what kinds of questions to ask in order
    to properly complete this order.
55 SYRINGE SIZE 8;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  MAY 11, 2005
  • HELP-PROMPT:  Answer must be 1-100 characters in length. Example: 25 cc's ..NOTE.. total volume of order should be less than syringe size.
  • DESCRIPTION:  
    Enter the size of the syringe which is to be used to administer this IV.
  • GROUP:  PSJI
56 INTERMITTENT SYRINGE 8;4 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 21, 1991
  • DESCRIPTION:  A syringe IV order may be continuous or intermittent. If a syringe type is continuous (not intermittent), the same order entry procedure will be followed as if a hyperal or admixture is being entered. If a syringe
    order is to be intermittent, the same order entry method as the piggyback type will be followed.
  • GROUP:  PSJI
57 ADDITIVE AD;0 POINTER Multiple #53.157 53.157

  • DESCRIPTION:  
    The additive in the IV.  This looks at the IV ADDITIVES file (52.6).
  • GROUP:  PSJI
58 SOLUTION SOL;0 POINTER Multiple #53.158 53.158

  • DESCRIPTION:  
    Solution in the IV.  Points to the IV SOLUTIONS file (52.7).
  • GROUP:  PSJI
59 INFUSION RATE 8;5 FREE TEXT

  • INPUT TRANSFORM:  D ENI^PSJDDUT3
  • LAST EDITED:  JUN 19, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  The rate at which the IV is to be administered. This value, together with the total volume of the hyperal or the admixture type, is used to determine the time covered by one bag; hence the system can predict the bags
    needed during a specified time of coverage.  This field is free text for IVPB's.  For LVP's you must enter a number representing the infusion rate.  You may also specify the # of bags per day needed, which will become the
    default number of LABELS PER DAY.
    Example.  125 = 125 ml/hr (IV system will calculate bags needed per day)
    125@2 = 125 ml/hr with 2 labels per day
    TITRATE@1 = TITRATE with 1 label per day.
    The format of this field is either a number only or
    [FREE TEXT@NUMBER OF LABELS PER DAY].
    Note: If an administration time(s) is defined, the number of labels will reflect the administration time(s) for the IVPB type orders.  For example:  One administration time of 12:00 is specified.  The infusion rate is
    entered as 125@3.  Only 1 label will print.
  • TECHNICAL DESCR:  
    The # of bags per day needed, if entered, populates P("NUMLBL") and displays as the default for the LABELS PER DAY (#131) field.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60 SCHEDULE INTERVAL 8;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 24, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999.
  • DESCRIPTION:  
    Interval (in minutes) between administrations of the IV order.
  • GROUP:  PSJI
61 ATZERO 8;7 SET
  • '1' FOR PRINT PB'S ON DEMAND;

  • LAST EDITED:  JUN 03, 1991
  • DESCRIPTION:  If an IV order is intermittent and a schedule was entered in the form SCHEDULE@0. Notice there are no spaces in the input. When a schedule is entered in this form, this field is set to 1. This causes the order to be
    printed on the Ward and Manufacturing lists with 0 doses due.  Scheduled labels for the order will not be printed unless the Ward list is updated before printing scheduled labels.  This is a "print on demand" function
    similar to entering INFUSION RATE@0 for continuous orders.
  • GROUP:  PSJI
62 IV ROOM 8;8 POINTER TO IV ROOM FILE (#59.5)
************************REQUIRED FIELD************************
IV ROOM(#59.5)

  • LAST EDITED:  JUL 30, 1991
  • DESCRIPTION:  
    IV room where IV bag was prepared for administration.
  • GROUP:  PSJI
63 REMARKS 9;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  JUN 03, 1991
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
  • DESCRIPTION:  
    This is not displayed on IV labels, but is printed on some IV reports.
  • GROUP:  PSJI
64 OTHER PRINT INFO 9;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  SEP 05, 1991
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    For use by Pharmacy to print additional information on IV labels and reports.
  • GROUP:  PSJI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66 PROVIDER COMMENTS 12;0 WORD-PROCESSING #53.1012

  • DESCRIPTION:  
    This is used to store any additional information the provider needs to pass along to pharmacy or ward personnel when an order is entered through OE/RR.
  • TECHNICAL DESCR:  
    This contains additional information entered for an order through OE/RR.  Provider comments are displayed when the order is displayed using pharmacy or OE/RR options, but may only be entered/edited through OE/RR.
68 PREVIOUS ORDER NUMBER 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 04, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    When an order is created from an active order, the old number (from ^PS(55)) is stored in this field.
  • TECHNICAL DESCR:  This is used to take an action on a previous order when the new order has been completed. For example, if an active order is renewed through OE/RR, the old order remains active until the new one is completed by Pharmacy.
    When the new order is completed, the stop date of the old order is changed to the start date of the new order.
  • GROUP:  PSJ
101 *PRIMARY DRUG .1;1 POINTER TO PRIMARY DRUG FILE (#50.3) PRIMARY DRUG(#50.3)

  • LAST EDITED:  FEB 01, 1996
  • DESCRIPTION:  This is the primary drug associated with the order. If the order is a unit dose order all dispensed drugs entered must be matched to the order's primary drug. If the order is an IV order at least one of the additives or
    solutions entered must match the primary drug.
  • CROSS-REFERENCE:  53.1^APD^MUMPS
    1)= D ENNDS^PSGAXR
    2)= D ENNDK^PSGAXR
    3)= Needed to set up several x-refs.
    The cross reference is used to quickly set (or kill) the following cross- references:
    ^PS(53.1,"D",Primary Drug,DA)=""
    ^PS(53.1,"AOD",Patient,Primary Drug,DA)=""  only if the status is not 'A' and not 'D'.
102 *DOSAGE ORDERED .1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 01, 1996
  • HELP-PROMPT:  Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters. This is an amount, such as '20MG', and NOT the number of tablets.
  • DESCRIPTION:  
    This is the amount of the medication the patient is to receive as one dose for this order.  This should be an amount with a unit of measure, such '500MG' or '50CC'.  THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC.
  • GROUP:  PSJ
103 REASON ORDER CREATED 0;24 SET
  • 'N' FOR NEW;
  • 'R' FOR RENEWAL;
  • 'E' FOR EDIT;

  • LAST EDITED:  NOV 12, 1991
  • DESCRIPTION:  
    This is used to show the method used to create this order.
  • TECHNICAL DESCR:  
    This shows if the order was entered through new order entry, or was created as a result of an edit or renewal of an existing order.
  • GROUP:  PSJ
104 PREVIOUS ORDER 0;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 12, 1991
  • DESCRIPTION:  
    If an action is taken on an order that causes a new order to be created, this will contain a code identifying the previous order.
  • TECHNICAL DESCR:  If the order was created as a result of an edit or renew, this field will contain the order number of the previous order concatenated with a letter that denotes the status of the order and the file in which it is located.
    The letter concatenated to the order number will be one of the following:
    U - Unreleased, in 53.1
    P - Pending, in 53.1
    N - Non-verified, in 53.1
    A - Active UD order, in 55
    V - Active IV order, in 55
  • GROUP:  PSJ
105 FOLLOWING ORDER 0;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 12, 1991
  • DESCRIPTION:  
    If an action is taken on an order that causes a new order to be created, this will contain a code identifying the order created.
  • TECHNICAL DESCR:  If an order is created because of an edit or renew, this field will contain the order number of the following order, concatenated with a letter that denotes the status of the order and the file in which it is located.
    The letter concatenated to the order number will be one of the following:
    U - Unreleased, in 53.1
    P - Pending, in 53.1
    N - Non-Verified, in 53.1
    A - Active UD order, in 55
    V - Active IV order, in 55
  • GROUP:  PSJ
106 *NATURE OF ORDER .1;3 SET
************************REQUIRED FIELD************************
  • 'W' FOR WRITTEN;
  • 'P' FOR TELEPHONED;
  • 'V' FOR VERBAL;
  • 'E' FOR PROVIDER ENTERED;

  • LAST EDITED:  FEB 01, 1996
  • HELP-PROMPT:  Enter the method the provider used to relate the order to the service.
  • DESCRIPTION:  
    This is the method the provider used to communicate to the user to enter (or take any other action) the order.
  • TECHNICAL DESCR:  This is the method the provider used to communicate the order to the user who entered the order. This is needed by the Order Entry/Results Reporting package, and is only prompted for if Inpatient Medications has been
    turned on for OE/RR by the site.
  • GROUP:  PSJ
107 REASON FOR FOLLOWING ORDER 0;27 SET
  • 'E' FOR EDIT;
  • 'R' FOR RENEWAL;

  • LAST EDITED:  JAN 26, 1992
  • DESCRIPTION:  
    If the order has been edited or renewed, this will contain the code corresponding to the action taken.
  • TECHNICAL DESCR:  
    This will contain a "E" if the order was created due to and edit, or a "R" if the order was created due to a renew.
  • GROUP:  PSJ
108 ORDERABLE ITEM .2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  FEB 22, 1995
  • DESCRIPTION:  This identifies the Orderable Item associated with the order. If the order contains multiple dispense drugs, or a single dispense drug requiring multiple units/dose, the Orderable Item and Dosage Ordered fields will be
    displayed.
109 DOSAGE ORDERED .2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  APR 13, 2001
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This is the amount of the medication the patient is to receive as one dose for this order. This should be an amount with a unit of measure, such as '500mg' or '50CC'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC.
110 NATURE OF ORDER .2;3 SET
  • 'W' FOR WRITTEN;
  • 'P' FOR TELEPHONED;
  • 'V' FOR VERBAL;
  • 'E' FOR ELECTRONICALLY ENTERED;
  • 'I' FOR POLICY;
  • 'S' FOR SERVICE CORRECTION;
  • 'D' FOR DUPLICATE;

  • LAST EDITED:  APR 11, 2011
  • HELP-PROMPT:  Enter the method the provider used to communicate the order to the service.
  • DESCRIPTION:  
    This is the method the provider used to communicate the order to the user to enter (or take any other action on) the order.
  • TECHNICAL DESCR:  
    This is the method the provider used to communicate the order to the user who entered or took action on the order.
111 INSTRUCTIONS .3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  FEB 22, 1995
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
112 ORDER CHECKS 10;0 Multiple #53.1112 53.1112
113 CLINIC DSS;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JUN 25, 2013
  • HELP-PROMPT:  Enter the name of the clinic where the patient was seen.
  • DESCRIPTION:  
    Entry must be a clinic.  Depending on the condition, INACTIVATE and REACTIVATE dates may exist.
  • RECORD INDEXES:  AD (#502), CIMO (#808)
114 LAST RENEW 14;0 DATE Multiple #53.1114 53.1114

  • LAST EDITED:  FEB 22, 2000
  • DESCRIPTION:  
    This multiple contains the data that relates to the renewal of an order.
  • TECHNICAL DESCR:  Renewing an order will no longer create a new order. This multiple will be used to track the last time the order was renewed, who renewed the order, the provider of the order prior to this renewal, and the stop date/time
    prior to this renewal.
115 REQUESTED START DATE/TIME 2.5;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 29, 2000
  • HELP-PROMPT:  Enter the requested Start Date/Time for this order.
  • DESCRIPTION:  
    This is the Date/Time the provider is requesting that this order start.
  • TECHNICAL DESCR:  
    This is the Date/Time the provider is requesting that this order start.
116 DURATION 2.5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 19, 2000
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This is the length of time in days the provider requests that this order last.
  • TECHNICAL DESCR:  
    This is the length of time in days the provider requests that this order last.
117 REQUESTED STOP DATE/TIME 2.5;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 24, 2000
  • HELP-PROMPT:  Enter the Date/Time that the provider requests this order stop.
  • DESCRIPTION:  
    This is the Date/Time the provider is requesting that this order stop.
118 UD/IV PROMPT 0;13 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 24, 2000
  • HELP-PROMPT:  Enter a 1 if the user should be prompted to finish this order as IV or Unit Dose.
  • DESCRIPTION:  
    This field will be used during the finishing process to determine if the user should be prompted whether they wish to finish the order as an IV or Unit Dose order.
119 ACTIVITY LOG A;0 DATE Multiple #53.1119 53.1119

  • DESCRIPTION:  This is a record of the actions that have taken place on the order.Actions include EDIT, RENEWAL, CANCELLATION, and FINISH. Stored with the action is the date and time the action took place and the user who took the
    action.  If the action is an edit, the data in the field edited prior to the edit is also stored.
120 DOSE .2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<.0001)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUN 08, 2000
  • HELP-PROMPT:  Type a Number between .0001 and 9999999999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the numeric dosage for the order. It will be combined with the UNIT field to show the dosage ordered.  For a dosage of 325MG, 325 would be stored here.
121 UNIT .2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<1) X
  • LAST EDITED:  JUL 27, 2000
  • HELP-PROMPT:  Answer must be 1-75 characters in length.
  • DESCRIPTION:  
    This is the field which contains the unit for the numeric dosage.  The combination of these two fields gives you the dosage ordered for this order.  For a dosage of 325MG, MG would be stored here.
122 SI FLAG 6;2 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 11, 2002
  • HELP-PROMPT:  Enter 1 for yes.
  • DESCRIPTION:  
    This flag controls whether the user administering this order in BCMA will have the Special Instructions displayed in a pop-up box.
123 OPI FLAG 9;3 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 11, 2002
  • HELP-PROMPT:  Enter a 1 for yes.
  • DESCRIPTION:  
    This flag controls whether the user administering this order in BCMA will have the Other Print Info displayed in a pop-up box.
124 FLAGGED .2;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 02, 2002
  • HELP-PROMPT:  Enter YES if this order is being flagged for clarification
  • DESCRIPTION:  
    This indicates that this order has been flagged for clarification.
125 ORDERS FILE PARENT ORDER .2;8 POINTER TO ORDER FILE (#100) ORDER(#100)

  • LAST EDITED:  DEC 13, 2004
  • HELP-PROMPT:  Enter the parent order, if this order is its child order.
  • DESCRIPTION:  
    This is the parent of a CPRS order that may have a parent/child relationship in CPRS
  • CROSS-REFERENCE:  53.1^ACX
    1)= S ^PS(53.1,"ACX",$E(X,1,30),DA)=""
    2)= K ^PS(53.1,"ACX",$E(X,1,30),DA)
    This cross reference is created each time a component of a complex order, or child order, is received from CPRS.  This cross reference will not be created for orders with a schedule of NOW, effectively disassociating the
    NOW order from the other child orders in the complex order.
126 APPOINTMENT DATE/TIME DSS;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  JUL 29, 2003
  • HELP-PROMPT:  Date and time of the appointment for this clinic location.
  • DESCRIPTION:  
    This is the date and time of the appointment this order is being placed for.
127 REQUESTED IV LIMITATION 2.5;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1.2A1.5N) X
  • LAST EDITED:  NOV 15, 2004
  • HELP-PROMPT:  Answer must be 1-6 characters in length.
  • DESCRIPTION:  
    This is the length of time to administer, or the total volume to administer, for IV fluid orders. The value may be in ML or CC for milliliters, L for liters, D for days, or H for hours.
128 IV TYPE CATEGORY 2.5;5 SET
  • 'I' FOR INTERMITTENT;
  • 'C' FOR CONTINUOUS;

  • LAST EDITED:  OCT 20, 2007
  • DESCRIPTION:  This field contains the category of the order's IV TYPE.
    The IV TYPE CATEGORY will be "C" (Continuous) for orders with an IV TYPE of Admixture, Hyperal, Non-Intermittent Syringe, or Chemotherapy with a CHEMOTHERAPY TYPE of Admixture, Hyperal, or Non-Intermittent Syringe.
    The IV TYPE CATEGORY will be "I" (Intermittent) for orders with an IV TYPE of Piggyback, Intermittent Syringe, or Chemotherapy with a CHEMOTHERAPY TYPE of Piggyback or Intermittent Syringe.
129 MOST RECENT FLAG COMMENT 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JUL 30, 2007
  • HELP-PROMPT:  Answer must be 1-80 characters in length
130 INTERVENTION 11;0 POINTER Multiple #53.13 53.13

  • DESCRIPTION:  
    Interventions logged during Inpatient Order Entry in response to drug-drug or drug-allergy order checks. Only interventions associated with a specific Inpatient Order will be stored with that order.
131 LABELS PER DAY 17;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 25, 2012
  • HELP-PROMPT:  Type a number between 0 and 99, 0 decimal digits.
  • DESCRIPTION:  
    The number of IV labels needed each day. If populated, this value will override the system-calculated number of labels.
135 SPECIAL INSTRUCTIONS (LONG) 15;0 WORD-PROCESSING #53.1135

  • DESCRIPTION:  
    This is any special instructions needed for this order.  This would include the physician's reason for ordering a PRN.
  • TECHNICAL DESCR:  
    This word processing field may contain an unlimited number of lines of text.
136 OTHER PRINT INFO (LONG) 16;0 WORD-PROCESSING #53.1136

  • DESCRIPTION:  For use by Pharmacy to print additional information on IV labels and reports. This is very similar to the REMARKS (#.1) field in the IV (#100) multiple of the PHARMACY PATIENT (#55) file, except OTHER PRINT INFO is shown
    on the label and the IV REPORTS.
  • TECHNICAL DESCR:  
    This field is a word processing field and may contain an unlimited number of lines of text.
137 DURATION OF ADMINISTRATION 2.1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  JUN 22, 2015
  • HELP-PROMPT:  Answer must be 1-6 characters in length. Expressed in Minutes. DO NOT EDIT!
  • DESCRIPTION:  
    This is the period of time that a Medication Requiring Removal must remain on the patient prior to removal.
  • TECHNICAL DESCR:  
    This is the period of time in minutes.  The user enters the time in hours then they are converted to minutes to remain consistent with schedule Frequency. Only entered via Inpatient Meds
    SOURCE OF DATA:   PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
138 REMOVE TIMES 2.1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JUN 23, 2015
  • HELP-PROMPT:  Answer must be 1-60 characters in length. DO NOT EDIT!
  • DESCRIPTION:  
    This is the set of removal times for this order.
  • TECHNICAL DESCR:  
    Actual calculated Removal times based on user input.  Admin Time + Duration of Admin = Removal
  • EXECUTABLE HELP:  
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
139 REMOVE PERIOD (in minutes) 2.1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  AUG 18, 2015
  • HELP-PROMPT:  Answer must be 1-6 characters in length. DO NOT EDIT!
  • DESCRIPTION:  
    Period of time in minutes calculated using the Duration of Administration and the Administration times.  Only entered via PSJ OE.
  • TECHNICAL DESCR:  
    Calculated field in PSJ OE.  Frequency - Duration of Admin = Remove Period. Value of -1 indicates optional entry for Orderable Item was declined by user.
    SOURCE OF DATA:   PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
140 BCMA PROMPT FOR REMOVAL FLAG 2.1;4 SET
  • '0' FOR No Removal Required;
  • '1' FOR Removal at Next Administration;
  • '2' FOR Removal Period Optional Prior to Next Administration;
  • '3' FOR Removal Period Required Prior to Next Administration;

  • LAST EDITED:  AUG 20, 2015
  • HELP-PROMPT:  Enter values 0 through 3 as flags. DO NOT EDIT!
  • DESCRIPTION:  
    Orderable Item Prompt for Removal flag captured at order time.  DO NOT EDIT!
  • TECHNICAL DESCR:  
    Orderable Item Prompt for Removal Flag used by BCMA. Controls method of prompting for VDL users.
    SOURCE OF DATA:   PSJ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #534
  • HEALTH SUMMARY
  • ICR #2140
  • PHARMACY DATA MANAGEMENT
  • SCHEDULE TYPE (7).
    Access: Direct Global Read & w/Fileman

    ORDERS FILE ENTRY (49).
    Access: Direct Global Read & w/Fileman

    RENEWAL (9).
    Access: Direct Global Read & w/Fileman

    STATUS (28).
    Access: Direct Global Read & w/Fileman

    ICR #2907
  • Text Integration Utility
  • ORDERABLE ITEM (108).
    Access: Direct Global Read & w/Fileman

    DISPENSE DRUG (.01).
    Access: Direct Global Read & w/Fileman

    ICR #5793
  • OUTPATIENT PHARMACY
  • ADDITIVE (57).
    Access: Direct Global Read & w/Fileman

    ORDERS FILE ENTRY (49).
    Access: Direct Global Read & w/Fileman

    This also allows a check for data on the '0' node of thefile.

    External References

    Name Field # of Occurrence
    ^%DT 10+1, 17+1, 19+1, 21+1, 23+1, 25+1, 27+1, 27.1+1, 29+1, 32+1
    , 38+1, 44+1, 115+1, 117+1, 126+1
    EN^DDIOL 10(HELP ), 35(HELP ), 39DEL5+1, 39DEL41+1
    ^DIC 1+1, 3+1, 20+1
    ^DICR 5(XREF 1S), 5(XREF 1K), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    ENNACK^PSGAXR 16(XREF 1S)
    ENNACKK^PSGAXR 16(XREF 1K)
    ENNDK^PSGAXR 101(XREF 1K)
    ENNDS^PSGAXR 101(XREF 1S)
    ENNPK^PSGAXR .5(XREF 1K)
    ENNPS^PSGAXR .5(XREF 1S)
    ENSK^PSGAXR 28(XREF 1K)
    ENSS^PSGAXR 28(XREF 1S)
    ENCHK^PSGS0 39+1
    ADTM2^PSJDDUT 39(HELP )
    CHKSI^PSJDDUT 8+1
    SCH^PSJDDUT 26+1
    SCH3^PSJDDUT 26(HELP )
    SCHTP^PSJDDUT 7(HELP )
    SPCIN^PSJDDUT 8(HELP )
    STRDT^PSJDDUT 10+1
    UNPD^PSJDDUT 13(HELP )
    EN^PSJDDUT3 25(HELP )
    ENI^PSJDDUT3 59+1
    $$CHECK3^PSJIMO1 IXCIMOSCC+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" .5(XREF 1S), .5(XREF 1K), 16(XREF 1S), 16(XREF 1K), 28(XREF 1S), 28(XREF 1K)
    ^DD(53.1 ID7+1, 5(XREF 1S), 5(XREF 1K), 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    ^PS(51.2 - [#51.2] ID3+1
    ^PS(53.1 - [#53.1] IXADSL+1*, IXADKL+1!, IXADKEIC+1!, IXCIMOSL+1*, IXCIMOKL+1!, IXCIMOKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 5(XREF 1S)
    5(XREF 1K), 7(XREF 2S), 25+1, 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 35(HELP ), 37+1, 39DEL5+1
    , 39DEL41+1, 39(XREF 2S), 125(XREF 1S), 125(XREF 1K)
    ^PS(55 - [#55] 1(XREF 1S)

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID3+1, ID7+1, 1(XREF 1S), 5(XREF 1S), 5(XREF 1K), 37+1
    ^(2 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 39DEL5+1, 39DEL41+1, 39(XREF 2S)
    ^(5 35(HELP ), 37+1
    ^(5.1 1(XREF 1S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ID7+1*
    >> %DT 10+1*, 17+1*, 19+1*, 21+1*, 23+1*, 25+1*, 27+1*, 27.1+1*, 29+1*, 32+1*
    , 38+1*, 44+1*, 115+1*, 117+1*, 126+1*
    >> D0 5(XREF 1S), 5(XREF 1K), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 37+1
    >> DA IXADSL+1, IXADKL+1, IXCIMOSL+1, IXCIMOKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 5(XREF 1S), 5(XREF 1K), 7(XREF 2S)
    7(XREF 2n1.4), 25+1, 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 35(HELP ), 39DEL5+1, 39DEL41+1, 39(XREF 2S)
    125(XREF 1S), 125(XREF 1K)
    DIC ID3+1, ID7+1, 1+1!*, 3+1!*, 20+1!*
    DIC("S" 1+1*, 1SCR+1*, 3+1*, 3SCR+1*, 20+1*, 20SCR+1*
    >> DIE 1+1, 3+1, 20+1
    >> DIG 5(XREF 1S), 5(XREF 1K), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    >> DIH 5(XREF 1S), 5(XREF 1K), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    >> DIU 5(XREF 1S), 5(XREF 1K), 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    >> DIU(0 26(XREF 1S), 26(XREF 1K)
    DIV 5(XREF 1S), 5(XREF 1K), 7(XREF 2S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    DIV(0 5(XREF 1S), 5(XREF 1K), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    >> PSGOES 26+1
    >> PSGS0XT 26(XREF 2S), 26(XREF 2K)
    >> PSGS0Y 26(XREF 1S), 26(XREF 1K), 39(XREF 1S)
    U ID3+1, ID7+1, 1(XREF 1S), 37+1
    X IXCIMOSCC+1*, .01+1!, .01(XREF 1S), .01(XREF 1K), .25+1!, .5(XREF 1S), .5(XREF 1K), 1+1*!, 1(XREF 1S), 3+1*!
    5(XREF 1S), 7(XREF 2S), 10+1*!, 11+1!, 12+1!, 13+1*!, 14+1!, 16(XREF 1S), 16(XREF 1K), 17+1*!
    , 19+1*!, 20+1*!, 21+1*!, 23+1*!, 25+1*!, 27+1*!, 27.1+1*!, 28(XREF 1S), 28(XREF 1K), 29+1*!
    , 32+1*!, 33+1!, 34+1!, 35+1!, 36+1!, 37+1*, 38+1*!, 39+1!, 39(XREF 1S), 39(XREF 2S)
    , 41+1!, 44+1*!, 46+1!, 47+1!, 49+1!, 55+1!, 60+1!, 63+1!, 64+1!, 68+1!
    , 102+1!, 104+1!, 105+1!, 109+1!, 111+1!, 115+1*!, 116+1!, 117+1*!, 120+1!, 121+1!
    125(XREF 1S), 125(XREF 1K), 126+1*!, 127+1!, 129+1!, 131+1!, 137+1!, 138+1!, 139+1!
    X(1 IXADSL+1, IXADKL+1, IXCIMOSL+1, IXCIMOKL+1
    X(2 IXADSL+1, IXADKL+1, IXCIMOSL+1, IXCIMOKL+1
    >> XX .5(XREF 1S), .5(XREF 1K), 16(XREF 1S), 16(XREF 1K), 28(XREF 1S), 28(XREF 1K)
    >> Y 1+1, 3+1, 10+1, 13OT+1*, 17+1, 19+1, 20+1, 21+1, 23+1, 25+1
    , 27+1, 27.1+1, 29+1, 32+1, 38+1, 44+1, 115+1, 117+1, 126+1
    >> Y( 37+1*
    >> Y(0 13OT+1*
    >> Y1 35(HELP )
    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