Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | 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

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
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All