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

Package: Outpatient Pharmacy

Global: ^PS(52.41


Information

FileMan FileNo FileMan Filename Package
52.41 PENDING OUTPATIENT ORDERS Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 105

Package Total Routines
Outpatient Pharmacy 82 DIAGNOSIS    PSO293PI    PSO5241    PSOARCF5    PSOARCS2    PSOAUTOC    PSOBGMG3    PSOBUILD
PSOCAN1    PSOCAN3    PSOCAN4    PSODIAG    PSODIR    PSODRDU1    PSODRDU2    PSOHCPRS
PSOHLDC    PSOHLDS3    PSOHLEXC    PSOHLNE1    PSOHLNE2    PSOHLNE4    PSOHLNEW    PSOHLPII
PSOHLPIS    PSOHLSG3    PSOHLSIG    PSOHLSIH    PSOHLSN    PSOHLSN1    PSOHLSNC    PSOMHV1
PSONEW2    PSONEWF    PSONFI    PSOORDRG    PSOORED4    PSOORFI1    PSOORFI2    PSOORFI3
PSOORFI4    PSOORFI5    PSOORFI6    PSOORFIN    PSOORFL    PSOORNE1    PSOORNE5    PSOORNEW
PSOORNW1    PSOORRL    PSOORRL1    PSOORRLN    PSOORRLO    PSOORRNW    PSOORUT1    PSOORUTL
PSOP    PSOP2    PSOPKIV1    PSOPMP0    PSOPOST2    PSOPOST3    PSOPOST5    PSOPRF
PSOPST68    PSOQ0496    PSOR52    PSOREF    PSORENW    PSORENW1    PSORENW3    PSORN52
PSORN52C    PSORN52D    PSORX1    PSORXDL    PSOSD3    ^PS(52.41    PSOSIGNO    PSOTPCAN
PSOTPRX1    PSOUTLA    
IHS Mods To Text Integration Utilities 7 BTIULMED    BTIUMED2    BTIUMED3    BTIUMED4    BTIUMED5    BTIUMED6    BTIUMED8    
IHS Changes To Pharmacy 4 APSPCO    APSPFNC2    APSPFNC3    APSPFUNC    
Controlled Substances 2 PSDDSOR    PSDDSOR1    
Pharmacy Data Management 2 PSSLOCK    PSSORUTE    
Health Summary Components 1 BHSMEDR    
IHS Electronic Health Record 1 BEHORXF1    
Local Area Programs 1 AZAXDPM2    
Patient Care Component 1 APCHS7R    
Text Integration Utility 1 TIULMED1    

Accessed By FileMan Db Calls, Total: 24

Package Total Routines
Outpatient Pharmacy 18 PSOARCF5    PSOARCS2    PSOCAN3    PSOCAN4    PSOHCPRS    PSOHLDC    PSOHLNE2    PSOHLNEW
PSOHLSN    PSOORFI2    PSOORFI5    PSOPMP0    PSOPMP1    PSOPOST3    PSOR52    PSORN52C
PSORN52D    PSORXDL    
IHS Changes To Pharmacy 3 APSPCO1    APSPFNC3    APSPFUNC    
IHS Electronic Health Record 2 BEHORXF1    BEHORXF2    
Health Summary Components 1 BHSMEDR    

Pointer To FileMan Files, Total: 9

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[100]    NEW PERSON(#200)[453437]    
National Drug File 2 DRUG UNITS(#50.607)[#52.413(11)]    MEDICATION ROUTES(#51.2)[16#52.413(10)]    
Pharmacy Data Management 2 PHARMACY ORDERABLE ITEM(#50.7)[8]    DRUG(#50)[11]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#52.41311(.01)]    
Registration 1 VA PATIENT(#2)[1]    
Scheduling 1 HOSPITAL LOCATION(#44)[1.1]    

Fields, Total: 53

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 16, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  This field contains the internal number of the order from the ORDER file (#100), representing the corresponding Computerized Patient Record System (CPRS) order to this pending Outpatient Pharmacy order. This field also
    acts as a temporary holding place for any external system order number, for orders received from any external system. An external system order number will only be stored here temporarily, until the CPRS order number is
    received to replace the external system order number.
  • TECHNICAL DESCR:  This field holds either the Computerized Patient Record System (CPRS) order number, or an external system order number. If this field is populated with an external system order number, it will only be populated with that
    number temporarily, because as soon as that order is received, the order is then sent to CPRS, and CPRS will return to Pharmacy a CPRS order number, and that number will then replace the external system order number.
  • GROUP:  PSO
  • CROSS-REFERENCE:  52.41^B
    1)= S ^PS(52.41,"B",$E(X,1,30),DA)=""
    2)= K ^PS(52.41,"B",$E(X,1,30),DA)
1 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • LAST EDITED:  MAY 15, 2002
  • DESCRIPTION:  
    This is the pointer to the Patient file.
    UNEDITABLE
  • CROSS-REFERENCE:  52.41^P
    1)= S ^PS(52.41,"P",$E(X,1,30),DA)=""
    2)= K ^PS(52.41,"P",$E(X,1,30),DA)
    3)= Do not delete.
  • CROSS-REFERENCE:  52.41^PN^MUMPS
    1)= S ^PS(52.41,"PN",$P(^DPT($P(^PS(52.41,DA,0),"^",2),0),"^"),DA)=""
    2)= K ^PS(52.41,"PN",$P(^DPT($P(^PS(52.41,DA,0),"^",2),0),"^"),DA)
    3)= Do Not delete.
    This xref is used to index file by patient's name.  It sets the global ^PS(52.41,"PN",Patient Name,DA)="".
  • CROSS-REFERENCE:  52.41^APSOD^MUMPS
    1)= S:$G(PSODEATH) ^PS(52.41,"APSOD",X,DA)=""
    2)= K:$G(PSODEATH) ^PS(52.41,"APSOD",X,DA)
    3)= Do not delete.
    This xref will be set only when a date of death is entered. This xref will allow pending orders to be reinstated if a date of death is entered in error. ^PS(52.41,"APSOD",patient pointer,da)
1.1 PATIENT LOCATION 0;13 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  NOV 06, 1998
  • DESCRIPTION:  
    This is the pointer to the Hospital Location file.
  • CROSS-REFERENCE:  52.41^HL
    1)= S ^PS(52.41,"HL",$E(X,1,30),DA)=""
    2)= K ^PS(52.41,"HL",$E(X,1,30),DA)
    3)= Do not Delete.
  • CROSS-REFERENCE:  52.41^HLP^MUMPS
    1)= S ^PS(52.41,"HLP",X,$P(^PS(52.41,DA,0),"^",2),DA)=""
    2)= K ^PS(52.41,"HLP",X,$P(^PS(52.41,DA,0),"^",2),DA)
    3)= Do not delete
    This cross reference is used to sort Pending orders by Clinic/Patient.  It sets the global ^PS(52.41,"HLP",Patient Location,Patient Pointer,DA)="".
  • CROSS-REFERENCE:  52.41^AF^MUMPS
    1)= I $P(^PS(52.41,DA,0),"^",3)="NW"!($P(^(0),"^",3)="RNW")!($P(^(0),"^",3)="RF"),$P(^(0),"^",12) S ^PS(52.41,"ACL",X,$P(^PS(52.41,DA,0),"^",12),DA)=""
    2)= I $P(^PS(52.41,DA,0),"^",12) K ^PS(52.41,"ACL",X,$P(^PS(52.41,DA,0),"^",12),DA)
    This cross reference is used to index Pending Orders by Patient Location and by Login date/time, to allow orders to be finished in a first in/first out order by Clinic. This cross reference sets the global
    ^PS(52.41,"ACL",PATIENT LOCATION,LOGIN DATE,DA)="".
2 ORDER TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'NW' FOR NEW ORDER;
  • 'HD' FOR HOLD;
  • 'RNW' FOR RENEW;
  • 'DE' FOR DISCONTINUED (EDIT);
  • 'DC' FOR DISCONTINUED;
  • 'RF' FOR REFILL REQUEST;

  • LAST EDITED:  NOV 21, 1997
  • DESCRIPTION:  
    This field describes the status of the Pending order.
  • TECHNICAL DESCR:  
    set of codes.
  • GROUP:  PSO
  • CROSS-REFERENCE:  52.41^AOR^MUMPS
    1)= I X="NW"!(X="RNW")!(X="RF"),$P($G(^PS(52.41,DA,"INI")),"^") S ^PS(52.41,"AOR",$P(^PS(52.41,DA,0),"^",2),$P(^("INI"),"^"),DA)=""
    2)= I $P($G(^PS(52.41,DA,"INI")),"^") K ^PS(52.41,"AOR",$P(^PS(52.41,DA,0),"^",2),$P(^("INI"),"^"),DA)
    3)= do not delete.
    This xref is used to process pending orders. It sets the global ^PS(52.41,"AOR",Patient Pointer,Related Institution,DA)="".
3 QUANTITY TIMING SUB-FILE 1;0 Multiple #52.413 52.413

  • LAST EDITED:  OCT 21, 1997
  • DESCRIPTION:  
    This sub-file is used to store the quantity timing field from the ORC segment from CPRS. The components are used to build a Possible Sig for the finish process in Pharmacy.
  • TECHNICAL DESCR:  
    sub-file or multiple.
  • GROUP:  PSO
4 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 09, 1995
  • DESCRIPTION:  
    This is the person who entered the order in CPRS, pointer to the New Person file.
5 PROVIDER 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 08, 1995
  • DESCRIPTION:  
    This is the provider for the order, pointer to the New Person file.
6 EFFECTIVE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 09, 1995
  • DESCRIPTION:  
    This is the date the order goes into effect.
7 NATURE OF ORDER 0;7 SET
  • 'W' FOR WRITTEN;
  • 'P' FOR TELEPHONE;
  • 'V' FOR VERBAL;
  • 'E' FOR PROVIDER ENTERED;

  • LAST EDITED:  FEB 22, 1995
  • DESCRIPTION:  
    This is the Nature of the order, as it is entered through CPRS.
8 PHARMACY ORDERABLE ITEM 0;8 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  JAN 12, 1995
  • DESCRIPTION:  
    This is the Pharmacy Orderable Item for the order, as entered through CPRS.
9 PROVIDER COMMENTS 2;0 WORD-PROCESSING #52.419

  • DESCRIPTION:  
    This field contains any Provider comments that may have been entered through CPRS.
10 PHARMACY INSTRUCTIONS 3;0 WORD-PROCESSING #52.42

  • DESCRIPTION:  
    This field contains any special instructions for the Pharmacist, as entered through CPRS.
11 DRUG 0;9 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  JAN 09, 1995
  • DESCRIPTION:  
    This is the pointer to the Drug file entry that is associated with the Pharmacy Orderable Item. Not all orders will have a Drug when received from CPRS, but upon finishing the order, a Drug must be entered.
12 QTY 0;10 NUMBER

  • INPUT TRANSFORM:  K:(+X'>0)!(+X>99999999)!(X'?.8N.1".".2N." ".A)!($L(X)>12) X D:$D(X) QTY^PSOHELP
  • LAST EDITED:  NOV 13, 1995
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This shows the amount of the medication to be dispensed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13 # OF REFILLS 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>11)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 09, 1995
  • HELP-PROMPT:  Type a Number between 1 and 11, 0 Decimal Digits
  • DESCRIPTION:  
    The number of refills allowed for this order.
15 LOGIN DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 30, 2003
  • DESCRIPTION:  
    This is the date that the order was received from CPRS.
  • CROSS-REFERENCE:  52.41^AD^MUMPS
    1)= I $P(^PS(52.41,DA,0),"^",3)="NW"!($P(^(0),"^",3)="RNW")!($P(^(0),"^",3)="RF") S ^PS(52.41,"AD",X,$P(^PS(52.41,DA,"INI"),"^"),DA)=""
    2)= K ^PS(52.41,"AD",X,$P(^PS(52.41,DA,"INI"),"^"),DA)
    3)= Do not delete!
    This MUMPS cross reference is used to index entries by the login date.  This xref sets: ^PS(52.41,"AD",LOGIN DATE,RELATED INSTITUTION,DA)=""
  • CROSS-REFERENCE:  52.41^AG^MUMPS
    1)= I $P(^PS(52.41,DA,0),"^",3)="NW"!($P(^(0),"^",3)="RNW")!($P(^(0),"^",3)="RF"),$P(^(0),"^",13) S ^PS(52.41,"ACL",$P(^PS(52.41,DA,0),"^",13),X,DA)=""
    2)= I $P(^PS(52.41,DA,0),"^",13) K ^PS(52.41,"ACL",$P(^PS(52.41,DA,0),"^",13),X,DA)
    This cross reference is used to index Pending Orders by Patient Location and by Login date/time, to allow orders to be finished in a first in/first out order by Clinic. This cross reference sets the global
    ^PS(52.41,"ACL",PATIENT LOCATION,LOGIN DATE,DA)="".
  • RECORD INDEXES:  APKI (#155)
16 MED ROUTE 0;15 POINTER TO MEDICATION ROUTES FILE (#51.2) MEDICATION ROUTES(#51.2)

  • LAST EDITED:  FEB 09, 1995
  • DESCRIPTION:  
    This is the Med Route that the medication is to be administered by.
17 SERVICE CONNECTED 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JAN 12, 1995
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This indicates whether the order is for a service connected or non-service connected condition.
18 ORDERS CHECKS OBX;0 Multiple #52.4118 52.4118

  • DESCRIPTION:  
    This is a multiple for the order checks passed to Pharmacy from CPRS.
19 PICKUP ROUTING 0;17 SET
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;
  • 'C' FOR ADMINISTERED IN CLINIC;

  • LAST EDITED:  MAY 21, 1997
  • DESCRIPTION:  
    This is how the medication is to be given to the patient.
  • TECHNICAL DESCR:  
    set of codes
  • CROSS-REFERENCE:  52.41^AC^MUMPS
    1)= S ^PS(52.41,"AC",$P(^PS(52.41,DA,0),"^",2),X,DA)=""
    2)= K ^PS(52.41,"AC",$P(^PS(52.41,DA,0),"^",2),X,DA)
    3)= Do Not Delete!
    This xref is used to index entries by patient and by routing. It sets the global ^PS(52.41,"AC",Patient Pointer,Pickup Routing,DA)="".
21 Rx REFILL REQUEST 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 21, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field will be used to indicate the Rx number for refill request from CPRS.
  • TECHNICAL DESCR:  
    number
  • CROSS-REFERENCE:  52.41^ARF
    1)= S ^PS(52.41,"ARF",$E(X,1,30),DA)=""
    2)= K ^PS(52.41,"ARF",$E(X,1,30),DA)
    3)= do not delete.
    This xref is used to index pending refill request.
22 REASON ORDER CREATED 0;20 SET
  • 'N' FOR NEW;
  • 'R' FOR RENEWAL;
  • 'E' FOR EDIT;
  • 'F' FOR REFILL;

  • LAST EDITED:  NOV 21, 1997
  • DESCRIPTION:  
    This shows why the order was created in CPRS.
  • TECHNICAL DESCR:  
    set of codes
22.1 PREVIOUS ORDER # 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 22, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field will store the pointer value to the Rx that is being Renewed.
  • TECHNICAL DESCR:  
    numeric.
  • CROSS-REFERENCE:  52.41^AQ^MUMPS
    1)= S:$P(^PS(52.41,DA,0),"^",3)="RNW" ^PS(52.41,"AQ",X,DA)=""
    2)= K ^PS(52.41,"AQ",X,DA)
    3)= Do not delete!
    This xref is used to index renewal orders. It sets the global ^PS(52.41,"AQ",Previous Order #,DA)="".
23 COMMENTS 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  FEB 11, 1995
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
  • DESCRIPTION:  
    This field contains any comments associated with the order.
24 DISPENSING INSTRUCTIONS SIG;0 Multiple #52.4124 52.4124

  • LAST EDITED:  FEB 24, 1995
  • DESCRIPTION:  
    Dispensing instruction for the medication.
25 PRIORITY 0;14 SET
  • 'S' FOR STAT;
  • 'E' FOR EMERGENCY;
  • 'R' FOR ROUTINE;

  • LAST EDITED:  MAR 20, 1995
  • DESCRIPTION:  
    This field is used to indicate the urgency of the order.
  • CROSS-REFERENCE:  52.41^AP^MUMPS
    1)= S ^PS(52.41,"AP",$P(^PS(52.41,DA,0),"^",2),X,DA)=""
    2)= K ^PS(52.41,"AP",$P(^PS(52.41,DA,0),"^",2),X,DA)
    3)= Do not Delete
    This cross reference is used to index entries by priority. It sets the global ^PS(52.41,"AP",Patient Pointer,Priority,DA)="".
26 POSSIBLE FILLDATE 0;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 18, 1996
  • DESCRIPTION:  
    This field will be used to display the effective date of a discharge med or pass med.
33 DATE/TIME FLAGGED FLG;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Enter the date/time this order was flagged.
  • DESCRIPTION:  
    This is the date/time when this order was flagged.
34 FLAGGED BY FLG;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Enter the name of the person who flagged this order
  • DESCRIPTION:  
    This is the user who flagged this order.
35 REASON FOR FLAG FLG;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Answer must be 1-80 characters in length
36 DATE/TIME UNFLAGGED FLG;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Enter the date/time this order was unflagged
  • DESCRIPTION:  
    This is the date/time this order was unflagged.
37 UNFLAGGED BY FLG;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Enter the name of the person who unflagged this order
  • DESCRIPTION:  
    This is the user who unflagged this order.
38 REASON FOR UNFLAG FLG;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  FEB 26, 2008
  • HELP-PROMPT:  Answer must be 1-80 characters in length
  • DESCRIPTION:  
    This is the reason for unflagging this order, usually a response to the reason for flag.
100 RELATED INSTITUTION INI;1 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  JUN 09, 1998
  • DESCRIPTION:  
    This is the Institution that the order was issued from.
  • CROSS-REFERENCE:  52.41^AOR1^MUMPS
    1)= S:$P(^PS(52.41,DA,0),"^",3)="NW"!($P(^(0),"^",3)="RNW")!($P(^(0),"^",3)="RF") ^PS(52.41,"AOR",$P(^PS(52.41,DA,0),"^",2),X,DA)=""
    2)= K ^PS(52.41,"AOR",$P(^PS(52.41,DA,0),"^",2),X,DA)
    3)= Do not delete.
    This cross is used when processing pending orders. It sets the global ^PS(52.41,"AOR",Patient Pointer,Related Institution,DA)="".
  • CROSS-REFERENCE:  52.41^AE^MUMPS
    1)= I $P(^PS(52.41,DA,0),"^",3)="NW"!($P(^(0),"^",3)="RNW")!($P(^(0),"^",3)="RF") S ^PS(52.41,"AD",$P(^PS(52.41,DA,0),"^",12),X,DA)=""
    2)= K ^PS(52.41,"AD",$P(^PS(52.41,DA,0),"^",12),X,DA)
    This MUMPS cross reference is used to index entries by the Related Institution and Login Date fields, for finishing CPRS orders.  This xref sets: ^PS(52.41,"AD",LOGIN DATE,RELATED INSTITUTION,DA)="".
  • RECORD INDEXES:  APKI (#155)
101 DAYS SUPPLY 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 06, 2000
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  
    Enter a whole number between 1 and 90. The maximum upper limit is 90, but may be lower based on the maximum specified for this patient status. This parameter is defined in the RX PATIENT STATUS File (#53).
102 FLAG 0;23 SET
  • '1' FOR Flagged;

  • LAST EDITED:  JUN 06, 2000
  • HELP-PROMPT:  Enter '1' to mark this order as flagged.
  • DESCRIPTION:  
    This field shall designate whether or not a prescription has been flagged for follow up with a provider.
103 PRE-POE ORDER POE;1 SET
  • '1' FOR YES;

  • LAST EDITED:  AUG 03, 2000
  • DESCRIPTION:  
    This field will be used to identify pending orders entered before the installation of the Pharmacy Order Enhancement patch.  PSO*7*46.
  • TECHNICAL DESCR:  
    set of codes.
104 PATIENT INSTRUCTIONS INS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  NOV 02, 2000
  • HELP-PROMPT:  Enter patient instructions. Answer must be 1-240 characters in length.
  • DESCRIPTION:  
    The text in this field shall be used for the Patient Instructions in the Outpatient Pharmacy package when entering orders, if the Dispense Drug selected is matched to a Pharmacy Orderable Item with patient instructions.
  • TECHNICAL DESCR:  
    free text.
104.1 PATIENT INSTRUCTIONS FLAG INS;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 17, 2001
  • HELP-PROMPT:  Enter 1 for yes, 0 for no.
  • DESCRIPTION:  
    This field will be used to indicate for the provider wanted the patient instructions included in the SIG.
  • TECHNICAL DESCR:  
    set of codes.
105 EXPANDED PATIENT INSTRUCTIONS INS1;0 WORD-PROCESSING #52.41105
106 MILITARY SEXUAL TRAUMA IBQ;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 14, 2001
  • HELP-PROMPT:  'Enter 'Yes' if this prescription is being used for treatment of Military Sexual Trauma.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been treated for Military Sexual Trauma, the clinician will be asked to identify whether or not the outpatient medication order being prescribed is being
    used to treat a condition related to Military Sexual Trauma. This field will store the response that was entered for this question. This value will be used as the default value for the same prompt presented to the
    pharmacist when finishing the medication order that was entered through CPRS.
107 AGENT ORANGE EXPOSURE IBQ;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition due to Agent Orange exposure during Vietnam service.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been exposed to Agent Orange during Vietnam service, the clinician will be asked to identify whether or not the outpatient medication order prescribed is
    being used to treat a condition due to this exposure. This field will store the response that was entered for this question. This value will be used as the default value for the same prompt presented to the pharmacist when
    finishing the medication order that was entered through CPRS.
108 IONIZING RADIATION EXPOSURE IBQ;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition due to ionizing radiation exposure during military service.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been exposed to ionizing radiation during military service, the clinician will be asked to identify whether or not the outpatient medication order
    prescribed is being used to treat a condition due to this exposure. This field will store the response that was entered for this question. This value will be used as the default value for the same prompt presented to the
    pharmacist when finishing the medication order that was entered through CPRS.
109 SOUTHWEST ASIA CONDITIONS IBQ;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 26, 2006
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to service in Southwest Asia.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been exposed to Southwest Asia Conditions during the Persian Gulf War, the clinician will be asked to identify whether or not the outpatient medication
    order prescribed is being used to treat a condition due to this exposure. This field will store the response that was entered for this question. This value will be used as the default value for the same prompt presented to
    the pharmacist when finishing the medication order that was entered through CPRS.
110 HEAD AND/OR NECK CANCER IBQ;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat Head and/or Neck Cancer due to nose or throat radium treatments while in the military.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been treated for Head and/or Neck Cancer due to nose or throat radium treatments while in the military, the clinician will be asked to identify whether or
    not the outpatient medication order prescribed is being used to treat this condition. This field will store the response that was entered for this question. This value will be used as the default value for the same prompt
    presented to the pharmacist when finishing the medication order that was entered through CPRS.
110.1 COMBAT VETERAN IBQ;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 12, 2003
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to Combat Services.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been treated for a condition related to Combat Services, the clinician will be asked to identify whether or not the outpatient medication order being
    prescribed is being used to treat a condition related to Combat Services.  This field will store the response that was entered for this question.  This value will be used as the default value for the same prompt presented
    to the pharmacist when finishing the medication order that was entered through CPRS.
110.2 PROJ 112/SHAD IBQ;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 17, 2006
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to PROJ 112/SHAD.
  • DESCRIPTION:  During CPRS order entry, if a veteran has been identified as having been treated for a condition related to PROJ 112/SHAD, the clinician will be asked to identify whether or not the outpatient medication order being
    prescribed is being used to treat a condition related to PROJ 112/SHAD. This field will store the response that was entered for this question.  This value will be used as the default value for the same prompt presented to
    the pharmacist when finishing the medication order that was entered through CPRS.
111 DDSTATUS DDSTA;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 16, 2002
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This field will hold the status of the pending order at the time a date of death was entered.
114 EXTERNAL PLACER ORDER NUMBER EXT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 05, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field represents the external system order number of this order. This field will only be populated if this order was originally received from an external system into Vista.
    UNEDITABLE
  • RECORD INDEXES:  C (#148)
115 EXTERNAL SYSTEM ORDER REPLACED EXT;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 16, 2002
  • DESCRIPTION:  
    This field will be set to 1 by the software when an external system order number is successfully replaced by a Computerized Patient Record System (CPRS) order number.
  • TECHNICAL DESCR:  When an order is received from an external system, it will be entered into the PENDING OUTPATIENT ORDERS File (#52.41), and then immediately sent to Computerized Patient Record System (CPRS). When a CPRS number is
    successfully returned from CPRS, this field will be set to 1 by the software, and then the order can be finished by Pharmacy.
    UNEDITABLE
116 EXTERNAL APPLICATION EXT;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  AUG 05, 2002
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This field represents the name of the external system from where the external order was received.
    UNEDITABLE
  • RECORD INDEXES:  C (#148)
117 SIGNATURE STATUS 0;24 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 21, 2002
  • HELP-PROMPT:  Data not entered directly with file manager.
  • DESCRIPTION:  
    Digital Signature status indicator.
  • TECHNICAL DESCR:  
    This field will be used to indicate the digital signature status of an order. A value of 1 will indicate that the original order was digitally signed.
311 DIAGNOSIS ICD;0 POINTER Multiple #52.41311 52.41311

  • LAST EDITED:  SEP 23, 2003
  • DESCRIPTION:  This multiple is used to store up to eight ICD-9 codes per prescription with the first always being the primary diagnosis code and subsequent ones being secondary diagnosis codes. Also stored in this multiple are all of
    the Service Connection (SC) and Environmental Indicators (EI) that directly relate to each ICD-9 code.  These SC/EI's are passed from CPRS in this manner. This ICD-9/SC/EI relationship is necessary for 3rd Party Billing.
    Current Copay functionality deals only with SC<50% and only stores EI's when with this is true or not overridden in some way.  The new SC/EI fields allow for Outpatient Pharmacy to know if a prescription is SC 0-100%, to
    know all EI's that apply, and to know how they relate to the ICD-9 code without affecting Copay functionality.

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2844
  • PHARMACY DATA MANAGEMENT
  • PLACER NUMBER (.01).
    Access: Direct Global Read & w/Fileman

    ORDER TYPE (2).
    Access: Direct Global Read & w/Fileman

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

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

    ICR #6070
  • INPATIENT MEDICATIONS
  • PHARMACY ORDERABLE ITEM FIELD (8).
    Access: Direct Global Read & w/Fileman

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

    ICR #6148
  • VA Point of Service
  • PLACER NUMBER (.01).
    Access: Read w/Fileman

    ORDER TYPE (2).
    Access: Read w/Fileman

    # OF REFILLS (13).
    Access: Read w/Fileman

    REASON ORDER CREATED (22).
    Access: Read w/Fileman

    PATIENT (1).
    Access: Read w/Fileman

    UNITS (11).
    Access: Read w/Fileman

    CONJUNCTION (6).
    Access: Read w/Fileman

    DISPENSING INSTRUCTIONS (.01).
    Access: Read w/Fileman

    ICR #6151
  • VA Point of Service
  • DISPENSING INSTRUCTIONS (.01).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 6+1, 15+1, 26+1, 33+1, 36+1
    Y^DIQ ID1+1
    QTY^PSOHELP 12+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2 ID1+1
    ^DPT - [#2] ID1+1, 1(XREF 2S), 1(XREF 2K)
    ^PS(52.41 - [#52.41] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1.1(XREF 1S), 1.1(XREF 1K)
    1.1(XREF 2S), 1.1(XREF 2K), 1.1(XREF 3S), 1.1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K)
    19(XREF 1S), 19(XREF 1K), 21(XREF 1S), 21(XREF 1K), 22.1(XREF 1S), 22.1(XREF 1K), 25(XREF 1S), 25(XREF 1K), 100(XREF 1S), 100(XREF 1K)
    100(XREF 2S), 100(XREF 2K)

    Naked Globals

    Name Field # of Occurrence
    ^("INI" 2(XREF 1S), 2(XREF 1K)
    ^(0 ID1+1, 1.1(XREF 3S), 15(XREF 1S), 15(XREF 2S), 100(XREF 1S), 100(XREF 2S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 6+1*, 15+1*, 26+1*, 33+1*, 36+1*
    %I ID1+1*!
    >> C ID1+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1.1(XREF 1S), 1.1(XREF 1K)
    1.1(XREF 2S), 1.1(XREF 2K), 1.1(XREF 3S), 1.1(XREF 3K), 2(XREF 1S), 2(XREF 1K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K)
    19(XREF 1S), 19(XREF 1K), 21(XREF 1S), 21(XREF 1K), 22.1(XREF 1S), 22.1(XREF 1K), 25(XREF 1S), 25(XREF 1K), 100(XREF 1S), 100(XREF 1K)
    100(XREF 2S), 100(XREF 2K)
    >> DIC ID1+1
    >> PSODEATH 1(XREF 3S), 1(XREF 3K)
    U ID1+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 1.1(XREF 1S), 1.1(XREF 1K), 1.1(XREF 2S)
    1.1(XREF 2K), 1.1(XREF 3S), 1.1(XREF 3K), 2(XREF 1S), 6+1*!, 12+1!, 13+1!, 15+1*!, 15(XREF 1S), 15(XREF 1K)
    15(XREF 2S), 15(XREF 2K), 17+1!, 19(XREF 1S), 19(XREF 1K), 21+1!, 21(XREF 1S), 21(XREF 1K), 22.1+1!, 22.1(XREF 1S)
    22.1(XREF 1K), 23+1!, 25(XREF 1S), 25(XREF 1K), 26+1*!, 33+1*!, 35+1!, 36+1*!, 38+1!, 100(XREF 1S)
    100(XREF 1K), 100(XREF 2S), 100(XREF 2K), 101+1!, 104+1!, 111+1!, 114+1!, 116+1!
    >> Y ID1+1*, 6+1, 15+1, 26+1, 33+1, 36+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All