Routine: LRSMAC

Information

LRSMAC ;SLC/RWF - CHEM. LAB SMAC REPORT ;2/19/91 13:08 ;

Source file <LRSMAC.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $E("LH",LRZZ>H(K)+1) Line Location: ZLH+0
Function Call: WRITE	Prompt: !!,"NO DATA" Line Location: PR+1
Function Call: WRITE	Prompt: @IOF Line Location: PR+2
Function Call: WRITE	Prompt: !,1700+$E(Z0,1,3) Condition for execution: DT-$E(Z0,1,7)>300 Line Location: PRL+5
Function Call: WRITE	Prompt: !,Y,?6,LRSPEC Line Location: PRL+5
Function Call: WRITE	Prompt: ?57,T,?64,$P(Z0,U,8),?71,$P(Z0,U,6) Line Location: PRL+7
Function Call: WRITE	Prompt: !,1700+$E(Z0,1,3) Condition for execution: DT-$E(Z0,1,7)>300 Line Location: PRL3+0
Function Call: WRITE	Prompt: !,Y,?6,LRSPEC Line Location: PRL3+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: $$INS^LRU," CHEMISTRY REPORT ",Y," ",SSN," ",PNM,?72,"AGE ",AGE Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"DATE S/U",?9,"CREAT UREA GLU NA K CL CO2 CA TIME METH LOG" Line Location: H2+0
Function Call: WRITE	Prompt: !?5,"S/U PO4 URIC CHOLEST T-PROT ALBUMIN T-BIL D-BIL AKL0 LDH SGOT SGPT GGPT" Line Location: H3+1
Function Call: READ	Formatting: !! Prompt: "PRESS '^' TO STOP " Variable: J Timeout: DTIME Line Location: WAIT+0
Function Call: WRITE	Prompt: !," last data " Line Location: LREND+0