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

Package: Lab Service

Routine: LRBLTA


Information

LRBLTA ;AVAMC/REG - TRANSFUSION REACTION COUNTS ;7/2/93 07:05 ;

Source Information

Source file <LRBLTA.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
OUT
S
A
B
C
N
H
H1
H2
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"List patients "
  • Line Location: LRBLTA+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLTA+3
Function Call: WRITE
  • Prompt: !!,LRR(1),?31,$J(^TMP($J,LRR),4)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,A,?5,"= ",^TMP($J,"B",A)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?41,LRE,?51,$J(^TMP($J,LRR,LRC),4)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,SSN,?5,LRP,?36
  • Line Location: C+0
Function Call: WRITE
  • Prompt: Y,?67,$P(LRX,"^",2)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTION COUNTS FROM ",LRSTR," TO ",LRLST,!,"REACTION",?31,"COUNT",?41,"COMPONENT",?51,"SUBCOUNT"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"SSN",?5,"Patient",?36,"Transfusion Date",?67,"Unit ID"
  • Condition for execution: LRF
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,LRR(1)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: ?41,LRE
  • Line Location: H2+0
Info |  Source |  Entry Points |  Interaction Calls