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 | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^RMPRA(664.4

Package: Prosthetics

Global: ^RMPRA(664.4

Information

FileMan FileNo	FileMan Filename	Package
664.4	PROS LABORATORY/RESTORATIONS WORKSHEET	Prosthetics

Description

This file will hold an entry for each time the Lab AMIS is generated.

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Prosthetics	2	^RMPRA(664.4 HO LETTER 3 LIST

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	INSTITUTION(#4)[2, 14]
Prosthetics	1	PROS AMIS CODES(#663)[16]

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	DATE RECEIVED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Enter the Date the Request was Received.` DESCRIPTION: `This field holds the Date Received information that is pulled onto the AMIS code sheet.` CROSS-REFERENCE: `664.4^B` `1)= S ^RMPRA(664.4,"B",$E(X,1,30),DA)=""` `2)= K ^RMPRA(664.4,"B",$E(X,1,30),DA)`
1	WORK ORDER NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field holds the Work Order Number that will be pulled onto the AMIS Codesheet.`
2	ORDERING STATION	0;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Enter the Station Name were the request originated.` DESCRIPTION: `This field holds the Ordering Station information that will be pulled onto the AMIS codesheet.`
3	NUMBER ITEMS COMPLETED	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field holds the Number of Items Completed that will be pulled onto the AMIS codesheet.`
4	SC PATIENTS SERVED	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the SC Patients Served that will be pulled onto the AMIS Codesheet.`
5	NSC PATIENTS SERVED	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field holds the NSC Patients Served data that will be pulled onto the AMIS Codesheet.`
6	MATERIAL COST	0;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the Material Cost that will be pulled onto the AMIS Codesheet.`
7	LABOR HOURS	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the Labor Hours that will be pulled into the AMIS Codesheet.`
8	LABOR MINUTES	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the Labor Minutes that will be pulled into the AMIS Codesheet.`
9	TOTAL LABOR COST	0;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the Total Labor Cost that will be pulled into the AMIS Codesheet.`
10	BACKLOG NUMBER ITEMS	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the Backlog Number Items that will be pulleded into the AMIS Codesheet.`
11	BACKLOG LABOR HOURS	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the Backlog Labor Hours that will be pulled into the AMIS Codesheet.`
12	BACKLOG LABOR MINUTES	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the Backlog Labor Minutes that will be pulled into the AMIS Codesheet.`
13	COST CHARGED	0;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the Cost Charged that will be pulled into the AMIS Codesheet.`
14	AMIS STATION	0;15	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Contains Station that is calculating Amis.` DESCRIPTION: `This field contains the AMIS Station that will be pulled into the AMIS Codesheet.` CROSS-REFERENCE: `664.4^C` `1)= S ^RMPRA(664.4,"C",$E(X,1,30),DA)=""` `2)= K ^RMPRA(664.4,"C",$E(X,1,30),DA)` `Used to Locate Station that has currenlty run Amis to allow Mutli Divisional Site the ability to run their own Amis.`
15	SEGMENT NUMBER	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<3) X` LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Answer must be 3-5 characters in length.` DESCRIPTION: `This field contains the Segment Number that will be pulled into the AMIS Codesheet.`
16	AMIS CODE	0;17	POINTER TO PROS AMIS CODES FILE (#663)	PROS AMIS CODES(#663) LAST EDITED: `SEP 23, 1994` HELP-PROMPT: `Enter the Correct Amis code for this item.` DESCRIPTION: `This field contains the actual AMIS Code that will be pulled onto the AMIS Codesheet.` CROSS-REFERENCE: `664.4^D` `1)= S ^RMPRA(664.4,"D",$E(X,1,30),DA)=""` `2)= K ^RMPRA(664.4,"D",$E(X,1,30),DA)` `Used to Sort by Amis code for Worksheet and Amis reports.`

External References

Name	Field # of Occurrence
^%DT	.01+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RMPRA(664.4 - [#664.4]	.01(XREF 1S), .01(XREF 1K), 14(XREF 1S), 14(XREF 1K), 16(XREF 1S), 16(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 14(XREF 1S), 14(XREF 1K), 16(XREF 1S), 16(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1!, 8+1! , 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14(XREF 1S), 14(XREF 1K), 15+1!, 16(XREF 1S), 16(XREF 1K)
>> Y	.01+1

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Local Variables | All