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 | Pointed To By FileMan Files | Fields | ICR | Found Entries | All

Print Page as PDF

Global: ^SRO(131.9

Package: Surgery

Global: ^SRO(131.9

Information

FileMan FileNo	FileMan Filename	Package
131.9	PROSTHESIS	Surgery

Description

This file contains prosthetic devices used by the Surgery package. This file is distributed with no pre-supplied entries. Sites must add entries as needed.

Directly Accessed By Routines, Total: 3

Pointed To By FileMan Files, Total: 1

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `SEP 17, 1991` HELP-PROMPT: `Your answer must be 3-30 characters in length.` DESCRIPTION: This is the name of the Prosthesis. DELETE TEST: `1,0)= N SRX S SRX=$C(7)_"Deletion from the Prosthesis file is not allowed !!" D EN^DDIOL(SRX) I 1` CROSS-REFERENCE: `131.9^B` 1)= S ^SRO(131.9,"B",$E(X,1,30),DA)="" 2)= K ^SRO(131.9,"B",$E(X,1,30),DA)
1	VENDOR	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>64!($L(X)<2) X` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Your answer must be 2-64 characters in length.` DESCRIPTION: `This is the name of the manufacturer of the implanted prosthetic device.`
2	MODEL	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>64!($L(X)<2) X` HELP-PROMPT: `Your answer must be 2-64 characters in length.` DESCRIPTION: `This is the model of the implanted prosthetic device.`
3	STERILE CODE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Your Answer must be 1-30 characters in length.` DESCRIPTION: `This is the Sterilization Number/Code identifying the implanted prosthetic device.`
4	LOT/SERIAL NO	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `Your Answer must be 1-30 characters in length.` DESCRIPTION: `This is the Lot/Serial Number of the implanted prosthetic device.`
5	STERILE RESP	0;7	SET	'M' FOR MANUFACTURER; 'SPD' FOR SPD; 'SUR' FOR SURGERY; LAST EDITED: `OCT 02, 1990` DESCRIPTION: `This is the code corresponding to the party responsible for the sterilization of the implanted device.`
6	SIZE	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Your answer must be 1-30 characters in length.` DESCRIPTION: `This is the size of the implanted prosthetic device.`
7	QUANTITY	1;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This is quantity of the prosthetic device used for the procedure.`
10	INACTIVE?	0;6	SET	'1' FOR YES; LAST EDITED: `JUN 03, 1992` HELP-PROMPT: `Enter 'YES' to inactivate this file entry.` DESCRIPTION: Enter 'YES' to make this entry inactive and to prevent its selection and use by users of the Surgery Package.

ICR, Total: 1

Info | Desc | Directly Accessed By Routines | Pointed To By FileMan Files | Fields | ICR | Found Entries | All