GMTSLRAE ROUTINE ICR (2771)

Name

Value

NUMBER

2771

IA #

2771

DATE CREATED

1999/03/05

CUSTODIAL PACKAGE

HEALTH SUMMARY

CUSTODIAL ISC

Salt Lake City

USAGE

Controlled Subscription

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

GMTSLRAE

NAME

GMTSLRAE ROUTINE

GENERAL DESCRIPTION

The Women's Health package requests permission to call
the GMTSLRAE routine at the XTRCT line label. This routine returns surgical
pathology data extracted from the LAB DATA file (#63) of the Laboratory
package.

STATUS

Active

DURATION

Till Otherwise Agreed

GMTSLRAE

COMPONENT/ENTRY POINT

VARIABLES

XTRCT

VARIABLES	TYPE	VARIABLES DESCRIPTION
LRDFN	Input	This is the internal entry number of a LAB DATA (#63) file entry that identifies the patient. It is not the variable DFN, rather it is the value of +^DPT(DFN,"LR").
GMTS1	Input	A reverse FileMan date/time (e.g., 7009695.8955) used as the start of a search of the LAB DATA (#63) file.
GMTS2	Input	A reverse FileMan date/time (e.g., 7019695.8955) used as the end of a search of the LAB DATA (#63) file.
MAX	Input	An integer value which indicates the maximum number of entries to return. For example, if MAX=10 and more than 10 tests were found in the date/time range, then the 10 most recent test entries will be returned.
TMP(LRA,$J)	Output	The surgical pathology data for all entries found will be returned in the temporary global ^TMP("LRA",$J). The data layout for that global is: S ^TMP("LRA",$J,sub1,0)=DATE/TIME SPECIMEN TAKEN^SURGICAL PATH ACC# S ^TMP("LRA",$J,sub1,.1)="Site/Specimen" literal^REPORT RELEASE DATE/TIME S ^TMP("LRA",$J,sub1,.1,sub2)=Site/Specimen text S ^TMP("LRA",$J,sub1,.2)="Brief Clinical HX" literal S ^TMP("LRA",$J,sub1,.2,sub2)=Brief Clinical History text S ^TMP("LRA",$J,sub1,1)="Gross Description" literal S ^TMP("LRA",$J,sub1,1,sub2)=Gross Description text S ^TMP("LRA",$J,sub1,1.1)="Microscopic Exam" literal S ^TMP("LRA",$J,sub1,1.1,sub2)=Microscopic Exam text S ^TMP("LRA",$J,sub1,1.2)="Supplementary Report" literal S ^TMP("LRA",$J,sub1,1.2,sub2)=Supplementary Report text S ^TMP("LRA",$J,sub1,1.2,sub2,sub3)=Supplementary Report text S ^TMP("LRA",$J,sub1,1.3)="Frozen Section" literal S ^TMP("LRA",$J,sub1,1.3,sub2)=Frozen Section text S ^TMP("LRA",$J,sub1,1.4)="Surgical Path Dx" literal S ^TMP("LRA",$J,sub1,1.4,sub2)=Surgical Pathology Diagnosis text

SUBSCRIBING PACKAGE

SUBSCRIBING PACKAGE	ISC
WOMEN'S HEALTH	Hines
MYHEALTHEVET
ORDER ENTRY/RESULTS REPORTING