Routine: LACRIT

Information

LACRIT ;SLC/RWF - PRINT OUT CRITICAL VALUES AT DATA GATHER TIME ;7/20/90 07:56 ;

Source file <LACRIT.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"*********************************************************" Line Location: TELL+1
Function Call: WRITE	Prompt: !,$C(7)," CRITICAL VALUE ",V," ON TEST ",$P(X,U,1)," FOR ID: ",ID," (",ID,")" Line Location: TELL+2
Function Call: WRITE	Prompt: !,$C(7),"*********************************************************" Line Location: TELL+3
Function Call: WRITE	Prompt: !!!," AVERAGE PATIENT VALUES" Line Location: MEAN+1
Function Call: WRITE	Prompt: !!!," AVERAGE ",$S($D(^LAB(62.3,+$P(J,"Q",2),0)):^(0),1:"UNKNOWN")," VALUES" Line Location: MEAN+2
Function Call: WRITE	Prompt: !,"TEST",?20,"# VALUES",?30,"AVERAGE" Line Location: WR+0
Function Call: WRITE	Prompt: !,$P(^TMP($J,I),U,1),?20 Line Location: WR+1
Function Call: WRITE	Prompt: Y,?30,$J(X/Y,7,2) Line Location: WR+1