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