Routine: LRNUM

Information

LRNUM ;VA/SLC/BA - NUMERIC INPUT TRANSFORM ;2/6/91 08:55

Source file <LRNUM.m>

Package	Total	Call Graph
VA Fileman	1	EN^DDIOL

Package	Total	Caller Graph
Lab Service	26	ANTIBIOTIC BACT RPT REMARK BACTERIOLOGY SMEAR/PREP CHEM, HEM, TOX, RIA, SER, etc. COMMENT FUNGUS/YEAST GRAM STAIN LRTSTOUT MICROBIOLOGY MYCOBACTERIUM MYCOLOGY RPT REMARK MYCOLOGY SMEAR/PREP ORGAN/TISSUE ORGANISM PARASITE RPT REMARK PARASITOLOGY SMEAR/PREP PRELIMINARY BACT COMMENT PRELIMINARY MYCOLOGY COMMENT PRELIMINARY PARASITE COMMENT PRELIMINARY TB COMMENT PRELIMINARY VIROLOGY COMMENT STAGE TB RPT REMARK VIROLOGY RPT REMARK mul ^LR

Name	Field # of Occurrence
EN^DDIOL	COMCHK+2, COMCHK1+3

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Enter 'N' for NEGATIVE or 'P' for POSITIVE" Line Location: PN+1
Function Call: WRITE	Prompt: " (",$S(X="P":"POSITIVE",1:"NEGATIVE"),")" Line Location: PN+2
Function Call: WRITE	Prompt: $C(7),!,"Enter 'DP' for DIRECT POSITIVE, 'DN' for DIRECT NEGATIVE,",!,"'CP' for CONCENTRATE POSITIVE, or 'CN' for CONCENTRATE NEGATIVE" Line Location: AFS+1
Function Call: WRITE	Prompt: " (",$S(X="DP":"DIRECT POSITIVE",X="DN":"DIRECT NEGATIVE",X="CP":"CONCENTRATE POSITIVE",1:"CONCENTRATE NEGATIVE"),")" Line Location: AFS+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.5 - [#62.5]	SWITCH+1

Name	Field # of Occurrence
^(0	SWITCH+1
^(9	SWITCH+1

Name	Field # of Occurrence
>> I	COMCHK1*, SWITCH+1
LRDEC	BEGIN+1*, END!, CHECK+2
LRHIGH	BEGIN+1*, END!, CHECK+3
LRJ	COMCHK1+1~, COMCHK1+3*
LRL	COMCHK+1~, COMCHK1*
LRLOW	BEGIN+1*, END!, CHECK+3
LRMAX	COM+1*, COM+2!, COMCHK, COMCHK+4!, COMCHK1, COMCHK1+2
LRMIN	COM+1*, COM+2!, COMCHK, COMCHK+4!
>> LRNOECHO	COMCHK+2
>> LRNOEXPD	SWITCH
LRS	COMCHK+1~, COMCHK+2, COMCHK+3, COMCHK1, COMCHK1+4*
LRSCN	COM+1*, COM+2!, COMCHK+4!, SWITCH+1
LRX	COMCHK+2~, COMCHK1+1~, COMCHK1+2, COMCHK1+3
LRY	COMCHK+1~, SWITCH+1*
LRZ	COMCHK+1~, COMCHK1, COMCHK1+3, SWITCH+1
Q1	BEGIN+1*, END!, CHECK, COM+2!
Q2	BEGIN+1*, END!, CHECK+1, CHECK+2, COM+2!
Q8	BEGIN+1*, END!, CHECK+4, COM+2!
Q9	BEGIN+1, END!, COM+1, COM+2!
U	SWITCH+1
X	BEGIN, BEGIN+1, CHECK!, CHECK+1!, CHECK+2!, CHECK+3!, CHECK+4, COMCHK!, COMCHK+2, COMCHK+3* , COMCHK1!, SWITCH+1, PN+1!, PN+2, AFS+1!, AFS+2
>> Y	COMCHK1*

Name	Comments	DBIA/ICR reference
COMCHK1
BEGIN
END
PN	;checks for positive or negative entry from LRMISTF1
SWITCH
COMCHK
COM	;expands lab description from LRMISTF1, dd
CHECK
AFS	;checks for acid fast stain entry from LRMISTF1