STANDARD DATA DICTIONARY #665 -- PROSTHETICS PATIENT FILE 3/24/25 PAGE 1
STORED IN ^RMPR(665, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds vital 10-2319 patient information. Included is PSC, Auto Adaptive Equipment, Clothing Allowance, Hearing Aid,
Returned Status and other critical patient data.
DD ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: STATION (#2)[R]
POINTED TO BY: PATIENT NAME field (#.02) of the RECORD OF PROS APPLIANCE/REPAIR File (#660)
PATIENT field (#1) of the PROS RETURNED/CONDEMNED File (#660.1)
PATIENT field (#1) of the PROSTHETICS RE-ISSUE ITEM File (#660.2)
PATIENT field (#1) of the PROS STOCK ITEM RECORD File (#661.2)
PATIENT field (#1) of the PROSTHETIC APPOINTMENT WORKSHEET File (#663.4)
PATIENT field (#1) of the PROSTHETICS 1358 File (#664)
PATIENT field (#.02) of the PROSTHETIC 2529-3 File (#664.1)
PATIENT NAME field (#1) of the VEHICLE OF RECORD File (#667)
PATIENT field (#.01) of the HO LETTER 1 LIST sub-field (#669.9002) of the PROSTHETICS SITE PARAMETERS File (#669.9)
PATIENT field (#.01) of the HO LETTER 2 LIST sub-field (#669.972) of the PROSTHETICS SITE PARAMETERS File (#669.9)
PATIENT field (#.01) of the HO LETTER 3 LIST sub-field (#669.974) of the PROSTHETICS SITE PARAMETERS File (#669.9)
PATIENT NAME field (#5) of the APAT PATIENT RECORD ACTIVITY File (#23645)
CROSS
REFERENCED BY: PRIMARY ITEM(AC), EXPIRATION DATE(AE), HOME OXYGEN ACTIVATION DATE(AHO), HOME OXYGEN LETTER TO BE SENT(ALTR),
PFSS NEW PRESCRIPTION FLAG(APNEW), PFSS ACCOUNT FLAG(APO), NAME(B), ITEM(C)
LAST MODIFIED: JUL 21,2020@12:19:06
665,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: JUL 19, 1995
HELP-PROMPT: Please enter the name of the Patient.
DESCRIPTION:
This is the name of the patient, same as the PATIENT file in MAS.
DELETE TEST: .01,0)= I 1 W " CANNOT DELETE PATIENT",*7,!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 665^B
1)= S ^RMPR(665,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(665,"B",$E(X,1,30),DA)
665,2 STATION 0;2 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: SEP 29, 1987
HELP-PROMPT: Enter the Station Number of the patient. If the Station Number is not entered, the entry will be
deleted.
DESCRIPTION:
This is the Station that maintains the Patient's 2319.
665,5.5 DATE OF CLOTHING ALLOWANCE 6;0 DATE Multiple #665.02 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. It contains the dates of clothing allowance determinations.
665.02,.01 DATE OF CLOTHING ALLOWANCE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 31, 1992
HELP-PROMPT: Enter the date of the Patient's Cloting Allowance Eligibility determination
DESCRIPTION:
Date of Clothing Allowance eligibility determination.
CROSS-REFERENCE: 665.02^B
1)= S ^RMPR(665,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(665,DA(1),6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 665.02^AC^MUMPS
1)= S ^RMPR(665,"AC",X,DA(1),DA)=""
2)= K ^RMPR(665,"AC",X,DA(1),DA)
This x-ref is used to count the number of Clothing Allowance eligibility determinations during
quarterly time periods.
665.02,1 ELIGIBLE/NOT ELIGIBLE 0;2 SET (Required)
'E' FOR ELIGIBLE;
'N' FOR NOT-ELIGIBLE;
'U' FOR UNKNOWN;
LAST EDITED: APR 27, 1993
HELP-PROMPT: Enter 'E' for Eligible, 'N' for NOT-ELIGIBLE, 'U' for Unknown
DESCRIPTION:
Field that contains code which designates patients as eligible for clothing allowance.
665.02,2 STATIC/NON-STATIC 0;3 SET (Required)
'S' FOR STATIC;
'N' FOR NON-STATIC;
'U' FOR UNKNOWN;
LAST EDITED: OCT 30, 1992
HELP-PROMPT: Enter 'S' for STATIC, 'N' for NON-STATIC, 'U' for UNKNOWN
DESCRIPTION:
Field that contains code that determines if patients is Static or Non-Static.
665.02,3 CLOTHING ALLOWANCE DESCRIPTION 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JUL 31, 1992
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
Description of reason for clothing allowance.
665.02,4 CLOTHING ALLOWANCE EXAM 0;4 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 18, 1992
HELP-PROMPT: Enter 'Y' if Patient had an Examination, 'N' if Patient has not had an Examination
DESCRIPTION:
Indicates if veteran has had a clothing allowance exam.
665.02,5 DATE OF EXAM 0;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1!($P(X,".")>DT) X
LAST EDITED: JUN 02, 1993
HELP-PROMPT: Enter the date the Examination took place. Future dates are not allowed.
DESCRIPTION:
Date of clothing allowance exam.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
665.02,6 EXAMINER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Enter the Name of the Person who performed the exam
DESCRIPTION: Pointer to the New Person file. Contains the name of the Examiner who determined the Clothing
Allowance eligibility.
665,10 PROSTHETIC DISABILITY CODE 1;0 POINTER Multiple #665.01
LAST EDITED: JUN 14, 1995
DESCRIPTION:
This field stores the Prosthetic Disability Code for the patient.
665.01,.01 PROSTHETIC DISABILITY CODE 0;1 POINTER TO PROS DISABILITY CODE FILE (#662) (Multiply asked)
LAST EDITED: FEB 01, 1991
HELP-PROMPT: Enter the Patient's Prosthetic Disability Code.
DESCRIPTION:
This is a pointer to the Prosthetic Disability Code file (662).
CROSS-REFERENCE: 665.01^B
1)= S ^RMPR(665,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(665,DA(1),1,"B",$E(X,1,30),DA)
665.01,1 DATE CODE ADDED 0;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Enter the date the Disability Code was entered.
DESCRIPTION:
This is the date the Disability Code was entered.
CROSS-REFERENCE: 665.01^AA^MUMPS
1)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) S:+ZA ^RMPR(665,"AA",X,DA(1),D
A)="" K ZA
2)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) K:+ZA ^RMPR(665,"AA",X,DA(1),D
A) K ZA
This x-ref will allow sorting of Date disability code added.
665.01,2 SERVICE/NON-SERVICE 0;3 SET (Required)
'1' FOR SERVICE CONNECTED;
'2' FOR NON-SERVICE CONNECTED;
INPUT TRANSFORM:D:$D(RMPRDFN) CHK^RMPRDIS Q
LAST EDITED: JUN 03, 1993
HELP-PROMPT: Enter `1` for Service Connected or `2` for Non-Service Connected.
DESCRIPTION:
This field stores if the Disability Code is Service or Non-Service connected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
665.01,3 ELIGIBILITY CATEGORY 0;4 SET (Required)
'1' FOR SC VIETNAM;
'2' FOR ALL OTHER SERVICE-CONNECTED;
'3' FOR NSC A&A;
'4' FOR OTHERS ELIGIBLE;
'5' FOR V.I.S.T.;
'6' FOR VOC REHAB;
'7' FOR PHC;
'8' FOR INPATIENT;
'9' FOR EMPLOYEE;
'10' FOR PRIMA FACIA;
LAST EDITED: FEB 27, 1996
HELP-PROMPT: Enter the Eligibility Category for the patient.
DESCRIPTION:
This field stores the Eligibility Category for the Patient.
SCREEN: Q
EXPLANATION: Select the appropriate code.
665.01,4 SPECIAL LEGISLATION 0;5 SET
'1' FOR PL-96-151;
'2' FOR PL-91-500;
'3' FOR PL-97-37;
'4' FOR PL-94-581;
'5' FOR HOUSEBOUND;
'6' FOR PL-91-102;
'7' FOR PL-91-666 (AUTO GRANT);
'8' FOR PL-104-262 (ELIG. REFORM);
LAST EDITED: NOV 06, 1996
HELP-PROMPT: Enter the patient's Special Legislation if applicable.
DESCRIPTION: If Others Eligible is selected as Eligibility Category, then there must also be a Special
Legislation selected.
665.01,5 ADD/DELETE 0;6 SET (Required)
'1' FOR ADD;
'2' FOR DELETE;
LAST EDITED: OCT 16, 1992
HELP-PROMPT: Enter '1' for ADD to count on Amis, '2' for Delete
DESCRIPTION:
Flag for AMIS count of patients served.
665.01,6 AMIS DATE 0;7 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 01, 1991
HELP-PROMPT: Answer must be a date.
DESCRIPTION:
This field stores the AMIS date of last report that counted this Prosthetic Disability code.
665.01,7 ENTERED BY 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 01, 1991
HELP-PROMPT: Enter the name of the individual who entered this disability code.
DESCRIPTION:
Pointer to the New Person file of who entered this disability code for the patient.
665.01,9 REMOVE CODE FLAG 0;9 SET
'1' FOR REMOVED;
LAST EDITED: JUN 29, 1992
HELP-PROMPT: Enter Removed to show the disability code has been removed from the patients 2319.
DESCRIPTION:
This field stores a code indicating the removal of a disibility code
665.01,10 DATE CODE DELETED 0;10 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Enter the date the code was removed from the 2319.
DESCRIPTION: Contains the date that the Disability code was marked as deleted for this Veteran. Used for
calculations on form 7306d and Amis.
CROSS-REFERENCE:665.01^AD^MUMPS
1)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) S:+ZA ^RMPR(665,"AD",X,DA(1),DA)="" K
ZA
2)= I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) K:+ZA ^RMPR(665,"AD",X,DA(1),DA) K ZA
This x-ref will allow tracking of disability codes by date deleted.
665,12 PSC ISSUE CARD 5;0 DATE Multiple #665.012
DESCRIPTION:
This field stores the information of Prosthetic Service Card issued to a patient.
665.012,.01 PSC ISSUE CARD DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:(Y<1)!($P(Y,".",1)>DT) X
LAST EDITED: JAN 29, 1992
HELP-PROMPT: Enter the date the patient received the Prosthetic Service Card. Future Dates are not allowed.
DESCRIPTION:
This is the date the PSC card was issued.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
665.012,1 ITEM 0;4 POINTER TO PROS ITEM MASTER FILE (#661) (Required)
OUTPUT TRANSFORM: ITEM:NAME:SHORT DESCRIPTION
LAST EDITED: JAN 31, 1992
HELP-PROMPT: Enter the item the patient is receiving the PSC for.
DESCRIPTION:
This is the PSC item issued to the patient.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 665^C
1)= S ^RMPR(665,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(665,"C",$E(X,1,30),DA(1),DA)
665.012,2 DETAILED DESCRIPTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: FEB 02, 1992
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION: This field stores the description of the item issued on the PSC. If left blank, the IFCAP item
Short Description will automatically be used.
665.012,3 SERIAL NUMBER 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: SEP 25, 1987
HELP-PROMPT: Enter the Serial Number of the item issued. Maximum Length is 20 Characters.
DESCRIPTION:
This field stores the serial number of the item issued on the PSC.
665.012,4 PSC CATEGORY 0;5 SET
'A' FOR ART LIMBS;
'W' FOR WHEELCHAIRS;
'BR' FOR BRACES;
'BL' FOR BLIND AIDS;
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Enter the category of the item issued on the PSC.
DESCRIPTION:
This field stores the category of the item issued on the PSC.
665.012,5 CANCELLED 0;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 06, 1991
HELP-PROMPT: Enter a valid date.
DESCRIPTION:
This field stores the date the PSC was cancelled for the patient.
665.012,6 REMARKS 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Answer must be 3-45 characters in length.
DESCRIPTION:
This field stores any remarks about the PSC issued to the patient.
665,14 OTHER DATA 4;0 WORD-PROCESSING #665.014
DESCRIPTION:
This is a word-processing field that records other patient data.
LAST EDITED: SEP 25, 1987
HELP-PROMPT: Enter other patient data (word-processing).
DESCRIPTION:
This is a word-processing field that records other patient data.
665,19.1 HOME OXYGEN ELIGIBILITY RMPOA;1 SET (Required)
Home Oxygen Eligibility
'1' FOR SC/OP;
'2' FOR SC/IP;
'3' FOR NSC/IP;
'4' FOR NSC/OP;
LAST EDITED: DEC 29, 1998
HELP-PROMPT: Enter a Home Oxygen eligibility code.
DESCRIPTION:
Enter the Home Oxygen eligibility code.
TECHNICAL DESCR:
665,19.11 SPECIAL NSC/OP CATEGORY RMPOA;5 SET
'1' FOR SPECIAL LEGISLATION;
'2' FOR A & A;
'3' FOR PHC;
'4' FOR ELIGIBILITY REFORM;
LAST EDITED: DEC 29, 1998
HELP-PROMPT: Enter the NSC/OP eligible code category.
DESCRIPTION:
Entry is made only for NSC/OP eligible patients.
665,19.12 HOME OXYGEN CONTRACT LOCATION RMPOA;7 POINTER TO PROSTHETICS SITE PARAMETERS FILE (#669.9)
LAST EDITED: NOV 09, 1998
HELP-PROMPT: The site that handles the Home Oxygen contract for this patient.
DESCRIPTION: The Home Oxygen program is administered via a contract to a vendor. Each patient receives services
from only one vendor. That vendor usually has a contract with a medical center (site) to provide
those services. This is the site that administers that contract.
665,19.13 HOME OXYGEN LETTER TO BE SENT RMPOA;8 POINTER TO PROS LETTER FILE (#665.2)
LAST EDITED: NOV 18, 1998
HELP-PROMPT: Indicates that a letter needs to be sent.
DESCRIPTION:
Indicates that a letter needs to be sent for this patient.
CROSS-REFERENCE: 665^ALTR
1)= S ^RMPR(665,"ALTR",$E(X,1,30),DA)=""
2)= K ^RMPR(665,"ALTR",$E(X,1,30),DA)
665,19.14 HO LETTER 1 DATE RMPOA;9 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 08, 1999
DESCRIPTION:
This is the date/time when Home Oxygen letter 1 was printed or deleted.
665,19.15 HO LETTER 1 CODE RMPOA;10 SET
'P' FOR PRINTED;
'D' FOR DELETED;
LAST EDITED: JUN 08, 1999
DESCRIPTION:
The code signifies if Home Oxygen letter 1 was printed or deleted.
665,19.16 HO LETTER 2 DATE RMPOA;11 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 08, 1999
DESCRIPTION:
This is the date/time when Home Oxygen Letter 2 was printed or deleted.
665,19.17 HO LETTER 2 CODE RMPOA;12 SET
'P' FOR PRINTED;
'D' FOR DELETED;
LAST EDITED: JUN 08, 1999
DESCRIPTION:
The code which signifies Home Oxygen Letter 2 was printed or deleted.
665,19.18 HO LETTER 3 DATE RMPOA;13 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 08, 1999
DESCRIPTION:
This is the date/time when Home Oxygen Letter 3 was printed or deleted.
665,19.19 HO LETTER 3 CODE RMPOA;14 SET
'P' FOR PRINTED;
'D' FOR DELETED;
LAST EDITED: JUN 08, 1999
DESCRIPTION:
The code signifies that signifies a HOme Oxygen Letter 3 was printed or deleted.
665,19.2 HOME OXYGEN ACTIVATION DATE RMPOA;2 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 02, 2000
HELP-PROMPT: Enter the date the patient was activated in the home oxygen program.
DESCRIPTION: This is the date when the patient was activated as a home oxygen patient. The first prescription
date will be the same as this date.
CROSS-REFERENCE: 665^AHO
1)= S ^RMPR(665,"AHO",$E(X,1,30),DA)=""
2)= K ^RMPR(665,"AHO",$E(X,1,30),DA)
665,19.3 HOME OXYGEN PRESCRIPTION RMPOB;0 DATE Multiple #665.193 (Add New Entry without Asking)
LAST EDITED: NOV 09, 1998
DESCRIPTION: Contains data specific to this prescription such as the dates, items, services, vendors, quantity,
cost, etc.
665.193,.01 DATE 0;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 28, 2005
HELP-PROMPT: Enter the date that the prescription was written or received.
DESCRIPTION:
Enter the date the prescription was written.
TECHNICAL DESCR:
This field is match to the "Days to Expiration" field in the Prosthetics Site Parameters file.
CROSS-REFERENCE: 665.193^B
1)= S ^RMPR(665,DA(1),"RMPOB","B",$E(X,1,30),DA)=""
2)= K ^RMPR(665,DA(1),"RMPOB","B",$E(X,1,30),DA)
CROSS-REFERENCE: 665.193^APTASK^MUMPS
1)= Q
2)= D ACCTTASK^RMPOPF
CROSS-REFERENCE: ^^TRIGGER^665.193^100
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,"RMPOB",D1,"PFSS")):
^("PFSS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(66
5.193,.01,1,3,1.4)
1.4)= S DIH=$G(^RMPR(665,DIV(0),"RMPOB",DIV(1),"PFSS")),DIV=X S $P(^("PFSS"),U,1)=DIV,DIH=665.193,D
IG=100 D ^DICR
2)= Q
CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
DELETE VALUE)= NO EFFECT
FIELD)= PFSS NEW PRESCRIPTION FLAG
665.193,2 EXPIRATION DATE 0;3 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 02, 1999
HELP-PROMPT: Date this current prescription expires.
DESCRIPTION:
Enter the date that this prescription expires.
CROSS-REFERENCE:665^AE
1)= S ^RMPR(665,"AE",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(665,"AE",$E(X,1,30),DA(1),DA)
665.193,3 DESCRIPTION 1;0 WORD-PROCESSING #665.1933
LAST EDITED: NOV 09, 1998
DESCRIPTION:
Enter prescription information.
LAST EDITED: MAR 04, 1998
HELP-PROMPT: Enter prescription information.
DESCRIPTION:
This field is a word processing field to enter prescription info.
665.193,4 A&B LETTERS SENT 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: MAR 20, 1998
HELP-PROMPT: Do not edit. This field is filled in by the program.
DESCRIPTION: This field is set by the program. When an A or a B type letter is sent the letter type is stored
here.
665.193,30 PRIMARY ICD DIAGNOSIS CODE BA1;1 POINTER TO ICD DIAGNOSIS FILE (#80)
LAST EDITED: OCT 20, 2011
HELP-PROMPT: Select the primary diagnosis code from the consult.
DESCRIPTION:
Primary ICD from the consult. Associated with the prescription.
665.193,30.1 PRIMARY AGENT ORANGE BA1;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure.
DESCRIPTION:
Primary diagnosis is related to Agent Orange exposure.
665.193,30.2 PRIMARY IONIZED RADIATION BA1;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to Ionized Radiation exposure.
DESCRIPTION:
Primary diagnosis is related to Ionized Radiation exposure.
665.193,30.3 PRIMARY SERVICE CONNECTED BA1;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to a Service Connected condition.
DESCRIPTION:
Primary diagnosis is related to a Service Connected condition.
665.193,30.4 PRIMARY ENVIRONMENTAL CONT. BA1;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to Environmental Contaminants exposure.
DESCRIPTION:
Primary diagnosis is related to Environmental Contaminants exposure.
665.193,30.5 PRIMARY MST BA1;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to Military Sexual Trauma.
DESCRIPTION:
Primary diagnosis is related to Military Sexual Trauma.
665.193,30.6 PRIMARY HEAD/NECK CANCER BA1;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to Head/Neck Cancer.
DESCRIPTION:
Primary diagnosis is related to Head/Neck Cancer.
665.193,30.7 PRIMARY COMBAT VET BA1;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if primary diagnosis is related to Combat.
DESCRIPTION:
Primary diagnosis is related to Combat.
665.193,31 SECONDARY ICD DIAGNOSIS CODE 1 BA2;1 POINTER TO ICD DIAGNOSIS FILE (#80)
LAST EDITED: OCT 20, 2011
HELP-PROMPT: Select the secondary diagnosis code 1 from the consult.
DESCRIPTION:
A Secondary ICD from the consult. Associated with the prescription.
665.193,31.1 SECONDARY AGENT ORANGE 1 BA2;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure.
DESCRIPTION:
A secondary agent orange from the consult.
665.193,31.2 SECONDARY IONIZED RADIATION 1 BA2;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure.
DESCRIPTION:
Secondary diagnosis 1 is related to Ionized Radiation exposure.
665.193,31.3 SECONDARY SERVICE CONNECTED 1 BA2;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 29, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to a Service Connected condition.
DESCRIPTION:
Secondary diagnosis 1 is related to a Service Connected condition.
665.193,31.4 SECONDARY ENVIRONMENTAL CONT 1 BA2;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure.
DESCRIPTION:
Secondary diagnosis 1 is related to Environmental Contaminants exposure.
665.193,31.5 SECONDARY MST 1 BA2;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Miltary Sexual Trauma.
DESCRIPTION:
Secondary diagnosis 1 is related to Military Sexual Trauma.
665.193,31.6 SECONDARY HEAD/NECK CANCER 1 BA2;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck Cancer.
DESCRIPTION:
Secondary diagnosis 1 is related to Head/Neck Cancer.
665.193,31.7 SECONDARY COMBAT VET 1 BA2;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 1 is related to Combat.
DESCRIPTION:
Secondary diagnosis 1 is related to Combat.
665.193,32 SECONDARY ICD DIAGNOSIS CODE 2 BA3;1 POINTER TO ICD DIAGNOSIS FILE (#80)
LAST EDITED: OCT 20, 2011
HELP-PROMPT: Select the secondary diagnosis code 2 from the consult.
DESCRIPTION:
A Secondary ICD from the consult. Associated with the prescription.
665.193,32.1 SECONDARY AGENT ORANGE 2 BA3;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: AUG 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure.
DESCRIPTION:
Secondary diagnosis 2 is related to Agent Orange exposure.
665.193,32.2 SECONDARY IONIZED RADIATION 2 BA3;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure.
DESCRIPTION:
Secondary diagnosis 2 is related to Ionized Radiation exposure.
665.193,32.3 SECONDARY SERVICE CONNECTED 2 BA3;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to a Service Connected condition.
DESCRIPTION:
Secondary diagnosis 2 is related to a Service Connected condition.
665.193,32.4 SECONDARY ENVIRONMENTAL CONT 2 BA3;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 19, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure.
DESCRIPTION:
Secondary diagnosis 2 is related to Environmental Contaminants exposure.
665.193,32.5 SECONDARY MST 2 BA3;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Military Sexual Trauma.
DESCRIPTION:
Secondary diagnosis 2 is related to Military Sexual Trauma.
665.193,32.6 SECONDARY HEAD/NECK CANCER 2 BA3;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck Cancer.
DESCRIPTION:
Secondary diagnosis 2 is related to Head/Neck Cancer.
665.193,32.7 SECONDARY COMBAT VET 2 BA3;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 2 is related to Combat.
DESCRIPTION:
Secondary diagnosis 2 is related to Combat.
665.193,33 SECONDARY ICD DIAGNOSIS CODE 3 BA4;1 POINTER TO ICD DIAGNOSIS FILE (#80)
LAST EDITED: OCT 20, 2011
HELP-PROMPT: Select the secondary diagnosis code 3 from the consult.
DESCRIPTION:
A Secondary ICD from the consult. Associated with the prescription.
665.193,33.1 SECONDARY AGENT ORANGE 3 BA4;2 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure.
DESCRIPTION:
Secondary diagnosis 3 is related to Agent Orange exposure.
665.193,33.2 SECONDARY IONIZED RADIATION 3 BA4;3 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure.
DESCRIPTION:
Secondary diagnosis 3 is related to Ionized Radiation exposure.
665.193,33.3 SECONDARY SERVICE CONNECTED 3 BA4;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to a Service Connected condition.
DESCRIPTION:
Secondary diagnosis 3 is related to a Service Connected condition.
665.193,33.4 SECONDARY ENVIRONMENTAL CONT 3 BA4;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure.
DESCRIPTION:
Secondary diagnosis 3 is related to Environmental Contaminants exposure.
665.193,33.5 SECONDARY MST 3 BA4;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Military Sexual Trauma.
DESCRIPTION:
Secondary diagnosis 3 is related to Military Sexual Trauma.
665.193,33.6 SECONDARY HEAD/NECK CANCER 3 BA4;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Head/Neck Cancer.
DESCRIPTION:
Secondary diagnosis 3 is related to Head/Neck Cancer.
665.193,33.7 SECONDARY COMBAT VET 3 BA4;8 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter 'Y'es if Secondary diagnosis 3 is related to Combat.
DESCRIPTION:
Secondary diagnosis 3 is related to Combat.
665.193,100 PFSS NEW PRESCRIPTION FLAG PFSS;1 SET
'1' FOR READY TO PROCESS;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter "1" if this is a new prescription ready for PFSS processing.
DESCRIPTION: This flag indicates that a new Home Oxygen prescription has been entered and that
pre-certification processing for this patient should begin.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the DATE field of the HOME OXYGEN PRESCRIPTION sub-field of the PROSTHETICS PATIENT
File
CROSS-REFERENCE:665^APNEW
1)= S ^RMPR(665,"APNEW",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(665,"APNEW",$E(X,1,30),DA(1),DA)
665.193,101 REQUESTOR PFSS;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter the person that initiated the consult for this prescription.
DESCRIPTION: Person that performed the initial consult request. Pointer to file #200. Associated with the
prescription.
UNEDITABLE
665,19.4 HOME OXYGEN ITEM RMPOC;0 POINTER Multiple #665.194
LAST EDITED: NOV 09, 1998
IDENTIFIED BY: HCPCS CODE(#6)[R], REMARKS(#8)
665.194,.01 ITEM 0;1 POINTER TO PROS ITEM MASTER FILE (#661) (Required) (Multiply asked)
OUTPUT TRANSFORM: S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)
LAST EDITED: OCT 28, 2005
HELP-PROMPT: Enter the equipment item. Enter 'primary' item first.
DESCRIPTION: This is a multiple field and will contain all the items dispensed to the patient. NOTE: The first
entry must be the primary equipment item.
DELETE TEST: .01,0)= I 1 W "USE DELETE OPTION!"
CROSS-REFERENCE: 665.194^B
1)= S ^RMPR(665,DA(1),"RMPOC","B",$E(X,1,30),DA)=""
2)= K ^RMPR(665,DA(1),"RMPOC","B",$E(X,1,30),DA)
CROSS-REFERENCE: 665.194^APTASK^MUMPS
1)= Q
2)= D ITEMTASK^RMPOPF
CROSS-REFERENCE: ^^TRIGGER^665.194^100
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,"RMPOC",D1,"PFSS")):
^("PFSS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(66
5.194,.01,1,3,1.4)
1.4)= S DIH=$G(^RMPR(665,DIV(0),"RMPOC",DIV(1),"PFSS")),DIV=X S $P(^("PFSS"),U,1)=DIV,DIH=665.194,D
IG=100 D ^DICR
2)= Q
CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
DELETE VALUE)= NO EFFECT
FIELD)= PFSS ACCOUNT FLAG
665.194,1 VENDOR 0;2 POINTER TO VENDOR FILE (#440)
INPUT TRANSFORM:S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 28, 1999
HELP-PROMPT: Enter name of vendor who supplies the equipment item.
DESCRIPTION:
Enter the name of the vendor or vendor code.
SCREEN: S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))"
EXPLANATION: LIMITED TO VENDORS IN PROS. SITE FILE
665.194,2 QUANTITY 0;3 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 12, 1998
HELP-PROMPT: Type a Number between 1 and 99999, 0 Decimal Digits.
DESCRIPTION:
This is the number of units (tank, case, etc.) issued for this prescription.
665.194,3 UNIT COST 0;4 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: NOV 12, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the cost per unit of this issue.
665.194,4 UNIT OF ISSUE 0;5 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: NOV 12, 1998
HELP-PROMPT: Enter a unit of issue (e.g., ea, lbs).
DESCRIPTION:
This is the unit of issue (e.g., ea, lbs, case, feet, etc.).
665.194,5 FUND CONTROL POINT 0;6 FREE TEXT
LAST EDITED: NOV 12, 1998
HELP-PROMPT: Enter the Fund Control Point.
DESCRIPTION:
This is the Fund Control Point for this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
665.194,6 HCPCS CODE 0;7 POINTER TO PROSTHETIC HCPCS FILE (#661.1) (Required)
LAST EDITED: NOV 12, 1998
HELP-PROMPT: Enter HCPCS code, 1 letter followed by 4 numbers.
DESCRIPTION: Enter the HCPCS code for this item. This number is taken from the CPT file (81) and consists of 1
letter and 4 numbers. The HCPCS shares the CPT file 81.
665.194,7 ICD CODE 0;8 POINTER TO ICD DIAGNOSIS FILE (#80)
LAST EDITED: OCT 19, 2011
HELP-PROMPT: Enter ICD diagnosis code.
DESCRIPTION:
This is the ICD diagnosis code.
665.194,8 REMARKS 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
MAXIMUM LENGTH: 30
LAST EDITED: APR 16, 2020
HELP-PROMPT: Enter remarks (3-30 char) on this patient.
DESCRIPTION: Enter any information (3 - 30 characters) specific to this patient, such as: Patient hard of
hearing.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
665.194,9 ITEM TYPE 0;10 SET
'I' FOR Initial Issue;
'R' FOR Replace;
'X' FOR Repair;
LAST EDITED: FEB 03, 1999
HELP-PROMPT: Enter the type of issue: initial, replacement, or repair.
DESCRIPTION: This is the type of issue (initial, replacement, or repair) which is useful in determining
workload.
665.194,10 PRIMARY ITEM 0;11 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 14, 1999
HELP-PROMPT: Enter Y if this is the primary item.
DESCRIPTION: The primary item is the item that is the most important to or descriptive of a patient's care. It
is displayed on many reports in lieu of all the items so that the user can easily and quickly tell
what kind of treatment the patient is getting.
There are multiple sets of items for each patient, one for each vendor. There can only be one
primary item for each set.
CROSS-REFERENCE:665^AC
1)= S ^RMPR(665,"AC",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(665,"AC",$E(X,1,30),DA(1),DA)
cross refernce primary item flag to patient item
665.194,11 HOME OXYGEN RENTAL FLAG 0;12 SET
'1' FOR YES;
'0' FOR N;
LAST EDITED: JUN 06, 2000
DESCRIPTION:
A flag that designates an item as rental.
665.194,12 HOME OXYGEN CONSERVING FLAG 0;13 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 01, 2000
DESCRIPTION: This flag an item as that Oxygen conserving device is used. IF this flag is set to YES, a 'QH' cpt
modifier will be appended to the CPT modifier string during posting to Patient 2319 record.
665.194,100 PFSS ACCOUNT FLAG PFSS;1 SET
'1' FOR READY TO PROCESS;
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter "1" if this record is ready to process PFSS data.
DESCRIPTION:
Flag field that indicates this record is ready for PFSS Processing.
NOTES: TRIGGERED by the ITEM field of the HOME OXYGEN ITEM sub-field of the PROSTHETICS PATIENT File
CROSS-REFERENCE:665^APO
1)= S ^RMPR(665,"APO",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(665,"APO",$E(X,1,30),DA(1),DA)
Regular file wide cross reference in support of PFSS IBB interface.
665.194,101 PFSS ACCOUNT REFERENCE PFSS;2 POINTER TO PFSS ACCOUNT FILE (#375)
LAST EDITED: DEC 20, 2005
HELP-PROMPT: Enter the PFSS ACCOUNT REFERENCE returned by the PFSS process.
DESCRIPTION: The account reference number passed back to Prosthetics from the get account ID process. It is
associated with the item.
665,19.5 HOME OXYGEN INACTIVATION DATE RMPOA;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 09, 1998
HELP-PROMPT: Enter date that oxygen treatment was discontinued.
DESCRIPTION: Enter the date that the home oxygen treatment was discontinued. Do not enter this field until the
actual date of discontinuance.
665,19.6 HOME OXYGEN INACTIVAT. REASON RMPOA;4 SET
'D' FOR DISCONTINUED BY PATIENT;
'R' FOR Rx EXPIRED;
'M' FOR MD DISCONTINUED;
'P' FOR PATIENT DECEASED;
'I' FOR INPATIENT STATUS;
'E' FOR ENTERED IN ERROR;
LAST EDITED: AUG 18, 1999
HELP-PROMPT: Enter a reason code.
DESCRIPTION:
Enter a code (P, R, M, D, I, or E) for the reason for discontinue of home oxygen therapy.
665,19.7 HOME OXYGEN INACTIVATED BY RMPOA;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 09, 1998
HELP-PROMPT: The user who inactivated the Patient.
DESCRIPTION:
User who inactivated home oxygen patient.
665,20 HEIGHT (INCHES) 10;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<48)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Type a Number between 48 and 100, 0 Decimal Digits
DESCRIPTION:
This field stores the height (in inches) of the patient.
665,21 WEIGHT (POUNDS) 10;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>800)!(X<50)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Type a Number between 50 and 800, 0 Decimal Digits
DESCRIPTION:
This field stores the weight of the patient in pounds.
665,22 EYE COLOR 10;3 SET
'B' FOR BLACK;
'BL' FOR BLUE;
'GR' FOR GREEN;
'GY' FOR GRAY;
'BR' FOR BROWN;
'H' FOR HAZEL;
'W' FOR WHITE;
'P' FOR PINK;
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the eye color of the patient.
DESCRIPTION:
This field stores the eye color of the patient.
665,23 HAIR COLOR 10;4 SET
'B' FOR BLACK;
'BR' FOR BROWN;
'A' FOR AUBURN;
'GY' FOR GRAY;
'W' FOR WHITE;
'BL' FOR BLONDE;
'R' FOR RED;
LAST EDITED: SEP 11, 1990
HELP-PROMPT: Enter the hair color of the patient.
DESCRIPTION:
This field stores the hair color of the patient.
665,30 CRITICAL COMMENTS 8;0 WORD-PROCESSING #665.03
DESCRIPTION:
Stores patient notes/critical comments for prosthetics.
LAST EDITED: SEP 09, 1992
HELP-PROMPT: Enter patient critical comments
FILES POINTED TO FIELDS
ICD DIAGNOSIS (#80) HOME OXYGEN PRESCRIPTION:PRIMARY ICD DIAGNOSIS CODE (#30)
SECONDARY ICD DIAGNOSIS CODE 1 (#31)
SECONDARY ICD DIAGNOSIS CODE 2 (#32)
SECONDARY ICD DIAGNOSIS CODE 3 (#33)
HOME OXYGEN ITEM:ICD CODE (#7)
INSTITUTION (#4) STATION (#2)
NEW PERSON (#200) HOME OXYGEN INACTIVATED BY (#19.7)
PROSTHETIC DISABILITY CODE:ENTERED BY (#7)
DATE OF CLOTHING ALLOWANCE:EXAMINER (#6)
HOME OXYGEN PRESCRIPTION:REQUESTOR (#101)
PATIENT (#2) NAME (#.01)
PFSS ACCOUNT (#375) HOME OXYGEN ITEM:PFSS ACCOUNT REFERENCE (#101)
PROS DISABILITY CODE (#662) PROSTHETIC DISABILITY CODE:PROSTHETIC DISABILITY CODE (#.01)
PROS ITEM MASTER (#661) PSC ISSUE CARD:ITEM (#1)
HOME OXYGEN ITEM:ITEM (#.01)
PROS LETTER (#665.2) HOME OXYGEN LETTER TO BE SENT (#19.13)
PROSTHETIC HCPCS (#661.1) HOME OXYGEN ITEM:HCPCS CODE (#6)
PROSTHETICS SITE PARAMETERS
(#669.9) HOME OXYGEN CONTRACT LOCATION (#19.12)
UNIT OF ISSUE (#420.5) HOME OXYGEN ITEM:UNIT OF ISSUE (#4)
VENDOR (#440) HOME OXYGEN ITEM:VENDOR (#1)
INPUT TEMPLATE(S):
RMPO ACT MAR 26, 1998@08:34 USER #0
RMPO ADD/EDIT NON-ITEM MAY 21, 1998@11:45 USER #0
RMPR PATIENT ADD SEP 18, 1992@14:40 USER #0
Adds a patient to the Prosthtetic Patient file.
PRINT TEMPLATE(S):
RMPO ACTIVE PRINT DEC 15, 1997@15:25 USER #0 LIST OF ACTIVE HOME OXYGEN PATIENTS
RMPO PAT LIST DEC 16, 1997@08:36 USER #0 HOME OXYGEN LETTERS LIST
RMPO-BILLING-PRESORT FEB 03, 1999@06:11 USER #0 HOME OXYGEN PRE-BILLING REPORT
RMPO-PRINT-RPD2 JAN 15, 1999@17:00 USER #0 PROSTHETICS PATIENT LIST
RMPO-RPT-HOACTZIPLIST MAY 19, 2015@07:05 USER #0 ACTIVE HOME OXYGEN PATIENT BY ZIP CODE
RMPO-RPT-HOPRIITM JAN 14, 1999@09:25 USER #0 PROSTHETICS PATIENT LIST
RMPO-RPT-PRINT-HOACTZIPLIST FEB 02, 1999@09:15 USER #0 ACTIVE HOME OXYGEN PATIENT BY ZIP CODE
RMPO-RPT-PRINT-HORXEXP JAN 27, 1999@15:34 USER #0 HOME OXYGEN PATIENT PRESCRIPTION EXPIRATION DATE
SORT TEMPLATE(S):
RMPO PI JAN 14, 1999@15:26 USER #0 PROSTHETICS PATIENT PRIMARY ITEM EQUALS "Y"^YES
RMPO-BILLING-PRESORT FEB 03, 1999@06:07 USER #0
SORT BY: ]@HOME OXYGEN ACTIVATION DATE// (HOME OXYGEN ACTIVATION DATE not null)
WITHIN HOME OXYGEN ACTIVATION DATE, SORT BY: NAME// (NAME not null)
RMPO-RPT-HOACTZIPLIST FEB 02, 1999@14:47 USER #0
SORT BY: ]'HOME OXYGEN ACTIVATION DATE// (HOME OXYGEN ACTIVATION DATE not null)
WITHIN HOME OXYGEN ACTIVATION DATE, SORT BY: @NAME://
PATIENT FIELD: ZIP+4// (All ZIP+4 (includes nulls))
WITHIN ZIP+4, SORT BY: @NAME// (NAME not null)
RMPORAP
RMPO-RPT-HOINACTIVE MAY 17, 2000@17:51 USER #0
SORT BY: 'HOME OXYGEN ACTIVATION DATE// (HOME OXYGEN ACTIVATION DATE not null)
WITHIN HOME OXYGEN ACTIVATION DATE, SORT BY: @HOME OXYGEN INACTIVATION DATE// (User is asked range)
WITHIN HOME OXYGEN INACTIVATION DATE, SORT BY: NAME// (NAME not null)
INACTIVE PATIENT LIST (BY INACTIVATION DATE)
RMPO-RPT-HOPATIENTLIST JAN 13, 1999@14:38 USER #0
SORT BY: ]'HOME OXYGEN ACTIVATION DATE// (HOME OXYGEN ACTIVATION DATE not null)
WITHIN HOME OXYGEN ACTIVATION DATE, SORT BY: NAME// (NAME not null)
ALPHA PATIENT LIST
RMPO-RPT-HOPRIITM JAN 14, 1999@15:01 USER #0
SORT BY: @HOME OXYGEN ITEM//
HOME OXYGEN ITEM SUB-FIELD: PRIMARY ITEM// (PRIMARY ITEM equals Y (YES))
WITHIN PRIMARY ITEM, SORT BY: HOME OXYGEN ITEM//
HOME OXYGEN ITEM SUB-FIELD: ITEM// (ITEM not null)
Primary Item Report sort template. Order by item then patient.
RMPO-RPT-HORXEXP JAN 15, 1999@12:41 USER #0
SORT BY: ']'HOME OXYGEN PRESCRIPTION//
HOME OXYGEN PRESCRIPTION SUB-FIELD: DATE// (DATE not null)
WITHIN DATE, SORT BY: @HOME OXYGEN PRESCRIPTION//
HOME OXYGEN PRESCRIPTION SUB-FIELD: EXPIRATION DATE// (EXPIRATION DATE not null)
WITHIN EXPIRATION DATE, SORT BY: @NAME// (NAME not null)
RMPORPD
FORM(S)/BLOCK(S):