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
Print Page as PDF
Routine: LRBLJDP

Package: Lab Service

Routine: LRBLJDP


Information

LRBLJDP ;AVAMC/REG - PRINT UNIT DISPOSITION ;10/11/95 07:47 ;

Source Information

Source file <LRBLJDP.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
QUE
T
W
A
S
HDR
H
H1
H2
SEL
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select DISPOSITION: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,LRC(1)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(66,LRL,0),"^"),?41,$J(LRM(LRL),5)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: ?30,$P(LRE,"^",2)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?30,$E($P(^LRD(65,LRI,4),"^",5),1,30)
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?61,$J($P(LRE,"^",7),2),$S(R="POS":"+",R="NEG":"-",1:"")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?65,Y
  • Condition for execution: LRD'="S"&(LRD'="R")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?69,$P(LRE,"^",13)
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?3,LRF
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,"BLOOD BANK ",LRAA(4)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"UNIT DISPOSITION: ",LRD(1)," (from ",LRSTR," to ",LRLST,")"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"UNIT ID",?15,"DISP DATE",?30,$S(LRD="MO":"MODIFY TO",LRD="S"!(LRD="R"):"SHIPPED TO",1:"SOURCE")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: ?65,"DATE RECEIVED"
  • Condition for execution: LRD'="MO" ?58,"ABO/Rh" W:LRD'="S"&(LRD'="R")&(LRD'="MO")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?67,"UNIT ID"
  • Condition for execution: LRD="MO"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?69,"INVOICE"
  • Condition for execution: LRD="S"!(LRD="R")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"COMPONENT: ",LRC(1),!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRA,?15,LRY," (Continued from pg ",LRQ-1,")",!
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !!,"Select from:"
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !?3,X,?6,"for",?10,LR(X)
  • Line Location: SEL+0
Info |  Source |  Entry Points |  Interaction Calls