Routine: LRBLPTR

Information

LRBLPTR ;AVAMC/REG - TRANSFUSION DATA REPORT ;2/18/93 09:47 ;

Source file <LRBLPTR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !?30,"Transfusion data report" Line Location: LRBLPTR+3
Function Call: WRITE	Prompt: !!,"Also print transfusions with hematology results " Line Location: LRBLPTR+5
Function Call: WRITE	Prompt: !?2,$P(X,"^",2),?8,"=",$P(X,"^") Line Location: QUE+4
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: W+0
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN Line Location: W+0
Function Call: WRITE	Prompt: !,$P(W,"^"),?14,C(1),?19,$P(W,"^",8),?24,$P(W,"^",9),?29,$P(W,"^",2),?44,$P(W,"^",4),?47,$P(W,"^",5),?53,$P(W,"^",6),?62,$P(W,"^",3),?77,$P(W,"^",7) Line Location: P+0
Function Call: WRITE	Prompt: D:$Y>(IOSL-6) Line Location: P+2
Function Call: WRITE	Prompt: !?2,W(1) Line Location: P+2
Function Call: WRITE	Prompt: !,Y,?21,LRR Line Location: B+0
Function Call: WRITE	Prompt: !,B(1) Line Location: A+0
Function Call: WRITE	Prompt: !,"TRANSFUSION DATA REPORT FROM ",LRSTR," TO ",LRLST Line Location: H+1
Function Call: WRITE	Prompt: !,"Unit ID",?14,"Comp",?20,"(#)",?24,"(ml)",?29,"Relocated",?44,"CK",?47,"By",?53,"Location",?62,"Transfused",?77,"RXN" Line Location: H+2
Function Call: WRITE	Prompt: !,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: !!,"Patient: ",LRP,?41,"SSN: ",SSN Line Location: H1+0
Function Call: WRITE	Prompt: !,LRK,?21,LRR Line Location: H2+0
Function Call: WRITE	Prompt: !,"TRANSFUSION REACTIONS WITHOUT UNIT IDENTIFIED" Line Location: L+0