STANDARD DATA DICTIONARY #669.9 -- PROSTHETICS SITE PARAMETERS FILE 3/24/25 PAGE 1
STORED IN ^RMPR(669.9, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the list of parameters which can change the operation of the prosthetics package at a site. It should be noted
that these parameters are generally copied into a local variable when entering the prosthetics program. This means that, in
general, a change to this file will not take effect until the users currently using the package leave the prosthetics system and
come back into it again. This file may have one or more entries. During the installation process, some of the parameters for the
first site may be set for you. Never edit or delete the AMIS GROUPER field. Never delete an entry in this file, only edit it.
DD ACCESS: @
DEL ACCESS: @
POINTED TO BY: HOME OXYGEN CONTRACT LOCATION field (#19.12) of the PROSTHETICS PATIENT File (#665)
SITE field (#.01) of the HOME OXYGEN TRANSACTIONS FILE File (#665.72)
CROSS
REFERENCED BY: DAYS TO PRESCRIPTION EXPIRY(ALTDY), SITE NAME(B), STATION(C), PURCHASING AGENT(PA)
LAST MODIFIED: SEP 29,2021@14:50:56
669.9,.01 SITE NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:($L(X)<3)!($L(X)>50)!(X'?1U.E) X
LAST EDITED: AUG 03, 1995
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND BEGIN WITH A CAPITAL LETTER
DESCRIPTION: The site name can be either uppercase, or a combination of upper and lower. This is the name of
your Medical Center, and should be entered the way you would like to have it print on your forms.
For example: Carl T. Hayden VAMC.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 669.9^B
1)= S ^RMPR(669.9,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,"B",$E(X,1,30),DA)
669.9,1 STATION 0;2 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: NOV 03, 1992
HELP-PROMPT: Enter the Station Name or Station Number from the Institution File.
DESCRIPTION:
This is your station number.
CROSS-REFERENCE: 669.9^C
1)= S ^RMPR(669.9,"C",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,"C",$E(X,1,30),DA)
Lookup Site Name by Station Number.
669.9,1.1 IFCAP SITE 4;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<3) X
LAST EDITED: DEC 16, 1996
HELP-PROMPT: Answer must be 3-6 characters in length.
DESCRIPTION:
This field should contain the current IFCAP site location.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
669.9,2 AUTOMATED INVENTORY (GIP) 0;3 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 06, 1991
DESCRIPTION: When you first install Prosthetics, this should be set to no. When you are ready to start using
the inventory package, you should change this to yes.
669.9,3 PHONE NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>24!($L(X)<3) X
LAST EDITED: SEP 11, 1995
HELP-PROMPT: Answer must be 3-24 characters in length.
DESCRIPTION: This field stores the phone number of Prosthetics. This phone number will print on all 2421 forms.
24 spaces are allotted for phone number which should allow for entry of both area code and a four
digit extension, if desired.
669.9,4 STREET ADD1 2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>60!($L(X)<6) X
LAST EDITED: MAY 15, 1990
HELP-PROMPT: Answer with the street address for letterhead, and the address correspondence should be sent to.
DESCRIPTION: This should be the street address of your Prosthetics Service, or the address you would like
printed on your forms.
669.9,5 CITY 2;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
LAST EDITED: MAY 15, 1990
HELP-PROMPT: Answer must be 3-15 characters in length.
DESCRIPTION:
This is the city to go with the STREET ADD1 field. This is the city of your Prosthetics Service.
669.9,6 STATE 2;4 POINTER TO STATE FILE (#5) (Required)
LAST EDITED: JAN 28, 1992
HELP-PROMPT: Please enter the State where your Institution resides.
DESCRIPTION:
Pointer to the State file #5.
669.9,7 ZIP CODE 2;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<5) X
LAST EDITED: MAY 15, 1990
HELP-PROMPT: Answer must be 5-10 characters in length.
DESCRIPTION:
This is the zip code to go with the street address and city.
669.9,7.1 MANAGER COMMENT 6;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: DEC 28, 2004
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
This comment will display on GUI Purchasing Page.
669.9,8 CHIEF SIG BLOCK 2;6 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>55!($L(X)<5) X
LAST EDITED: MAY 29, 1990
HELP-PROMPT: Answer must be 5-55 characters in length.
DESCRIPTION:
This is the name of the Fund Control Point Official that signs.
669.9,8.1 PURCHASING AGENT 5;0 POINTER Multiple #669.9003 (Add New Entry without Asking)
DESCRIPTION:
This is a list of persons who are allowed to serve as purchasing agents for prosthetics.
669.9003,.01 PURCHASING AGENT 0;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 18, 2002
DESCRIPTION:
This is a person who is allowed to serve as a purchasing agent for prosthetics.
CROSS-REFERENCE: 669.9003^B
1)= S ^RMPR(669.9,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 669.9^PA^MUMPS
1)= D EN1^RMPR9X
2)= D KILL1^RMPR9X
669.9003,1 START RANGE 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 28, 2002
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The 2 digit number for the Purchasing Agents starting SSN range 00-99.
669.9003,2 STOP RANGE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 28, 2002
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION:
The 2 digit number for the Purchasing Agents ending SSN range 00-99.
669.9003,3 PHONE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<9) X
LAST EDITED: FEB 14, 2008
HELP-PROMPT: Answer must be 9-30 characters in length.
DESCRIPTION: This is a free text Phone Number field it should contain the complete phone number to contact
this Purchasing Agent.
Example: (NNN) NNN-NNNN ex NNNNN
669.9003,4 PRINT NAME 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: MAR 24, 2009
HELP-PROMPT: Answer must be 1-60 characters in length
DESCRIPTION: This field must be entered for every PA. This field was created to accommodate a more official
form of the PA's name such as adding Mr. or MS. etc. This field could also be populated with
another PA's name in case a PA leaves the VA or will be on an extended leave.
669.9,8.5 SIGNATURE BLOCK TITLE 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>55!($L(X)<5) X
LAST EDITED: DEC 30, 1992
HELP-PROMPT: Answer must be 5-55 characters in length.
DESCRIPTION:
Signature Block Title is used to describe the Prosthetics Service as a P&SAS or PTC.
669.9,9 PURCHASING DEVICE 0;5 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: AUG 05, 1992
HELP-PROMPT: Please Enter the Device Name that will be used for Printing Purchasing Forms for Prosthetics.
DESCRIPTION:
This is the device all VAF 10-2421s and 10-55's will be printed on.
669.9,10 COMMON NUMBERING SERIES 4;2 POINTER TO PAT NUMBER FILE (#442.6)
LAST EDITED: NOV 22, 2004
DESCRIPTION:
This is the Numbering Series given by Fiscal so each PO # will be unique.
669.9,11 GROUPER COUNTER 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<55555555)!(X?.E1"."1N.N) X
LAST EDITED: APR 27, 2009
HELP-PROMPT: Type a Number between 55555555 and 99999999, 0 Decimal Digits
DESCRIPTION: GROUPER COUNTER is used in the calculation of AMIS reports both in Purchasing and Issue from Stock
Modules. This field should NEVER BE CHANGED!
TECHNICAL DESCR: Counted backwards from 99999999 and placed in file 660 in the AMIS GROUPER field, to be used in
AMIS calculations from Purchasing and Issue from Stock.
UNEDITABLE
669.9,12 DVN IP ADDRESS 3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>39!($L(X)<3) X
LAST EDITED: MAR 25, 2015
HELP-PROMPT: Answer must be 3-39 characters in length.
DESCRIPTION:
This is the IP address for the Delivery Verification Notice DVN for the Patient Notification Cards.
TECHNICAL DESCR: This field should be populated in the very first site listed with the ?? in file 669.9.
$O(^RMPR(669.9,"B",0))
669.9,13 DVN FILE DIRECTORY 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: MAR 26, 2009
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION: This is the System File Directory name that is given by the local IRM. The instructions for the
file directory set up are in the Installation Guide for RMPR*3.0*125
TECHNICAL DESCR: This field should be populated in the very first site listed with the ?? in file 669.9.
$O(^RMPR(669.9,"B",0))
669.9,14 DVN SFTP USERNAME 3;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 26, 2009
HELP-PROMPT: Answer must be 3-30 characters in length
DESCRIPTION: This is the sftp User name that will be given to the sites and entered into the first site in the
list when using the SS Enter/Edit Station Site Parameters option.
TECHNICAL DESCR: This field should be populated in the very first site listed with the ?? in file 669.9.
$O(^RMPR(669.9,"B",0))
669.9,15 ART LIMBS PSC AMOUNT 2;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Type a Dollar Amount between 2 and 999, 2 Decimal Digits
DESCRIPTION:
When a 10-2520 is issued, certain dollar limits are set for artifical limbs.
669.9,16 WHEELCHAIR PSC AMOUNT 2;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Type a Dollar Amount between 2 and 999, 2 Decimal Digits
DESCRIPTION:
When a 10-2520 is issued, certain dollar limits are set for wheelchairs.
669.9,17 BRACES PSC AMOUNT 2;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Type a Dollar Amount between 2 and 999, 2 Decimal Digits
DESCRIPTION:
When a 10-2520 is issued, certain dollar limits are set for braces.
669.9,18 BLIND AIDS PSC AMOUNT 2;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999)!(X<2) X
LAST EDITED: SEP 14, 1990
HELP-PROMPT: Type a Dollar Amount between 2 and 999, 2 Decimal Digits
DESCRIPTION:
When a 10-2520 is issued, certain dollar limits are set for blind aids.
669.9,19 SUSPENSE PURGE 0;8 NUMBER (Required)
NUMBER OF DAYS TO RETAIN CLOSED SUSPENSE
INPUT TRANSFORM: K:+X'=X!(X>4000)!(X<90)!(X?.E1"."1.N) X
LAST EDITED: FEB 18, 2021
HELP-PROMPT: Type a number between 90 and 4000, 0 decimal digits.
DESCRIPTION: This is the number of days for the suspense records to remain in the file once they have been
completed.
669.9,20 CLOSE-OUT PURCHASING PURGE 0;9 NUMBER (Required)
NUMBER OF DAYS TO RETAIN CLOSED PURCHASING TRANSACTIONS
INPUT TRANSFORM: K:+X'=X!(X>730)!(X<120)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1995
HELP-PROMPT: Type a Number between 120 and 730, 0 Decimal Digits
DESCRIPTION: This is the number of days to keep old transactions in the file. It is recommended that this be
set to 120 days. days.
669.9,21 CANCELLATION PURCHASING PURGE 0;10 NUMBER (Required)
NUMBER OF DAYS TO RETAIN CANCELLED TRANSACTIONS
INPUT TRANSFORM: K:+X'=X!(X>730)!(X<120)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1995
HELP-PROMPT: Type a Number between 120 and 730, 0 Decimal Digits
DESCRIPTION: This is the number of days to keep transactions that have been cancelled. It is recommended that
this be set to 120 days.
669.9,22 PROSTHETICS CLINIC 1;0 POINTER Multiple #669.922 (Add New Entry without Asking)
669.922,.01 PROSTHETICS CLINIC 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>
DT)&('$P(ZT,U,2)) ZV=0 I ZV=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 12, 1994
HELP-PROMPT: Enter the name of the Prosthetics Scheduled Clinics
SCREEN: S DIC("S")="I $P(^(0),U,3)[""C"" S ZT=$G(^(""I"")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>
DT)&('$P(ZT,U,2)) ZV=0 I ZV=1"
EXPLANATION: Entry must be an active clinic
CROSS-REFERENCE:669.922^B
1)= S ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE:669.922^AC^MUMPS
1)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) S:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA)="" K ZST
2)= I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) K:ZST ^RMPR(669.9,"AC",X,ZST,DA(1),DA) K ZST
This x-ref is used by the RMPRSC routine to check if the MAS appointment being entered or changed
is for a Prosthetics Clinic.
669.9,27 ORTHOTIC LAB DEVICE DEV;2 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: AUG 16, 1994
HELP-PROMPT: Enter the Name of the Device that will print the 2529-3 for the Orthotic Lab
DESCRIPTION: This is an optional entry. If a device name is entered, it will be the device the 2529-3s will
print on for the Orthostics Lab. If the field is left null the user will be prompted to enter a
device.
669.9,28 RESTORATION CLINIC DEVICE DEV;3 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: AUG 16, 1994
HELP-PROMPT: Enter the Name of the Device that will print the 2529-3 for the Restoration Clinic
DESCRIPTION: Entry of a DEVICE is optional. If a device name is entered, the device will print 2529-3s for the
Restoration Clinic. If the field is null, the users will be prompted to enter a device.
669.9,29 SHOE LAST CLINIC DEVICE DEV;4 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Enter the Name of the Device that will print the 2529-3 for the Shoe Last Clinic
DESCRIPTION: This is th e device that will print the 2529-3 for the Shoe Last Clinic. If the field is null, the
user will be prompted to enter the device.
669.9,30 WHEELCHAIR REPAIR SHOP DEVICE DEV;5 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: AUG 30, 1994
HELP-PROMPT: Enter the Name of the Device that will print the 2529-3 for the WheelChair Repair Shop.
DESCRIPTION: This is the device that will print the 2529-3s for the Wheelchair Repair Shop. If this field is
null, the user will be asked to enter the device.
669.9,31 LAB 0;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 25, 1995
HELP-PROMPT: Enter '1' if your are an Orthotic Lab, Restoration Clinic, WheelChair Repair Shop, Ect.
DESCRIPTION:
This field turns on the lab module. The Labs are on if ths field is set to 'yes'.
669.9,32 ORTHOTICS LAB ACTIVATED? 0;11 SET
'1' FOR YES;
LAST EDITED: APR 05, 1995
HELP-PROMPT: Enter 'Yes' or 'Y' or 1 if the Orthotics Lab is activated at this station.
DESCRIPTION:
This field will contain a 1 if the Orthotics Lab has been activated at this station.
669.9,33 RESTORATION LAB ACTIVATED? 0;12 SET
'1' FOR YES;
LAST EDITED: APR 06, 1995
HELP-PROMPT: Enter 'Yes' or 'Y' or '1' to indicate Shoe Last Clinic should be activated.
DESCRIPTION:
A '1' in this field indicates that Restoration Clinic has been activated at this station.
669.9,34 ROUTING NUMBER 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<1) X
LAST EDITED: FEB 13, 2001
HELP-PROMPT: Answer must be 1-7 characters in length
DESCRIPTION: This field is the mail routing symbol, which is printed on purchasing forms. The mail routing
symbol '121' is being replaced by the value entered in this field.
669.9,35 INVENTORY DEVICE INV;1 POINTER TO DEVICE FILE (#3.5)
LAST EDITED: SEP 04, 1998
DESCRIPTION:
This is a device that will print a Notification letter for Items below the re-order level.
669.9,37 NOTIFICATION DATE INV;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 04, 1998
DESCRIPTION:
This is the date that a taskman job runs for the Notification letter.
669.9,38 HQ MAIL ADDRESS INV;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<12) X
LAST EDITED: OCT 11, 2000
HELP-PROMPT: Answer must be 12-45 characters in length.
DESCRIPTION:
This is an exchange address for HQ personnel who will receive the PIP reports.
669.9,39 HQ REPORT DATE INV;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 04, 2000
DESCRIPTION:
Date when PIP report was ran for HQ.
669.9,40 VISN INV;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>40)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 13, 2000
HELP-PROMPT: Type a Number between 1 and 40, 0 Decimal Digits
DESCRIPTION:
This is the VISN where this station belong to.
669.9,50 PCE START DATE PCE;1 DATE
INPUT TRANSFORM: S %DT="ETR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 2001
DESCRIPTION:
PCE START DATE is the starting date and time the background job runs.
669.9,51 PCE END DATE PCE;2 DATE
INPUT TRANSFORM: S %DT="ETR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 16, 2001
DESCRIPTION:
PCE END DATE is the date and time the PCE background job finish to completion.
669.9,52 PCE HOSPITAL LOCATION PCE;3 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: OCT 15, 2001
DESCRIPTION: This is a pointer to Hopital Location file (#44), a clinic, where prosthetics outpatient encounter
is scheduled.
669.9,60 HOME OXYGEN PRESCRIPTION RMPORXN;0 Multiple #669.9001
LAST EDITED: DEC 14, 1998
669.9001,.01 PRESCRIPTION SEQUENCE NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 01, 1999
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION: Prescriptions arrive for each patient, either in regular intervals or as amendments to the
current prescription. The PRESCRIPTION SEQUENCE NUMBER denotes the order in which they arrive.
Therefore, the prescription number that is the highest usually is the one that expires last.
CROSS-REFERENCE: 669.9001^B
1)= S ^RMPR(669.9,DA(1),"RMPORXN","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPORXN","B",$E(X,1,30),DA)
669.9001,1 DEFAULT DAYS TO EXPIRATION 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 12, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: Each prescription expires on a certain date (legally and by policy). Usually, the first
prescription expires 6 months after it is written, the second prescription expires 6 months after
it is written, and the third precription and all subsequent prescriptions expires one year after
they are written. The value of this field is used to determine a default answer for the
expiration date of a prescription when a new prescription record is created.
TECHNICAL DESCR: When the user is prompted for an expiration date for a prescription, the system calculates this
date by adding the value of this field to the ACTIVATION DATE of the prescription. The result is
used to prompt the user for a default date of expiration for prescriptions.
669.9,61 HOME OXYGEN FUND CONTROL POINT RMPOFCP;0 Multiple #669.961
LAST EDITED: DEC 15, 1998
DESCRIPTION:
This field contains the fund control points used by home oxygen.
669.961,.01 FUND CONTROL POINT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: D FCPIX^RMPOPED
LAST EDITED: FEB 17, 1999
HELP-PROMPT: Enter a Fund Control Point
DESCRIPTION:
This is a Fund Control Point used for home oxygen.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 669.961^B
1)= S ^RMPR(669.9,DA(1),"RMPOFCP","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOFCP","B",$E(X,1,30),DA)
669.961,1 PSAS? 0;2 SET
'Y' FOR YES, PSAS FCP;
'N' FOR NO, OTHER FCP;
LAST EDITED: DEC 14, 1998
HELP-PROMPT: Enter 'Y' if this is a PSAS FCP.
DESCRIPTION: If this is a PSAS Fund Control Point, then enter 'Y'. If this isn't a PSAS Fund Control Point,
then enter 'N'.
669.961,2 PURCHASE CARD NUMBER 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<16) X
LAST EDITED: FEB 12, 2002
HELP-PROMPT: Answer must be 16 characters in length.
669.9,62 HOME OXYGEN VENDOR RMPOVDR;0 POINTER Multiple #669.962
LAST EDITED: DEC 14, 1998
DESCRIPTION:
This field contains the vendors that supply devices and services for home oxygen.
669.962,.01 HOME OXYGEN VENDORS 0;1 POINTER TO VENDOR FILE (#440) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: DEC 14, 1998
HELP-PROMPT: Enter a vendor that provides home oxygen.
DESCRIPTION:
This is a vendor that provides home oxygen devices and services.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 669.962^B
1)= S ^RMPR(669.9,DA(1),"RMPOVDR","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOVDR","B",$E(X,1,30),DA)
669.9,65 HOME OXYGEN LETTER RMPOLET;0 POINTER Multiple #669.965
DESCRIPTION:
This field contains the letter types that are sent to patient receiving home oxygen.
669.965,.01 HOME OXYGEN LETTER 0;1 POINTER TO PROS LETTER FILE (#665.2) (Multiply asked)
LAST EDITED: MAY 12, 1998
HELP-PROMPT: Select a home oxygen letter.
DESCRIPTION: This is the name of a letter that will be sent to a patient to welcome that patient to the home
oxygen program, remind the patient to renew the prescription, or to tell the patient that s/he is
no longer in the home oxygen program.
CROSS-REFERENCE: 669.965^B
1)= S ^RMPR(669.9,DA(1),"RMPOLET","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOLET","B",$E(X,1,30),DA)
669.965,1 LETTER CODE 0;2 SET
'A' FOR LETTER 1;
'B' FOR LETTER 2;
'C' FOR LETTER 3;
LAST EDITED: JUN 16, 1999
HELP-PROMPT: Select the code for the letter.
DESCRIPTION: Each letter has a letter code for quick reference, instead of its potentially very long name.
This is the code that summarizes what the letter will be used for.
669.965,2 DAYS TO PRESCRIPTION EXPIRY 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 15, 1998
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: The letter for pending prescription expiry is produced when there are at most this number of days
until the prescription expires. If this is a welcome letter, enter '0' so the letter will be
generated the day the patient is activated.
CROSS-REFERENCE: 669.9^ALTDY
1)= S ^RMPR(669.9,"ALTDY",$E(X,1,30),DA(1),DA)=""
2)= K ^RMPR(669.9,"ALTDY",$E(X,1,30),DA(1),DA)
669.965,3 AUTOGENERATE LETTER 0;4 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 02, 1998
HELP-PROMPT: Enter "Y" to autogenerate letter.
DESCRIPTION: If you want the patient to appear on a list of patients who are due to receive letters, enter 1
for YES at this prompt. If not, enter 0 for NO. If YES, the letter is autogenerated and ready
fo be printed.
669.965,4 PRINT LETTER HEADER 0;5 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 02, 1998
HELP-PROMPT: Enter "Y" to include letter header.
DESCRIPTION: If you print your letters to paper that contains a letterhead, then enter 0 for NO at this
prompt. If you want the program to print the header information, enter 1 for YES at this prompt.
669.9,70 HO LETTER 1 LIST RMPOXBAT1;0 POINTER Multiple #669.9002
LAST EDITED: JUN 14, 1999
DESCRIPTION:
List of all patients who get Home Oxygen letter 1.
669.9002,.01 PATIENT 0;1 POINTER TO PROSTHETICS PATIENT FILE (#665)
LAST EDITED: JUN 14, 1999
DESCRIPTION:
This is the patient who gets Home Oxygen letter 1.
CROSS-REFERENCE: 669.9002^B
1)= S ^RMPR(669.9,DA(1),"RMPOXBAT1","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOXBAT1","B",$E(X,1,30),DA)
669.9,72 HO LETTER 2 LIST RMPOXBAT2;0 POINTER Multiple #669.972
LAST EDITED: JUN 14, 1999
DESCRIPTION:
List of all patients who get Home Oxygen letter 2.
669.972,.01 PATIENT 0;1 POINTER TO PROSTHETICS PATIENT FILE (#665)
LAST EDITED: JUN 14, 1999
DESCRIPTION:
This is the patient who gets Home Oxygen letter 2.
CROSS-REFERENCE: 669.972^B
1)= S ^RMPR(669.9,DA(1),"RMPOXBAT2","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOXBAT2","B",$E(X,1,30),DA)
669.9,74 HO LETTER 3 LIST RMPOXBAT3;0 POINTER Multiple #669.974
LAST EDITED: JUN 14, 1999
DESCRIPTION:
List of all patient who get Home Oxygen letter 3.
669.974,.01 PATIENT 0;1 POINTER TO PROSTHETICS PATIENT FILE (#665) (Required)
LAST EDITED: JUN 14, 1999
DESCRIPTION:
This is the patient who gets Home Oxygen letter 2.
CROSS-REFERENCE: 669.974^B
1)= S ^RMPR(669.9,DA(1),"RMPOXBAT3","B",$E(X,1,30),DA)=""
2)= K ^RMPR(669.9,DA(1),"RMPOXBAT3","B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
DEVICE (#3.5) PURCHASING DEVICE (#9)
ORTHOTIC LAB DEVICE (#27)
RESTORATION CLINIC DEVICE (#28)
SHOE LAST CLINIC DEVICE (#29)
WHEELCHAIR REPAIR SHOP DEVICE (#30)
INVENTORY DEVICE (#35)
HOSPITAL LOCATION (#44) PCE HOSPITAL LOCATION (#52)
PROSTHETICS CLINIC:PROSTHETICS CLINIC (#.01)
INSTITUTION (#4) STATION (#1)
NEW PERSON (#200) PURCHASING AGENT:PURCHASING AGENT (#.01)
PAT NUMBER (#442.6) COMMON NUMBERING SERIES (#10)
PROS LETTER (#665.2) HOME OXYGEN LETTER:HOME OXYGEN LETTER (#.01)
PROSTHETICS PATIENT (#665) HO LETTER 1 LIST:PATIENT (#.01)
HO LETTER 2 LIST:PATIENT (#.01)
HO LETTER 3 LIST:PATIENT (#.01)
STATE (#5) STATE (#6)
VENDOR (#440) HOME OXYGEN VENDOR:HOME OXYGEN VENDORS (#.01)
INPUT TEMPLATE(S):
RMPO-EDIT-SITE JUL 27, 1998@12:35 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):