Routine: LRBLPR

Information

LRBLPR ;AVAMC/REG - BLOOD BANK PT RECORD ;2/18/93 09:46 ;

Source file <LRBLPR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"PRINT CURRENT PATIENT BLOOD BANK RECORDS",!!,"The dates asked will be from the BLOOD BANK ACCESSION LIST:" Line Location: LRBLPR+3
Function Call: WRITE	Prompt: !!,"Print only patients with antibodies/special instructions " Line Location: LRBLPR+5
Function Call: READ	Variable: LR(8) Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter the maximum number of specimens to display",!,"in reverse chronological order for each patient: " Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!,"ENTER A WHOLE NUMBER FROM 0-99" Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!,"ENTER A WHOLE NUMBER FROM 0-99" Line Location: ASK+2
Function Call: WRITE	Prompt: @IOF Line Location: QUE+0
Function Call: WRITE	Prompt: !,LRP,?31,$P(LR(4),"^",2),?46,Y,?56,$J($P(LR(4),"^",3),2),?59,$P(LR(4),"^",4) Line Location: W+1
Function Call: WRITE	Prompt: !,"BLOOD BANK PATIENTS" Line Location: H+2
Function Call: WRITE	Prompt: " from ",LRSTR," to ",LRLST Line Location: H+2
Function Call: WRITE	Prompt: !?10,"Patient",?34,"SSN",?49,"DOB",?55,"ABO",?59,"Rh",!,LR("%") Line Location: H+3