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 |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^RAMIS(71.5

Package: Radiology Nuclear Medicine

Global: ^RAMIS(71.5


Information

FileMan FileNo FileMan Filename Package
71.5 IMAGING STOP CODES Radiology Nuclear Medicine

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Radiology Nuclear Medicine 1 RAACIPST    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Scheduling 1 CLINIC STOP(#40.7)[.01]    

Fields, Total: 1

Field # Name Loc Type Details
.01 VALID CODE 0;1 POINTER TO CLINIC STOP FILE (#40.7)
************************REQUIRED FIELD************************
CLINIC STOP(#40.7)

  • INPUT TRANSFORM:  S DINUM=X S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 19, 1994
  • HELP-PROMPT:  Enter a stop code that is currently valid for Imaging procedures.
  • DESCRIPTION:  Only stop codes valid for imaging should be entered in this file. When a stop code becomes invalid, it should be deleted from this file. When a new stop code becomes valid for imaging procedures, it should be added to
    this file. Entries are used as a selection list when editing the DSS ID of an imaging location.
  • TECHNICAL DESCR:  The entries in this file are used as a screen for selecting stop codes to associate with Radiology/Nuclear Medicine procedures. The principal clinic field of the Imaging Locations file is also screened using the entries
    in this file to make sure the principal clinic chosen has an imaging stop code. Keeping these codes in a separate file makes them maintainable by the sites.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)"
  • EXPLANATION:  Inactive Stop Codes are invalid. Stop Code 900 cannot be used.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  71.5^B
    1)= S ^RAMIS(71.5,"B",$E(X,1,30),DA)=""
    2)= K ^RAMIS(71.5,"B",$E(X,1,30),DA)
    3)= DO NOT DELETE
    Regular B cross-reference used for look-up.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields