Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBLJR

Package: Lab Service

Routine: LRBLJR


Information

LRBLJR ;AVAMC/REG/CYM - RELEASE FROM XMATCH ;6/20/96 12:11 ;

Source Information

Source file <LRBLJR.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
R
SEL
REL
ALL
W
H
M
RES
SET
OUT
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: D:A=1
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units crossmatched for ",LRP
  • Line Location: R+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Select units (1-",A-1,") for release: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1 to ",A-1,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed"
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Selection ",LRV," doesn't exist.",!
  • Line Location: REL+0
Function Call: WRITE
  • Prompt: $C(7),!!,$P(^LRD(65,A(LRV),0),"^")," not returned to BLOOD BANK. Cannot release."
  • Line Location: REL+1
Function Call: WRITE
  • Prompt: !!?3,"All valid releases completed."
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: A,")",?3,$P(W,"^"),?17,$J($P(W,"^",7),2),?20,$P(W,"^",8),?24,$E($P(^LAB(66,$P(W,"^",4),0),"^"),1,20),?45
  • Line Location: W+1
Function Call: WRITE
  • Prompt: T,?58
  • Line Location: W+1
Function Call: WRITE
  • Prompt: T,?58
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?70,$E(P(A),1,10),!
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,"#",?3,"Unit ID",?17,"ABO/Rh",?24,"Component",?45,"Exp date",?58,"Xmatch date",?70,"Location",!
  • Line Location: H+0
Function Call: READ
  • Prompt: "Press RETURN"
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Function Call: READ
  • Formatting: !
  • Prompt: "Reason for release: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RES+0
Function Call: WRITE
  • Prompt: $C(7)," Not allowed, try again."
  • Line Location: RES+1
Function Call: WRITE
  • Prompt: !,HLP
  • Line Location: RES+4
Function Call: WRITE
  • Prompt: $C(7),!,"Reason not valid, try again "
  • Line Location: RES+6
Function Call: WRITE
  • Prompt: $C(7)," Unit(s) not released."
  • Line Location: OUT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.02 FIELD^DID,  GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call