Routine: LRUPQ1

Information

LRUPQ1 ;AVAMC/REG - LAB RESULTS BY ACCESSION AREA (COND'T) ;3/8/94 09:03 ;

Source file <LRUPQ1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(N,7),?11,"Entry not in lab results file" Line Location: LRUPQ1+4
Function Call: WRITE	Prompt: !,$J(N,5) Line Location: LRUPQ1+6
Function Call: WRITE	Prompt: $E(LRP,1,20),?28,SSN(1),?34,$E(A(7),1,5) Line Location: LRUPQ1+8
Function Call: WRITE	Prompt: ?40,"Not in lab results file" Line Location: LRUPQ1+9
Function Call: WRITE	Prompt: ?41,$S(C(2)>0&(P(0)="STERILIZER"!(P(0)="ENVIRONMENTAL")):$E($P(^LAB(62,C(2),0),"^"),1,14),$D(^LAB(61,C(3),0)):$E($P(^(0),"^"),1,13),1:""),?56,M,?68,M(1) Line Location: LRUPQ1+10
Function Call: WRITE	Prompt: !,$E($P(^DD(63.04,Z,0),"^"),1,20),?21,$J($P(LR(5),"^"),7) Line Location: W+1
Function Call: WRITE	Prompt: !,$E($P(^DD(63.04,Z,0),"^"),1,20),?21,$J($P(LR(5),"^"),7) Line Location: W+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>(IOM-7) Line Location: L+0
Function Call: WRITE	Prompt: " ",$P(^LAB(60,Z,.1),"^") Line Location: L+0
Function Call: WRITE	Prompt: !,LR(4),!,LRP," ",SSN," (continued from pg ",LRQ-1,")" Line Location: H+0