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

Package: Lab Service

Routine: LRDPA2


Information

LRDPA2 ;AVAMC/REG - PT BLOOD BANK LOOKUP ;12/14/92 10:47 ;

Source Information

Source file <LRDPA2.m>

Entry Points

Name Comments DBIA/ICR reference
W
R

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: S A=0 F B=0
  • Timeout: 1
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: ?18,$P(X,"^")
  • Line Location: LRDPA2+6
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,+$P(LR(1.9),U,2),0)),U)
  • Line Location: LRDPA2+9
Function Call: WRITE
  • Prompt:
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,^(B,0)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"TRANSFUSION REACTIONS WITH UNIT IDENTIFIED",?51,"UNIT ID",?66,"COMPONENT"
  • Condition for execution: A(1)=13
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,Y,?21,$P($G(^LAB(65.4,C,0)),U),?51,$P(LR(1.9),U,3),?69,$P($G(^LAB(66,+$P(LR(1.9),U,2),0)),U,2)
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,B(2)
  • Line Location: R+3
Info |  Source |  Entry Points |  Interaction Calls