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  | All
Print Page as PDF
Global: ^RMPR(660

Package: Prosthetics

Global: ^RMPR(660


Information

FileMan FileNo FileMan Filename Package
660 RECORD OF PROS APPLIANCE/REPAIR Prosthetics

Description

Directly Accessed By Routines, Total: 159

Package Total Routines
Prosthetics 135 RMPO190P    RMPOBIL5    RMPOBIL7    RMPOPAT2    RMPOPAT3    RMPOPF1    RMPR OIF/OEF PSAS VETS    RMPR110P
RMPR121B    RMPR121C    RMPR144P    RMPR145P    RMPR150P    RMPR21B    RMPR21C    RMPR22
RMPR29    RMPR293    RMPR29A    RMPR29CA    RMPR29GA    RMPR29LA    RMPR29LC    RMPR29LU
RMPR29P    RMPR29U    RMPR31U    RMPR37    RMPR37A    RMPR421B    RMPR421C    RMPR4C1
RMPR4C21    RMPR4D1    RMPR4E21    RMPR4E22    RMPR4E23    RMPR4EPC    RMPR4FSH    RMPR4LI
RMPR4LOP    RMPR4M    RMPR4OPN    RMPR61PG    RMPR7    RMPR9AUT    RMPR9CA    RMPR9DM2
RMPR9DM3    RMPR9LNP    RMPR9S4    RMPR9S4E    RMPR9S7    RMPR9S8    RMPR9S8P    RMPRBIL
RMPRC21    RMPRCOR    RMPRCT    RMPRD1    RMPRDDC    RMPRDP    RMPRE21    RMPRE22
RMPRE2319    RMPRE2319X    RMPRE29    RMPRE29C    RMPRED4    RMPRED5    RMPRED6    RMPREOPT
RMPREXDS    RMPREXR    RMPREXT    RMPREYE    RMPRFSH    RMPRHISL    RMPRL22    RMPRL9
RMPRLI    RMPRLOP    RMPRM    RMPRN6    RMPRN63    RMPRN6PL    RMPRN6S    RMPRN6XM
RMPRN7    RMPRN73    RMPRN7PL    RMPROP    RMPROPN    RMPROPN1    RMPRPAT2    RMPRPAT3
RMPRPAT6    RMPRPAT7    RMPRPCE1    RMPRPCEC    RMPRPCED    RMPRPCEL    RMPRPCEP    RMPRPCER
RMPRPF    RMPRPF1    RMPRPF2    RMPRPF3    RMPRPFFS    RMPRPI03    RMPRPIFD    RMPRPIUH
RMPRPIXC    RMPRPIXZ    RMPRPIYE    RMPRPIYF    RMPRPRT1    RMPRPS34    RMPRPS35    RMPRPS36
RMPRPST    RMPRPST1    RMPRPSTS    RMPRRET1    RMPRRET9    RMPRSE1    RMPRSE2    RMPRSE21
RMPRSEA    RMPRSP6    RMPRSP7    RMPRSTE    RMPRSTL    RMPRUTIL    RMPRUTL4    
Integrated Billing 9 IB20P389    IBATER    IBATLM1B    IBATUTL    IBCRCC    IBCSC5B    IBTRE20    IBTRKR5
IBTUTL1    
DSS Extracts 5 ECX PRO RENTAL SORT    ECXPRO    ECXPRO1    ECXPROCT    ECXUPRO1    

Accessed By FileMan Db Calls, Total: 72

Package Total Routines
Prosthetics 66 RMPO190P    RMPOPF1    RMPOPS23    RMPOPST3    RMPR121B    RMPR121C    RMPR21B    RMPR21C
RMPR22    RMPR29    RMPR29A    RMPR29BG    RMPR29C    RMPR29CA    RMPR29CB    RMPR29GA
RMPR29LA    RMPR29LC    RMPR29LD    RMPR29LU    RMPR29P    RMPR29T    RMPR29U    RMPR37
RMPR421B    RMPR421C    RMPR4C21    RMPR4E21    RMPR4E22    RMPR4FSH    RMPR4M    RMPR61PG
RMPR9LNP    RMPRC21    RMPRDP    RMPRE21    RMPRE22    RMPRE29    RMPRE29C    RMPRED4
RMPRED6    RMPREXT    RMPRFFIX    RMPRFSH    RMPRHISD    RMPRHISL    RMPRM    RMPRN6
RMPRN6XM    RMPRN7    RMPROP    RMPRPCE1    RMPRPCEG    RMPRPF1    RMPRPF2    RMPRPF3
RMPRPFFS    RMPRPIXC    RMPRPIYE    RMPRPSTS    RMPRSE2    RMPRSE21    RMPRSTE    RMPRSTL
RMPRU99    RMPRUTL4    
DSS Extracts 4 ECXPRO    ECXPROCT    ECXPROMR    ECXUPRO1    
Integrated Billing 2 IBJDB21    IBTUTL1    

Pointed To By FileMan Files, Total: 12

Package Total FileMan Files
Prosthetics 9 HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.723191(15)]    PROS RETURNED/CONDEMNED(#660.1)[11.5]    PROSTHETICS RE-ISSUE ITEM(#660.2)[11.5]    PROSTHETIC TRANSACTION PATIENT ISSUE(#661.63)[2]    PROSTHETICS 1358(#664)[13#664.02(12)]    PROSTHETIC 2529-3(#664.1)[#664.16(5)]    PROSTHETIC WORK ORDER(#664.2)[1#664.22(12)]    PROSTHETIC LAB HOURS DATE(#664.3)[1]    PROSTHETIC SUSPENSE(#668)[#668.81(.01)]    
Integrated Billing 2 IB BILL/CLAIMS PROSTHETICS(#362.5)[.04]    CLAIMS TRACKING(#356)[.09]    
Remote Order Entry System 1 STATION ORDER(#791810)[11.04]    

Pointer To FileMan Files, Total: 17

Package Total FileMan Files
Prosthetics 7 PROS ITEM MASTER(#661)[4]    PROSTHETIC HCPCS(#661.1)[4.5102]    PROSTHETIC INVENTORY TRANSACTION(#661.6)[4.6]    PROS AMIS CODES(#663)[526474757677]    PROSTHETIC 2529-3(#664.1)[72]    PROSTHETIC WORK ORDER(#664.2)[71]    PROSTHETICS PATIENT(#665)[.02]    
IFCAP 3 VENDOR(#440)[7]    UNIT OF ISSUE(#420.5)[78]    GENERIC INVENTORY(#445)[29]    
Kernel 2 INSTITUTION(#4)[88.114070]    NEW PERSON(#200)[8.62735105]    
CPT HCPCS Codes 1 CPT(#81)[4.1]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[8.9]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[8.830313233]    
Integrated Billing 1 PFSS ACCOUNT(#375)[100]    
PCE Patient Care Encounter 1 VISIT(#9000010)[8.12]    

Fields, Total: 151

Field # Name Loc Type Details
.01 ENTRY DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 01, 2005
  • HELP-PROMPT:  Please enter a valid date.
  • DESCRIPTION:  
    This is the date that the transaction was entered into the system. It may or may not be the same as the request date.
  • DELETE TEST:  .01,0)= I 1 W " CANNOT DELETE ENTRY THIS WAY."
  • CROSS-REFERENCE:  660^B
    1)= S ^RMPR(660,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  660^F^MUMPS
    1)= I +$P(^RMPR(660,DA,0),U,2) S ^RMPR(660,"F",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)=""
    2)= I +$P(^RMPR(660,DA,0),U,2) K ^RMPR(660,"F",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)
    This x-ref allows lookups on the "F" x-ref by Appliance and Repair date and Patient IEN.
  • CROSS-REFERENCE:  ^^TRIGGER^660^106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,.01,1,3,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,7)=DIV,DIH=660,DIG=106 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS ACCOUNT FLAG
  • CROSS-REFERENCE:  660^APTASK01^MUMPS
    1)= Q
    2)= D CHRGTASK^RMPRPF3
.02 PATIENT NAME 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
************************REQUIRED FIELD************************
PROSTHETICS PATIENT(#665)

  • LAST EDITED:  APR 19, 1991
  • HELP-PROMPT:  Please enter the Patient's name.
  • DESCRIPTION:  
    This is the name of the patient that this transaction is for. The name is a pointer to the PROSTHETIC PATIENT file which has the same internal entry number as the main patient database.
  • CROSS-REFERENCE:  660^C
    1)= S ^RMPR(660,"C",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"C",$E(X,1,30),DA)
    This will allow lookup by Patient Name.
1 REQUEST DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 23, 1986
  • HELP-PROMPT:  Please enter the date of the patient's request.
  • DESCRIPTION:  
    This field is the date the appliance issue or repair was requested by the patient. It may or may not be the same as the entry date or the delivery date. This depends on how quickly the transactions take place.
  • CROSS-REFERENCE:  660^AC^MUMPS
    1)= S Y=9999999-X,^RMPR(660,"AC",+$P(^RMPR(660,DA,0),U,2),Y,DA)="" K Y
    2)= S Y=9999999-X K ^RMPR(660,"AC",+$P(^RMPR(660,DA,0),U,2),Y,DA),Y
    Allow lookups on Patient Transactions by an Inverse Date and the Patient IEN for displays on the 2319 screen #4.
2 TYPE OF TRANSACTION 0;4 SET
************************REQUIRED FIELD************************
  • 'I' FOR INITIAL ISSUE;
  • 'R' FOR REPLACE;
  • 'S' FOR SPARE;
  • 'X' FOR REPAIR;
  • '5' FOR RENTAL;

  • LAST EDITED:  MAY 03, 2005
  • HELP-PROMPT:  Please enter the appropriate code indicating the type of transaction.
  • DESCRIPTION:  This set of codes will tell what kind of transaction this request is. The possibilities all fall under the VAF 10-7306a listings
    except for the repair.
4 ITEM 0;6 POINTER TO PROS ITEM MASTER FILE (#661)
************************REQUIRED FIELD************************
PROS ITEM MASTER(#661)

  • OUTPUT TRANSFORM:  ITEM:.01:SHORT DESCRIPTION
  • LAST EDITED:  SEP 22, 2004
  • HELP-PROMPT:  Please enter the Item from the PROS ITEM MASTER file.
  • DESCRIPTION:  
    This field is a pointer to the master item list of possible appliances. The master list is set up so that appliances fall into groups which are the types of appliances.
  • CROSS-REFERENCE:  660^AD
    1)= S ^RMPR(660,"AD",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"AD",$E(X,1,30),DA)
    Allows lookups for an item by Ifcap Item Master number.
  • CROSS-REFERENCE:  ^^TRIGGER^660^89
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"HST")):^("HST"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV D EN^RMPRU99 S DIH=$G(^RMPR(660,DIV(0),"HST")),DIV=X S $P(^("HST"),U,1)=DIV,DIH=660,DIG=89 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"HST")):^("HST"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV D DEL^RMPRU99 S DIH=$G(^RMPR(660,DIV(0),"HST")),DIV=X S $P(^("HST"),U,1)=DIV,DIH=660,DIG=89 D ^DIC
    R
    CREATE VALUE)= D EN^RMPRU99
    DELETE VALUE)= D DEL^RMPRU99
    FIELD)= HISTORICAL ITEM
    This trigger will save the IFCAP Item Master Short Description to allow the NIF project to implement IFCAP patch 75 to overwrite the Short Descripton with the new NIF Item Description.
4.1 HCPCS 0;22 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • LAST EDITED:  JAN 23, 1998
  • HELP-PROMPT:  Enter the appropriate HCPCS (Health Care Financing Administration Common Procedure Coding System) code for the Item you are selecting.
  • DESCRIPTION:  Health Care Financing Administration Common Procedure Coding System (HCPCS).
    This field should have the HCPCS code for the Item you are selecting. HCPCS is a uniform method for healthcare providers and medical suppliers to report professional services, procedures and supplies.
  • NOTES:  TRIGGERED by the PSAS HCPCS field of the RECORD OF PROS APPLIANCE/REPAIR File
  • CROSS-REFERENCE:  660^G
    1)= S ^RMPR(660,"G",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"G",$E(X,1,30),DA)
4.2 VENDOR TRACKING NUMBER 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 13, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  This field is the Vendor's internal unique tracking number. Some of the small vendors are not automated with VISA, and this tracking number is used to reference this transaction. This tracking number is based on the
    item, and can be as simple as the vendors item number, or elaborate as the vendors transaction number. This data will be used in the reconciliation process.
4.3 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.
4.5 PSAS HCPCS 1;4 POINTER TO PROSTHETIC HCPCS FILE (#661.1) PROSTHETIC HCPCS(#661.1)

  • INPUT TRANSFORM:  K:$P(^RMPR(661.1,X,0),U,5)'=1 X
  • LAST EDITED:  NOV 01, 2005
  • HELP-PROMPT:  Enter standardized Prosthetics HCPCS
  • DESCRIPTION:  
    Standardized Prosthetics HCPCS that points to file 661.1.
    DELETE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^660^4.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(660,4.5,1,1,1.1) X ^DD(660,4.5,1,1,1.4)
    1.1)= S X=DIV S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX
    1.4)= S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""),DIV=RMXX S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 K RMXX 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(660,D0,0)):^(0),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" X ^DD(660,4.5,1,1,2.4)
    2.4)= S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX K RMXX
    DELETE VALUE)= @
    FIELD)= HCPCS
  • CROSS-REFERENCE:  660^H
    1)= S ^RMPR(660,"H",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"H",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^660^106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,4.5,1,3,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,7)=DIV,DIH=660,DIG=106 D ^DICR
    2)= Q
    3)= This cross-reference will be never deleted by the user.
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS ACCOUNT FLAG
  • CROSS-REFERENCE:  ^^TRIGGER^660^107
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,4.5,1,4,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,8)=DIV,DIH=660,DIG=107 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS CHARGE FLAG
  • CROSS-REFERENCE:  660^APTASK45^MUMPS
    1)= Q
    2)= D CHRGTASK^RMPRPF3
4.6 STOCK ISSUE 1;5 POINTER TO PROSTHETIC INVENTORY TRANSACTION FILE (#661.6) PROSTHETIC INVENTORY TRANSACTION(#661.6)

  • LAST EDITED:  JUN 20, 2001
  • DESCRIPTION:  
    This is a pointer to file #661.6.
4.7 CPT MODIFIER 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<1) X
  • LAST EDITED:  NOV 10, 1999
  • HELP-PROMPT:  Answer must be 1-36 characters in length.
  • DESCRIPTION:  
    CPT Modifiers in a comma delimited format, consistent with the HCFA published manuals.
4.8 DATE CPT MODIFIER EXTRACTED 1;7 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 10, 2000
  • DESCRIPTION:  
    This is the date the patient record extracted for billing. This date is also being used to trigger a mail message to billing if the PSAS HCPCS is edited and changed after the extraction has been ran.
4.9 HCPCS-ICD9 CODING FLAG 1;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 14, 2004
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  This field is used to determine the current code set versioning of a transaction.
    No errors, number 1.
    PSAS HCPCS, Not Billiable Item, number 14.
    ICD9 error, number 12.
    HCPCS error, number 13.
    Both ICD9 and HCPCS error, number 132.
    Both ICD9 error and Not Billiable Item, number 142.
4.91 CODING FLAG DATE 1;12 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 16, 2004
  • DESCRIPTION:  
    This is the date associated with field number 4.9. The date the coding flag was set.
4.92 HIGH TECH ITEM 1;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2006
  • DESCRIPTION:  
    This is the determination by the Prosthetics Laboratory Technician. 1=YES 0=NO
5 QTY 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 28, 2005
  • HELP-PROMPT:  Type a Number between 1 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of units that was issued or repaired for this transaction.
  • CROSS-REFERENCE:  ^^TRIGGER^660^107
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,5,1,1,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,8)=DIV,DIH=660,DIG=107 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS CHARGE FLAG
6 SHIP/DEL 0;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • LAST EDITED:  FEB 25, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the charge associated with shipping.
6.5 PICKUP/DEL 0;26 SET
  • 'P' FOR PICKUP;
  • 'D' FOR DELIVERY;

  • LAST EDITED:  JAN 14, 1991
  • HELP-PROMPT:  Please enter `P` if these are pickup charges or `D` if delivery charges on VAF 10-2319.
  • DESCRIPTION:  
    This field is a set of codes to identify pickup/delivery charges on VAF 10-2319.
7 VENDOR 0;9 POINTER TO VENDOR FILE (#440)
************************REQUIRED FIELD************************
VENDOR(#440)

  • LAST EDITED:  AUG 13, 1991
  • HELP-PROMPT:  Please enter the name of a vendor on file at this station.
  • DESCRIPTION:  The vendor is a pointer to IFCAP's VENDOR file and is the name of the company from which this appliance was or is to be purchased. The vendor may or may not be the same as the manufacturer. Therefore, manufacturers
    should also be listed in this file as vendors if you are going to be purchasing directly from the manufacturer.
8 STATION 0;10 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  AUG 13, 1991
  • HELP-PROMPT:  Enter the Station Name or Station Number.
  • DESCRIPTION:  The station is the Veterans Affairs site where this transaction is to come to completion. It is the station that is ultimately responsible for the issue and payment for the prosthetic device. This is the station reporting
    the workload.
8.1 SUSPENSE DATE 10;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 23, 2001
  • DESCRIPTION:  
    This is suspense date (.01 field) of file (#668).
8.11 SUSPENSE STATION 10;11 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAY 30, 2001
  • DESCRIPTION:  
    This refers to the consulting station.
8.12 PCE 10;12 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  JUL 09, 2001
  • DESCRIPTION:  
    This field is pointer to (Patient Encounter), Visit file (#9000010). When an entry is created in PCE a pointer is being set.
8.13 DATE SENT TO PCE 10;13 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 16, 2001
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is the date last sent or edited in PCE. If PCE is deleted this field should be deleted.
  • CROSS-REFERENCE:  660^I
    1)= S ^RMPR(660,"I",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"I",$E(X,1,30),DA)
8.14 SUSPENSE STATUS 10;14 SET
  • '0' FOR INCOMPLETE;
  • '1' FOR COMPLETE;

  • LAST EDITED:  AUG 14, 2001
  • DESCRIPTION:  
    This is the suspense status of the patient 2319 record. If the status is complete, a suspense link was established. If the status is incomplete, there is no suspense link to the patient 2319 record.
8.2 DATE RX WRITTEN 10;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 12, 2001
  • DESCRIPTION:  
    This is the date the prescription was written as it appears in file #668.
8.3 INITIAL ACTION DATE 10;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 12, 2001
  • DESCRIPTION:  
    This field is the date when an initial action was entered in suspense.
8.4 COMPLETION DATE 10;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 12, 2001
  • DESCRIPTION:  
    This is the date the susepnse was completed as it appears in file #668.
8.5 TYPE OF REQUEST 10;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<3) X
  • LAST EDITED:  MAY 30, 2001
  • HELP-PROMPT:  Answer must be 3-16 characters in length.
  • DESCRIPTION:  
    This field could either be ROUTINE PROSTHETICS, EYEGLASS, CONTACT LENS, OXYGEN, MANUAL NON CPRS or CLOTHING ALLOWANCE.
8.6 SUSPENSE REQUESTOR 10;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 28, 2005
  • DESCRIPTION:  
    This is a pointer to file #200, the person requesting the suspense as it appears in file #668.
  • CROSS-REFERENCE:  ^^TRIGGER^660^107
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,8.6,1,1,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,8)=DIV,DIH=660,DIG=107 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS CHARGE FLAG
8.61 CONSULT REQUEST SERVICE 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<2) X
  • LAST EDITED:  MAY 06, 2003
  • HELP-PROMPT:  Answer must be 2-35 characters in length.
  • DESCRIPTION:  
    A service/section of a suspense requestor that initiated a consult for Prosthetics item. This free text entry is a service/section name of SERVICE/SECTION file (#49).
8.7 PROVISIONAL DIAGNOSIS 10;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<3) X
  • LAST EDITED:  MAY 30, 2001
  • HELP-PROMPT:  Answer must be 3-16 characters in length.
  • DESCRIPTION:  
    This is a free text diagnosis as it appears in suspense file.
8.8 SUSPENSE ICD 10;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 19, 2011
  • HELP-PROMPT:  Select the diagnosis code at the time suspense was created.
  • DESCRIPTION:  
    This is the code at the time suspense was created.
  • TECHNICAL DESCR:  
    Migrated from the ICD (#1.6) field in the PROSTHETIC SUSPENSE (#668) file when action is taken on behalf of a patient.
8.9 CONSULT 10;9 POINTER TO REQUEST/CONSULTATION FILE (#123) REQUEST/CONSULTATION(#123)

  • LAST EDITED:  MAY 30, 2001
  • DESCRIPTION:  
    This is a pointer to Consult file #123.
9 SERIAL NBR 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!(X["^") X
  • LAST EDITED:  APR 20, 1993
  • HELP-PROMPT:  Answer must be 1-20 characters in length and cannot contain an "^".
  • DESCRIPTION:  
    This is the serial number of the issued or repaired appliance. If the serial number is longer than 20 characters, use the FIRST 20 characters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.1 PRODUCT DESCRIPTION 9;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<1) X
  • LAST EDITED:  MAR 02, 2004
  • HELP-PROMPT:  Answer must be 1-55 characters in length.
  • DESCRIPTION:  
    The manufacture product description to be used for recalls.
9.2 PRODUCT MODEL 9;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<1) X
  • LAST EDITED:  MAR 02, 2004
  • HELP-PROMPT:  Answer must be 1-55 characters in length.
  • DESCRIPTION:  
    The manufacture product model number to be used for recalls.
10 DELIVERY DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 15, 1993
  • HELP-PROMPT:  Please enter date of delivery to (and acceptance by) the patient.
  • DESCRIPTION:  This is the date that the appliance was delivered and accepted by the patient. This date, under certain circumstances, may be a date that the appliance was mailed to the patient. It may or may not be the same as the
    transaction date and/or the request date.
  • CROSS-REFERENCE:  660^CT
    1)= S ^RMPR(660,"CT",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"CT",$E(X,1,30),DA)
    Allows lookups of Appliance Repair entries that have been delivered. This x-ref is used to calculate end-of-quarter AMIS for closed-out items.
11 FORM REQUESTED ON 0;13 SET
  • '1' FOR PSC;
  • '2' FOR 2421;
  • '3' FOR 2237;
  • '4' FOR 2529-3;
  • '5' FOR 2529-7;
  • '6' FOR 2474;
  • '7' FOR 2431;
  • '8' FOR 2914;
  • '9' FOR OTHER;
  • '10' FOR 2520;
  • '11' FOR STOCK ISSUE;
  • '12' FOR INVENTORY ISSUE;
  • '13' FOR HISTORICAL DATA;
  • '14' FOR VISA;
  • '15' FOR LAB ISSUE-3;
  • '16' FOR DALC;

  • LAST EDITED:  MAY 23, 2007
  • HELP-PROMPT:  Please select appropriate form to enter this request.
  • DESCRIPTION:  
    The FORM REQUESTED ON is based on current VA regulations. The system makes no checks to be sure that the form entered from the set of codes is within these regulations.
12 SOURCE 0;14 SET
************************REQUIRED FIELD************************
  • 'V' FOR VA;
  • 'C' FOR COMMERCIAL;

  • LAST EDITED:  AUG 13, 1991
  • HELP-PROMPT:  Please indicate acquisition source of appliance.
  • DESCRIPTION:  
    This set of codes denotes which two possible sources were used for the acquisition of the appliance. The sources are grouped into either VA sources or commercial sources.
13 ACTION 0;5 SET
  • '1' FOR LOAN;
  • '2' FOR CONDEMNED;
  • '3' FOR RETURNED;
  • '4' FOR INACTIVE;
  • '5' FOR LOST;

  • LAST EDITED:  JAN 24, 1996
  • HELP-PROMPT:  Please enter indicator for the action taken on this transaction.
  • DESCRIPTION:  
    The action taken on this transaction is noted here. The set of codes is self explanatory; however, the inactive action is used to indicate that the appliance is no longer being followed by VA.
14 TOTAL COST 0;16 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  OCT 28, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field contains the total cost of the transaction.
  • CROSS-REFERENCE:  ^^TRIGGER^660^107
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(660,14,1,1,1.4)
    1.4)= S DIH=$G(^RMPR(660,DIV(0),"PFSS")),DIV=X S $P(^("PFSS"),U,8)=DIV,DIH=660,DIG=107 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS CHARGE FLAG
15 HISTORICAL DATA 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAR 22, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    If this field contains an asterisk (*), then this transaction has been counted by the AMIS option, or is considered to be a historical transaction.
16 REMARKS 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>61!($L(X)<1) X
  • LAST EDITED:  AUG 28, 1995
  • HELP-PROMPT:  Answer must be 1-61 characters in length.
  • DESCRIPTION:  A free-text field used to indicate any additional information that is needed for this entry. For Purchasing Transactions this field will contain the remarks for the individual item, and the close-out remarks added
    together.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17 RETURNED STATUS 0;19 SET
  • '1' FOR RETURNED;
  • '2' FOR CONDEMNED;
  • '3' FOR CANCELLED;
  • '4' FOR TURNED-IN;
  • '5' FOR LOST;
  • '6' FOR BROKEN;

  • LAST EDITED:  AUG 29, 1994
  • HELP-PROMPT:  Please enter the status.
  • DESCRIPTION:  
    The status of the appliance upon return to the veteran. This notes what action was taken by the repair depot or station upon the completion of repairs.
17.5 RETURN STATUS DATE 0;20 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1986
  • HELP-PROMPT:  Enter the date the return status was determined and carried out if the item was returned to the veteran.
  • DESCRIPTION:  
    This is the date upon which the return status was determined and carried out if the item was returned to the veteran.
18 *STATUS FLAG 0;21 SET
  • 'D' FOR DECEASED;
  • 'T' FOR TRANSFERRED;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  AUG 29, 1994
  • HELP-PROMPT:  Please enter indicator of current patient status.
  • DESCRIPTION:  
    The status of the patient is entered here so the service can determine if the patient is being followed, dropped, transferred, or canceled by this station.
19 PATIENT NOTIFICATION FLAG 3;3 SET
  • '1' FOR RE-SEND;

  • LAST EDITED:  MAR 26, 2009
  • HELP-PROMPT:  Enter a 1 if this record should be re-transmitted.
  • DESCRIPTION:  
    This field if set to 1 will be used to gather the patient records that need to be re-sent for the daily pull of the Mandatory Patient Notification process.
  • CROSS-REFERENCE:  660^DVN
    1)= S ^RMPR(660,"DVN",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"DVN",$E(X,1,30),DA)
    This X-Ref will be used to gather the patient records that need to be re-sent for the Mandatory Patient Notification process.
20 DELIVERY VERIFICATION DATE 6;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 26, 2009
  • HELP-PROMPT:  Enter the date from the Verification Card that the Veteran indicates he received the item.
  • DESCRIPTION:  
    This is the date the Veteran indicates on the Notification card that he received the item.
20.1 DELIVERY VERIFICATION STATUS 6;2 SET
  • '1' FOR RECEIVED;
  • '2' FOR NOT RECEIVED;
  • '3' FOR DAMAGED or INCOMPLETE;
  • '4' FOR RECEIVED not as ORDERED;
  • '5' FOR RECEIVED in ERROR;

  • LAST EDITED:  MAY 07, 2008
  • HELP-PROMPT:  Enter the Status of receipt Indicated on the Returned Card
  • DESCRIPTION:  
    This is the statement of receipt that the Veteran indicates on the returned Delivery Notification Card.
21 LOT NUMBER 0;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1)!(X["^") X
  • LAST EDITED:  NOV 17, 1991
  • HELP-PROMPT:  Enter the manufacturer's lot number, if known. Answer must be 1-20 characters in length and cannot contain "^".
  • DESCRIPTION:  
    This field stores the lot number of the item being furnished to the patient. Enter the manufacturer's lot number, if known.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22 *PRODUCT LINE 0;25 SET
  • '1' FOR HEARING AIDS;
  • '2' FOR BATTERIES;
  • '3' FOR OTHER;

  • LAST EDITED:  AUG 29, 1994
  • HELP-PROMPT:  Please enter code pertaining to hearing aid transactions.
  • DESCRIPTION:  
    Set of codes that contains information for Hearing Aid transactions.
23 TRANSACTION 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 14, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the IFCAP transaction number from VAF 4-1358 or VAF 2237. A temporary Transaction number for a VAF 10-2529-3 may also be entered.
  • CROSS-REFERENCE:  660^E
    1)= S ^RMPR(660,"E",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"E",$E(X,1,30),DA)
    To be used for quicker lookups by Transaction Number.
24 DESCRIPTION 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  MAR 21, 1991
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This is a detailed description of the item/service supplied.
25 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:  
    Delivery location that will print on VAF 10-2421 to show the vendor where the item will be delivered.
26 DATE REQUIRED 3;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 12, 2008
  • 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.
27 INITIATOR 0;27 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 08, 1992
  • HELP-PROMPT:  Please enter the name of the person who entered in this transaction.
  • DESCRIPTION:  
    This is the person who created the transaction.
    UNEDITABLE
28 EXTENDED DESCRIPTION DES;0 WORD-PROCESSING #660.028

  • DESCRIPTION:  
    This is the extended information from purchasing and also from posting of VAF 2237s.
29 INVENTORY POINT 1;3 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  FEB 04, 1992
  • HELP-PROMPT:  Enter the inventory point for this transaction.
  • DESCRIPTION:  
    This is the inventory point for this transaction and is a pointer to the GENERIC INVENTORY file (#445).
30 PRIMARY ICD DIAGNOSIS CODE BA1;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 20, 2011
  • HELP-PROMPT:  Select the primary diagnosis code for the order.
  • DESCRIPTION:  
    This is the primary diagnosis code for the order.
30.1 PRIMARY AGENT ORANGE EXPOSURE BA1;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure.
  • DESCRIPTION:  
    Primary diagnosis is related to Agent Orange exposure.
30.2 PRIMARY IONIZED RADIATION BA1;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Ionized Radiation exposure.
  • DESCRIPTION:  
    Primary diagnosis is related to Ionized Radiation exposure.
30.3 PRIMARY SERVICE-CONNECTED BA1;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
30.4 PRIMARY ENVIRONMENTAL CONT. BA1;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Environmental Contaminants exposure.
  • DESCRIPTION:  
    Primary diagnosis is related to Environmental Contaminants exposure.
30.5 PRIMARY MST BA1;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Military Sexual Trauma.
  • DESCRIPTION:  
    Primary diagnosis is related to Military Sexual Trauma.
30.6 PRIMARY HEAD/NECK CANCER BA1;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Head/Neck Cancer.
  • DESCRIPTION:  
    Primary diagnosis is related to Head/Neck Cancer.
30.7 PRIMARY COMBAT VET BA1;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Primary diagnosis is related to Combat.
  • DESCRIPTION:  
    Primary diagnosis related to Combat.
31 SECONDARY ICD DIAGNOSIS CODE 1 BA2;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 20, 2011
  • HELP-PROMPT:  Select the secondary diagnosis code 1.
  • DESCRIPTION:  
    This is the secondary diagnosis code 1.
31.1 SECONDARY AGENT ORANGE 1 BA2;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure.
  • DESCRIPTION:  
    Secondary diagnosis 1 is related to Agent Orange exposure.
31.2 SECONDARY IONIZED RADIATION 1 BA2;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
31.3 SECONDARY SERVICE-CONNECTED 1 BA2;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
31.4 SECONDARY ENVIRONMENTAL CONT 1 BA2;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
31.5 SECONDARY MST 1 BA2;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Secondary diagnosis 1 is related to Military Sexual Trauma.
  • DESCRIPTION:  
    Secondary diagnosis 1 is related to Military Sexual Trauma.
31.6 SECONDARY HEAD/NECK CANCER 1 BA2;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
31.7 SECONDARY COMBAT VET 1 BA2;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Secondary diagnosis 1 is related to Combat.
  • DESCRIPTION:  
    Secondary diagnosis 1 is related to Combat.
32 SECONDARY ICD DIAGNOSIS 2 BA3;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 20, 2011
  • HELP-PROMPT:  Select the secondary diagnosis code 2.
  • DESCRIPTION:  
    This is the secondary diagnosis code 2.
32.1 SECONDARY AGENT ORANGE 2 BA3;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.2 SECONDARY IONIZED RADIATION 2 BA3;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.3 SECONDARY SERVICE-CONNECTED 2 BA3;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.4 SECONDARY ENVIR. CONT. 2 BA3;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.5 SECONDARY MST 2 BA3;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.6 SECONDARY HEAD/NECK CANCER 2 BA3;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
32.7 SECONDARY COMBAT VET 2 BA3;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Secondary diagnosis 2 is related to Combat.
  • DESCRIPTION:  
    Secondary diagnosis 2 is related to Combat.
33 SECONDARY ICD DIAGNOSIS 3 BA4;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 20, 2011
  • HELP-PROMPT:  Select the secondary diagnosis code 3.
  • DESCRIPTION:  
    This is the secondary diagnosis code 3.
33.1 SECONDARY AGENT ORANGE 3 BA4;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.2 SECONDARY IONIZED RADIATION 3 BA4;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.3 SECONDARY SERVICE-CONNECTED 3 BA4;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.4 SECONDARY ENVIRON. CONT. 3 BA4;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.5 SECONDARY MST 3 BA4;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.6 SECONDARY HEAD/NECK CANCER 3 BA4;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • 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.
33.7 SECONDARY COMBAT VET 3 BA4;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 25, 2004
  • HELP-PROMPT:  Enter 'Y'es if Secondary diagnosis 3 is related to Combat.
  • DESCRIPTION:  
    Secondary diagnosis 3 is related to Combat.
34 OIF/OEF 5;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 30, 2007
  • DESCRIPTION:  
    Veteran determined to be OEF/OIF 1 Yes 0 NO.
35 USER WHO EDIT 1;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 19, 2000
  • DESCRIPTION:  
    User who edited the 2319 record using option ED2. This field will only be populated when the Total Cost field has been changed.
36 DATE EDITED 1;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 2000
  • DESCRIPTION:  
    This is the date the Total Cost field has been changed using option ED2.
37 HCPCS/ITEM 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<8) X
  • LAST EDITED:  DEC 01, 2000
  • HELP-PROMPT:  Answer must be 8-20 characters in length.
  • DESCRIPTION:  
    Enternal entry of an HCPCS concatenated to an enternal entry of an item in file #661.1. Entry for this field is derived from the entry in file 661.2, field #9.
38 HCPCS/ITEM DESCRIPTION 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  DEC 01, 2000
  • HELP-PROMPT:  Answer must be 3-50 characters in length.
  • DESCRIPTION:  
    This is the description of an Item or Appliance kept by local site in file #661.1, field #20. This field is updated during the STOCK ISSUE options.
38.1 EXCLUDE/WAIVER 2;3 SET
  • 'E' FOR EXCLUDED;
  • 'W' FOR WAIVER;

  • LAST EDITED:  FEB 23, 2005
  • DESCRIPTION:  
    This field determines if the item is EXCLUDED or Waver off of a National Contract
38.7 CONTRACT # 2;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 28, 2004
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field stores the Contract Number.
38.8 NUMBER OF BIDS 2;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 20, 2005
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The number of bids recieved for a particular item.
39 DATE OF SERVICE 1;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 02, 2004
  • DESCRIPTION:  
    This is the date when an item is issued to the patient.
  • CROSS-REFERENCE:  660^AF
    1)= S ^RMPR(660,"AF",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"AF",$E(X,1,30),DA)
    Cross-reference for Shipment date to be used for Billing.
40 REQUESTING STATION LB;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  AUG 04, 1986
  • HELP-PROMPT:  Enter the Station Name or Station Number for the Station requesting services or appliances.
  • DESCRIPTION:  
    This is the station requesting services or appliances.
41 ECMS ACTIONUID 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!'(X?1.10N) X
  • LAST EDITED:  JAN 12, 2017
  • HELP-PROMPT:  Enter the 1-10 digit eCMS ActionUID value.
  • DESCRIPTION:  
    This field stores the eCMS internal, unique identifier for the IFCAP 2237 used to perform the Purchase Request. This data is part of the eCMS/IFCAP interface.
42 UNIQUE ITEM ID 5;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1)!'(X?1.10N) X
  • LAST EDITED:  APR 18, 2017
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  This field stores the unique identifier of the eCMS or IFCAP 2237 line item of a Purchase Request. This data is part of the eCMS/IFCAP interface if a contract item or is a modification of the 2237 Obligation Number if
    not.
  • CROSS-REFERENCE:  660^EIID
    1)= S ^RMPR(660,"EIID",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"EIID",$E(X,1,30),DA)
    Regular cross-reference on UNIQUE ITEM ID for use in checking if the unique ID has already been associated with a 2319 record.
45 TOTAL LABOR HOURS LB;6 NUMBER

  • INPUT TRANSFORM:  K:(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 05, 1996
  • HELP-PROMPT:  Type the Lab Hours.
  • DESCRIPTION:  
    This is the number of hours spent on the job. This field is only populated via routines.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46 TOTAL LABOR COST LB;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  APR 17, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The total cost of the labor to perform this job.
47 TOTAL MATERIAL COST LB;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • LAST EDITED:  APR 17, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The total cost of all the materials to perform the job.
48 TOTAL LAB COST LB;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  MAR 11, 1993
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    The Prosthetic Laboratory Total Cost calculated by AMIS.
50 COMPLETION DATE LB;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 12, 1993
  • HELP-PROMPT:  Enter the date the job was completed.
  • DESCRIPTION:  
    The date the job was completed.
  • CROSS-REFERENCE:  660^CD
    1)= S ^RMPR(660,"CD",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"CD",$E(X,1,30),DA)
    This cross reference is used in the AMIS calculations.
51 LAB REMARKS LB;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  AUG 07, 1986
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    A free-text field used to indicate any additional Laboratory information that is needed for this entry. Since the field is only 40 characters in length, use meaningful abbreviations where possible.
52 AMIS NEW CODE AM;9 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  JAN 23, 1991
  • DESCRIPTION:  
    This field is set when AMIS is generated. It is the New Worksheet AMIS code.
60 AMIS DATE AM;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 20, 1986
  • DESCRIPTION:  
    This field is set when AMIS is generated. This is the date AMIS was run and the item was picked up and counted.
  • CROSS-REFERENCE:  660^AE
    1)= S ^RMPR(660,"AE",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"AE",$E(X,1,30),DA)
    Allows lookups of Appliance/Repairs by the date the Amis report was run.
62 PATIENT CATEGORY AM;3 SET
************************REQUIRED FIELD************************
  • '1' FOR SC/OP;
  • '2' FOR SC/IP;
  • '3' FOR NSC/IP;
  • '4' FOR NSC/OP;

  • LAST EDITED:  AUG 13, 1991
  • HELP-PROMPT:  Enter the appropriate Prosthetic Patient Category.
  • DESCRIPTION:  
    This is the Prosthetic Patient Category used for counting AMIS.
63 SPECIAL CATEGORY AM;4 SET
  • '1' FOR SPECIAL LEGISLATION;
  • '2' FOR A&A;
  • '3' FOR PHC;
  • '4' FOR ELIGIBILITY REFORM;

  • LAST EDITED:  NOV 06, 1996
  • HELP-PROMPT:  Enter the appropriate SPECIAL CATEGORY of the patient needing items/services.
  • DESCRIPTION:  
    If the patient is NSC/OP, then this field must also be set. SPECIAL CATEGORY is also used in counting AMIS.
64 ADMIN REPAIR AMIS CODE AM;5 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)[""AR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 25, 1992
  • DESCRIPTION:  
    This field will be set when AMIS is generated for the Repair Worksheets.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)[""AR"""
  • EXPLANATION:  Code is limited to Administrative Repair
68 AMIS GROUPER AMS;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 05, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is used in AMIS calculations. This field should never be changed through FileMan!
  • TECHNICAL DESCR:  
    A number pulled from the Pros. Site Parameter file, used in AMIS calculations.
  • CROSS-REFERENCE:  660^AG
    1)= S ^RMPR(660,"AG",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"AG",$E(X,1,30),DA)
    Allows lookups of Appliance/Repairs that have been combined by the Grouper Number. Items that share the same Grouper Number serve one disability.
69 SOURCE OF PROCUREMENT LB;3 SET
  • 'O' FOR ORTHOTIC LAB;
  • 'R' FOR RESTORATION LAB;
  • 'S' FOR SHOE LAST CLINIC;
  • 'W' FOR WHEELCHAIR REPAIR SHOP;
  • 'N' FOR NATIONAL FOOT CENTER;
  • 'D' FOR DENVER DISTRIBUTION CENTER;

  • LAST EDITED:  APR 13, 1995
  • HELP-PROMPT:  Enter the correct Code for the Source of Procurement.
  • DESCRIPTION:  
    The source from which the Purchasing Agent is ordering the needed equipment. The sources one may choose from are limited.
70 RECEIVING STATION LB;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  NOV 10, 1993
  • HELP-PROMPT:  Enter the name of the institution receiving the VAF 10-2529-3.
  • DESCRIPTION:  
    This field contains the institution that will receive the VAF 10-2529-3 request for processing.
71 WORK ORDER NUMBER LB;5 POINTER TO PROSTHETIC WORK ORDER FILE (#664.2) PROSTHETIC WORK ORDER(#664.2)

  • LAST EDITED:  APR 19, 1994
  • HELP-PROMPT:  Enter the Work Order Number (STA-FY-QTR-TYPE OF LAB-NUMBER)
  • DESCRIPTION:  
    Work Order Number (STA-FY-QTR-TYPE OF LAB-NUMBER) for items processed in the Prosthetic Laboratory.
72 2529-3 LB;10 POINTER TO PROSTHETIC 2529-3 FILE (#664.1) PROSTHETIC 2529-3(#664.1)

  • LAST EDITED:  NOV 12, 1993
  • HELP-PROMPT:  Enter the VAF 10-2529-3 Entry.
  • DESCRIPTION:  
    VAF 10-2529-3 information will be displayed if the VAF 10-2319 item is associated with a Denver Distribution Center, National Foot Center, or Prosthetics Lab request.
72.5 FREE TEXT WO # LB;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<14) X
  • LAST EDITED:  APR 20, 2006
  • HELP-PROMPT:  Answer must be 14-20 characters in length.
  • DESCRIPTION:  
    This is the actual human readable Work Order Number for NPPD identification purposes.
73 LAB AMIS DATE LBA;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 28, 1993
  • HELP-PROMPT:  Enter the date the Lab AMIS was run.
  • DESCRIPTION:  
    Last date the Lab AMIS was run.
74 ORTHOTICS LAB CODE LBA;2 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  NOV 28, 1993
  • HELP-PROMPT:  Enter the correct Orthotic Lab New Code.
  • DESCRIPTION:  
    Contains the Orthotic Lab New Code.
75 ORTHOTICS LAB REPAIR CODE LBA;3 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  APR 18, 1995
  • HELP-PROMPT:  Enter the correct Orthotic Lab Repair Code.
  • DESCRIPTION:  
    Contains the Orthotic Lab Repair Code.
76 RESTORATION LAB CODE LBA;4 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  NOV 28, 1993
  • HELP-PROMPT:  Enter the proper Restoration Lab Code.
  • DESCRIPTION:  
    Contains the Restoration Lab New Code.
77 RESTORATIONS LAB REPAIR CODE LBA;5 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  NOV 28, 1993
  • HELP-PROMPT:  Enter the Restoration Lab Repair Code.
  • DESCRIPTION:  
    Contains the Restoration Lab Repair Code.
78 UNIT OF ISSUE 0;8 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  DEC 15, 1993
  • HELP-PROMPT:  Enter the appropriate unit of issue for this item.
  • DESCRIPTION:  
    This is the unit by which items/services are issued (e.g., each, pair, box, case, etc.).
79 AMIS FLAG AM;6 SET
  • '1' FOR NO ADMIN COUNT;

  • LAST EDITED:  DEC 19, 1993
  • HELP-PROMPT:  Ent.er '1' for No Admin Count
  • DESCRIPTION:  
    Contains the status if the Item will not count on the Administrative AMIS.
80 WORK FOR OTHER STATION LB;13 SET
  • '1' FOR YES;

  • LAST EDITED:  JAN 19, 1994
  • HELP-PROMPT:  Enter 'Yes' if work for other station
  • DESCRIPTION:  
    Contains the Status if the Job Performed will display as work performed for another station.
81 NO ADMIN COUNT AM;2 SET
  • '1' FOR NO COUNT;

  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter '1' for No Count
  • DESCRIPTION:  
    This field will be set if the Item will not count on the Administrative AMIS or the Orthotic Laboratory AMIS.
82 NO LAB COUNT LB;14 SET
  • '1' FOR NO COUNT;

  • LAST EDITED:  MAY 12, 1994
  • HELP-PROMPT:  Enter '1' for No Lab AMIS Count
  • DESCRIPTION:  
    Field will be set if there is no AMIS Count for AMIS.
83 BACKLOG DATE LBA;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 19, 1994
  • HELP-PROMPT:  This field will contain the date the request was created.
  • DESCRIPTION:  
    This field will contain the date that the entry was created. This entry will be a backlog entry until it has been completed. All backlog data must show up on the Laboratory or Restoration AMIS Count.
  • CROSS-REFERENCE:  660^ALOG
    1)= S ^RMPR(660,"ALOG",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"ALOG",$E(X,1,30),DA)
    This x-ref will be used set if the item is processed locally at the station and must be posted to the Orthotic or Restorations Amis.
89 HISTORICAL ITEM HST;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
  • NOTES:  TRIGGERED by the ITEM field of the RECORD OF PROS APPLIANCE/REPAIR File
89.1 DALC REFERENCE NUMBER HSTV1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  MAY 23, 2007
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    This is the line level reference number from a DALC purchase order or delivery of item or service.
  • CROSS-REFERENCE:  660^DDC
    1)= S ^RMPR(660,"DDC",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"DDC",$E(X,1,30),DA)
    This is the DALC internal reference.
89.2 DALC BILL DATE HSTV1;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 23, 2007
  • DESCRIPTION:  
    This is the Billing Date from the Denver Acquisition and Logistics Center (DALC).
89.3 DALC ORDERING STATION HSTV1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 23, 2007
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This is the Ordering station from to the Denver Acquisition and Logistics Center (DALC).
90 HISTORICAL STATION HST;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
91 HISTORICAL VENDOR HST;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<1) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 1-36 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
92 HISTORICAL VENDOR PHONE HSTV;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>188!($L(X)<3) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 3-188 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
93 HISTORICAL STREET ADD HSTV;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 1-33 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
94 HISTORICAL CITY HSTV;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
95 HISTORICAL STATE HSTV1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
96 HISTORICAL ZIP HSTV1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  MAY 30, 1995
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
97 HISTORICAL RECORD HST;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1995
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is used for the consolidation sites, will contain the data that has been merged from a legacy system. This field is populated by the RMPRJ routine that is not exported.
100 PFSS ACCOUNT REFERENCE PFSS;1 POINTER TO PFSS ACCOUNT FILE (#375) PFSS ACCOUNT(#375)

  • LAST EDITED:  JUN 30, 2005
  • DESCRIPTION:  
    This refers to the reference number passed back to Prosthetics application from the PFSS IBB get account process. This field points to PFSS ACCOUNT file (#375).
101 PFSS CHARGE ID PFSS;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 2005
  • HELP-PROMPT:  Type a Number between 1 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    A unique charge identifier for each charge entity. Prosthetics calls $$GETCHGID^IBBAPI() to obtain a Unique Charge Identifier.
102 LATEST PSAS HCPCS PFSS;3 POINTER TO PROSTHETIC HCPCS FILE (#661.1) PROSTHETIC HCPCS(#661.1)

  • LAST EDITED:  JUN 30, 2005
  • DESCRIPTION:  
    This is the latest PSAS HCPCS code that is held and stored for comparison during the account updates for the PFSS project.
103 LATEST QTY PFSS;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 2005
  • HELP-PROMPT:  Type a Number between 1 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    This is the latest QTY that is held and stored for comparison during the account updates for the PFSS project.
104 LATEST TOTAL COST PFSS;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  JUN 30, 2005
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the latest Total Cost that is held and stored for comparison during the account updates for the PFSS project.
105 LATEST ORDERING PROVIDER PFSS;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 2005
  • DESCRIPTION:  
    This is the latest attending physician (ordering provider) that is held and stored for comparison during the account updates for the PFSS project.
106 PFSS ACCOUNT FLAG PFSS;7 SET
  • '1' FOR READY TO PROCESS;

  • LAST EDITED:  OCT 27, 2005
  • DESCRIPTION:  
    Flag for ready to process PFSS Account Creation/Pre-Certification. 1 = Ready to process
  • NOTES:  TRIGGERED by the PSAS HCPCS field of the RECORD OF PROS APPLIANCE/REPAIR File
    TRIGGERED by the ENTRY DATE field of the RECORD OF PROS APPLIANCE/REPAIR File
  • CROSS-REFERENCE:  660^APH
    1)= S ^RMPR(660,"APH",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"APH",$E(X,1,30),DA)
107 PFSS CHARGE FLAG PFSS;8 SET
  • '1' FOR READY TO PROCESS;

  • LAST EDITED:  JUL 13, 2005
  • DESCRIPTION:  
    Flag for ready to process PFSS Charge message. 1 = Ready to process
  • NOTES:  TRIGGERED by the PSAS HCPCS field of the RECORD OF PROS APPLIANCE/REPAIR File
    TRIGGERED by the QTY field of the RECORD OF PROS APPLIANCE/REPAIR File
    TRIGGERED by the TOTAL COST field of the RECORD OF PROS APPLIANCE/REPAIR File
    TRIGGERED by the SUSPENSE REQUESTOR field of the RECORD OF PROS APPLIANCE/REPAIR File
    TRIGGERED by the DELIVERY DATE field of the RECORD OF PROS APPLIANCE/REPAIR File
  • CROSS-REFERENCE:  660^APD
    1)= S ^RMPR(660,"APD",$E(X,1,30),DA)=""
    2)= K ^RMPR(660,"APD",$E(X,1,30),DA)

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #373
  • Integrated Billing
  • ENTRY DATE (.01).
    Access: Pointed to

    PATIENT NAME (.02).
    Access: Read w/Fileman

    ITEM (4).
    Access: Read w/Fileman

    VENDOR (7).
    Access: Read w/Fileman

    DELIVERY DATE (10).
    Access: Read w/Fileman

    SOURCE (12).
    Access: Read w/Fileman

    TOTAL COST (14).
    Access: Read w/Fileman

    HISTORICAL DATA (15).
    Access: Read w/Fileman

    PATIENT CATEGORY (62).
    Access: Read w/Fileman

    PRIMARY ICD DIAGNOSIS CODE (30).
    Access: Read w/Fileman

    PRIMARY AGENT ORANGE EXPOSURE (30.1).
    Access: Read w/Fileman

    PRIMARY IONIZED RADIATION (30.2).
    Access: Read w/Fileman

    PRIMARY SERVICE-CONNECTED (30.3).
    Access: Read w/Fileman

    PRIMARY MST (30.5).
    Access: Read w/Fileman

    PRIMARY ENVIRONMENTAL CONT. (30.4).
    Access: Read w/Fileman

    PRIMARY HEAD/NECK CANCER (30.6).
    Access: Read w/Fileman

    PRIMARY COMBAT VET (30.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS CODE 1 (31).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 1 (31.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 1 (31.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 1 (31.3).
    Access: Read w/Fileman

    SECONDARY ENVIRONMENTAL CONT 1 (31.4).
    Access: Read w/Fileman

    SECONDARY MST 1 (31.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 1 (31.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 1 (31.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS 2 (32).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 2 (32.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 2 (32.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 2 (32.3).
    Access: Read w/Fileman

    SECONDARY ENVIR. CONT. 2 (32.4).
    Access: Read w/Fileman

    SECONDARY MST 2 (32.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 2 (32.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 2 (32.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS 3 (33).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 3 (33.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 3 (33.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 3 (33.3).
    Access: Read w/Fileman

    SECONDARY ENVIRON. CONT. 3 (33.4).
    Access: Read w/Fileman

    SECONDARY MST 3 (33.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 3 (33.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 3 (33.7).
    Access: Read w/Fileman

    $O through cross reference to find potentially billableprosthetic items.$O through cross reference to find prosthetic itemswhich may have been delivered to a patient within a specific date range.$O through the "C" x-ref.$O through the "AF" x-ref by date.
    ICR #2303
  • Scheduling
  • TYPE OF TRANSACTION (2).
    Access: Direct Global Read & w/Fileman

    ITEM (4).
    Access: Direct Global Read & w/Fileman

    QTY (5).
    Access: Direct Global Read & w/Fileman

    DELIVERY DATE (10).
    Access: Direct Global Read & w/Fileman

    TOTAL COST (14).
    Access: Direct Global Read & w/Fileman

    'C' xref.
    ICR #2528
  • DSS Extracts
  • PATIENT NAME (.02).
    Access: Direct Global Read & w/Fileman

    TYPE OF TRANSACTION (2).
    Access: Direct Global Read & w/Fileman

    QTY (5).
    Access: Direct Global Read & w/Fileman

    STATION (8).
    Access: Direct Global Read & w/Fileman

    DELIVERY DATE (10).
    Access: Direct Global Read & w/Fileman

    FORM REQUESTED ON (11).
    Access: Direct Global Read & w/Fileman

    SOURCE (12).
    Access: Direct Global Read & w/Fileman

    TOTAL COST (14).
    Access: Direct Global Read & w/Fileman

    SHIP/DEL (6).
    Access: Direct Global Read & w/Fileman

    HCPCS (4.1).
    Access: Direct Global Read & w/Fileman

    PICKUP/DEL (6.5).
    Access: Direct Global Read & w/Fileman

    REQUESTING STATION (40).
    Access: Direct Global Read & w/Fileman

    RECEIVING STATION (70).
    Access: Direct Global Read & w/Fileman

    TOTAL LABOR COST (46).
    Access: Direct Global Read & w/Fileman

    TOTAL MATERIAL COST (47).
    Access: Direct Global Read & w/Fileman

    TOTAL LAB COST (48).
    Access: Direct Global Read & w/Fileman

    NO ADMIN COUNT (81).
    Access: Direct Global Read & w/Fileman

    PATIENT CATEGORY (62).
    Access: Direct Global Read & w/Fileman

    AMIS GROUPER (68).
    Access: Direct Global Read & w/Fileman

    HISTORICAL DATA (15).
    Access: Direct Global Read & w/Fileman

    This Global holds the Prosthetics order information.
    ICR #4975
  • Spinal Cord Dysfunction
  • n/a (n/a).
    Access: Direct Global Read & w/Fileman

    ENTRY DATE (.01).
    Access: Direct Global Read & w/Fileman

    TYPE OF TRANSACTION (2).
    Access: Direct Global Read & w/Fileman

    QTY (5).
    Access: Direct Global Read & w/Fileman

    STATION (8).
    Access: Direct Global Read & w/Fileman

    DELIVERY DATE (10).
    Access: Direct Global Read & w/Fileman

    TOTAL COST (14).
    Access: Direct Global Read & w/Fileman

    FORM REQUESTED ON (11).
    Access: Direct Global Read & w/Fileman

    PSAS HCPCS (4.5).
    Access: Direct Global Read & w/Fileman

    TYPE OF REQUEST (8.5).
    Access: Direct Global Read & w/Fileman

    This is the 'C' cross-reference for file 660, whichindexes based on patient's DFN.
    ICR #6496
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • ENTRY DATE (.01).
    Access: Both R/W w/Fileman

    PATIENT NAME (.02).
    Access: Both R/W w/Fileman

    REQUEST DATE (1).
    Access: Both R/W w/Fileman

    TYPE OF TRANSACTION (2).
    Access: Both R/W w/Fileman

    ACTION (13).
    Access: Direct Global Read & w/Fileman

    ITEM (4).
    Access: Both R/W w/Fileman

    QTY (5).
    Access: Both R/W w/Fileman

    UNIT OF ISSUE (78).
    Access: Both R/W w/Fileman

    VENDOR (7).
    Access: Both R/W w/Fileman

    STATION (8).
    Access: Both R/W w/Fileman

    SERIAL NBR (9).
    Access: Both R/W w/Fileman

    DELIVERY DATE (10).
    Access: Both R/W w/Fileman

    FORM REQUESTED ON (11).
    Access: Both R/W w/Fileman

    SOURCE (12).
    Access: Both R/W w/Fileman

    HISTORICAL DATA (15).
    Access: Both R/W w/Fileman

    TOTAL COST (14).
    Access: Both R/W w/Fileman

    SHIP/DEL (6).
    Access: Both R/W w/Fileman

    REMARKS (16).
    Access: Both R/W w/Fileman

    RETURNED STATUS (17).
    Access: Both R/W w/Fileman

    RETURN STATUS DATE (17.5).
    Access: Both R/W w/Fileman

    STATUS FLAG (18).
    Access: Both R/W w/Fileman

    HCPCS (4.1).
    Access: Both R/W w/Fileman

    LOT NUMBER (21).
    Access: Both R/W w/Fileman

    PRODUCT LINE (22).
    Access: Both R/W w/Fileman

    PICKUP/DEL (6.5).
    Access: Both R/W w/Fileman

    INITIATOR (27).
    Access: Both R/W w/Fileman

    TRANSACTION (23).
    Access: Both R/W w/Fileman

    DESCRIPTION (24).
    Access: Both R/W w/Fileman

    INVENTORY POINT (29).
    Access: Both R/W w/Fileman

    PSAS HCPCS (4.5).
    Access: Both R/W w/Fileman

    STOCK ISSUE (4.6).
    Access: Both R/W w/Fileman

    CPT MODIFIER (4.7).
    Access: Both R/W w/Fileman

    DATE CPT MODIFIER EXTRACTED (4.8).
    Access: Read w/Fileman

    DATE OF SERVICE (39).
    Access: Read w/Fileman

    USER WHO EDIT (35).
    Access: Read w/Fileman

    DATE EDITED (36).
    Access: Read w/Fileman

    HCPCS-ICD9 CODING FLAG (4.9).
    Access: Both R/W w/Fileman

    CODING FLAG DATE (4.91).
    Access: Both R/W w/Fileman

    HI TECH ITEM (4.92).
    Access: Both R/W w/Fileman

    HCPCS/ITEM (37).
    Access: Read w/Fileman

    HCPCS/ITEM DESCRIPTION (38).
    Access: Read w/Fileman

    EXCLUDE/WAIVER (38.1).
    Access: Both R/W w/Fileman

    CONTRACT # (38.7).
    Access: Both R/W w/Fileman

    NUMBER OF BIDS (38.8).
    Access: Both R/W w/Fileman

    DELIVER TO (25).
    Access: Both R/W w/Fileman

    DATE REQUIRED (26).
    Access: Both R/W w/Fileman

    PATIENT NOTIFICATION FLAG (19).
    Access: Read w/Fileman

    VENDOR TRACKING NUMBER (4.2).
    Access: Read w/Fileman

    BANK AUTHORIZATION NUMBER (4.3).
    Access: Read w/Fileman

    CONSULT REQUEST SERVICE (8.61).
    Access: Both R/W w/Fileman

    OIF/OEF (34).
    Access: Both R/W w/Fileman

    DELIVERY VERIFICATION DATE (20).
    Access: Read w/Fileman

    DELIVERY VERIFICATION STATUS (20.1).
    Access: Read w/Fileman

    PRODUCT DESCRIPTION (9.1).
    Access: Both R/W w/Fileman

    PRODUCT MODEL (9.2).
    Access: Both R/W w/Fileman

    SUSPENSE DATE (8.1).
    Access: Both R/W w/Fileman

    DATE RX WRITTEN (8.2).
    Access: Both R/W w/Fileman

    INITIAL ACTION DATE (8.3).
    Access: Both R/W w/Fileman

    COMPLETION DATE (8.4).
    Access: Both R/W w/Fileman

    TYPE OF REQUEST (8.5).
    Access: Both R/W w/Fileman

    SUSPENSE REQUESTOR (8.6).
    Access: Both R/W w/Fileman

    PROVISIONAL DIAGNOSIS (8.7).
    Access: Both R/W w/Fileman

    SUSPENSE ICD (8.8).
    Access: Both R/W w/Fileman

    CONSULT (8.9).
    Access: Both R/W w/Fileman

    SUSPENSE STATION (8.11).
    Access: Both R/W w/Fileman

    PCE (8.12).
    Access: Both R/W w/Fileman

    DATE SENT TO PCE (8.13).
    Access: Both R/W w/Fileman

    SUSPENSE STATUS (8.14).
    Access: Both R/W w/Fileman

    AMIS DATE (60).
    Access: Both R/W w/Fileman

    NO ADMIN COUNT (81).
    Access: Both R/W w/Fileman

    PATIENT CATEGORY (62).
    Access: Both R/W w/Fileman

    SPECIAL CATEGORY (63).
    Access: Both R/W w/Fileman

    ADMIN REPAIR AMIS CODE (64).
    Access: Read w/Fileman

    AMIS FLAG (79).
    Access: Read w/Fileman

    AMIS NEW CODE (52).
    Access: Read w/Fileman

    AMIS GROUPER (68).
    Access: Both R/W w/Fileman

    PRIMARY ICD DIAGNOSIS CODE (30).
    Access: Read w/Fileman

    PRIMARY AGENT ORANGE EXPOSURE (30.1).
    Access: Read w/Fileman

    PRIMARY IONIZED RADIATION (30.2).
    Access: Read w/Fileman

    PRIMARY SERVICE-CONNECTED (30.3).
    Access: Read w/Fileman

    PRIMARY ENVIRONMENTAL CONT. (30.4).
    Access: Read w/Fileman

    PRIMARY MST (30.5).
    Access: Read w/Fileman

    PRIMARY HEAD/NECK CANCER (30.6).
    Access: Read w/Fileman

    PRIMARY COMBAT VET (30.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS CODE 1 (31).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 1 (31.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 1 (31.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 1 (31.3).
    Access: Read w/Fileman

    SECONDARY ENVIRONMENTAL CONT 1 (31.4).
    Access: Read w/Fileman

    SECONDARY MST 1 (31.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 1 (31.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 1 (31.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS 2 (32).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 2 (32.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 2 (32.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 2 (32.3).
    Access: Read w/Fileman

    SECONDARY ENVIR. CONT. 2 (32.4).
    Access: Read w/Fileman

    SECONDARY MST 2 (32.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 2 (32.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 2 (32.7).
    Access: Read w/Fileman

    SECONDARY ICD DIAGNOSIS 3 (33).
    Access: Read w/Fileman

    SECONDARY AGENT ORANGE 3 (33.1).
    Access: Read w/Fileman

    SECONDARY IONIZED RADIATION 3 (33.2).
    Access: Read w/Fileman

    SECONDARY SERVICE-CONNECTED 3 (33.3).
    Access: Read w/Fileman

    SECONDARY ENVIRON. CONT. 3 (33.4).
    Access: Read w/Fileman

    SECONDARY MST 3 (33.5).
    Access: Read w/Fileman

    SECONDARY HEAD/NECK CANCER 3 (33.6).
    Access: Read w/Fileman

    SECONDARY COMBAT VET 3 (33.7).
    Access: Read w/Fileman

    EXTENDED DESCRIPTION (28).
    Access: Both R/W w/Fileman

    HISTORICAL ITEM (89).
    Access: Read w/Fileman

    HISTORICAL STATION (90).
    Access: Read w/Fileman

    HISTORICAL VENDOR (91).
    Access: Direct Global Read & w/Fileman

    HISTORICAL RECORD (97).
    Access: Read w/Fileman

    HISTORICAL VENDOR PHONE (92).
    Access: Read w/Fileman

    HISTORICAL STREET (93).
    Access: Read w/Fileman

    HISTORICAL CITY (94).
    Access: Read w/Fileman

    HISTORICAL STATE (95).
    Access: Read w/Fileman

    HISTORICAL ZIP (96).
    Access: Read w/Fileman

    DALC REFERENCE NUMBER (89.1).
    Access: Direct Global Read & w/Fileman

    DALC BILL DATE (89.2).
    Access: Read w/Fileman

    DALC ORDERING STATION (89.3).
    Access: Read w/Fileman

    REQUESTING STATION (40).
    Access: Both R/W w/Fileman

    FREE TEXT WO # (72.5).
    Access: Both R/W w/Fileman

    SOURCE OF PROCUREMENT (69).
    Access: Both R/W w/Fileman

    RECEIVING STATION (70).
    Access: Both R/W w/Fileman

    WORK ORDER NUMBER (71).
    Access: Both R/W w/Fileman

    TOTAL LABOR HOURS (45).
    Access: Both R/W w/Fileman

    TOTAL LABOR COST (46).
    Access: Both R/W w/Fileman

    TOTAL MATERIAL COST (47).
    Access: Both R/W w/Fileman

    TOTAL LAB COST (48).
    Access: Direct Global Read & w/Fileman

    2529-3 (72).
    Access: Both R/W w/Fileman

    COMPLETION DATE (50).
    Access: Both R/W w/Fileman

    LAB REMARKS (51).
    Access: Read w/Fileman

    WORK FOR OTHER STATION (80).
    Access: Read w/Fileman

    NO LAB COUNT (82).
    Access: Both R/W w/Fileman

    LAB AMIS DATE (73).
    Access: Read w/Fileman

    ORTHOTICS LAB CODE (74).
    Access: Read w/Fileman

    ORTHOTICS LAB REPAIR CODE (75).
    Access: Read w/Fileman

    RESTORATION LAB CODE (76).
    Access: Read w/Fileman

    RESTORATIONS LAB REPAIR CODE (77).
    Access: Read w/Fileman

    BACKLOG DATE (83).
    Access: Both R/W w/Fileman

    PFSS ACCOUNT REFERENCE (100).
    Access: Read w/Fileman

    PFSS CHARGE ID (101).
    Access: Read w/Fileman

    LATEST PSAS HCPCS (102).
    Access: Read w/Fileman

    LATEST QTY (103).
    Access: Read w/Fileman

    LATEST TOTAL COST (104).
    Access: Read w/Fileman

    LATEST ORDERING PROVIDER (105).
    Access: Read w/Fileman

    PFSS ACCOUNT FLAG (106).
    Access: Read w/Fileman

    PFSS CHARGE FLAG (107).
    Access: Read w/Fileman

    File 660 'AC' cross-reference Used to look up byREQUEST DATEFile 660 'AG' cross-reference Used to look up by AMISGROUPERFile 660 'B' cross reference Used to look up by ENTRYDATEFile 660 'CT' cross-reference Used to look up byDELIVERY DATE
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All