Routine: LRBLPX1

Information

LRBLPX1 ;AVAMC/REG - XMATCH RESULTS (COND'T) ; 08/17/01 3:30 PM ;

Source file <LRBLPX1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J(LRV,2),")",?6,$P(X,"^"),?20,$E($P(LRE,"^"),1,23),?45,$J(A,2),?48,H,?52 Line Location: EN+4
Function Call: WRITE	Prompt: Y,?68,$E(L,1,12) Line Location: EN+4
Function Call: WRITE	Prompt: $C(7),!,"ABO not rechecked" Line Location: EN+5
Function Call: WRITE	Prompt: $C(7),!,"ABO recheck (group ",X,") does not match ABO group of unit. Resolve discrepancy." Line Location: EN+6
Function Call: WRITE	Prompt: $C(7),!,"Rh NEG unit not rechecked" Line Location: EN+7
Function Call: WRITE	Prompt: $C(7),!,"Rh recheck (type ",X,") does not match Rh type of unit. Resolve discrepancy." Line Location: EN+8
Function Call: WRITE	Prompt: $C(7),!?4,"No patient ABO &/or Rh results" Line Location: EN+49
Function Call: WRITE	Prompt: !?4,"No antibody screen results" Line Location: EN+50
Function Call: WRITE	Prompt: ?31,"(spec date:",Y," acc#:",$P($P(LRJ,"^",5)," ",3),")" Line Location: EN+51
Function Call: WRITE	Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN" Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field" Line Location: C+1
Function Call: WRITE	Prompt: $C(7),!,"Must have test in LAB TEST file (#60) called 'WKLD CROSSMATCH' with WKLD CODES." Line Location: CK+2