Routine: LRBLQST

Information

LRBLQST ;AVAMC/REG - SINGLE UNIT STATUS ;8/1/95 08:46 ;

Source file <LRBLQST.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,"Current status of a unit in inventory file" Line Location: LRBLQST+6
Function Call: WRITE	Prompt: !,$P($G(^DIC(4,+$P(Y(0),U,16),0)),U) Condition for execution: $P($G(^LAB(69.9,1,8.1,+DUZ(2),0)),U,6) Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Expiration date:" Line Location: ASK+2
Function Call: WRITE	Prompt: Y,?40,"ABO:",$P(Y(0),"^",7),?50,"Rh:",$P(Y(0),"^",8) Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Disposition date:",Y,?40,"Disposition:",$P($P(LRC,X_":",2),";") Line Location: ASK+3
Function Call: WRITE	Prompt: W Line Location: ASK+4
Function Call: WRITE	Prompt: ! Line Location: ASK+4
Function Call: WRITE	Prompt: "Positive screening tests:",$P($P(LRT,W(2)_":",2),";") Condition for execution: W(2)]"" Line Location: ASK+4
Function Call: WRITE	Prompt: ?40,"Donation type:",$P($P(LRD,W(3)_":",2),";") Condition for execution: W(3)]"" Line Location: ASK+4
Function Call: WRITE	Prompt: !!,"Current location:",$P(L,"^",4),!,"Date last located:",Y Line Location: ASK+6
Function Call: WRITE	Prompt: !,"Patient:",$P(W,"^")," ",SSN,!?8,"Date assigned:",Y Line Location: W+1
Function Call: WRITE	Prompt: !,"Restricted for: ",$P(Y,"^")," ",SSN Line Location: AU+0