Routine: LRBLJPH

Information

LRBLJPH ;AVAMC/REG - UNIT PHENOTYPE BY ABO/RH ;2/18/93 09:26 ;

Source file <LRBLJPH.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Phenotyped units" Line Location: LRBLJPH+3
Function Call: READ	Formatting: ! Prompt: "Select ABO group: " Variable: C(7) Timeout: DTIME Line Location: ABO+0
Function Call: WRITE	Prompt: $C(7),!,"Enter A, B, AB or O" Line Location: ABO+0
Function Call: READ	Formatting: ! Prompt: "Select Rh type: " Variable: X Timeout: DTIME Line Location: RH+0
Function Call: WRITE	Prompt: $C(7)," Enter 'NEG' or 'POS'" Line Location: RH+0
Function Call: WRITE	Prompt: $E(C(8),$L(X)+1,3) Line Location: RH+1
Function Call: WRITE	Prompt: !!,$P(^LAB(66,C,0),U),":" Condition for execution: LRE=1 Line Location: I+5
Function Call: WRITE	Prompt: !,$J(Z,3),")" Line Location: I+5
Function Call: WRITE	Prompt: ?5,$P(F,"^"),?20 Line Location: I+5
Function Call: WRITE	Prompt: ?5,$P(F,"^"),?20 Line Location: I+5
Function Call: WRITE	Prompt: !,"Assigned:",$P(X,"^") Line Location: I+6
Function Call: WRITE	Prompt: !,LR("%") Line Location: I+10
Function Call: WRITE	Prompt: !,"LABORATORY SERVICE",?40,C(7)," ",C(8)," Phenotyped units" Line Location: H+1
Function Call: WRITE	Prompt: !,"Count",?6,"Unit ID",?20,"Exp date",?40,"Antigen(s) present",?60,"\| Antigen(s) absent",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !!,$P(^LAB(66,C,0),U) Line Location: H1+0