Routine: LRBLJL1

Information

LRBLJL1 ;AVAMC/REG/CYM - UNIT RELOCATION ; 12/18/00 1:49pm

Source file <LRBLJL1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unit assigned/xmatched:",?48,"Exp date",?67,"Location" Condition for execution: F=1 Line Location: S+1
Function Call: WRITE	Prompt: !,$J(F,2),")" Line Location: S+1
Function Call: WRITE	Prompt: W:$P(LRX,U,11)="U" Line Location: W+0
Function Call: WRITE	Prompt: ?5,"#" Condition for execution: $P(LRX,U,11)="U" Line Location: W+0
Function Call: WRITE	Prompt: ?6,$P(LRX,U,2),?20,$P(LRX,U,3),?41,$P(LRX,U,4) Line Location: W+0
Function Call: WRITE	Prompt: ?6,$P(LRX,U,2),?20,$P(LRX,U,3),?41,$P(LRX,U,4) Line Location: W+0
Function Call: WRITE	Prompt: !?6,$C(7),"*** Also assigned/xmatched to ",$P(N,"^")," ",$P(N,"^",9) Line Location: W+3
Function Call: WRITE	Prompt: ! Line Location: N+1
Function Call: WRITE	Prompt: $C(7),!?6,"This unit needs to be modified before release !" Line Location: N+3
Function Call: WRITE	Prompt: $C(7),!!,"There must be an entry in the HOSPITAL LOCATION file",!,"containing 'BLOOD BANK' in the name for ",LRAA(4) Line Location: A+2
Function Call: WRITE	Prompt: !?3,C(A) Line Location: A+4