STANDARD DATA DICTIONARY #791810 -- STATION ORDER FILE 3/24/25 PAGE 1 STORED IN ^RMPF(791810, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains all order information for orders entered through the Remote Order/Entry System. DD ACCESS: @ AUDIT ACCESS: @ IDENTIFIED BY: TYPE OF ORDER (#.02), PATIENT (#.04) POINTED TO BY: ORDER field (#.01) of the ORDER sub-field (#791812.0101) of the TRANSMISSION BATCH File (#791812) CROSS REFERENCED BY: STATUS OF ORDER(AC), STATUS DATE(AD), PATIENT(AE), ORDER DATE/TIME(AEE), PE ENTRY DATE/TIME(AF), PROSTHETICS ORDER(AP), ORDER DATE/TIME(B), PATIENT(C), PURCHASE ORDER NUMBER(D) 791810,.01 ORDER DATE/TIME 0;1 DATE (Required) INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: NOV 15, 1993 DESCRIPTION: The Order Date/Time field contains the date and time that a user initiated an individual order. This date is automatically recorded and cannot be edited through the ROES software. The date/time is unique. CROSS-REFERENCE: 791810^B 1)= S ^RMPF(791810,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"B",$E(X,1,30),DA) Standard name cross-reference. CROSS-REFERENCE: 791810^AEE^MUMPS 1)= S ZZ=$P(^RMPF(791810,DA,0),"^",4) I ZZ S ^RMPF(791810,"AE",ZZ,9999999.9999-X,DA)="" K ZZ 2)= S ZZ=$P(^RMPF(791810,DA,0),"^",4) I ZZ K ^RMPF(791810,"AE",ZZ,9999999.9999-X,DA),ZZ This cross-reference is used to look up orders that have been placed for a specific patient. The orders will be in reverse chronological order by order date. 791810,.02 TYPE OF ORDER 0;2 POINTER TO ORDER TYPE FILE (#791810.1) HELP-PROMPT: Enter the type of order you wish to enter or a > to choose. DESCRIPTION: This field indicates the type of order that a user chose to create. The type of order determines which enter/edit sequences and display screens are used by the software. Once entered, the type of order cannot be changed by a user. 791810,.03 STATUS OF ORDER 0;3 POINTER TO ORDER STATUS FILE (#791810.2) LAST EDITED: JUL 25, 1990 DESCRIPTION: This field indicates the current status of the chosen order. Certain functions in the ROES can only be accomplished for orders of a particular status. The setting of this field is controlled by the software. CROSS-REFERENCE: 791810^AC 1)= S ^RMPF(791810,"AC",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"AC",$E(X,1,30),DA) This cross-reference allows orders to be sorted by their status for print purposes and for certain functions that may only be performed on orders with a certain status. 791810,.04 PATIENT 0;4 POINTER TO PATIENT FILE (#2) LAST EDITED: JUL 14, 1994 DESCRIPTION: This field contains a pointer to the Patient File for identification of the patient in "Patient Type" orders. CROSS-REFERENCE: 791810^AE^MUMPS 1)= S ZZ=$P(^RMPF(791810,DA,0),"^",1) I ZZ S ^RMPF(791810,"AE",X,9999999.9999-ZZ,DA)="" K ZZ 2)= S ZZ=$P(^RMPF(791810,DA,0),"^",1) I ZZ K ^RMPF(791810,"AE",X,9999999.9999-ZZ,DA),ZZ This cross-reference allows for the sorting of order by patient in reverse chronological order by order date/time. CROSS-REFERENCE: 791810^C 1)= S ^RMPF(791810,"C",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"C",$E(X,1,30),DA) This cross-reference is used to look up an order by patient. 791810,.05 ENTERING USER 0;5 POINTER TO NEW PERSON FILE (#200) LAST EDITED: MAY 10, 1995 DESCRIPTION: This is a pointer to the New Person file for the user who initially created the order. This field is set by the software and is not editable. 791810,.06 STATUS DATE 0;6 DATE INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 14, 1994 CROSS-REFERENCE: 791810^AD^MUMPS 1)= S ^RMPF(791810,"AD",9999999.9999-X,DA)="" 2)= K ^RMPF(791810,"AD",9999999.9999-X,DA) This cross-reference is used to sort orders by status date in reverse chronological order. 791810,.07 PURCHASE ORDER NUMBER 0;7 FREE TEXT INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<11)!'(X?1"G"5N1"-"4N) X LAST EDITED: JUL 14, 1994 HELP-PROMPT: Answer must match 1 "G", 5 numbers, 1 "-" and 4 numbers. DESCRIPTION: This is the purchase order number that was assigned to an order by the DDC. The value of this field is assigned by the order update process and cannot be edited at the field station. CROSS-REFERENCE: 791810^D 1)= S ^RMPF(791810,"D",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"D",$E(X,1,30),DA) This cross-reference is used to look up an order by purchase order number. 791810,.08 ORDERED/REQUESTED BY 0;8 POINTER TO NEW PERSON FILE (#200) LAST EDITED: OCT 17, 1990 DESCRIPTION: This field is a pointer to the New Person File for the user who requested the order. This person is not necessairly the Entering User. 791810,.09 ORDER/REQUEST DATE 0;9 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 20, 1990 DESCRIPTION: This is the date that the order or request was actually made. It may not be the same as the date the order was entered. 791810,.1 APPROVED BY 0;10 POINTER TO NEW PERSON FILE (#200) LAST EDITED: OCT 17, 1990 DESCRIPTION: This field is a pointer to the New Person File for the user who approved the order. 791810,.11 APPROVAL DATE 0;11 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUN 20, 1990 DESCRIPTION: This is the date that the order was actually approved. 791810,.12 TRANSMISSION BATCH 0;12 POINTER TO TRANSMISSION BATCH FILE (#791812) LAST EDITED: JUN 28, 1990 DESCRIPTION: This is a pointer to the transmission batch where the order was placed upon approval. 791810,.13 CONTRACTOR'S INVOICE NUMBER 0;13 FREE TEXT INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X LAST EDITED: JUL 08, 1994 HELP-PROMPT: Answer must be 1-20 characters in length. DESCRIPTION: This field contains the invoice number from the vendor who shipped the order. 791810,.15 ENTERED FROM THIS MENU 0;15 POINTER TO ROES MENU FILE (#791810.5) LAST EDITED: APR 13, 1994 DESCRIPTION: This field contains the name of the menu from which the order was entered. 791810,1.01 ADDRESS LINE 1 1;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: JUL 16, 1990 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is the first free text line of a patient's address. 791810,1.02 ADDRESS LINE 2 1;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: JUL 16, 1990 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is the second free text address line of a patient's address. 791810,1.03 ADDRESS LINE 3 1;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: JUL 16, 1990 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is the third free text line of a patient's address. 791810,1.04 CITY 1;4 FREE TEXT INPUT TRANSFORM: K:$L(X)>15!($L(X)<2) X LAST EDITED: JUL 16, 1990 HELP-PROMPT: Answer must be 2-15 characters in length. DESCRIPTION: This is the free text city name for a patient's address. 791810,1.05 STATE 1;5 POINTER TO STATE FILE (#5) LAST EDITED: JUL 16, 1990 DESCRIPTION: This is a pointer to the State File for the patient's address. 791810,1.06 ZIP CODE 1;6 FREE TEXT INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X LAST EDITED: JUL 16, 1990 HELP-PROMPT: Answer must be 5-10 characters in length. DESCRIPTION: This is the zip code for the patient's address. 791810,1.07 BEGIN DATE 1;7 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 16, 1990 DESCRIPTION: This is the beginning date for the patient's address if the address is a temporary address. 791810,1.08 END DATE 1;8 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 16, 1990 DESCRIPTION: This is the ending date for a patient's address if the address is a temporary address. 791810,2.01 DISABILITY CODE 2;1 POINTER TO PROS DISABILITY CODE FILE (#662) INPUT TRANSFORM: D CHECK^RMPFET7 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUL 08, 1994 DESCRIPTION: This field holds the disability code that makes a veteran entitled for a ROES order. SCREEN: D CHECK^RMPFET7 EXPLANATION: This screen limits the codes by transaction type. 791810,2.02 ELIGIBILITY 2;2 POINTER TO ROES ELIGIBILITY FILE (#791810.4) LAST EDITED: NOV 30, 1993 DESCRIPTION: This field holds the eligibility used by each ROES order. 791810,2.03 ELIGIBILITY ENTERED BY 2;3 POINTER TO NEW PERSON FILE (#200) LAST EDITED: JAN 07, 1994 DESCRIPTION: This field contains the name of the user entering the patient's eligibility. 791810,2.04 ELIGIBILITY ENTERED BY USER? 2;4 SET '0' FOR NOT ENTERED BY USER; '1' FOR ENTERED BY USER; LAST EDITED: JAN 07, 1994 DESCRIPTION: This field indicates whether the user entered the eligibility or whether the eligibility was determined from the DHCP Patient File. 791810,2.05 DATE ELIGIBILITY ENTERED 2;5 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JAN 12, 1994 DESCRIPTION: This field contains the date that a user entered an eligibility into a ROES order. 791810,2.06 PROPOSED ELIGIBILITY 2;6 POINTER TO ROES ELIGIBILITY FILE (#791810.4) LAST EDITED: DEC 28, 1994 DESCRIPTION: This field holds that eligibility the ASPS submits to PSAS when requesting an eligibility determination. 791810,2.07 PE ENTERED BY 2;7 POINTER TO NEW PERSON FILE (#200) LAST EDITED: DEC 28, 1994 DESCRIPTION: This field contains the user who entered the proposed eligibility. 791810,2.08 PE ENTRY DATE/TIME 2;8 DATE INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: DEC 28, 1994 DESCRIPTION: This field holds the date and time that the proposed eligibility was entered. CROSS-REFERENCE: 791810^AF 1)= S ^RMPF(791810,"AF",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"AF",$E(X,1,30),DA) This cross-reference is used to list orders that need eligibility determinations by PSAS. The cross-reference is killed manually when the eligibility determination has been made. 791810,2.09 ELIGIBILITY COMMENT 2;9 FREE TEXT INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X LAST EDITED: DEC 23, 1994 HELP-PROMPT: Answer must be 3-50 characters in length. DESCRIPTION: This is a free text field that PSAS may use to enter a comment when determining the eligibility for a patient. 791810,2.13 SENSITIVE PATIENT RECORD 2;13 SET '0' FOR NO; '1' FOR YES; LAST EDITED: MAY 21, 1999 DESCRIPTION: This field is set to yes if this record is designated as a sensitive record. 791810,10.01 REMARKS 10;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>70!($L(X)<1) X LAST EDITED: NOV 23, 1993 HELP-PROMPT: Answer must be 1-70 characters in length. DESCRIPTION: This is a free text field for the entry of remarks to be sent to the DDC. 791810,10.02 DISAPPROVAL REASON 10;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: FEB 20, 1991 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is a free text reason that must be entered when an order is disapproved. 791810,10.03 CANCEL REASON 10;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X LAST EDITED: NOV 16, 1990 HELP-PROMPT: Answer must be 1-30 characters in length. DESCRIPTION: This is a free text reason that must be entered when certain types of orders are canceled. 791810,10.04 DATE PATIENT REQUESTED CARE 10;4 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 08, 1994 DESCRIPTION: This field contains the date that the patient first requested care for the product or service referenced in the order. 791810,10.05 DELIVERY CATEGORY 10;5 SET 'R' FOR routine (Shipped within 6 days); 'P' FOR priority (Shipped within 24 hours); 'E' FOR emergency (Received by patient within 24 hours); LAST EDITED: FEB 06, 1995 DESCRIPTION: This field contains the order delivery category. 'ROUTINE' means the product will be shipped within 6 days of receipt of the order, 'PRIORITY' means the product will be shipped within 24 hours of receipt of the order and 'EMERGENCY' means the product will be delivered within 24 hours of receipt of the order. The majority of orders will be 'ROUTINE'. Extra shipping costs are incurred with 'PRIORITY' and 'EMERGENCY' orders. 791810,10.06 RELEASED BY 10;6 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 26, 1991 DESCRIPTION: This field contains the name of the user who released an order for transmission to the DDC. This field is only used for orders that require updates after initial submission (e.g., Custom Hearing Aid Orders). 791810,10.07 RELEASE DATE 10;7 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 26, 1991 DESCRIPTION: This field contains the date that an order was released to the DDC. This field is only used for order types that require updates after initial submission. 791810,10.08 AUDIOLOGICAL ASSESSMENT DATE 10;8 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 08, 1994 DESCRIPTION: This is the date that the patient received an audiological assessment for the condition connected with this order. 791810,11.01 TYPE OF HEARING AID FITTING 11;1 SET 'M' FOR monaural; 'B' FOR binaural; 'C' FOR cros; 'BC' FOR bi-cros; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field holds the type of fitting for hearing aid orders. If the fitting is binaural, when the first aid is ordered, users are asked if they wish to order the second aid the same as the first. 791810,11.02 AUTHORIZED USAGE 11;2 SET 'M' FOR monaural wearer; 'B' FOR binaural wearer; LAST EDITED: FEB 06, 1995 DESCRIPTION: The authorized hearing aid usage must be entered in this field for hearing aid orders. 791810,11.03 ITEM TO BE REPLACED BY DDC? 11;3 SET '1' FOR YES; '0' FOR NO; '1' FOR yes; '0' FOR no; LAST EDITED: APR 27, 1995 DESCRIPTION: Users must enter 'YES' at the prompt for this data field in order to receive replacements for line items they issue from their station stock. 791810,11.04 PROSTHETICS ORDER 11;4 POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660) LAST EDITED: JAN 31, 1994 DESCRIPTION: This field holds a pointer to a Prosthetics Transaction for those orders entered through the interface to the DHCP Prosthetics Package. CROSS-REFERENCE: 791810^AP 1)= S ^RMPF(791810,"AP",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,"AP",$E(X,1,30),DA) This cross-reference is used to look up a ROES order that is associated with a Prosthetics Package transaction when the order is entered through the Prosthetics Package interface. Once a ROES order is associated with a Prosthetics transaction, only that order may be accessed when entering ROES from the Prosthetics Package. 791810,101 LINE ITEM 101;0 POINTER Multiple #791810.0101 DESCRIPTION: This multiple field contains the line items that are part of an order. 791810.0101,.01 ITEM NAME 0;1 POINTER TO REMOTE INVENTORY PRODUCT FILE (#791811) LAST EDITED: NOV 12, 1991 DESCRIPTION: This is a pointer to the line items in the Remote Inventory Product File. CROSS-REFERENCE: 791810.0101^B 1)= S ^RMPF(791810,DA(1),101,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(1),101,"B",$E(X,1,30),DA) Standard name cross-reference. CROSS-REFERENCE: 791810.0101^AC^MUMPS 1)= I $D(^RMPF(791811,X,0)) S ZZ=$P(^(0),U,4),ZY=$P(^(0),U,6),ZZ=ZZ*$S(ZY:1+(ZY/100),1:1),$P(^RMPF( 791810,DA(1),101,DA,0),U,14)=ZZ 2)= S $P(^RMPF(791810,DA(1),101,DA,0),U,14)="" This cross-reference gets the current cost for a line item and sets it into the 'Cost of Item' field for the line item in the order. This insures that the cost is recorded at the time the order is created. 791810.0101,.02 BATTERY TYPE FURNISHED 0;2 POINTER TO BATTERY FILE (#791811.3) LAST EDITED: NOV 03, 1994 DESCRIPTION: This is a pointer to a specific battery type in the battery file. Only batteries that may be used for the model chosen may be used. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 791810.0101,.03 ACQUISITION DATE 0;3 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: DEC 13, 1990 DESCRIPTION: This is the date that a product was acquired if it came from some source other than the DDC. 791810.0101,.04 LEFT OR RIGHT 0;4 SET 'L' FOR left ear; 'R' FOR right ear; LAST EDITED: FEB 06, 1995 DESCRIPTION: This is an indication of the ear for which a hearing aid has been ordered. 791810.0101,.05 ITEM SERIAL # 0;5 FREE TEXT INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X LAST EDITED: JUL 10, 1990 HELP-PROMPT: Answer must be 1-10 characters in length. DESCRIPTION: This is the serial number of the line item. 791810.0101,.06 QUANTITY 0;6 NUMBER INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"."1N.N) X LAST EDITED: JUL 28, 1994 HELP-PROMPT: Type a Number between -9999 and 9999, 0 Decimal Digits DESCRIPTION: This is the quantity of line item(s) requested in an order. 791810.0101,.07 TYPE OF INCREASE 0;7 SET 'T' FOR temporary increase; 'P' FOR permanent increase; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field defines whether an increase or decrease in quantity should be permanent or temporary. 791810.0101,.08 ISSUE DATE 0;8 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUL 09, 1990 DESCRIPTION: This is the date that an item was actually issued to a veteran. 791810.0101,.09 RETURN ACTION 0;9 SET 'R' FOR REDUCE CLINIC STOCK; 'D' FOR DEFECTIVE ITEM; LAST EDITED: NOV 13, 1990 DESCRIPTION: This field is no longer used. 791810.0101,.1 TYPE OF LOSS 0;10 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: NOV 26, 1990 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is a free text field that users must enter to describe how an item was lost. 791810.0101,.11 PURCHASED BY 0;11 SET 'CDP' FOR clinic direct purchase; 'SP' FOR self purchase; 'MIL' FOR military issue; 'O' FOR other; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field is used in the product registration process to indicate the method used for purchasing items that have not been ordered from the DDC. 791810.0101,.12 TYPE OF ISSUE 0;12 SET 'P' FOR permanent issue; 'T' FOR temporary issue; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field indicates whether the issue of a product to a veteran was a permanent issue or a temporary issue. 791810.0101,.13 RECOVERY DATE 0;13 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: NOV 27, 1990 DESCRIPTION: This is the date that an item was recovered or reclaimed into station stock from a veteran or other source. 791810.0101,.14 PRICE OF ITEM 0;14 NUMBER INPUT TRANSFORM:K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"."5N.N) X LAST EDITED: OCT 07, 1991 HELP-PROMPT: Type a Number between 0 and 99999.99, 4 Decimal Digits DESCRIPTION: This is the cost of an item at the time is was ordered. 791810.0101,.15 TYPE OF ENTRY 0;15 SET 'O' FOR ORDER; 'D' FOR DELETE; 'DC' FOR DELETED BY A CHANGE; 'OC' FOR ORDERED BY A CHANGE; 'C' FOR CANCELED; LAST EDITED: APR 19, 1994 DESCRIPTION: This field shows whether the item was an original order, a deletion or a change of model. 791810.0101,.16 RELATED ORDER 0;16 NUMBER INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: AUG 29, 1991 HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits DESCRIPTION: This field contains the internal number of the line item that this item related to. If the entry is a new order, the related order number will be the same as the internal number for the order. If the entry is an adjustment to an existing order, this number will be the internal number of the entry that the adjustment relates to. CROSS-REFERENCE:791810.0101^AD 1)= S ^RMPF(791810,DA(1),101,"AD",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(1),101,"AD",$E(X,1,30),DA) This cross-reference allows all related line item entries (orders and adjustments) to be grouped by original entry. 791810.0101,.17 LAST STATUS DATE 0;17 DATE INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 02, 1994 DESCRIPTION: This is the last date that the line item information was updated. 791810.0101,.18 LAST STATUS 0;18 POINTER TO ORDER STATUS FILE (#791810.2) LAST EDITED: MAY 02, 1994 DESCRIPTION: This is the last status received for the line item. 791810.0101,.19 LAST ACTION 0;19 SET 'O' FOR ORDER; 'C' FOR CANCEL; 'I' FOR ISSUE; 'R' FOR CERTIFIED; 'A' FOR ADJUSTED; 'AR' FOR ADJUSTED AND CERTIFIED; 'RI' FOR CERTIFIED AND ISSUED; 'AI' FOR ADJUSTED AND ISSUED; 'ARI' FOR ADJUSTED, CERTIFIED AND ISSUED; LAST EDITED: JUL 26, 1994 DESCRIPTION: This is the last action(s) taken on the line item. 791810.0101,.2 APPROVED SINCE LAST EDIT 0;20 SET '0' FOR APPROVED; '1' FOR NOT APPROVED; LAST EDITED: JUN 30, 1994 DESCRIPTION: This field indicates whether or not the last edit of this line item was approved. 791810.0101,2.01MAKE 2;1 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X LAST EDITED: NOV 14, 1990 HELP-PROMPT: Answer must be 1-30 characters in length. DESCRIPTION: This is a free text entry of the make of an item that is used in orders when the item is not listed in the Remote Inventory Product File. 791810.0101,2.02MODEL 2;2 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X LAST EDITED: NOV 14, 1990 HELP-PROMPT: Answer must be 1-30 characters in length. DESCRIPTION: This is the free text name of the model of an item used in an order when the model is not in the Remote Inventory Product File. 791810.0101,2.03SECOND BATTERY TYPE 2;3 POINTER TO BATTERY FILE (#791811.3) LAST EDITED: OCT 07, 1991 DESCRIPTION: This field holds the second battery type for items that require more than one battery type. 791810.0101,2.04PRODUCT GROUP REQUESTED FOR 2;4 POINTER TO REMOTE PRODUCT GROUP FILE (#791811.1) INPUT TRANSFORM:S DIC("S")="I $P(^RMPF(791811.1,+Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUL 26, 1994 HELP-PROMPT: Enter the Product Group of the item requiring batteries. DESCRIPTION: This is the product group of the item for which the user is requesting batteries. SCREEN: S DIC("S")="I $P(^RMPF(791811.1,+Y,0),U,3)" EXPLANATION: This screen is used to limit product groups to those that use batteries. 791810.0101,2.05BRAND PREFERENCE 2;5 SET 'N' FOR no preference; 'P' FOR prefer; 'D' FOR demand; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field indicates if a patient has a preference or a demand for a particular brand of line item. 791810.0101,2.06BRAND REQUESTED 2;6 POINTER TO REMOTE PROSTHETIC ITEM BRANDS FILE (#791811.4) LAST EDITED: APR 04, 1994 DESCRIPTION: This is the brand of line item that a patient prefers or demands. 791810.0101,3.01TYPE OF TRANSACTION 3;1 SET 'I' FOR initial; 'R' FOR replace; 'S' FOR spare; 'A' FOR adjust/repair; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field contains data that is collected by ROES and passed to the DHCP Prosthetics Package. The information related to the reason the item is being ordered for the veteran. TECHNICAL DESCR:This information is passed to the Prosthetics Package. The variable used to hold the data is RMPFTT. 791810.0101,3.02DISABILITY CODE 3;2 POINTER TO PROS DISABILITY CODE FILE (#662) INPUT TRANSFORM:D CHECK^RMPFET7 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: JUL 26, 1994 DESCRIPTION: This field contains a pointer to the Prosthetic Disability File. The disability entered is associated with the line item being ordered through ROES. TECHNICAL DESCR:This information is passed to the Prosthetics Package. The variable used to hold the information is RMPFDIS. SCREEN: D CHECK^RMPFET7 EXPLANATION: The only disabilities that may be chosen are those that relate to this order type. 791810.0101,3.03SC/NSC FOR DISABILITY 3;3 SET 'S' FOR service connected; 'N' FOR non-service connected; LAST EDITED: FEB 06, 1995 DESCRIPTION: This field indicated whether a veteran is service connected or non- service connected for the disability associated with the order for the line item selected. TECHNICAL DESCR:This information is passed to the Prosthetics Package. The variable used to hold this information is RMPFDSN. 791810.0101,3.04PATIENT CATEGORY 3;4 SET '1' FOR SC/OP; '2' FOR SC/IP; '3' FOR NSC/IP; '4' FOR NSC/OP; LAST EDITED: JAN 31, 1994 DESCRIPTION: This field contains the patient category assigned to the veteran for the specific line item ordered. TECHNICAL DESCR:This information is passed to the Prosthetics Package. The variable used to hold the data is RMPFPCT. If the user enters a '4' for NSC/IP, the user will be asked for the 'SPECIAL CATEGORY' contained in field number 3.05. 791810.0101,3.05SPECIAL CATEGORY 3;5 SET '1' FOR Special Legislation; '2' FOR A&A; '3' FOR PHC; LAST EDITED: JAN 31, 1994 DESCRIPTION: This field contains the special category associated with a veteran who has been determined to be NSC/OP for the line item ordered. TECHNICAL DESCR:This information is only asked if field number 3.04 is answered as '4' or 'NSC/OP'. The information is passed to the Prosthetics Package. The variable used to hold the information is RMPFPSC. 791810.0101,90.01USER MAKING ADJUSTMENT 90;1 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 29, 1991 DESCRIPTION: This field contains the user who made the order or adjustment for the line item. 791810.0101,90.02DATE/TIME OF ADJUSTMENT 90;2 DATE INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 29, 1991 DESCRIPTION: This field contains the date and time that an order or adjustment was made. 791810.0101,90.03REASON FOR ADJUSTMENT 90;3 FREE TEXT INPUT TRANSFORM:K:$L(X)>17!($L(X)<3) X LAST EDITED: AUG 29, 1991 HELP-PROMPT: Answer must be 3-17 characters in length. DESCRIPTION: This field contains the reason for an adjustment. 791810.0101,90.04ADJUSTMENT MESSAGE 90;4 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: SEP 10, 1991 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: If an adjustment has a special message to display on the Order Detail Screen, this field will contain the message. 791810.0101,90.05CANCEL REASON 90;5 FREE TEXT INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X LAST EDITED: MAY 09, 1994 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field holds the name of the user canceling the line item order. 791810.0101,90.06DATE RETURNED TO VENDOR 90;6 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 10, 1994 DESCRIPTION: This field contains the date that an item was returned to the vendor for credit. It is a data point included in cancel transactions. 791810.0101,90.07SHIP DATE 90;7 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 10, 1994 791810.0101,90.08CERTIFICATION USER 90;8 POINTER TO NEW PERSON FILE (#200) LAST EDITED: MAY 24, 1994 DESCRIPTION: This is the name of the user who certified a Custom Hearing Aid Order. 791810.0101,90.09CERTIFICATION DATE/TIME 90;9 DATE INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 24, 1994 DESCRIPTION: This is the date and time that a Custom Hearing Aid Order was certified. 791810.0101,90.1RECERTIFIED BY 90;10 POINTER TO NEW PERSON FILE (#200) LAST EDITED: OCT 28, 1994 DESCRIPTION: This field contains the last user to recertify a Custom Hearing Aid order. 791810.0101,90.11RECERTIFICATION DATE 90;11 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: OCT 28, 1994 DESCRIPTION: This field contains the last date that a Custom Hearing Aid order was recertified. 791810.0101,90.12ISSUED BY 90;12 POINTER TO NEW PERSON FILE (#200) INPUT TRANSFORM:D IU^RMPFET71 LAST EDITED: FEB 06, 1995 DESCRIPTION: This is the name of the user issuing the hearing aid. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 791810.0101,90.13CANCELED BY 90;13 POINTER TO NEW PERSON FILE (#200) LAST EDITED: FEB 06, 1995 DESCRIPTION: This field holds the name of the user who canceled the line item. 791810.0101,90.14REASON FOR DELAY 90;14 POINTER TO ORDER DELAY REASONS FILE (#791810.6) LAST EDITED: JAN 04, 1995 DESCRIPTION: If the issue date for a hearing aid is more than 40 working days since the patient requested care, a user must enter a reason for delay of the order in this field. 791810.0101,90.15FT REASON FOR DELAY 90;15 FREE TEXT INPUT TRANSFORM:K:$L(X)>50!($L(X)<3) X LAST EDITED: JAN 04, 1995 HELP-PROMPT: Answer must be 3-50 characters in length. DESCRIPTION: If a user selects 'OTHER' as a reason for delay in filling the order, they must enter a free text reason in this field. 791810.0101,101 SERIAL NUMBER OF REPLACED ITEM 101;0 Multiple #791810.101101 (Add New Entry without Asking) DESCRIPTION: This field indicates the serial number of an authorized item that is being replaced by a new product. 791810.101101,.01 SERIAL NUMBER OF REPLACED ITEM 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X LAST EDITED: NOV 26, 1990 HELP-PROMPT: Answer must be 1-20 characters in length. DESCRIPTION: This is the actual serial number of the item that is being replaced by a new order. CROSS-REFERENCE:791810.101101^B 1)= S ^RMPF(791810,DA(2),101,DA(1),101,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(2),101,DA(1),101,"B",$E(X,1,30),DA) Standard name cross-reference. 791810.0101,102 COMPONENT 102;0 POINTER Multiple #791810.101102 DESCRIPTION: This is a pointer to the Hearing Aid Component File for any components being ordered with a hearing aid. Components may only be chosen if they have been associated with the model selected. SCREEN: D COMP^RMPFUTL EXPLANATION: Only components that can be used with this model may be chosen. 791810.101102,.01 COMPONENT 0;1 POINTER TO HEARING AID COMPONENTS FILE (#791811.2) (Multiply asked) LAST EDITED: NOV 12, 1991 DESCRIPTION: This field contains a component that may be added to a custom hearing aid. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:791810.101102^B 1)= S ^RMPF(791810,DA(2),101,DA(1),102,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(2),101,DA(1),102,"B",$E(X,1,30),DA) Standard name cross-reference. CROSS-REFERENCE:791810.101102^AC^MUMPS 1)= D COST^RMPFUTL 2)= D COSTKILL^RMPFUTL This cross-reference sets the current cost of the component into the 'Cost of Component' field. 791810.101102,.02 PRICE OF COMPONENT 0;2 NUMBER INPUT TRANSFORM:K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"."5N.N) X OUTPUT TRANSFORM:S Y=$J(Y,0,2) LAST EDITED: OCT 07, 1991 HELP-PROMPT: Type a Number between 0 and 99999.9999, 4 Decimal Digits DESCRIPTION: This field contains the cost of the component at the time it was ordered. UNEDITABLE 791810.101102,.03 TYPE OF ENTRY 0;3 SET 'O' FOR ORDER; 'D' FOR DELETE; 'A' FOR ADDITION; LAST EDITED: SEP 09, 1991 DESCRIPTION: This field contains an indicator of whether the component was entered as part of an order, a deletion or and addition. 791810.101102,.04 RELATED ORDER 0;4 NUMBER INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: SEP 05, 1991 HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits DESCRIPTION: This field contains the internal number of the component order to which this component order relates. It will be the same as the internal number for this order if the entry is an original order. It will be the internal number of the related entry if this is an adjustment. 791810.101102,.05 USER MAKING ADJUSTMENT 0;5 POINTER TO NEW PERSON FILE (#200) LAST EDITED: SEP 05, 1991 DESCRIPTION: This field contains the name of the user making an adjustment. 791810.101102,.06 DATE/TIME OF ADJUSTMENT 0;6 DATE INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: SEP 05, 1991 DESCRIPTION: This field contains the date and time that an adjustment was made. 791810.101102,.07 REASON FOR ADJUSTMENT 0;7 FREE TEXT INPUT TRANSFORM:K:$L(X)>14!($L(X)<1) X LAST EDITED: SEP 05, 1991 HELP-PROMPT: Answer must be 1-14 characters in length. DESCRIPTION: This field contains the reason for making the adjustment. 791810,201 MESSAGE DATE/TIME 201;0 DATE Multiple #791810.0201 (Add New Entry without Asking) DESCRIPTION: This field contains all messages received from the DDC. 791810.0201,.01 MESSAGE DATE/TIME 0;1 DATE INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X LAST EDITED: DEC 14, 1990 DESCRIPTION: This is the date and time that the message was created at the DDC. CROSS-REFERENCE: 791810.0201^B 1)= S ^RMPF(791810,DA(1),201,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(1),201,"B",$E(X,1,30),DA) Standard name cross-reference. 791810.0201,.02 MESSAGE 0;2 POINTER TO MESSAGE FILE (#3.9) LAST EDITED: JAN 23, 1992 DESCRIPTION: This field holds the pointer to the MESSAGE File (XMB(3.9)) for the message generating the update. 791810.0201,101 ERROR MESSAGE 101;0 Multiple #791810.201101 (Add New Entry without Asking) DESCRIPTION: This is the text of the message returned from the DDC indicating the action taken on the order. 791810.201101,.01 ERROR MESSAGE 0;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>70!($L(X)<3) X LAST EDITED: JAN 01, 1991 HELP-PROMPT: Answer must be 3-70 characters in length. DESCRIPTION: This is the actual free text message returned from the DDC as part of the order update process. CROSS-REFERENCE: 791810.201101^B 1)= S ^RMPF(791810,DA(2),201,DA(1),101,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(2),201,DA(1),101,"B",$E(X,1,30),DA) Standard name cross-reference. 791810.201101,.02 SENT BY 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: DEC 14, 1990 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This is the free text name of the DDC staff person who processed the order. It is be used as a reference if there are questions about the order. 791810.201101,.03 TELEPHONE # 0;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X LAST EDITED: DEC 14, 1990 HELP-PROMPT: Answer must be 3-15 characters in length. DESCRIPTION: This is the telephone number of the DDC staff person who processed the orders. It is to be used in the event of questions or problems with the order. 791810.201101,.04 STATUS UPDATE 0;4 POINTER TO ORDER STATUS FILE (#791810.2) LAST EDITED: DEC 18, 1990 DESCRIPTION: This is a pointer to the Order Status File for the updated status of this order that has resulted from the processing procedure at the DDC. 791810.201101,.05 DATE MESSAGE PROCESSED BY DDC 0;5 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JAN 23, 1992 DESCRIPTION: This field contains the date that the message was processed at the DDC. 791810.201101,.06 MESSAGE READ? 0;6 SET '1' FOR MESSAGE READ; '0' FOR MESSAGE NOT READ; LAST EDITED: SEP 13, 1991 DESCRIPTION: This field indicates whether or not a message from the DDC to the station has been read or not. The standard message indicating completion is automatically set to 'MESSAGE READ'. 791810.201101,.07 LAST USER READING MESSAGE 0;7 POINTER TO NEW PERSON FILE (#200) LAST EDITED: SEP 13, 1991 DESCRIPTION: This field contains the name of the last user to read the message. 791810.201101,.08 RELATED LINE ITEM 0;8 NUMBER INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X LAST EDITED: JUN 23, 1994 HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits DESCRIPTION: This field contains the internal number of the line item that this message applies to. 791810.201101,.09 PURCHASE ORDER NUMBER 0;9 FREE TEXT INPUT TRANSFORM: K:$L(X)>11!($L(X)<11)!'(X?1A5N1"-"4N) X LAST EDITED: JUN 30, 1994 HELP-PROMPT: Answer must be 11 characters in length. DESCRIPTION: This is the Purchase Order Number for the line item order. 791810.201101,.1 SHIP DATE 0;10 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: JUN 01, 1994 DESCRIPTION: The date that the DDC expects to ship the line item. 791810,301 AUTHORIZED HEARING AIDS 301;0 Multiple #791810.0301 (Add New Entry without Asking) DESCRIPTION: This node contains information about the authorized hearing aids for a veteran. 791810.0301,.01 MODEL 0;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: MAY 05, 1994 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field holds the name of a model of line item on the patient record.. CROSS-REFERENCE: 791810.0301^B 1)= S ^RMPF(791810,DA(1),301,"B",$E(X,1,30),DA)="" 2)= K ^RMPF(791810,DA(1),301,"B",$E(X,1,30),DA) Standard name cross-reference. 791810.0301,.02 MAKE 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: MAY 05, 1994 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field holds the name of the line item on the patient's permanent record. 791810.0301,.03 ISSUE DATE 0;3 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 05, 1994 DESCRIPTION: This is the issue date of the line item on the patient's record. 791810.0301,.04 SERIAL NUMBER 0;4 FREE TEXT INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X LAST EDITED: MAY 05, 1994 HELP-PROMPT: Answer must be 1-12 characters in length. DESCRIPTION: This is the serial number of the line item in the patient's record.. 791810.0301,.05 STATION 0;5 FREE TEXT INPUT TRANSFORM: K:$L(X)>8!($L(X)<3) X LAST EDITED: MAY 05, 1994 HELP-PROMPT: Answer must be 3-8 characters in length. DESCRIPTION: This is the station that issued the line item, or the alternative method of purchase (e.g., 'SP' for SELF PURCHASED). 791810.0301,.06 BATTERY 0;6 FREE TEXT INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X LAST EDITED: MAY 05, 1994 HELP-PROMPT: Answer must be 3-15 characters in length. DESCRIPTION: This is the name of the battery that is used by the line item. 791810.0301,.07 EAR 0;7 SET 'L' FOR left; 'R' FOR right; LAST EDITED: FEB 06, 1995 DESCRIPTION: This is the ear for which the line item was issued. 791810.0301,.08 DATE AIDS AUTHORIZED 0;8 DATE INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X LAST EDITED: MAY 05, 1994 DESCRIPTION: This is the date that the information about the line item was updated by the DDC. 791810,901 STATION NUMBER-NAME STA;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X LAST EDITED: SEP 12, 1991 HELP-PROMPT: Answer must be 3-30 characters in length. DESCRIPTION: This field contains the station number and name for the facility initiating an order. FILES POINTED TO FIELDS BATTERY (#791811.3) LINE ITEM:BATTERY TYPE FURNISHED (#.02) SECOND BATTERY TYPE (#2.03) HEARING AID COMPONENTS (#791811.2) COMPONENT:COMPONENT (#.01) MESSAGE (#3.9) MESSAGE DATE/TIME:MESSAGE (#.02) NEW PERSON (#200) ENTERING USER (#.05) ORDERED/REQUESTED BY (#.08) APPROVED BY (#.1) ELIGIBILITY ENTERED BY (#2.03) PE ENTERED BY (#2.07) RELEASED BY (#10.06) LINE ITEM:USER MAKING ADJUSTMENT (#90.01) CERTIFICATION USER (#90.08) RECERTIFIED BY (#90.1) ISSUED BY (#90.12) CANCELED BY (#90.13) COMPONENT:USER MAKING ADJUSTMENT (#.05) ERROR MESSAGE:LAST USER READING MESSAGE (#.07) ORDER DELAY REASONS (#791810.6) LINE ITEM:REASON FOR DELAY (#90.14) ORDER STATUS (#791810.2) STATUS OF ORDER (#.03) LINE ITEM:LAST STATUS (#.18) ERROR MESSAGE:STATUS UPDATE (#.04) ORDER TYPE (#791810.1) TYPE OF ORDER (#.02) PATIENT (#2) PATIENT (#.04) PROS DISABILITY CODE (#662) DISABILITY CODE (#2.01) LINE ITEM:DISABILITY CODE (#3.02) RECORD OF PROS APPLIANCE/REPAI (#660) PROSTHETICS ORDER (#11.04) REMOTE INVENTORY PRODUCT (#791811) LINE ITEM:ITEM NAME (#.01) REMOTE PRODUCT GROUP (#791811.1) LINE ITEM:PRODUCT GROUP REQUESTED FOR (#2.04) REMOTE PROSTHETIC ITEM BRANDS (#791811.4) LINE ITEM:BRAND REQUESTED (#2.06) ROES ELIGIBILITY (#791810.4) ELIGIBILITY (#2.02) PROPOSED ELIGIBILITY (#2.06) ROES MENU (#791810.5) ENTERED FROM THIS MENU (#.15) STATE (#5) STATE (#1.05) TRANSMISSION BATCH (#791812) TRANSMISSION BATCH (#.12) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S):