Print Page as PDF
GMTSLRAE ROUTINE ICR (2771)

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
ID GMTSLRAE
COMPONENT/ENTRY POINT
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