Global: ^RMPR(664

FileMan FileNo	FileMan Filename	Package
664	PROSTHETICS 1358	Prosthetics

Package	Total	Routines
Prosthetics	71	BILLING ITEM RMPOPAT1 RMPR 2520 RMPR APPROVE RMPR BLANK RMPR OPEN TRANS RMPR121A RMPR121B RMPR121C RMPR21 RMPR21A RMPR21B RMPR21C RMPR29B RMPR29I RMPR29M RMPR29P RMPR421 RMPR421A RMPR421B RMPR421C RMPR4C1 RMPR4C2 RMPR4C21 RMPR4D1 RMPR4E21 RMPR4E22 RMPR4E23 RMPR4EPC RMPR4FSH RMPR4LI RMPR4LOP RMPR4M RMPR4OPN RMPR4P21 RMPR4P22 RMPR4P24 RMPR4UTL RMPR55 RMPR9AUT RMPR9P21 RMPR9P22 RMPRC21 RMPRCT RMPRDP RMPRE21 RMPRE22 RMPRFSH RMPRL9 RMPRM RMPROPN RMPRP2 RMPRP55 RMPRPCEL RMPRPS35 ^RMPR(664 RMPR9CA RMPRCDP RMPRCPT8 RMPRD1 RMPRE29 RMPREYE RMPRFFIX RMPRLI RMPRLOP RMPRP21 RMPRP24 RMPRPAT1 RMPRUTIL ^RMPR(669.1 RMPRPST
IFCAP	5	PRCHDP1 PRCHFPT1 PRCHL4 PRCHL6 PRCHRP5

Package	Total	Routines
Prosthetics	29	RMPR121B RMPR121C RMPR21 RMPR21A RMPR21B RMPR29M RMPR29P RMPR421 RMPR421A RMPR421B RMPR4C21 RMPR4D1 RMPR4E21 RMPR4EPC RMPR4P21 RMPR9AUT RMPR9CA RMPRC21 RMPRCDP RMPRD1 RMPRDP RMPRE21 RMPRFFIX RMPRL9 RMPRM RMPRP2 RMPRP21 RMPRP55 RMPRPSC
IFCAP	2	PRCHL4 PRCHL6

Package	Total	FileMan Files
Prosthetics	1	PROSTHETIC WORK ORDER(#664.2)[#664.22(11)]

Package	Total	FileMan Files
Prosthetics	6	RECORD OF PROS APPLIANCE/REPAIR(#660)[13, #664.02(12)] PROS ITEM MASTER(#661)[#664.02(.01)] PROSTHETIC HCPCS(#661.1)[#664.02(16)] PROSTHETIC 2529-3(#664.1)[24] PROSTHETIC WORK ORDER(#664.2)[22] PROSTHETICS PATIENT(#665)[1]
IFCAP	5	VENDOR(#440)[4] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[7.1] UNIT OF ISSUE(#420.5)[#664.02(4)] PURCHASE CARD ORDER RECONCILE(#440.6)[30] CONTROL POINT ACTIVITY(#410)[6]
Kernel	2	INSTITUTION(#4)[18] NEW PERSON(#200)[3.2, 8.5, 8.6, 10, 23]

Fields, Total: 41

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 13, 1996` HELP-PROMPT: `Enter the Patient's name or the 1358 date` DESCRIPTION: `This is the date that the 1358 transaction took place.` CROSS-REFERENCE: `664^B` `1)= S ^RMPR(664,"B",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"B",$E(X,1,30),DA)`
.5	OBLIGATION NUMBER	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X` LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: `This is the IFCAP obligation number.` CROSS-REFERENCE: `664^AC` `1)= S ^RMPR(664,"AC",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"AC",$E(X,1,30),DA)` `Allows quick lookups on file 664 by Obligation Number.`
1	PATIENT	0;2	POINTER TO PROSTHETICS PATIENT FILE (#665)	**********************REQUIRED FIELD********************** PROSTHETICS PATIENT(#665) LAST EDITED: `APR 19, 1991` HELP-PROMPT: `Enter the name of the Patient you wish to purchase for.` DESCRIPTION: `The prosthetics patient.` CROSS-REFERENCE: `664^C` `1)= S ^RMPR(664,"C",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"C",$E(X,1,30),DA)` `This will allow lookup by Patient Name.`
2	BILLING ITEM	1;0	POINTER Multiple #664.02	664.02 LAST EDITED: `OCT 29, 2004` DESCRIPTION: `This is the item that will be posted to the RECORD OF APPLIANCE/REPAIR file.`
3	CANCELLATION DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 11, 1990` HELP-PROMPT: `Must be a date.` DESCRIPTION: `The date the purchasing transaction was cancelled.`
3.1	CANCELLATION REMARKS	2;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `APR 03, 1992` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `Any remarks the Purchasing Agent, or Prosthetic Clerk would like to say in the mail message.` CROSS-REFERENCE: `^^BULLETIN MESSAGE` `1)= S Y(0)=X,D0=DA X ^DD(664,3.1,1,1,1.1) X ^DD(664,3.1,1,1,1.2) X ^DD(664,3.1,1,1,1.3) X ^DD(664,3.1,1,1,1.4) K XMY S XMB="RMPR CANCEL TRANSACTION" D ^XMB:$D(^XMB(3.6,"B",XMB)) K Y,XMB` `1.1)= S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$P(Y(1),U,7) S XMB(1)=X` `1.2)= S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"",1:$P(^(0),U,1)) S XMB(2)=X` `1.3)= S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=$P(Y(1),U,5) S Y=X X ^DD("DD") S X=Y S XMB(3)=X` `1.4)= S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"") S X=$P(Y(1),U,1) S XMB(4)=X` `2)= Q` `CREATE PARAMETER #1)= REFERENCE` `CREATE PARAMETER #2)= INITIATOR` `CREATE PARAMETER #3)= CANCELLATION DATE` `CREATE PARAMETER #4)= CANCELLATION REMARKS` `CREATE VALUE)= RMPR CANCEL TRANSACTION` `DELETE VALUE)= NO EFFECT` `This is a bulletin message regarding the transaction has been canceled.`
3.2	CANCELLED BY	2;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 11, 1990` HELP-PROMPT: `Enter the person who cancelled the transaction.` DESCRIPTION: `This is pointer to the New Person file.`
4	VENDOR	0;4	POINTER TO VENDOR FILE (#440)	**********************REQUIRED FIELD********************** VENDOR(#440) LAST EDITED: `MAR 12, 1993` HELP-PROMPT: `Enter the Vendor the item is being purchased from.` DESCRIPTION: `The name of the vendor that the item is being purchased from.`
6	C.P.	0;6	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	**********************REQUIRED FIELD********************** CONTROL POINT ACTIVITY(#410) LAST EDITED: `AUG 27, 1990` HELP-PROMPT: `Please Enter the Control Point Activity Number.` DESCRIPTION: `This is the IFCAP Control Point number for VAF 4-1358.` `UNEDITABLE`
7	REFERENCE	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `FEB 10, 1992` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the individual reference number that this transaction has been assigned.` `UNEDITABLE` CROSS-REFERENCE: `664^E` `1)= S ^RMPR(664,"E",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"E",$E(X,1,30),DA)` `This cross reference is used for looking up Prosthetic 1358 entries by the transaction number created by IFCAP.` CROSS-REFERENCE: `664^E1^MUMPS` `1)= S ^RMPR(664,"E1",$P(X,"-",3),DA)=""` `2)= K ^RMPR(664,"E1",$P(X,"-",3),DA)` `This cross reference is used for lookups on Prosthetic 1358 entries by the last four numbers of the transaction number created by IFCAP.`
7.1	IFCAP ORDER	4;6	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `DEC 16, 1996` DESCRIPTION: `This is usedd to pass the ien back to IFCAP for cancellations.`
7.5	PURCHASE CARD REFERENCE	4;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<3) X` LAST EDITED: `MAR 13, 1996` HELP-PROMPT: `Answer must be 3-10 characters in length.` DESCRIPTION: `This is the unique Purchase Card Transaction Number. Do not edit this field from Fileman.` CROSS-REFERENCE: `664^G` `1)= S ^RMPR(664,"G",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"G",$E(X,1,30),DA)` `This is used for the Purchase Card Module. Allow selection by transaction number.`
8	CLOSE OUT DATE	0;8	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 28, 1995` HELP-PROMPT: `Answer must be a date.` DESCRIPTION: `This is the date the transaction was closed-out, and posted as complete in IFCAP and the electronic 10-2319. This is the date AMIS will be based on.` CROSS-REFERENCE: `^^TRIGGER^664^8.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(664,8,1,1,1.4)` `1.4)= S DIH=$S($D(^RMPR(664,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,7)=DIV,DIH=664,DIG=8.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$S($D(^RMPR(664,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,7)=DIV,DIH=664,DIG=8.5 D ^DICR:$O(^DD(DIH,DIG` `,1,0))>0` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= CLOSED BY` `This is a trigger on Close-Out Date. When the purchasing transaction is closed the Closed By field will contain the user who closed this transaction. This will be used for auditing.`
8.1	CLOSE-OUT REMARKS	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `AUG 28, 1995` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `Any remarks at the time the transaction is being marked as complete.`
8.5	CLOSED BY	2;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 21, 1995` DESCRIPTION: `This is a pointer to the DUZ of the person who canceled the transaction.` NOTES: `TRIGGERED by the CLOSE OUT DATE field of the PROSTHETICS 1358 File`
8.6	LAST IFCAP AMEND BY	2;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 24, 1997`
8.7	LAST AMEND TOTAL	2;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `JUN 25, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits` DESCRIPTION: `This is the last total amount that was amended through IFCAP on this transaction.`
8.8	LAST AMEND REPRINT OK	2;10	SET	'1' FOR Y; LAST EDITED: `AUG 14, 1997` DESCRIPTION: `This is a flag used to determine if the order should be reprinted or not. If this is set to 1, or yes, then the order may be reprinted. This means no pending IFCAP amendments are outstanding.`
10	INITIATOR	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 18, 1990` DESCRIPTION: `This is the person who created the transaction.`
11	EST. SHIPPING CHARGE	0;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` LAST EDITED: `OCT 16, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `The estimated shipping charge when the transaction is created. This field only holds the estimate, and not the actual charge.`
12	ACT. SHIPPING CHARGE	0;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `APR 24, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits` DESCRIPTION: `This field will be set when closing out the transaction if shipping charges were changed or deleted.`
13	SHIPPING ENTRY	0;12	POINTER TO RECORD OF PROS APPLIANCE/REPAIR FILE (#660)	RECORD OF PROS APPLIANCE/REPAIR(#660) LAST EDITED: `NOV 09, 1990` DESCRIPTION: `All shipping entries are posted as entries on the electronic 10-2319.`
14	PICKUP/DELIVERY REMARKS	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `MAR 27, 1991` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `Pickup and delivery remarks go here.`
15	FORM TYPE	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 13, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field will contain the Form type of the 2319 and should not be edited thru Fileman.` `UNEDITABLE`
16	PSC CATEGORY	2;5	SET	'W' FOR WHEELCHAIR; 'O' FOR BRACE; 'B' FOR BLIND AIDS; 'A' FOR ART. LIMBS; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Please enter a 'W', 'O', 'B', or an 'A'` DESCRIPTION: `Contains the PSC CATEGORY for the type of 10-55 or 2520 purchase.`
17	PERCENT DISCOUNT	2;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 09, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 1 Decimal Digit` DESCRIPTION: `Contains the % Discount for the Purchase. Estimated Cost and Actual Cost are calculated with the % Discount.`
18	STATION NAME	0;14	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `AUG 11, 1992` HELP-PROMPT: `Enter the Station Name or Station Prefix.` DESCRIPTION: `This field is a pointer to the Institution File. If a site is Multi Divisional this field is used to screen out entries by site number.`
19	DELIVER TO	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 01, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Contains the destination for delivery of the purchased item.`
20	DATE REQUIRED	3;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1!(Y` `LAST EDITED: FEB 02, 1996` `HELP-PROMPT: Enter the date the vendor must deliver by` `DESCRIPTION:` `This field stores the date the vendor is required to provide the Item/Service by.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `CROSS-REFERENCE: ^^TRIGGER^664^21` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(664,20,1,1,1.1) X ^DD(664,20,1,1,1.4)` `1.1)= S X=DIV S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"") S X=DIV,X1=X,X2=$P(Y(1),U,1),X="" D:X2 ^%DTC:X1` `1.4)= S DIH=$S($D(^RMPR(664,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=664,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,3)):^(3),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(664,20,1,1,2.1) X ^DD(664,20,1,1,2.4)` `2.1)= S X=DIV S Y(2)=$S($D(^RMPR(664,D0,0)):^(0),1:""),Y(1)=$S($D(^(3)):^(3),1:"") S X=$P(Y(1),U,2),X1=X,X2=$P(Y(2),U,1),X="" D:X2 ^%DTC:X1` `2.4)= S DIH=$S($D(^RMPR(664,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,3)=DIV,DIH=664,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `3)= Do not delete` `CREATE VALUE)= DATE REQUIRED-DATE` `DELETE VALUE)= DATE REQUIRED-DATE` `FIELD)= DELIVERY TIME` `This trigger is uesed to update the delivery time field.`
21	DELIVERY TIME	3;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 04, 1993` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This field stores the number of days the vendor has to delivery the Item/Service.` NOTES: `TRIGGERED by the DATE REQUIRED field of the PROSTHETICS 1358 File`
21.1	DELIVER TO ATTENTION	3;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `APR 27, 2004` HELP-PROMPT: `Answer must be 1-45 characters in length.` DESCRIPTION: `Attention to: line for delivery`
22	WORK ORDER NUMBER	0;15	POINTER TO PROSTHETIC WORK ORDER FILE (#664.2)	PROSTHETIC WORK ORDER(#664.2) LAST EDITED: `JUN 18, 1994` DESCRIPTION: `Lab Work Order Number is a pointer to the Prosthetic Work Order file. It is the associated Lab work order number.`
23	LAB TECHNICIAN	0;16	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 22, 1995` DESCRIPTION: `This is the lab technician that entered the 2421.`
24	2529-3	0;17	POINTER TO PROSTHETIC 2529-3 FILE (#664.1)	PROSTHETIC 2529-3(#664.1) LAST EDITED: `JUN 18, 1994`
25	PURCHASE CARD NUMBER	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<16) X` LAST EDITED: `MAR 05, 1996` HELP-PROMPT: `Answer must be 16 characters in length.` DESCRIPTION: `This is the Purchase Card Number used in a credit card transaction.`
26	BANK AUTHORIZATION NUMBER	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?.N) X` LAST EDITED: `MAR 11, 1996` HELP-PROMPT: `Answer must be 6 numbers in length.` DESCRIPTION: `This six digit number is the authorization number VISA gives to the vendor for guaranteed payment. This number is used in the reconciliation process.` CROSS-REFERENCE: `664^F` `1)= S ^RMPR(664,"F",$E(X,1,30),DA)=""` `2)= K ^RMPR(664,"F",$E(X,1,30),DA)` `This is the six digit Bank Authorization Number. This is used for Close-Out a Purchase Card Order, and Cancel a Purchase Card Order.`
27	EST AMOUNT	4;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `MAR 12, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits` DESCRIPTION: `This is the estimated amount of the transaction. This field is only used for Purchase Card Transactions.`
28	CLOSE-OUT AMOUNT	4;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X` LAST EDITED: `MAR 12, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999, 2 Decimal Digits` DESCRIPTION: `This is the final amount authorized on the Purchase Card Transaction.`
29	NEW PURCHASE CARD NUMBER	4;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` LAST EDITED: `OCT 26, 2001` HELP-PROMPT: `Answer must be 1-16 characters in length.` DESCRIPTION: `This field was created with the release of Prosthetics patch RMPR3.067. This patch was released to allow users to modify the credit card number contained in the Oracle reconciliation document received from Austin and` `stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6).` `Due to CitiBank canceling and re-issuing a number of credit cards, it may be necessary to modify the credit card number in the file #440.6 Oracle document to match the credit card number that is in the original purchase` `order.` `This field stores the new purchase card number that was sent from CitiBank in the Oracle transaction from Austin. This number was originally stored in file 440.6, the IFCAP PURCHASE CARD ORDER RECONCILE file, and has been` `replaced in file 440.6 by the original purchase card number on the prosthetics transaction.` `This is necessary so that the prosthetics order can be reconciled and closed. This field is needed to maintain the audit trail for changing the purchase card number in 440.6 from the new purchase card number back to the` `original purchase card number.`
30	AUDIT REPAIR	4;8	POINTER TO PURCHASE CARD ORDER RECONCILE FILE (#440.6)	PURCHASE CARD ORDER RECONCILE(#440.6) LAST EDITED: `OCT 26, 2001` DESCRIPTION: `This field was created with the release of Prosthetics patch RMPR3.067. This patch was released to allow users to modify the credit card number contained in the Oracle reconciliation document received from Austin and` `stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6).` `Due to CitiBank canceling and re-issuing a number of credit cards, it may be necessary to modify the credit card number in the file #440.6 Oracle document to match the credit card number that is in the original purchase` `order.` `This is necessary so that the prosthetics order can be reconciled and closed. This field is needed to maintain the audit trail for changing the purchase card number in 440.6 from the new purchase card number back to the` `original purchase card number.`
31	AUDIT DATE	4;9	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 26, 2001` DESCRIPTION: `This field was created with the release of Prosthetics patch RMPR3.067. This patch was released to allow users to modify the credit card number contained in the Oracle reconciliation document received from Austin and` `stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6).` `Due to CitiBank canceling and re-issuing a number of credit cards, it may be necessary to modify the credit card number in the file #440.6 Oracle document to match the credit card number that is in the original purchase` `order.` `This is the date that the credit card number in file 440.6 was modified.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #4345	IFCAP	DATE (.01). Access: Direct Global Read & w/Fileman VENDOR (4). Access: Direct Global Read & w/Fileman STATION NAME (18). Access: Direct Global Read & w/Fileman EST. SHIPPING CHARGE (11). Access: Read w/Fileman ACT. SHIPPING CHARGE (12). Access: Read w/Fileman IFCAP ORDER (7.1). Access: Direct Global Read & w/Fileman BILLING ITEM (.01). Access: Direct Global Read & w/Fileman UNIT OF ISSUE (4). Access: Direct Global Read & w/Fileman CONTRACT # (13). Access: Direct Global Read & w/Fileman BRIEF DESCRIPTION (1). Access: Read w/Fileman UNIT COST (2). Access: Read w/Fileman QTY (3). Access: Read w/Fileman ACT. UNIT COST (6). Access: Read w/Fileman PSAS HCPCS (16). Access: Read w/Fileman MODEL (15.4). Access: Read w/Fileman DELIVER TO (19). Access: Read w/Fileman DELIVERY TO ATTENTION (21.1). Access: Read w/Fileman	$Order() through the "B" cross reference on the DATE(#.01) field.$Order() through the internal entry numbers of the ITEMsubfile (#664.02).$Order() through the "G" cross reference on the PURCHASECARD REFERENCE (#7.5) field.
ICR #6510	ADVANCED PROSTHETICS ACQUISITION TOOL	DATE (.01). Access: Both R/W w/Fileman PATIENT (1). Access: Both R/W w/Fileman OBLIGATION NUMBER (.5). Access: Direct Global Read & w/Fileman VENDOR (4). Access: Both R/W w/Fileman CANCELLATION DATE (3). Access: Both R/W w/Fileman C.P. (6). Access: Direct Global Read & w/Fileman REFERENCE (7). Access: Direct Global Read & w/Fileman CLOSE OUT DATE (8). Access: Both R/W w/Fileman INITIATOR (10). Access: Both R/W w/Fileman EST. SHIPPING CHARGE (11). Access: Both R/W w/Fileman ACT. SHIPPING CHARGE (12). Access: Direct Global Read & w/Fileman SHIPPING ENTRY (13). Access: Both R/W w/Fileman PICKUP/DELIVERY REMARKS (14). Access: Both R/W w/Fileman STATION NAME (18). Access: Both R/W w/Fileman WORK ORDER NUMBER (22). Access: Both R/W w/Fileman LAB TECHNICIAN (23). Access: Both R/W w/Fileman 2529-3 (24). Access: Both R/W w/Fileman BILLING ITEM (.01). Access: Both R/W w/Fileman BRIEF DESCRIPTION (1). Access: Both R/W w/Fileman UNIT COST (2). Access: Both R/W w/Fileman QTY (3). Access: Both R/W w/Fileman UNIT OF ISSUE (4). Access: Both R/W w/Fileman AMIS FLAG (5). Access: Both R/W w/Fileman ACT UNIT COST (6). Access: Both R/W w/Fileman REMARKS (7). Access: Both R/W w/Fileman TYPE OF TRANSACTION (8). Access: Both R/W w/Fileman PATIENT CATEGORY (9). Access: Both R/W w/Fileman SPECIAL CATEGORY (10). Access: Both R/W w/Fileman SOURCE (11). Access: Both R/W w/Fileman APPLIANCE/REPAIR (12). Access: Both R/W w/Fileman CONTRACT # (13). Access: Both R/W w/Fileman SERIAL NUMBER (15). Access: Both R/W w/Fileman PSAS HCPCS (16). Access: Both R/W w/Fileman NUMBER OF BIDS (19). Access: Both R/W w/Fileman EXTENDED DESCRIPTION (14). Access: Both R/W w/Fileman CANCELLATION REMARKS (3.1). Access: Both R/W w/Fileman CANCELLED BY (3.2). Access: Both R/W w/Fileman CLOSE-OUT REMARKS (8.1). Access: Both R/W w/Fileman FORM TYPE (15). Access: Both R/W w/Fileman PSC CATEGORY (16). Access: Both R/W w/Fileman PERCENT DISCOUNT (17). Access: Both R/W w/Fileman CLOSED BY (8.5). Access: Both R/W w/Fileman LAST IFCAP AMEND BY (8.6). Access: Both R/W w/Fileman LAST AMEND TOTAL (8.7). Access: Both R/W w/Fileman LAST AMEND REPRINT OK (8.8). Access: Both R/W w/Fileman PURCHASE CARD NUMBER (25). Access: Both R/W w/Fileman BANK AUTHORIZATION NUMBER (26). Access: Read w/Fileman EST AMOUNT (27). Access: Both R/W w/Fileman CLOSE-OUT AMOUNT (28). Access: Both R/W w/Fileman PURCHASE CARD REFERENCE (7.5). Access: Both R/W w/Fileman IFCAP ORDER (7.1). Access: Both R/W w/Fileman NEW PURCHASE CARD NUMBER (29). Access: Read w/Fileman AUDIT REPAIR (30). Access: Read w/Fileman AUDIT DATE (31). Access: Read w/Fileman MANUFACTURER (15.2). Access: Both R/W w/Fileman MODEL (15.4). Access: Both R/W w/Fileman LOT # (15.6). Access: Both R/W w/Fileman EXCLUDE/WAIVER (18). Access: Both R/W w/Fileman DELIVER TO (19). Access: Both R/W w/Fileman DATE REQUIRED (20). Access: Both R/W w/Fileman DELIVERY TIME (21). Access: Both R/W w/Fileman DELIVER TO ATTENTION (21.1). Access: Both R/W w/Fileman VENDOR TRACKING NUMBER (17). Access: Both R/W w/Fileman CPT MODIFIER (16.1). Access: Both R/W w/Fileman	File 664 "C" cross reference - used to look up byPatientFile 664 "E" cross reference - used to look up byBilling ItemFile 664 "G" cross reference - used to look up byPurchase Card Reference

Name	Field # of Occurrence
^%DT	.01+1, 3+1, 8+1, 20+1, 31+1
^%DTC	20(XREF 1n1.1), 20(XREF 1n2.1)
^DICR	8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1n1.4), 20(XREF 1n2.4)
Y^DIQ	ID1+1
EN1^RMPRD1	ID1+1
^XMB	3.1(XREF 1S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1n1.4), 20(XREF 1n2.4)
^DD("DD"	3.1(XREF 1n1.3)
^DD(664	3.1(XREF 1S), 8(XREF 1S), 20(XREF 1S), 20(XREF 1K)
^DD(665	ID1+1
^RMPR(664 - [#664]	.01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4) , 7(XREF 1S), 7(XREF 1K), 7(XREF 2S), 7(XREF 2K), 7.5(XREF 1S), 7.5(XREF 1K), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1S) , 20(XREF 1n1.1), 20(XREF 1n1.4), 20(XREF 1K), 20(XREF 1n2.1), 20(XREF 1n2.4), 26(XREF 1S), 26(XREF 1K)
^RMPR(665 - [#665]	ID1+1
^VA(200 - [#200]	3.1(XREF 1n1.2)
^XMB(3.6 - [#3.6]	3.1(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 3+1, 8+1, 20+1, 31+1*
%I	ID1+1*!
>> C	ID1+1*
>> D0	3.1(XREF 1S), 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4), 8(XREF 1S), 8(XREF 1K), 20(XREF 1S), 20(XREF 1n1.1), 20(XREF 1K) , 20(XREF 1n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3.1(XREF 1S), 7(XREF 1S), 7(XREF 1K), 7(XREF 2S) , 7(XREF 2K), 7.5(XREF 1S), 7.5(XREF 1K), 8(XREF 1S), 8(XREF 1K), 20(XREF 1S), 20(XREF 1K), 26(XREF 1S), 26(XREF 1K)
>> DIC	ID1+1
>> DIG	8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1n1.4), 20(XREF 1n2.4)
>> DIH	8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1n1.4), 20(XREF 1n2.4)
>> DIU	8(XREF 1S), 8(XREF 1K), 20(XREF 1S), 20(XREF 1K)
DIV	8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1S), 20(XREF 1n1.1), 20(XREF 1n1.4), 20(XREF 1K), 20(XREF 1n2.1), 20(XREF 1n2.4)
DIV(0	8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1S), 20(XREF 1n1.4), 20(XREF 1K), 20(XREF 1n2.4)
DT	20+1
DUZ	8(XREF 1S)
U	ID1+1, 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 20(XREF 1S), 20(XREF 1n1.1) , 20(XREF 1n1.4), 20(XREF 1K), 20(XREF 1n2.1), 20(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .5+1!, .5(XREF 1S), .5(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3+1!, 3.1+1! , 3.1(XREF 1S), 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4), 7+1!, 7(XREF 1S), 7(XREF 1K), 7(XREF 2S), 7(XREF 2K) , 7.5+1!, 7.5(XREF 1S), 7.5(XREF 1K), 8+1!, 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8.1+1!, 8.7+1!, 11+1! , 12+1!, 14+1!, 15+1!, 17+1!, 19+1!, 20+1!, 20(XREF 1S), 20(XREF 1n1.1), 20(XREF 1n1.4), 20(XREF 1K) , 20(XREF 1n2.1), 20(XREF 1n2.4), 21+1!, 21.1+1!, 25+1!, 26+1!, 26(XREF 1S), 26(XREF 1K), 27+1!, 28+1! , 29+1!, 31+1!
>> X1	20(XREF 1n1.1), 20(XREF 1n2.1)
>> X2	20(XREF 1n1.1), 20(XREF 1n2.1)
XMB	3.1(XREF 1S)
XMB(1	3.1(XREF 1n1.1)
XMB(2	3.1(XREF 1n1.2)
XMB(3	3.1(XREF 1n1.3)
XMB(4	3.1(XREF 1n1.4)
XMY	3.1(XREF 1S)
Y	ID1+1*, .01+1, 3+1, 3.1(XREF 1S), 3.1(XREF 1n1.3), 8+1, 8(XREF 1S), 8(XREF 1K), 20+1, 20(XREF 1S) , 20(XREF 1K), 31+1
Y(0	3.1(XREF 1S), 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4)
Y(1	3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 3.1(XREF 1n1.4), 8(XREF 1S), 8(XREF 1K), 20(XREF 1S), 20(XREF 1n1.1), 20(XREF 1K), 20(XREF 1n2.1)
Y(2	20(XREF 1n2.1)

Customize PDF page

Package: Prosthetics

Global: ^RMPR(664

Information

Description

Directly Accessed By Routines, Total: 85

Accessed By FileMan Db Calls, Total: 31

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 13

Fields, Total: 41

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID1+1, 3.1(XREF 1n1.1), 3.1(XREF 1n1.2), 3.1(XREF 1n1.3), 20(XREF 1n1.1), 20(XREF 1n2.1)
^(2	3.1(XREF 1n1.4), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K)
^(3	20(XREF 1S), 20(XREF 1n1.4), 20(XREF 1K), 20(XREF 1n2.1), 20(XREF 1n2.4)