STANDARD DATA DICTIONARY #663.2 -- ACTIVITIES NEW/REPAIR WORKSHEET TOTALS FILE 9/29/25 PAGE 1
STORED IN ^RMPRA(663.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the current AMIS totals for prosthetics. Only one AMIS report (the most current) is stored in this file.
DD ACCESS: @
DEL ACCESS: @
CROSS
REFERENCED BY: DAY OF AMIS RUN(B), AMIS CATEGORY(C), REPAIR AMIS CAT(D)
663.2,.01 DAY OF AMIS RUN 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: This is the day of the week AMIS was run.
DESCRIPTION:
This is the day of the week AMIS was run.
CROSS-REFERENCE: 663.2^B
1)= S ^RMPRA(663.2,"B",$E(X,1,30),DA)=""
2)= K ^RMPRA(663.2,"B",$E(X,1,30),DA)
663.2,.05 TRANSMISSION 0;2 SET
'1' FOR DISABLED;
LAST EDITED: JAN 09, 1991
HELP-PROMPT: Enter 1 to disable transmission of AMIS.
DESCRIPTION:
This field will disable the transmission of AMIS.
663.2,1 NEW AMIS CATEGORY 1;0 POINTER Multiple #663.21
LAST EDITED: NOV 10, 1994
DESCRIPTION:
This field holds the new AMIS count for the current report.
663.21,.01 AMIS CATEGORY 0;1 POINTER TO PROS AMIS CODES FILE (#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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.
663.21,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.2
1,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.
663.21,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,1
4,1),U,3)
ALGORITHM: VA+COMMER
DESCRIPTION:
Holds the total items furnished for an AMIS category.
663.21,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,1
5,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.
663.2,2 REPAIR AMIS CATEGORY 2;0 POINTER Multiple #663.22
LAST EDITED: NOV 10, 1994
DESCRIPTION: This field holds all repair AMIS category information for the current report This field indicates
which Amis category the repair should be counted under for reporting purposes. 2
663.22,.01 REPAIR AMIS CAT 0;1 POINTER TO PROS AMIS CODES FILE (#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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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.
663.22,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,1
4,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.2
2,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.
663.2,3 START DATE 3;1 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 23, 1991
HELP-PROMPT: Enter beginning date of AMIS reporting period.
DESCRIPTION:
Holds the starting date of the current AMIS report.
663.2,4 STOP DATE 3;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 23, 1991
HELP-PROMPT: Enter the ending date of the current AMIS reporting period.
DESCRIPTION:
Holds the stop date of the current AMIS report.
FILES POINTED TO FIELDS
PROS AMIS CODES (#663) NEW AMIS CATEGORY:AMIS CATEGORY (#.01)
REPAIR AMIS CATEGORY:REPAIR AMIS CAT (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):