Routine: LRBLDCR

Information

LRBLDCR ;AVAMC/REG - COMPONENT PREPARATION REPORT ;2/18/93 08:44 ;

Source file <LRBLDCR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"Blood donor component preparation report" Line Location: LRBLDCR+3
Function Call: WRITE	Prompt: !!,"DONATION DATE: ",Y Line Location: QUE+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: QUE+3
Function Call: WRITE	Prompt: !,$S(X]"":X,1:"?")," DONATION TYPE",?40,"COUNT:",$J(LRT(A),5) Line Location: QUE+3
Function Call: WRITE	Prompt: !,$S($D(^LAB(66,A,0)):$P(^(0),"^"),1:"??"),?40,"COUNT:",$J(LRC(A),5) Line Location: QUE+4
Function Call: WRITE	Prompt: LRT(M)=0 Line Location: W+0
Function Call: WRITE	Prompt: !?22,"Anti",?29,"Coll",?34,"Proc",?39,"Coll",?66,"Vol",?71,"Storage" Line Location: H+1
Function Call: WRITE	Prompt: !,"Unit ID",?13,"Type",?18,"Bag",?22,"Coag",?30,"Min",?35,"Min",?39,"Disp",?44,"Tech",?49,"Blood component",?66,"(ml)",?71,"Minutes",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !!,"DONATION DATE: ",LRD Line Location: H1+0
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE",!?9,"BLOOD COMPONENT PREPARATION FROM ",LRSTR," TO ",LRLST Line Location: H2+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: H3+0
Function Call: WRITE	Prompt: !,B,?15,M,?19,$P(E,"^",2),?22,$P(E,"^",3),?29,$J($P(E,"^",4),4),?34,$J($P(E,"^",5),4),?39,$P(E,"^",6),?44,$P(E,"^",7) Line Location: H4+0