Global: ^PS(52.41

FileMan FileNo	FileMan Filename	Package
52.41	PENDING OUTPATIENT ORDERS	Outpatient Pharmacy

Package	Total	Routines
Outpatient Pharmacy	111	PSO293PI PSOARCF5 PSOARCS2 PSOCAN1 PSOCAN3 PSOCAN4 PSODDPR3 PSODDPR4 PSODDPR5 PSODDPR8 PSODDPRE PSODGAL1 PSOERHL0 PSOERUT4 PSOERUT5 PSOERX1F PSOERXX1 PSOHCPRS PSOHLDC PSOHLDS3 PSOHLNE2 PSOHLNE4 PSOHLNEW PSOHLPII PSOHLPIS PSOHLSG3 PSOHLSIG PSOHLSIH PSOHLSN PSONEWF PSOORFI1 PSOORFI2 PSOORFI3 PSOORFI4 PSOORFI5 PSOORFI6 PSOORFL PSOORNE1 PSOORNW1 PSOORRL1 PSOORRLO PSOORUT1 PSOP PSOP2 PSOPKIV1 PSOPKIV2 PSOPRF PSOPRKA PSOR52 PSORENW1 PSORN52C PSORN52D PSOSIGNO SORT GROUP ^PS(52.41 DIAGNOSIS PSO520PO PSO5241 PSOAUTOC PSOBGMG3 PSOBUILD PSODDPR1 PSODDPR2 PSODDPR7 PSODIAG PSODIR PSODOSCL PSODRDU1 PSODRDU2 PSOERALL PSOERUT PSOERX1B PSOERXU6 PSOHLEXC PSOHLNE1 PSOHLSN1 PSOHLSNC PSOMHV1 PSOMPHRC PSON52 PSONEW2 PSOORCPY PSOORDRG PSOORED4 PSOORFIN PSOORNE4 PSOORNE5 PSOORNEW PSOORRL PSOORRLN PSOORRNW PSOORUTL PSOPMP0 PSOPOST2 PSOPOST3 PSOPOST5 PSOPRK PSOPST68 PSOQ0496 PSOREF PSORENW PSORENW3 PSORN52 PSORX1 PSORXDL PSOSD3 PSOTPCAN PSOTPRX1 PSOUTL PSOUTLA PSOVER1
Pharmacy Data Management	3	PSSLOCK PSSORUTE PSSUTLA1
Controlled Substances	2	PSDDSOR PSDDSOR1
My HealtheVet	2	MHV7B1R2 MHVPRNA

Package	Total	Routines
Outpatient Pharmacy	33	PSO5241 PSOARCF5 PSOARCS2 PSOCAN3 PSOCAN4 PSOERHL0 PSOERUT PSOERUT4 PSOERUT5 PSOERUT6 PSOERX1B PSOERX1F PSOERXA6 PSOERXU6 PSOERXUT PSOHCPRS PSOHLDC PSOHLNE2 PSOHLNEW PSOHLSN PSOLMRN PSOORCPY PSOORFI2 PSOORFI5 PSOORFI6 PSOORUT1 PSOPMP0 PSOPMP1 PSOPOST3 PSOR52 PSORN52C PSORN52D PSORXDL
Controlled Substances	1	PSDDSOR1
National Health Information Network	1	NHINVPSO
Order Entry Results Reporting	1	ORWORB
Pharmacy Data Management	1	PSSUTLA1

Package	Total	FileMan Files
Order Entry Results Reporting	1	ORDER CHECK INSTANCES(#100.05)[#100.07(.01)]

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[100] NEW PERSON(#200)[4, 5, 34, 37]
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	PATIENT(#2)[1]
Scheduling	1	HOSPITAL LOCATION(#44)[1.1]

Fields, Total: 57

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 PATIENT FILE (#2)	**********************REQUIRED FIELD********************** 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.` LAST EDITED: `MAY 30, 1995`
10	PHARMACY INSTRUCTIONS	3;0	WORD-PROCESSING #52.42	DESCRIPTION: `This field contains any special instructions for the Pharmacist, as entered through CPRS.` LAST EDITED: `MAY 30, 1995`
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.`
14	INDICATION FOR USE	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` `MAXIMUM LENGTH: 40` LAST EDITED: `FEB 07, 2020` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This field contains the Indication For Use that was chosen when the medication was ordered in CPRS.`
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 (#251)`
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; 'P' FOR PARKED; LAST EDITED: `APR 17, 2015` HELP-PROMPT: `Select MAIL, ADMINISTERED IN CLINIC, or WINDOW to indicate how the medication will be dispensed to the patient. Select PARKED if it is not dispensed until requested.` 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)="".`
20	TITRATION RX FLAG	TIT;1	SET	'1' FOR YES; LAST EDITED: `OCT 04, 2018` HELP-PROMPT: `Enter '1' if the prescription is marked as Titration.` DESCRIPTION: `This flag indicates whether the prescription is being dispensed as a Titration Dose.`
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 (#251)`
101	DAYS SUPPLY	0;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `MAR 18, 2015` HELP-PROMPT: `Type a number between 1 and 365, 0 decimal digits.` DESCRIPTION: `Enter a whole number between 1 and 365. The maximum upper limit is 365, but may be lower based on the maximum specified for the drug in this pending order. The maximum value for the drug can be found in the DRUG file` `(#50) or the VA PRODUCT file (#50.68) for drugs matched to NDF.`
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. PSO746.` 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	LAST EDITED: `FEB 08, 2001` DESCRIPTION: `This field will store the expanded patient instructions that are stored in the patient instruction field (#114) or the expanded patient instructions from CPRS.`
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 (#176)`
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 (#176)`
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.`
118	DRUG INCLUDED	0;25	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 28, 2012` HELP-PROMPT: `Is the dispense drug included in the hash check?` DESCRIPTION: `This field indicates CPRS included the dispense drug as part of the hash calculation for digitally signed orders.` TECHNICAL DESCR: `A value of 1 indicates CPRS did include the dispense drug as part of the hash calculation for digitally signed orders.`
120	DIRECTIONS FOR USE	9;0	Multiple #52.44	52.44 DESCRIPTION: `This multiple contains the raw HL7 dosage data as sent from CPRS.`
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 LINK	Subscribing Package(s)	Fields Referenced
ICR #2844	Pharmacy Data Management	PLACER NUMBER (.01). Access: Direct Global Read & w/Fileman PATIENT LOCATION (1.1). Access: Direct Global Read & w/Fileman ORDER TYPE (2). Access: Direct Global Read & w/Fileman RELATED INSTITUTION (100). 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 COMPREHENSIVE CARE COORDINATION Order Entry Results Reporting	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 PATIENT LOCATION (1.1). Access: Read w/Fileman PROVIDER (5). Access: Read w/Fileman PHARMACY ORDERABLE ITEM (8). Access: Read w/Fileman PROVIDER COMMENTS (9). Access: Read w/Fileman PHARMACY INSTRUCTIONS (10). Access: Read w/Fileman LOGIN DATE (15). Access: Read w/Fileman PICKUP ROUTING (19). Access: Read w/Fileman PRIORITY (25). Access: Read w/Fileman DAYS SUPPLY (101). Access: Read w/Fileman PATIENT INSTRUCTIONS (104). Access: Read w/Fileman EXPANDED INSTRUCTIONS (105). Access: Read w/Fileman DRUG (11). Access: Read w/Fileman INDICATION FOR USE (14). Access: Read w/Fileman UNITS (11). Access: Read w/Fileman CONJUNCTION (6). Access: Read w/Fileman SCHEDULE (1). Access: Read w/Fileman DURATION (2). Access: Read w/Fileman MED ROUTE (10). Access: Read w/Fileman DOSAGE ORDERED (8). Access: Read w/Fileman DISPENSE UNITS PER DOSE (9). Access: Read w/Fileman NOUN (12). Access: Read w/Fileman VERB (13). Access: Read w/Fileman DISPENSING INSTRUCTIONS (.01). Access: Read w/Fileman QUANTITY/FORM (.01). Access: Read w/Fileman
ICR #6151	VA Point of Service	DISPENSING INSTRUCTIONS (.01). Access: Read w/Fileman

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID1+1
^DPT - [#2]	ID1+1, 1(XREF 2S), 1(XREF 2K)
^PS(52.41 - [#52.41]	IXAPKISL+1, IXAPKIKL+1!, IXAPKIKEIC+1!, IXCSL+1, IXCKL+1!, IXCKEIC+1!, .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)

>>	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	IXAPKISL+1, IXAPKIKL+1, IXCSL+1, IXCKL+1, .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	IXAPKISL+1, IXAPKIKL+1, .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!, 14+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!
X(1	IXCSL+1, IXCKL+1
X(2	IXCSL+1, IXCKL+1
>> Y	ID1+1*, 6+1, 15+1, 26+1, 33+1, 36+1

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PS(52.41

Information

Description

Directly Accessed By Routines, Total: 123

Accessed By FileMan Db Calls, Total: 37

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 9

Fields, Total: 57

ICR, Total: 5

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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