Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 665.194

Package: Prosthetics

PROSTHETICS PATIENT(#665)-->665.194

Sub-Field: 665.194


Information

Parent File Name Number Package
PROSTHETICS PATIENT(#665) HOME OXYGEN ITEM 665.194 Prosthetics

Details

Field # Name Loc Type Details
.01 ITEM 0;1 POINTER TO PROS ITEM MASTER FILE (#661)
************************REQUIRED FIELD************************
PROS ITEM MASTER(#661)

  • OUTPUT TRANSFORM:  S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)
  • LAST EDITED:  OCT 28, 2005
  • HELP-PROMPT:  Enter the equipment item. Enter 'primary' item first.
  • DESCRIPTION:  
    This is a multiple field and will contain all the items dispensed to the patient. NOTE: The first entry must be the primary equipment item.
  • DELETE TEST:  .01,0)= I 1 W "USE DELETE OPTION!"
  • CROSS-REFERENCE:  665.194^B
    1)= S ^RMPR(665,DA(1),"RMPOC","B",$E(X,1,30),DA)=""
    2)= K ^RMPR(665,DA(1),"RMPOC","B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  665.194^APTASK^MUMPS
    1)= Q
    2)= D ITEMTASK^RMPOPF
  • CROSS-REFERENCE:  ^^TRIGGER^665.194^100
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,"RMPOC",D1,"PFSS")):^("PFSS"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"") X ^DD(665.194,.01,1,3,1.4)
    1.4)= S DIH=$G(^RMPR(665,DIV(0),"RMPOC",DIV(1),"PFSS")),DIV=X S $P(^("PFSS"),U,1)=DIV,DIH=665.194,DIG=100 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$S(+$$SWSTAT^IBBAPI():1,1:"")
    DELETE VALUE)= NO EFFECT
    FIELD)= PFSS ACCOUNT FLAG
1 VENDOR 0;2 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 28, 1999
  • HELP-PROMPT:  Enter name of vendor who supplies the equipment item.
  • DESCRIPTION:  
    Enter the name of the vendor or vendor code.
  • SCREEN:  S DIC("S")="I $D(^RMPR(669.9,+$G(RMPOXITE),""RMPOVDR"",Y,0))"
  • EXPLANATION:  LIMITED TO VENDORS IN PROS. SITE FILE
2 QUANTITY 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 12, 1998
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits.
  • DESCRIPTION:  
    This is the number of units (tank, case, etc.) issued for this prescription.
3 UNIT COST 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  • LAST EDITED:  NOV 12, 1998
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the cost per unit of this issue.
4 UNIT OF ISSUE 0;5 POINTER TO UNIT OF ISSUE FILE (#420.5) UNIT OF ISSUE(#420.5)

  • LAST EDITED:  NOV 12, 1998
  • HELP-PROMPT:  Enter a unit of issue (e.g., ea, lbs).
  • DESCRIPTION:  
    This is the unit of issue (e.g., ea, lbs, case, feet, etc.).
5 FUND CONTROL POINT 0;6 FREE TEXT

  • LAST EDITED:  NOV 12, 1998
  • HELP-PROMPT:  Enter the Fund Control Point.
  • DESCRIPTION:  
    This is the Fund Control Point for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 HCPCS CODE 0;7 POINTER TO PROSTHETIC HCPCS FILE (#661.1)
************************REQUIRED FIELD************************
PROSTHETIC HCPCS(#661.1)

  • LAST EDITED:  NOV 12, 1998
  • HELP-PROMPT:  Enter HCPCS code, 1 letter followed by 4 numbers.
  • DESCRIPTION:  
    Enter the HCPCS code for this item. This number is taken from the CPT file (81) and consists of 1 letter and 4 numbers. The HCPCS shares the CPT file 81.
7 ICD CODE 0;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  OCT 19, 2011
  • HELP-PROMPT:  Enter ICD diagnosis code.
  • DESCRIPTION:  
    This is the ICD diagnosis code.
8 REMARKS 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
    MAXIMUM LENGTH: 30
  • LAST EDITED:  APR 16, 2020
  • HELP-PROMPT:  Enter remarks (3-30 char) on this patient.
  • DESCRIPTION:  
    Enter any information (3 - 30 characters) specific to this patient, such as: Patient hard of hearing.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9 ITEM TYPE 0;10 SET
  • 'I' FOR Initial Issue;
  • 'R' FOR Replace;
  • 'X' FOR Repair;

  • LAST EDITED:  FEB 03, 1999
  • HELP-PROMPT:  Enter the type of issue: initial, replacement, or repair.
  • DESCRIPTION:  
    This is the type of issue (initial, replacement, or repair) which is useful in determining workload.
10 PRIMARY ITEM 0;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 14, 1999
  • HELP-PROMPT:  Enter Y if this is the primary item.
  • DESCRIPTION:  The primary item is the item that is the most important to or descriptive of a patient's care. It is displayed on many reports in lieu of all the items so that the user can easily and quickly tell what kind of treatment
    the patient is getting.
    There are multiple sets of items for each patient, one for each vendor. There can only be one primary item for each set.
  • CROSS-REFERENCE:  665^AC
    1)= S ^RMPR(665,"AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^RMPR(665,"AC",$E(X,1,30),DA(1),DA)
    cross refernce primary item flag to patient item
11 HOME OXYGEN RENTAL FLAG 0;12 SET
  • '1' FOR YES;
  • '0' FOR N;

  • LAST EDITED:  JUN 06, 2000
  • DESCRIPTION:  
    A flag that designates an item as rental.
12 HOME OXYGEN CONSERVING FLAG 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 01, 2000
  • DESCRIPTION:  
    This flag an item as that Oxygen conserving device is used. IF this flag is set to YES, a 'QH' cpt modifier will be appended to the CPT modifier string during posting to Patient 2319 record.
100 PFSS ACCOUNT FLAG PFSS;1 SET
  • '1' FOR READY TO PROCESS;

  • LAST EDITED:  DEC 20, 2005
  • HELP-PROMPT:  Enter "1" if this record is ready to process PFSS data.
  • DESCRIPTION:  
    Flag field that indicates this record is ready for PFSS Processing.
  • NOTES:  TRIGGERED by the ITEM field of the HOME OXYGEN ITEM sub-field of the PROSTHETICS PATIENT File
  • CROSS-REFERENCE:  665^APO
    1)= S ^RMPR(665,"APO",$E(X,1,30),DA(1),DA)=""
    2)= K ^RMPR(665,"APO",$E(X,1,30),DA(1),DA)
    Regular file wide cross reference in support of PFSS IBB interface.
101 PFSS ACCOUNT REFERENCE PFSS;2 POINTER TO PFSS ACCOUNT FILE (#375) PFSS ACCOUNT(#375)

  • LAST EDITED:  DEC 20, 2005
  • HELP-PROMPT:  Enter the PFSS ACCOUNT REFERENCE returned by the PFSS process.
  • DESCRIPTION:  
    The account reference number passed back to Prosthetics from the get account ID process. It is associated with the item.
Info |  Details