Routine: LRBLJX

Information

LRBLJX ;AVAMC/REG - UNITS ON XMATCH ;2/18/93 09:36 ;

Source file <LRBLJX.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"Units on crossmatch by date/time crossmatched",!! Line Location: LRBLJX+3
Function Call: WRITE	Prompt: !,T(1),?12 Line Location: P+0
Function Call: WRITE	Prompt: T,?24,$P(B,"""",2),?38,$J($P(W,"^",4),2),$P(W,"^",5),?42,$P(W,"^"),?47 Line Location: P+0
Function Call: WRITE	Prompt: T,?24,$P(B,"""",2),?38,$J($P(W,"^",4),2),$P(W,"^",5),?42,$P(W,"^"),?47 Line Location: P+0
Function Call: WRITE	Prompt: ?66 Line Location: P+1
Function Call: WRITE	Prompt: $P(Y,"^"),?94,SSN Condition for execution: IOM>80 Line Location: P+1
Function Call: WRITE	Prompt: $E($P(Y,"^"),1,10),SSN(1) Condition for execution: IOM<81 Line Location: P+1
Function Call: WRITE	Prompt: !,"Blood Bank " Line Location: H+1
Function Call: WRITE	Prompt: !,"XMATCHED",?13,"SPECIMEN",?46,"EXPIRES",!,"Mo/Da TIME",?12,"Mo/Da TIME",?24,"Unit ID",?37,"Type",?42,"Loc",?47,"Mo/Da TIME",?60,"Prod",?66,"Patient/SSN",!,LR("%") Line Location: H+2