Routine: LRSMAC

Information

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

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC $$FMTE^XLFDT
Lab Service	2	$$INS^LRU PT^LRX

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
Routine Call	%ZIS Line Location: PR+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ZD"	HEAD+1
^LAB(60 - [#60]	LH
^LR - [#63]	PR+1, PR+2, PRL, PRL+1, PRL+2, PRL+3, PRL2+1, PRL3+1, PRL3+3

Name	Field # of Occurrence
^(	PRL+2, PRL+3, PRL3+1, PRL3+3
^(0	LH, PR+2

Name	Field # of Occurrence
>> %DT	PR, PALL
%ZIS	PR+2!
>> AGE	HEAD+1
>> DFN	PR+2*
DT	PRL+5, PRL3
DTIME	WAIT
H	K!
H(	LH*, ZLH
>> I	LH, PRL+6, PRL3+1, PRL3+2
IO	PR+2, WAIT
IOF	PR+2, HEAD
IOSL	PRL
>> J	PALL+1, WAIT
>> K	ZLH
L	PRL+3, PRL+4, PRL3+1, PRL3+2, K!
L(	LH*, ZLH
LRDFN	PR, PR+1!, PR+2, PRL, PRL+1, PRL+2, PRL+3, PRL2+1, PRL3+1, PRL3+3
>> LRDPF	PR+2*
>> LRDX	H3*
LRDY	H3*, K!
LREM	PRL+2!, PRL3+3!, PRL4*
LREM(	PRL+2, PRL3+3, PRL4
LREM(0	PRL4+1
>> LREND	PALL+1, PRL, WAIT
LRIDT	PR!, PALL!, PRL*, PRL+1, PRL+2, PRL+3, PRL+8, PRL3+3, LREND, K!
>> LRLDT	HEAD*
>> LRNL	PR, PALL
LRPQ	PALL+2*, K!
LRRN	PR1, PR2, PRL, PRL+8, K!
>> LRSERUM	LH, DAT+1
>> LRSPEC	PRL+5, PRL3, DAT+1*
LRSV	PR!, PALL!, PRL2, PRL2+1*, PRL2+2!, PRL3+1
LRSV(	PRL+8*, PRL2+1, PRL3+1
LRSV(0	PRL2
>> LRURINE	DAT+1
LRXW	PALL+3*, PRL+6, PRL3+2, K!
>> LRZZ	ZLH, PRL+6, PRL3+2
>> PNM	HEAD+1
>> POP	PR+2
>> SSN	HEAD+1
>> T	PRL+7, DAT, DAT+1
U	LH, PR+2, PALL+1*, PRL+1, PRL+3, PRL+7, DAT+1
>> X	HEAD+1, DAT
>> Y	PRL+5, PRL3, HEAD+1, DAT*
Z	LH, PRL+3, K!
Z(	PRL+3, PRL+6, PRL3+1, PRL3+2
>> Z0	PRL+1, PRL+5, PRL+7, PRL2+1, PRL3, DAT, DAT+1