Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^RMPR(664

Package: Prosthetics

Global: ^RMPR(664


Information

FileMan FileNo FileMan Filename Package
664 PROSTHETICS 1358 Prosthetics

Description

Directly Accessed By Routines, Total: 84

Package Total Routines
Prosthetics 70 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
RMPR9CA    RMPR9P21    RMPR9P22    RMPRC21    RMPRCPT8    RMPRCT    RMPRD1    RMPRDP
RMPRE21    RMPRE22    RMPRE29    RMPREYE    RMPROPN    RMPRP2    RMPRP55    RMPRUTIL
^RMPR(664    RMPRCDP    RMPRFFIX    RMPRFSH    RMPRL9    RMPRLI    RMPRLOP    RMPRM
RMPRP21    RMPRP24    RMPRPAT1    RMPRPCEL    RMPRPS35    RMPRPST    
IFCAP 5 PRCHDP1    PRCHFPT1    PRCHL4    PRCHL6    PRCHRP5    

Accessed By FileMan Db Calls, Total: 31

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    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 13

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.28.58.61023]    

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 RMPR*3.0*67. 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 RMPR*3.0*67. 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 RMPR*3.0*67. 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, Total: 2

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

    External References

    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)

    Global Variables Directly Accessed

    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)

    Naked Globals

    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)

    Local Variables

    Legend:

    >> 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)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All