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: 83

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