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: 663.21

Package: Prosthetics

ACTIVITIES NEW/REPAIR WORKSHEET TOTALS(#663.2)-->663.21

Sub-Field: 663.21


Information

Parent File Name Number Package
ACTIVITIES NEW/REPAIR WORKSHEET TOTALS(#663.2) NEW AMIS CATEGORY 663.21 Prosthetics

Details

Field # Name Loc Type Details
.01 AMIS CATEGORY 0;1 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • LAST EDITED:  NOV 10, 1994
  • HELP-PROMPT:  Please Enter the Prosthetic Amis Code.
  • CROSS-REFERENCE:  663.21^B
    1)= S ^RMPRA(663.2,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^RMPRA(663.2,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  663.2^C
    1)= S ^RMPRA(663.2,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^RMPRA(663.2,"C",$E(X,1,30),DA(1),DA)
    Allows sorting the whole file by New Amis Category Codes. New item transactions are counted after Amis is run and Placed on the Generic Code Sheets.
1 VA NEW ISSUES 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 10, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds total VA new issues. These are all the new VA source items getting to the patient for the first time.
2 COMMERCIAL 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds totals for Commercial issues.
3 BUDGETED COST 0;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    Holds budgeted cost totals.
4 SC/OP 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds SC/OP totals.
5 NSC/OP 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds NSC/OP totals.
6 SC/IP 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds SC/IP totals.
7 NSC/IP 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds NSC/IP totals.
8 SPECIAL LEGISLATION 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 10, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds Special Legislation totals.
9 A&A 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds Aid and Attendance totals.
10 PHC 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds Post Hospital Care totals.
11 TOTAL FURNISHED 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds total items furnished for an AMIS category.
12 NEW CASES 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the total number of new cases for an AMIS category.
13 AVG COST COMPUTED

  • MUMPS CODE:  X ^DD(663.21,13,9.2) S Y=X,X=Y(663.21,13,2),X=X,X=$S(Y:X/Y,1:"*******") S X=$J(X,0,2)
    9.2 = S Y(663.21,13,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"") S X=$P(Y(663.21,13,1),U,4),Y(663.21,13,2)=X S X=$P(Y(663.21,13,1),U,2)+$P(Y(663.21,13,1),U,3)
  • ALGORITHM:  BUDGETED COST/(VA+COMMER) (ALWAYS 2 DECIMAL DIGITS)
  • LAST EDITED:  DEC 05, 1991
  • DESCRIPTION:  
    Holds the average cost for items purchased for an AMIS category.
14 TOTAL ITEMS COMPUTED

  • MUMPS CODE:  S Y(663.21,14,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"") S X=$P(Y(663.21,14,1),U,2)+$P(Y(663.21,14,1),U,3)
  • ALGORITHM:  VA+COMMER
  • DESCRIPTION:  
    Holds the total items furnished for an AMIS category.
15 TOTAL DIS COMPUTED

  • MUMPS CODE:  S Y(663.21,15,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"") S X=$P(Y(663.21,15,1),U,5)+$P(Y(663.21,15,1),U,6)+$P(Y(663.21,15,1),U,7)+$P(Y(663.21,15,1),U,8)
  • ALGORITHM:  SC/OP+NSC/OP+SC/IP+NSC/IP
  • DESCRIPTION:  
    Holds the total disabilities served for an AMIS category.
Info |  Details