Routine: LRBLJD

Package	Total	Call Graph
Lab Service	8	BAR^LRBLB ^LRBLBU (EN,EN1,PV)^LRBLJDA F^LRBLJDM RS^LRBLW (CK,D,DA,FRE,K,V,YN)^LRU ^LRUTL X^LRUWK
VA Fileman	3	^%DT ^DIC ^DIE

Package

Total

Call Graph

BAR^LRBLB ^LRBLBU (EN,EN1,PV)^LRBLJDA F^LRBLJDM RS^LRBLW (CK,D,DA,FRE,K,V,YN)^LRU ^LRUTL X^LRUWK

^%DT ^DIC ^DIE

Package	Total	Caller Graph
Lab Service	3	LRBLIDN LRBLJD1 LRBLJDM

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"Division: ",LRAA(4) Line Location: LRBLJD+4
Function Call: READ	Prompt: "Select UNIT ID FOR DISPOSITION: " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Nothing selected " Line Location: M+0
Function Call: WRITE	Prompt: $C(7),!!,"Unit has positive screening tests and component selected is not autologous.",! Line Location: M+3
Function Call: WRITE	Prompt: $C(7),!,"Answer all prompts (no NULL responses) DISPOSITION DELETED",!! Line Location: K+1
Function Call: READ	Prompt: "DISPOSITION: " Formatting: ! Timeout: DTIME Variable: LRE(1) Line Location: R+0
Function Call: WRITE	Prompt: $E(LRB(X),$L(LRE(1))+1,$L(LRB(X))) Line Location: R+1
Function Call: WRITE	Prompt: !!,"Select from:" Line Location: R+2
Function Call: WRITE	Prompt: !?3,LRB(X) Line Location: R+3
Function Call: WRITE	Prompt: ! Line Location: R+4
Function Call: WRITE	Prompt: " SALVAGE NOT ALLOWED." Line Location: C+1
Routine Call	DIE Line Location: REST+2 REST+5
Routine Call	DIC Line Location: REST M

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls
^LAB(66 - [#66]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	LRBLJD+3, K+2
^LAB(66 - [#66]	REST+1, REST+5, M+1
^LR - [#63]	REST+3
^LRD(65 - [#65]	REST+3, REST+4, M+5, K+2!, OUT
^TMP($J	ASK+1!

Name	Field # of Occurrence
>> %	M+6, C
%DT	ASK*!
>> A	LRBLJD+5, REST+3
D	REST+2!
DA	ASK+1!, REST+1, REST+2!, REST+3, REST+5*, K+2, OUT
DIC	REST!, REST+2!, M!
DIC("S"	REST*
DIC(0	REST, M
DIE	REST, REST+2!, REST+5
DR	REST+2!, REST+5
DTIME	ASK, R
>> LR	ASK
>> LR("%"	ASK+1!, REST+1
>> LR("%2"	ASK+1!, REST+4
>> LR("%3"	ASK+1!
>> LR("%4"	ASK+1!
>> LR("%5"	ASK+1!
>> LR("C"	ASK+1!
>> LR("CK"	ASK+1!, REST+2
>> LR("M"	LRBLJD+3*
>> LR(2	ASK
>> LR(3	LRBLJD+3*
>> LRAA(4	LRBLJD+4
>> LRB(	LRBLJD+3*, R+1, R+3
>> LRCAPA	LRBLJD+5, REST+4
>> LRD	M+1*
LRE	ASK+1!, M+5*, M+6, M+7
LRE(1	REST+4, R, R+1, OUT, C, C+1
LRE(3	M+5*
LRE(4	REST+5
LRE(6	M+5*, M+6
LRE(69	M+5*
>> LRF	ASK*, M+6
LRJ	ASK+1!, REST+4*, M+3
LRJ(1	M+1*, M+3
LRM	ASK+1!
>> LRN	LRBLJD+3, M+1
LRO	ASK+1!
LRO(1	M+4, M+7
LRO(9	M+4*
LRP	ASK+1!
LRT	LRBLJD+5, LRBLJD+6!, ASK+1!, REST+4*
LRT(	LRBLJD+5
LRV	ASK+1!, M+1*
LRV(1	M+1*, M+2
LRV(10	REST+1*
LRV(11	M+4*
LRV(15	REST+1*
LRV(2	M+1*, M+8
LRV(26	REST+1*
LRV(3	REST+5*
LRV(4	REST+1*, REST+3
LRV(6	M+1*, M+8
>> LRW("MO"	LRBLJD+5*, REST+4
>> LRW("S"	LRBLJD+5*
>> LRX	REST+2*, REST+4, REST+5, M+5
U	LRBLJD+3, ASK, REST+1, M+6, R, C, C+1
X	LRBLJD+3, LRBLJD+5!, ASK, REST+3, M+1, M+4, K+2, R+1, R+3, OUT* , C
X("NOCODES"	LRBLJD+5*
X(1	REST+3*
>> Y	LRBLJD+3, ASK, REST, REST+1, REST+2, REST+5, M, M+1, M+5, M+6* , M+7*
>> Y(0	REST+1, M+1
>> Z	LRBLJD+3*, M+2

Information

Name	Comments	DBIA/ICR reference
C
END
K	;from LRBLJD1, LRBLJDM, [LRBLID] edit template file #65
M
REST
R
ASK
OUT