Routine: LRSOR

Information

LRSOR ;SLC/RWF/CJS - SOME SPECIAL OUTPUT ROUTINES ;2/6/91 15:19 ;

Source file <LRSOR.m>

Name	Comments	DBIA/ICR reference
LRC	;NON SMAC CHEMISTRIES
LRCC
LROK
LPA	;
LPT
LPT1
LPB
LPC
WAIT
HEAD
LRR	;RADIO IMMUNO ASSAY / NUCLEAR ENDOCRINOLOGY
LRP	;SURGICAL PATHOLOGY
MIC	;MICROBIOLOGY
HIS	;HISTOLOGY & CYTOLOGY
SER	;SEROLOGY
LUR	;URINALYSIS
HEM	;HEMATOLOGY
DIFF	;DIFFERENTIAL
LRA	;LISTS ALL LAB RESULTS
DONE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA",! Line Location: LRC+1
Function Call: WRITE	Prompt: !! Line Location: LRCC+1
Function Call: READ	Formatting: ! Prompt: "Starting Date: N//" Variable: X Timeout: DTIME Line Location: LPT+0
Function Call: WRITE	Prompt: !,"First data of any kind on ",$E(X,4,5),"/",$E(X,6,7),"/",$E(X,2,3) Line Location: LPT+2
Function Call: READ	Formatting: ! Prompt: "Number of days to check for data: 20//" Variable: X Timeout: DTIME Line Location: LPT1+0
Function Call: WRITE	Prompt: !,"Type a number between 1 and 99999." Line Location: LPT1+0
Function Call: WRITE	Prompt: ! Line Location: LPB+0
Function Call: WRITE	Prompt: !,"DATE&TIME: ",Y Line Location: LPC+2
Function Call: WRITE	Prompt: ?35,"METHOD/SITE: ",$P(Z,U,8) Condition for execution: $L($P(Z,U,8)) Line Location: LPC+2
Function Call: WRITE	Prompt: ?55,"ACC: ",$P(Z,U,6) Line Location: LPC+2
Function Call: WRITE	Prompt: !,"SPECIMEN: ",$S($D(^LAB(61,+X,0)):$P(^(0),U,1),1:"??"),!?2 Line Location: LPC+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: !,PNM," ",SSN," PRESS '^' TO STOP " Line Location: WAIT+0
Function Call: WRITE	Prompt: !! Line Location: WAIT+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST)="P" Line Location: WAIT+1
Function Call: WRITE	Prompt: !!,"WORK COPY ONLY - DO NOT FILE",!,PNM,?30,SSN,?50,LRDT0,! Line Location: HEAD+0