Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLPAB

Package: Lab Service

Routine: LRBLPAB


Information

LRBLPAB ; IHS/DIR/FJE - ANTIBODIES IDENTIFIED 2/18/93 09:37 ;

Source Information

Source file <LRBLPAB.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 (D,L,S,SSN,V)^LRU  (BEG,END)^LRUTL  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPAB  

Entry Points

Name Comments DBIA/ICR reference
H
H1 ;D H W !,LRP,?35,"ID:",SSN,?50,"(continued from pg:",LRQ-1,")" Q
QUE
W ;S LRW=LRW+1,X=^LR(LRDFN,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),X=@(X_Y_",0)"),LRP=$P(X,"^"),SSN=$P(X,"^",9) D:$Y>(IOSL-6) H
END

External References

Name Field # of Occurrence
^%DT H
D^LRU H
L^LRU QUE
S^LRU QUE
SSN^LRU W+1
V^LRU END
BEG^LRUTL LRBLPAB+6
END^LRUTL QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"PATIENT ANTIBODIES IDENTIFIED"
  • Line Location: LRBLPAB+4
Function Call: WRITE
  • Prompt: $C(7),!,"You do not have the proper access to proceed."
  • Line Location: LRBLPAB+5
Function Call: WRITE
  • Prompt: !,"Patients in lab data file: ",$J(LRC,6),!,"Patients with antibodies: ",$J(LRW,6)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(61.3,LRA,0),"^")," = ",LRA(1)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,LRP,?35,"ID:",HRCN
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !?3,$P(^LAB(61.3,LRA,0),"^")
  • Line Location: W+4
Function Call: WRITE
  • Prompt: @IOF,Y," BLOOD BANK ",LRQ(1),?(IOM-10),"Pg: ",LRQ,!,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LRP,?35,"ID:",SSN,?50,"(continued from pg:",LRQ-1,")"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRP,?35,"ID:",HRCN,?50,"(continued from pg:",LRQ-1,")"
  • Line Location: H1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] W+1
^DPT - [#2] QUE+1
^DPT("B" QUE+1
^LAB(61.3 - [#61.3] QUE+3, W+4
^LR - [#63] QUE+1, W+1, W+4
^TMP($J QUE!, QUE+3, W+4

Label References

Name Line Occurrences
END LRBLPAB+5, LRBLPAB+6, QUE+4
H QUE, QUE+2, QUE+3, W+1, H1+1
H1 W+4
W QUE+1

Naked Globals

Name Field # of Occurrence
^( QUE+3, W+4*
^("LR" QUE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT H*
>> DFN W+1*
DUZ(0 LRBLPAB+5
>> HRCN W+3, H1+1
IO QUE
IOF H
IOM H
IOSL QUE+2, QUE+3, W+1, W+4
>> LR("%" H
>> LRA QUE+3*, W+4*
>> LRA(1 QUE+3*
>> LRC QUE*, QUE+1*, QUE+2
>> LRD QUE+1*
>> LRDFN QUE+1*, W+1, W+4
>> LRDPF W+1*
>> LRP W+1*, W+3, H1+1
>> LRQ H*, H1+1
>> LRQ(1 H
>> LRW QUE*, QUE+2, W+1*
>> LRX QUE+1*
>> LRY QUE+1*
>> POP LRBLPAB+6
>> SSN W+1*
>> X W+1*, H*
>> Y W+1*, H
>> ZTRTN LRBLPAB+6*
>> ZTSK LRBLPAB+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All