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.22

Package: Prosthetics

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

Sub-Field: 663.22


Information

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

Details

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

  • LAST EDITED:  SEP 09, 1992
  • CROSS-REFERENCE:  663.22^B
    1)= S ^RMPRA(663.2,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^RMPRA(663.2,DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  663.2^D
    1)= S ^RMPRA(663.2,"D",$E(X,1,30),DA(1),DA)=""
    2)= K ^RMPRA(663.2,"D",$E(X,1,30),DA(1),DA)
    Allows sorting the whole file by Repair Amis Category Code. Gathers up all Repair transactions after Amis is run to be placed on Generic Code Sheets.
1 VA 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field holds the number of VA issues for a repair AMIS category.
2 PSC CARD 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 05, 1991
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field holds the number of Prosthetic Service Card issues for a repair AMIS category.
3 PSC 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:  
    This field holds the total cost of PSC issues for a repair AMIS category.
4 2421 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:  
    This field holds the number of 2421 forms done for a repair AMIS category.
5 OTHER/COMMER 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:  
    This field holds the total number of Other Commercial issues for repair AMIS categories.
6 COMMER/COST 0;7 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:  
    This field holds the total Commercial Cost of issues for a repair AMIS category.
7 TOTAL NUMBER 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:  
    This field holds the total number of issues for a repair AMIS category.
8 TOTAL COST COMPUTED

  • MUMPS CODE:  S Y(663.22,8,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"") S X=$P(Y(663.22,8,1),U,4)+$P(Y(663.22,8,1),U,7)
  • ALGORITHM:  PSC COST+COMMER/COST
  • DESCRIPTION:  
    Contains the total cost of items purchased under the specified category code.
9 SC/OP 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Holds the total issues for SC/OP for a repair AMIS category.
10 NSC/OP 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 the total NSC/OP issues for a repair AMIS category.
11 SC/IP 0;12 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 SC/IP issues for a repair AMIS category.
12 NSC/IP 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 NSC/IP issues for a repair AMIS category.
13 TOTAL DIS COMPUTED

  • MUMPS CODE:  S Y(663.22,13,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"") S X=$P(Y(663.22,13,1),U,10)+$P(Y(663.22,13,1),U,11)+$P(Y(663.22,13,1),U,12)+$P(Y(663.22,13,1),U,13)
  • ALGORITHM:  SC/OP+NSC/OP+SC/IP+NSC/IP
  • DESCRIPTION:  
    Holds the total Disabilities Served for a repair AMIS category.
14 AVG CST COMPUTED

  • MUMPS CODE:  S Y(663.22,14,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"") S X=$P(Y(663.22,14,1),U,4)+$P(Y(663.22,14,1),U,7),X=$S($P(Y(663.22,14,1),U,8):X/$P(Y(663.22,14,1),U,8),1:"*******")
    9.2 = S Y(663.22,14,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"") S X=$P(Y(663.22,14,1),U,8),Y(663.22,14,2)=X S X=$P(Y(663.22,14,1),U,4)+$P(Y(663.22,14,1),U,7)
  • ALGORITHM:  (PSC COST+COMMER/COST)/TOTAL NUMBER
  • LAST EDITED:  NOV 05, 1990
  • DESCRIPTION:  
    Holds the average cost of items issued for this repair AMIS category.
Info |  Details