Routine: LRBLDLG

Package	Total	Call Graph
VA Fileman	9	^%DT (,C,DW)^%DTC ^DIC MIX^DIC1 ^DIE ^DIK EN^DIQ ^DIWP ^DIWW
Lab Service	6	^LRBLD D^LRBLU (N,Z)^LRBLWD (EN,EN1)^LRBLY (CK,D,FRE,V,YN)^LRU ^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRBLDLG

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?30,"Log-in donor visits",! Line Location: LRBLDLG+4
Function Call: WRITE	Prompt: LRH(0) Line Location: LRBLDLG+5
Function Call: WRITE	Prompt: !!,"For a group of donors COLLECTION SITE & DONATION GROUP need be entered once.",!,"If not desired just press 'RETURN' key after the following two prompts.",!! Line Location: LRBLDLG+7
Function Call: WRITE	Prompt: !! Line Location: DNR+1
Function Call: WRITE	Prompt: @IOF Line Location: OK+3
Function Call: WRITE	Prompt: !,"EDIT above information: " Line Location: OK+6
Function Call: WRITE	Prompt: " Last visit: ",Y Line Location: OK+7
Function Call: WRITE	Prompt: !!,"LAST WHOLE BLOOD DONATION " Line Location: A+5
Function Call: WRITE	Prompt: Y Line Location: A+5
Function Call: WRITE	Prompt: $C(7),!!,"SORRY NOT 8 WEEKS SINCE LAST DONATION OF WHOLE BLOOD" Line Location: A+6
Function Call: WRITE	Prompt: !,"COME BACK ON OR AFTER ",Y Line Location: A+6
Routine Call	DIE Line Location: OK+5 OK+6 A+1 MORE+1 ADD
Routine Call	DIC Line Location: LRBLDLG+8 LRBLDLG+9

FileNo	Call Tags
^LRE - [#65.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	LRBLDLG+3
^LRE - [#65.5]	DNR+3, OK, OK+4, OK+5, OK+7, OK+8, A+1, A+2, A+5, RES
^LRE("AD"	OK+8*
^LRO(69.2 - [#69.2]	LRBLDLG+6, A+9*

Name	Line Occurrences
@(	A+7
A	A+1, A+2
ADD	DNR+2
DNR	DNR+2, DNR+4, OK, OK+1, OK+2, OK+4, OK+6, A+1, A+2, A+3 , A+6, A+9, MORE, MORE+1
END	LRBLDLG+3, LRBLDLG+4, LRBLDLG+6, LRBLDLG+8, LRBLDLG+9, DNR+1
MORE	A+8
OK	DNR+2, OK+6
RES	A+6

Name	Field # of Occurrence
^(	DNR+3, OK+7, OK+8*, A+5
^(0	LRBLDLG+6, OK, OK+4, OK+8, A+5, RES*

Name	Field # of Occurrence
>> %	DNR+4, OK+1, OK+2, OK+4, OK+6, A+1, A+2, A+8, MORE*
%DT	LRBLDLG+5*!
%DT("A"	LRBLDLG+5*
%DT(0	LRBLDLG+5*
>> A	DNR+3*
>> B	DNR+3*, DNR+4
>> D	DNR+1*
DA	DNR!, DNR+2, DNR+3, OK+3, OK+5, OK+9, A+1, A+2, MORE+1!*
DA(1	OK+9*
DIC	LRBLDLG+8!, LRBLDLG+9!, DNR!, DNR+1!, OK+3, MORE+1!*
DIC("A"	LRBLDLG+8, LRBLDLG+9
DIC("S"	LRBLDLG+8, LRBLDLG+9
DIC(0	LRBLDLG+8, LRBLDLG+9, DNR+1*
DIE	DNR!, DNR+1, OK+3, OK+5, OK+9, MORE+1!*
DIK	A+1!, A+2!
>> DIWF	DNR+3*
>> DIWL	DNR+3*
>> DIWR	DNR+3*
DLAYGO	DNR+1*!
DQ	MORE+1!
DR	DNR!, OK+3, OK+5, OK+6!, A, MORE+1!, ADD
DT	LRBLDLG+5, OK
DUZ("AG"	DNR+1
IOF	LRBLDLG+4, OK+3
IOM	DNR+3
>> LR	LRBLDLG+8*, OK+8
>> LR(	OK+9, A+2, A+3, A+4, A+5, A+7
>> LR("CK"	DNR!, OK+6
>> LR("LRBLDLG"	LRBLDLG+3*
>> LR("SSN"	LRBLDLG+3*, OK+5
>> LR(1	LRBLDLG+9*, OK+8
>> LRA	OK+9*
>> LRAA	LRBLDLG+6, A+9
>> LRAD	LRBLDLG+6*, OK+8, A+6
>> LRB	OK*
LRC	DNR!, A+5*, A+6
>> LRCAPA	LRBLDLG+4, A+3, A+6, A+7
>> LRD	OK*
>> LRH(0	LRBLDLG+5
>> LRH(2	ADD
>> LRI	LRBLDLG+6*, OK+8, OK+9, A+1, A+2, A+4, A+5, RES
>> LRP	DNR+2*, A+9
>> LRP(0	DNR+2*
>> LRQ	DNR+2*, OK, OK+3, OK+4, OK+5, OK+7, OK+8, OK+9, A+1, A+2 , A+5, A+9, MORE+1, RES
>> LRS(2	OK*
>> LRX	LRBLDLG+4
U	LRBLDLG+3, LRBLDLG+8, LRBLDLG+9, DNR+2, OK+4, OK+5, A+1, A+2
>> X	LRBLDLG+3, LRBLDLG+5, LRBLDLG+6, LRBLDLG+8, LRBLDLG+9, DNR+3, OK, OK+1, OK+2, OK+7* , OK+8, A+4, A+5, A+6, RES*
>> X1	OK, A+4, A+6*
>> X2	OK, A+4, A+6*
>> Y	LRBLDLG+3, LRBLDLG+5, LRBLDLG+6, LRBLDLG+8, LRBLDLG+9, DNR+1, DNR+2, OK+7, A+1, A+5* , A+6*
>> Z	A+5*, A+6
>> Z(1	A+4*, A+5