Routine: GMRALAB0

Information

GMRALAB0 ;HIRMFO/WAA-THIS PROGRAM WILL SELECT ALL LAB TEST FOR A PATIENT ;1/9/96 09:47

Name	Comments	DBIA/ICR reference
EN1	;THIS PROGRAM IS TO FIND AND PRINT ALL LAB TEST FOR A PATIENT
SELECT
DISP	;DISPLAY ALL THE LABTEST FOR THIS PATIENT
DISP2
LST	;This entry point is to display patient lab test adverse reaction.
DT	;SELECT LOOKUP DATE RANGE
DTEX
EXIT	;EXIT THE PROGRAM

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: SELECT+0
Function Call: WRITE	Prompt: ! Line Location: SELECT+9
Function Call: WRITE	Prompt: ! Line Location: SELECT+10
Function Call: WRITE	Prompt: @IOF,!,"LAB TEST:",!,?3,"Collection DT",?19,"Test Name",?39,"Specimen",?52,"Results",?68,"Hi/Low",!! Line Location: DISP2+0
Function Call: WRITE	Prompt: ?50,$P(^TMP($J,"GMRALAB","L",GMRACH),U,5) Line Location: DISP2+12
Function Call: WRITE	Prompt: $P(^TMP($J,"GMRALAB","L",GMRACH),U,8),"/",$P(^TMP($J,"GMRALAB","L",GMRACH),U,7) Line Location: DISP2+14
Function Call: WRITE	Prompt: !,"THIS PATIENT HAS NO LAB TEST ON FILE FOR THIS ADVERSE REACTION REPORT" Line Location: LST+1
Function Call: WRITE	Prompt: @IOF,!,"This patient has the following Test selected: " Line Location: LST+2
Function Call: WRITE	Prompt: !,"TEST/TX",?33,"RESULTS",?64,"DRAW DATE/TIME" Line Location: LST+3
Function Call: WRITE	Prompt: ! Line Location: DT+3