Routine: LRBLJ

Information

LRBLJ ; IHS/DIR/FJE - BLOOD BANK INVENTORY OPTS 5/30/86 3:40 PM ;

Source file <LRBLJ.m>

Package	Total	Call Graph
Lab Service	1	^LRUTL

Name	Field # of Occurrence
^LRUTL	LRBLJ+4

Name	Line Occurrences
Function Call: READ	Prompt: "Select Blood Inventory Option: " Formatting: !! Timeout: DTIME Variable: X Line Location: OPTS+0
Function Call: WRITE	Prompt: !!,"Select from:" Line Location: OPTS+2
Function Call: WRITE	Prompt: " ",$E($P(Y,U,1),7,$L($P(Y,U,1))),! Line Location: DO+0
Function Call: WRITE	Prompt: !,?15,$P($P($T(OPT+A),";",3),U,1) Line Location: LST+0

Name	Field # of Occurrence
$T(OPT+A	OPTS+1, LST