Routine: WVLRLINK

Information

WVLRLINK ;HIOFO/FT-LAB-WOMEN'S HEALTH LINK ;9/29/04 14:34

Name	Comments	DBIA/ICR reference
CREATE(DFN,LRDFN,LRI,LRA,LRSS)	; ; Add lab test to WH file (#790.08). ; Called by REPORT RELEASE DATE/TIME field in: ; a) File 63, Field 63.08,.11 ; b) File 63, Field 63.09,.11 ; Input: DFN = PATIENT DFN ; LRDFN = FILE 63 IEN (+^DPT(DFN,"LR")) ; LRI = INVERSE DATE/TIME OF TEST ; LRA = ZERO NODE OF THE CY or SP ENTRY ; LRSS = File 63 subscript (e.g., CY or SP)
CREATEQ	; Called from CREATE above ; WVLOC = WARD/CLINIC/LOCATION (FILE #44) ; WVDATE = DATE OF THE PROCEDURE (FM date/time) ; WVDR = DR STRING ; WVPROV = ORDERING PROVIDER (FILE #200) ; WVLABAN = LAB ACCESSION # (e.g., CY 99 1)
EXIT	;EP
DELETE(DFN,LRDFN,LRI,LRA,LRSS)	; ; Modify WH to reflect change in lab report status (no longer released). ; Called by REPORT RELEASE DATE/TIME field xref in: ; a) File 63, Field 63.08,.11 ; b) File 63, Field 63.09,.11
DELETEQ	; Called from DELETE above.
HL(WVLOC)	; Get Hospital Location file (#44) pointer
PN(X)	; Get procedure name
MOVE(DFN,LRDFN,LRI,LRA,LRSS)	; Called from Lab package when a lab accession is ; moved from one patient to another because the test was originally ; associated to the wrong patient.
MOVEQ	; Called from MOVE above
RDC(WVRD)	; Return ien of Result/Diagnosis code ; input text of result/diagnois
VNVEC()	; Veteran/Non-Veteran/Eligibility Code check ; DFN must be defined ; Returns 1 - veteran ; include all non-vets flag set to YES ; non-vet patient's eligibility code is on list to track