Routine: LRULB1

Information

LRULB1 ;AVAMC/REG - LAB LOG-BOOK CONT. ;3/3/94 14:28 ;

Source file <LRULB1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ?7,$E(LRP,1,15),?24,$E(O(1),1,14),?48,H(2),?65,H(1) Line Location: PRT+4
Function Call: WRITE	Prompt: !?8,SSN,?27,LRLLOC Condition for execution: A<1 Line Location: W+1
Function Call: WRITE	Prompt: !,LRC(5) Condition for execution: $L(LRC(5)) Line Location: W+1
Function Call: WRITE	Prompt: !!,LR("%") Line Location: W+1
Function Call: WRITE	Prompt: !?7,SSN,?27,LRLLOC Condition for execution: A=0 Line Location: LIST+0
Function Call: WRITE	Prompt: ! Condition for execution: A>0 Line Location: LIST+0
Function Call: WRITE	Prompt: ?50,$E(X,1,30) Line Location: LIST+0
Function Call: WRITE	Prompt: ! Condition for execution: Q>0 Line Location: LST+0
Function Call: WRITE	Prompt: ?46,$S($D(^LAB(61,O(1),0)):$E($P(^LAB(61,O(1),0),"^"),1,14),1:"") Line Location: LST+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE",?22,LRAA(1)," Log-Book for ",LRH(0) Line Location: H+1
Function Call: WRITE	Prompt: !,"#= Not PATIENT file",?48,"\|-------Date/time----\|",!,"Acc no",?14,"Name",?24,"Spec/Sample",?39,"Results",?48,"Received",?65,"Taken",!?14,"SSN",?24,"Location",?58,"Tests" Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3