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 ; IHS/DIR/AAB - SINGLE UNIT STATUS 8/1/95 08:46 ;

Source Information

Source file <LRBLQST.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLQST  

Entry Points

Name Comments DBIA/ICR reference
ASK
END
AU ;S X=^LR(Y,0),Y=$P(X,"^",3),(LRDPF,X)=$P(X,"^",2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)") S SSN=$P(Y,"^",9) D SSN^LRU W !,"Restricted for: ",$P(Y,"^")," ",SSN Q
W

External References

Name Field # of Occurrence
^%ZIS LRBLQST+3
^DIC ASK
D^LRU ASK+2, ASK+3, ASK+6, ASK+7
SSN^LRU W, AU+1
V^LRU LRBLQST+3, 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+4
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+7
Function Call: WRITE
  • Prompt: !,"Patient:",$P(W,"^")," ",HRCN,!?8,"Date assigned:",Y
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,"Restricted for: ",$P(Y,"^")," ",SSN
  • Line Location: AU+0
Function Call: WRITE
  • Prompt: !,"Restricted for: ",$P(Y,"^")," ",HRCN
  • Line Location: AU+1
Routine Call
  • DIC
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • LRBLQST+3

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK ASK, ASK+8
AU ASK+4
END ASK
W ASK+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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