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: LRBLDEX2

Package: Lab Service

Routine: LRBLDEX2


Information

LRBLDEX2 ;AVAMC/REG/CYM - EX-BLOOD DONORS ;7/3/96 11:30 ;

Source Information

Source file <LRBLDEX2.m>

Entry Points

Name Comments DBIA/ICR reference
T
EN ;from LRBLDEX1
R
D
O
W

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Donation **",Y,"**"
  • Line Location: R+0
Function Call: WRITE
  • Prompt: " Site:",X
  • Condition for execution: X]""
  • Line Location: R+0
Function Call: WRITE
  • Prompt: " Group:",X
  • Condition for execution: X]""
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+9)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: " Edit:",Y
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"Donation type:",$$EXTERNAL^DILFD(65.54,1.1,"",X)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: " ",$$EXTERNAL^DILFD(65.54,1,"",X)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+39)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: " Reaction:",$E($P(^LAB(65.4,X,0),"^",3),1,30)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+40)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: " Taken by:",$P(M,"^",9)
  • Line Location: R+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+43)
  • Line Location: R+5
Function Call: WRITE
  • Prompt: " Credit for:",$P(M,"^",5)
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !,"UNIT ID: ",X
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !,^LRE(LRI,5,W,3,B,0)
  • Line Location: R+7
Function Call: WRITE
  • Prompt: " (lot#",X,")"
  • Condition for execution: X]""
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " tot gm:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " empty wt:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " empty wt:",X
  • Condition for execution: X
  • Line Location: R+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+10)
  • Line Location: R+9
Function Call: WRITE
  • Prompt: " tech: ",Y
  • Line Location: R+9
Function Call: WRITE
  • Prompt: !,"Collection start:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: " stop:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: " stop:",Y
  • Line Location: R+10
Function Call: WRITE
  • Prompt: !,"Test",?31,"Tech"
  • Line Location: R+11
Function Call: WRITE
  • Prompt: !,$E(LR(M),1,15),?16,$$EXTERNAL^DILFD(65.54,M,"",Z(1)),?31
  • Line Location: R+12
Function Call: WRITE
  • Prompt: Y,?35,$P(Z,"^",3)
  • Line Location: R+12
Function Call: WRITE
  • Prompt: !,$P(^LAB(66,M(1),0),"^"),?41,$P(M,"^",5)
  • Line Location: R+14
Function Call: WRITE
  • Prompt: ?47,Y
  • Line Location: D+0
Function Call: WRITE
  • Prompt: ?62,Y
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,"Label tech:",Y
  • Line Location: D+1
Function Call: WRITE
  • Prompt: " Disposition:",$$EXTERNAL^DILFD(65.66,.08,"",X)," date:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: Y," tech:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: Y," tech:"
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !,^LRE(LRI,5,W,66,M(1),1,E,0)
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !,$P(^LAB(65.4,M,0),"^",3)
  • Line Location: O+0
Function Call: WRITE
  • Prompt:
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 EXTERNAL^DILFD
65.66 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call