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 |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^RMPR(661

Package: Prosthetics

Global: ^RMPR(661


Information

FileMan FileNo FileMan Filename Package
661 PROS ITEM MASTER Prosthetics

Description

Directly Accessed By Routines, Total: 81

Package Total Routines
Prosthetics 78 HO LETTER 3 LIST    HOME OXYGEN ITEM    RMPOBIL4    RMPOLET0    RMPOLZA    RMPOPAT1    RMPOPS23    RMPOPST0
RMPORLP    RMPORNQ    RMPORPD    RMPORPT    RMPOVDC    RMPR PRINT ITEM    RMPR21A    RMPR22
RMPR293    RMPR29B    RMPR29LC    RMPR29LD    RMPR29LE    RMPR29LI    RMPR29LP    RMPR29U
RMPR31U    RMPR37    RMPR37A    RMPR421A    RMPR4D1    RMPR4E21    RMPR4LI    RMPR4LOP
RMPR4OPN    RMPR4UTL    RMPR7    RMPR9S7    RMPRBIL    RMPRCT    RMPRD1    RMPRED4
RMPRED6    RMPREXR    RMPREXT    RMPRHISD    RMPRL22    RMPRL9    RMPRLI    RMPRLOP
RMPRN63    RMPRN6PL    RMPRN73    RMPRN7PL    RMPROPN    RMPROPN1    RMPRP55    RMPRPAT1
RMPRPAT7    RMPRPCEL    RMPRPCER    RMPRPI16    RMPRPIYE    RMPRPIYK    RMPRPRT1    RMPRPSC
RMPRRET1    RMPRRET9    RMPRSE1    RMPRSE2    RMPRSE21    RMPRSEA    RMPRSP6    RMPRSP7
RMPRST2    RMPRSTI    RMPRSTK    RMPRU99    RMPRUTIL    ^RMPR(661    
Integrated Billing 2 IB20P389    IBTRE20    
Functional Independence 1 RMIMRP    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Prosthetics 12 RMPOBIL2    RMPOBIL6    RMPOPED    RMPOVDC    RMPR29R    RMPR29U    RMPRL9    RMPRPIXD
RMPRRET1    RMPRSE1    RMPRSEA    RMPRSTK    

Pointed To By FileMan Files, Total: 9

Package Total FileMan Files
Prosthetics 9 HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.723191(.01)]    RECORD OF PROS APPLIANCE/REPAIR(#660)[4]    PROS RETURNED/CONDEMNED(#660.1)[2]    PROSTHETICS RE-ISSUE ITEM(#660.2)[2]    PROSTHETICS HCPCS ITEM MASTER FILE(#661.11)[7]    PROSTHETICS 1358(#664)[#664.02(.01)]    PROSTHETIC 2529-3(#664.1)[#664.16(.01)]    PROSTHETIC WORK ORDER(#664.2)[#664.22(.01)]    PROSTHETICS PATIENT(#665)[#665.012(1), #665.194(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IFCAP 1 ITEM MASTER(#441)[.01]    
Prosthetics 1 PROS AMIS CODES(#663)[1, 2, 3, 4, 5, 6]    

Fields, Total: 7

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO ITEM MASTER FILE (#441)
************************REQUIRED FIELD************************
ITEM MASTER(#441)

  • OUTPUT TRANSFORM:  NAME:NAME:SHORT DESCRIPTION
  • LAST EDITED:  JUL 02, 1993
  • HELP-PROMPT:  Please Enter the Item from the Item Master File.
  • DESCRIPTION:  
    This is the IFCAP Item Master Number.
  • DELETE TEST:  .01,0)= I 1 W " CANNOT DELETE ENTRY."
  • CROSS-REFERENCE:  661^B
    1)= S ^RMPR(661,"B",$E(X,1,30),DA)=""
    2)= K ^RMPR(661,"B",$E(X,1,30),DA)
1 AMIS ADMIN NEW CODE 0;3 POINTER TO PROS AMIS CODES FILE (#663)
************************REQUIRED FIELD************************
PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the AMIS Code associated with all new issues.
  • DESCRIPTION:  
    Enter the AMIS code to be reported on New Items. This should always be numeric.
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""A"""
  • EXPLANATION:  SELECT ONLY AMIS ADMIN NEW CODES
2 AMIS ADMIN REPAIR CODE 0;4 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""AR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the AMIS Code associated with items to be repaired.
  • DESCRIPTION:  
    Enter the AMIS code to be reported on Repair Items. This should always start with an "R."
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""AR"""
  • EXPLANATION:  Enter a code that begins with an 'R'
3 AMIS ORTHOTIC NEW CODE 0;5 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""O""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the AMIS Orthotic New Code
  • DESCRIPTION:  
    This field holds the Orthotics Lab AMIS code.
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""O"""
  • EXPLANATION:  SCREEN FOR ORTHOTICS AMIS NEW CODE
4 AMIS ORTHOTICS REPAIR CODE 0;6 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""OR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter in the AMIS Code for Items for Restorations Lab.
  • DESCRIPTION:  
    This field holds the Restoration Lab AMIS code.
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""OR"""
  • EXPLANATION:  SELECT ONLY AMIS ORTHOTICS REPAIR CODES
5 AMIS RESTORATION NEW CODE 0;7 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the AMIS code associated with Shoe Lab for this item.
  • DESCRIPTION:  
    This field holds the Shoe Lab AMIS code.
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""R"""
  • EXPLANATION:  ONLY SELECT AMIS RESTORATIONS CODES
6 AMIS RESTORATIONS REPAIR CODE 0;8 POINTER TO PROS AMIS CODES FILE (#663) PROS AMIS CODES(#663)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""RR""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Enter the AMIS code associated with the Restorations Lab for this item.
  • DESCRIPTION:  
    This field hold the AMIS Restorations Repair Code.
  • SCREEN:  S DIC("S")="I $P(^RMPR(663,+Y,0),U,4)=""RR"""
  • EXPLANATION:  SELECT ONLY AMIS RESTORATION REPAIR CODE

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #374
  • Integrated Billing
  • IFCAP
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman
    ICR #2304
  • Scheduling
    		•  NAME (.01).
    Access: Direct Global Read & w/Fileman
    ICR #6504
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
    		•  NAME (.01).
    Access: Both R/W w/Fileman

    AMIS ADMIN NEW CODE (1).
    Access: Both R/W w/Fileman

    AMIS ADMIN REPAIR CODE (2).
    Access: Both R/W w/Fileman

    AMIS ORTHOTIC NEW CODE (3).
    Access: Both R/W w/Fileman

    AMIS ORTHOTICS REPAIR CODE (4).
    Access: Both R/W w/Fileman

    AMIS RESTORATION NEW CODE (5).
    Access: Both R/W w/Fileman

    AMIS RESTORATIONS REPAIR CODE (6).
    Access: Both R/W w/Fileman

    		 'B' cross reference - used to look up by NAME

    External References

    Name Field # of Occurrence
    ^DIC 1+1, 2+1, 3+1, 4+1, 5+1, 6+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(661 .01OT+1
    ^RMPR(661 - [#661] .01(XREF 1S), .01(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> D0 .01OT+1*
    >> DA .01(XREF 1S), .01(XREF 1K)
    DIC 1+1!*, 2+1!*, 3+1!*, 4+1!*, 5+1!*, 6+1!*
    DIC("S" 1+1*, 1SCR+1*, 2+1*, 2SCR+1*, 3+1*, 3SCR+1*, 4+1*, 4SCR+1*, 5+1*, 5SCR+1*
    , 6+1*, 6SCR+1*
    >> DIE 1+1, 2+1, 3+1, 4+1, 5+1, 6+1
    >> I(0 .01OT+1
    U .01OT+1
    X .01OT+1*, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1*!, 3+1*!, 4+1*!, 5+1*!, 6+1*!
    >> Y .01OT+1*, 1+1, 2+1, 3+1, 4+1, 5+1, 6+1
    >> Y(0 .01OT+1*
    >> Y(201 .01OT+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Local Variables  | All