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

Package: Lab Service

Routine: LRBLQST


Information

LRBLQST ;AVAMC/REG - SINGLE UNIT STATUS ;8/1/95 08:46 ;

Source Information

Source file <LRBLQST.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 ^%ZIS  
Lab Service 1 (D,SSN,V,YN)^LRU  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLQST  

Entry Points

Name Comments DBIA/ICR reference
ASK
W
AU
END

External References

Name Field # of Occurrence
^%ZIS LRBLQST+5
^DIC ASK
D^LRU ASK+2, ASK+3, ASK+5, ASK+6
SSN^LRU W, AU
V^LRU LRBLQST+5, END
YN^LRU ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Current status of a unit in inventory file"
  • Line Location: LRBLQST+6
Function Call: WRITE
  • Prompt: !,$P($G(^DIC(4,+$P(Y(0),U,16),0)),U)
  • Condition for execution: $P($G(^LAB(69.9,1,8.1,+DUZ(2),0)),U,6)
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Expiration date:"
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: Y,?40,"ABO:",$P(Y(0),"^",7),?50,"Rh:",$P(Y(0),"^",8)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Disposition date:",Y,?40,"Disposition:",$P($P(LRC,X_":",2),";")
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: W
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: "Positive screening tests:",$P($P(LRT,W(2)_":",2),";")
  • Condition for execution: W(2)]""
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: ?40,"Donation type:",$P($P(LRD,W(3)_":",2),";")
  • Condition for execution: W(3)]""
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Current location:",$P(L,"^",4),!,"Date last located:",Y
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,"Patient:",$P(W,"^")," ",SSN,!?8,"Date assigned:",Y
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"Restricted for: ",$P(Y,"^")," ",SSN
  • Line Location: AU+0
Routine Call
  • %ZIS
  • Line Location:
    • LRBLQST+5
Routine Call
  • DIC
  • Line Location:
    • ASK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 LRBLQST+6
^DIC - [#1] ASK+5, AU
^DIC(4 - [#4] ASK+1
^LAB(66 - [#66] ASK+1
^LAB(69.9 - [#69.9] ASK+1
^LR - [#63] ASK+5, AU
^LRD(65 - [#65] ASK+3, ASK+4, ASK+5, ASK+6

Label References

Name Line Occurrences
ASK ASK, ASK+7
AU ASK+4
END ASK
W ASK+5

Naked Globals

Name Field # of Occurrence
^( ASK+5
^(0 ASK+1
^(4 ASK+3
^(8 ASK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK*
DIC ASK*!
DIC(0 ASK*
DUZ(2 ASK+1
IOF ASK+1
>> IOP LRBLQST+5*
>> L ASK+6*
>> LRA ASK*, ASK+3, ASK+4, ASK+5, ASK+6
>> LRB ASK+3*
>> LRC LRBLQST+6*, ASK+3
>> LRD LRBLQST+6*, ASK+4
>> LRDPF ASK+5*, AU*
>> LRT LRBLQST+6*, ASK+4
>> SSN W*, W+1, AU*
U LRBLQST+6, ASK+1
>> V ASK+5*
>> W ASK+5*, W, W+1
>> W(2 ASK+4*
>> W(3 ASK+4*
>> X ASK+1*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, AU*
>> Y ASK, ASK+2*, ASK+3*, ASK+4*, ASK+5*, ASK+6*, W+1, AU*
>> Y(0 ASK+1, ASK+2
>> Z ASK+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All