Routine: WVLABWP

Information

WVLABWP ;HCIOFO/FT-Display Report Data from Lab Package ;4/6/99 14:02

Source file <WVLABWP.m>

Name	Comments	DBIA/ICR reference
EN7901	; Determine which report to show (i.e., Cytology or Surgical Pathology) ; Called from WVPROC
HS	; Health Summary variable setup
CY	; Call Health Summary extract routine GMTSLRPE to get cytology data. ; Input: LRDFN - FILE 63 ien ; GMTS1 - reverse start date/time (most recent date) ; GMTS2 - reverse end date/time (least recent date) ; MAX - maximum # of occurences to return ; Returns ^TMP("LRCY",$J)
WEEDCY	; Weed out reports, save only report for lab accession number ; associated with this WH entry.
SP	; Call Health Summary extract routine GMTSLRAE to get surgical ; pathology data. ; Input: LRDFN - FILE 63 ien ; GMTS1 - reverse start date/time (most recent date) ; GMTS2 - reverse end date/time (least recent date) ; MAX - maximum # of occurences to return ; Returns ^TMP("LRA",$J)
WEEDSP	; Weed out reports, save only report for lab accession number ; associated with this WH entry.
MAIL(DFN,WVLABAN,WVPROV,LRSS)	; Send mail message to case manager when ; lab test is added to WV LAB TESTS file (#790.08). ; Called from WVLRLINK ; DFN -> Patient ien ; WVLABAN -> Lab Accession# (e.g., CY 99 1) ; WVPROV -> File 200 IEN (provider/requestor) ; LRSS -> File 63 subscript (e.g., CY or SP)
MOVE(WVDFN,WVNODE,WVNIEN)	; Send mail message when a lab accession is ; moved from one patient to another. ; WVDFN -> DFN ; WVNODE -> zero node of File 790.1 ; WVNIEN -> ien of File 790.4 entry (i.e., notification entry exists)