Routine: LRVER5

Information

LRVER5 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;05/12/16 09:47

Source file <LRVER5.m>

Name	Comments	DBIA/ICR reference
V40
V42	;
Q42	;
Q42A	;
Q43
V43	;
V44
V45	;
V46	;
RANGE	;
LRSUBS	; From LRVR5
LRSET	; from above and LRVR5 ; Also called from Input Transform of file #60.01 field #9
COMP	; from LRVR5
TRAP	; Error trap for COMP subroutine above
CH
V25	; From LRVER4, LRSTUF2	ICR #5492 Status: Withdrawn Usage: Private
NORM	;
NORM2	;
LROUT	;
HELP	; Display help prompt from test result entry.
EDITUNR	; Allow user to edit units and normal reference ranges.
AMEND	; Process amended results and prompt user
ASKPLNR	; Ask user for performing lab normal ranges and units when entering ; manually and not using values from file #60.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Current Ref Range: ",LRNG2,"-",LRNG3," Units: ",$P(LRNG,"^",7) Line Location: Q42+14
Function Call: WRITE	Prompt: !," Critical Low: ",LRNG4," Critical High: ",LRNG5 Line Location: Q42+16
Function Call: WRITE	Prompt: $C(7)," No Control Characters allowed." Line Location: Q42A+3
Function Call: WRITE	Prompt: !,"Not in this group" Line Location: V43+5
Function Call: WRITE	Prompt: !,"Not in this group" Line Location: V43+6
Function Call: WRITE	Prompt: !,"Something's wrong with the syntax." Line Location: COMP+8
Function Call: WRITE	Prompt: !," equals ",@C Line Location: COMP+10
Function Call: WRITE	Prompt: !!,"Error in your mathematical formula ",! Line Location: TRAP+1
Function Call: WRITE	Prompt: !,"Enter for example: 52/4+1 and 3.5 will be returned [i.e. ((52)/4)+1=3.5]" Line Location: CH+0
Function Call: WRITE	Prompt: !," ??",$C(7) Line Location: HELP+5
Function Call: WRITE	Prompt: !,"Enter * to report ""canc"" for canceled." Line Location: HELP+7
Function Call: WRITE	Prompt: !,"Enter # to report ""comment""." Line Location: HELP+8
Function Call: WRITE	Prompt: !,"Enter ~ to edit units/reference ranges." Line Location: HELP+11
Function Call: WRITE	Prompt: ! Line Location: EDITUNR+15
Function Call: WRITE	Prompt: !!,"The related amended result has been purged" Line Location: AMEND+20
Function Call: WRITE	Prompt: !,"Unable to process this result." Line Location: AMEND+21
Function Call: WRITE	Prompt: !!,"For test ",LRTEST Line Location: ASKPLNR+9

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
63.04	CHK^DIE