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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRBLPT

Package: Lab Service

Routine: LRBLPT


Information

LRBLPT ; IHS/DIR/AAB - TRANSFUSION RESULTS 9/7/95 08:59 ;

Source Information

Source file <LRBLPT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 4 ^LRBLPT1  ^LRDPA  (DT,V,YN)^LRU  ^LRUTL  
VA Fileman 1 (,IX)^DIC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLPT  

Entry Points

Name Comments DBIA/ICR reference
ALL
END
M
N
R
T
ASK
SEL

External References

Name Field # of Occurrence
^DIC T+1, T+3
IX^DIC R+1
^LRBLPT1 T+7, SEL+4, ALL
^LRDPA ASK
DT^LRU N+5
V^LRU END
YN^LRU T+4
^LRUTL LRBLPT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?28,"Enter transfusion results"
  • Line Location: LRBLPT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units currently assigned/xmatched.",!
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"You may select a specialty not in the treating specialty file."
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: T+2
Function Call: WRITE
  • Prompt: ^(3)
  • Condition for execution: $D(^(3))
  • Line Location: T+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select units (1-",LRZ,") to enter TRANSFUSION results: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1 to ",LRZ,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: N+4
Function Call: WRITE
  • Prompt: $J(LRZ,2),") "
  • Condition for execution: $D(LRG)
  • Line Location: N+4
Function Call: WRITE
  • Prompt: $P(X,"^"),?17,$E(M,1,22),?40,$J($P(X,"^",7),2),?43,$P(X,"^",8),?48
  • Line Location: N+5
Function Call: WRITE
  • Prompt: Y,?64,F
  • Line Location: N+5
Function Call: READ
  • Prompt: "Press RETURN"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Routine Call
  • DIC
  • Line Location:
    • T+1
    • T+3
Routine Call
  • DIC
  • Line Location:
    • R+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(45.7 - [#45.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(65 T+2
^LAB(66 - [#66] N+4
^LRD(65 - [#65] R, T+6, N+1!, N+2*, N+3, N+4
^TMP($J ASK!, SEL+4, N+4*, ALL

Label References

Name Line Occurrences
ALL SEL+1
ASK ASK
END LRBLPT+3, ASK
M T+6
N T+6
R ASK
SEL SEL, SEL+2, SEL+3
T T+1, T+2, T+4

Naked Globals

Name Field # of Occurrence
^( N+2, N+3
^(3 T+2, N+3
^(4 T+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % T+4*
>> D R+1*
DIC ASK!, R+1*!, T+1*!, T+3*!
DIC("A" R+1*
DIC("B" R+1*
DIC(0 R+1*, T+1*, T+3*
DIE ASK!
DR ASK!
DTIME T, SEL, M
DUZ(2 N+2
>> F N+3*, N+4, N+5
LRA ASK!, T+6*, N+1, N+2, N+3, N+4
>> LRB T+6*, SEL+4*, N
>> LRDFN ASK, R, T+6, N+1, N+2, N+4
LRG T+6*, T+7!, N+4
>> LRMD R+1*
>> LRMD(1 R+1*
>> LRQ SEL+4*
>> LRS T, T+1, T+4*, T+5*
>> LRS(1 T+5*
>> LRV T+7*, SEL+4*, ALL*
LRZ ASK!, T+6*, T+7, SEL, N+4*
>> M N+4*, N+5
U R+1, T, SEL
>> X LRBLPT+3*, R+1*, T*, T+1*, T+2, T+5, SEL*, SEL+1, SEL+2, SEL+3
, SEL+4, N+2*, N+3*, N+4, N+5, M*
>> Y LRBLPT+3, R+1, T+4, T+5, N+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All