Routine: LRBLJU

Information

LRBLJU ;AVAMC/REG - FIND UNITS NO DISPOSITION ;10/6/95 10:10 ;

Source file <LRBLJU.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,$S($D(A)#2:A,1:""),!! Line Location: LRBLJU+4
Function Call: READ	Formatting: ! Prompt: "Select: (A)ll blood components or (S)pecific component: " Variable: S Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter A to list all components or S for a specific component",! Line Location: ASK+0
Function Call: READ	Formatting: ! Prompt: "Select: (A)ll units or (S)pecific ABO/Rh: " Variable: X Timeout: DTIME Line Location: T+0
Function Call: WRITE	Prompt: !!,"Select A for all units or S for specific T & Rh",! Line Location: T+0
Function Call: READ	Formatting: ! Prompt: "ABO GROUP: " Variable: X Timeout: DTIME Line Location: AB+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter A, O, B, or AB",! Line Location: AB+0
Function Call: READ	Formatting: ! Prompt: "Rh TYPE: " Variable: X Timeout: DTIME Line Location: R+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter P or N",! Line Location: R+0