Global: ^RAMIS(71.5

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

Directly Accessed By Routines, Total: 2

Package	Total	Routines
Radiology Nuclear Medicine	2	RAPERR RAPERR1

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

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.

.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.

Customize PDF page

Package: Radiology Nuclear Medicine

Global: ^RAMIS(71.5

Information

Description

Directly Accessed By Routines, Total: 2

Pointer To FileMan Files, Total: 1

Fields, Total: 1