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

Directly Accessed By Routines, Total: 2

Package Total Routines
Prosthetics 2 ^RMPR(669.1    ^RMPRA(664.4    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[214]    
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