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 RMPOLET0    RMPOLZA    RMPOPS23    RMPOPST0    RMPORNQ    RMPORPT    RMPR PRINT ITEM    RMPR21A
RMPR29B    RMPR29LC    RMPR29LE    RMPR4E21    RMPR4LI    RMPR4UTL    RMPR9S7    RMPRBIL
RMPRCT    RMPRD1    RMPREXR    RMPREXT    RMPRHISD    RMPRL22    RMPRN63    RMPRN6PL
RMPROPN    RMPROPN1    RMPRP55    RMPRPAT1    RMPRPAT7    RMPRPI16    RMPRPIYK    RMPRSE1
RMPRSE2    RMPRSE21    RMPRSP7    RMPRST2    RMPRU99    RMPRUTIL    ^RMPR(669.1    HOME OXYGEN ITEM
RMPOBIL4    RMPOPAT1    RMPORLP    RMPORPD    RMPOVDC    RMPR22    RMPR293    RMPR29LD
RMPR29LI    RMPR29LP    RMPR29U    RMPR31U    RMPR37    RMPR37A    RMPR421A    RMPR4D1
RMPR4LOP    RMPR4OPN    RMPR7    RMPRED4    RMPRED6    RMPRL9    RMPRLI    RMPRLOP
RMPRN73    RMPRN7PL    RMPRPCEL    RMPRPCER    RMPRPIYE    RMPRPRT1    RMPRPSC    RMPRRET1
RMPRRET9    RMPRSEA    RMPRSTI    ^RMPR(661    RMPRSP6    RMPRSTK    
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)[123456]    

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