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

Package: Lab Service

Routine: LRBLPCSS


Information

LRBLPCSS ;AVAMC/REG - PRE-OP COMPONENT SELECTION ;11/7/94 13:50 ;

Source Information

Source file <LRBLPCSS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  C^%DTC  ^DIC  
Lab Service 2 DEL^LRBLPCS  (D,YN)^LRU  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  

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

Package Total Caller Graph
Lab Service 2 LRBLPCS  LRBLS  

Entry Points

Name Comments DBIA/ICR reference
P
B
C
A
SET ; also from MSB^LRBLS
EN ;
W

External References

Name Field # of Occurrence
^%DT LRBLPCSS+9
C^%DTC LRBLPCSS+9
^DIC A
$$CPT^ICPTCOD EN+6
$$CPTD^ICPTCOD B+2, A+4
DEL^LRBLPCS EN+3
D^LRU LRBLPCSS+10
YN^LRU EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " *** No operation schedule file ***"
  • Line Location: LRBLPCSS+7
Function Call: WRITE
  • Prompt: !!,LRP," not in operation schedule file."
  • Line Location: LRBLPCSS+8
Function Call: WRITE
  • Prompt: !!,"No operations pending."
  • Line Location: LRBLPCSS+11
Function Call: WRITE
  • Prompt: !!,"Operation scheduled: "
  • Line Location: LRBLPCSS+12
Function Call: WRITE
  • Prompt: !,$J(A,2),") ",$P(A(A),"^")," ",$P(A(A),"^",2)
  • Line Location: LRBLPCSS+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!,"Select a number from 1 to ",B
  • Line Location: P+0
Function Call: WRITE
  • Prompt: " ",$P(A(X),"^"),!,$P(A(X),"^",2)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"CPT file number: ",X
  • Line Location: B+4
Function Call: WRITE
  • Prompt: !,LRX(I)
  • Line Location: B+5
Function Call: WRITE
  • Prompt: Q
  • Line Location: B+7
Function Call: WRITE
  • Prompt: !,"Component: ",$S($D(^LAB(66,X,0)):$P(^(0),"^"),1:""),?52,"MSBOS:",$P(X(1),"^",2)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: Q
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"CPT file number: ",X
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !,LRX(I)
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !!,"No maximum surgical blood order entered in file 66.5 for this component.",!,"No maximum surgical blood order criteria checking can be done.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"No maximum surgical blood orders for this operation.",!,"No maximum surgical blood order criteria checking can be done.",!
  • Line Location: W+0
Routine Call
  • DIC
  • Line Location:
    • A

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(66.5 SET+1
^ICPT(0 A
^LAB(66 - [#66] C
^LAB(66.5 - [#66.5] B+7, A+1, SET+1*, EN+1, EN+2
^SRF - [#130] LRBLPCSS+7, LRBLPCSS+10
^SRF("ADT" LRBLPCSS+8, LRBLPCSS+10

Label References

Name Line Occurrences
A LRBLPCSS+7, LRBLPCSS+8, LRBLPCSS+11
B LRBLPCSS+12, P+1
C A+6
P P
SET A+1
W B+7, A+1

Naked Globals

Name Field # of Occurrence
^( C
^("OP" LRBLPCSS+10
^(0 C, SET+1*
^(1 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3*
>> %DT LRBLPCSS+9*
A LRBLPCSS+9!, LRBLPCSS+10*, LRBLPCSS+13*, EN+2*, EN+3, EN+5
A( LRBLPCSS+10*, LRBLPCSS+13, B
>> B LRBLPCSS+10*, LRBLPCSS+13*, P
>> B(1 LRBLPCSS+10*
>> C LRBLPCSS+10*, LRBLPCSS+11, LRBLPCSS+12, EN+1, EN+2, EN+5, EN+6
>> DA SET+1*
>> DFN LRBLPCSS+8, LRBLPCSS+10
DIC A*!
DIC("A" A*
DIC("S" A*
DIC(0 A*
DTIME P
>> I B+5*, A+5*
>> LRCPT B+7*, C, A+6*, EN+1, EN+2, EN+6
>> LRK( EN+5*, EN+6*
>> LRP LRBLPCSS+8
>> LRR EN+3*, EN+4
LRX B+1~, B+2*, B+3, B+5, A+3~, A+4*, A+5
LRX( B+5, A+5
>> X LRBLPCSS+9*, LRBLPCSS+10*, LRBLPCSS+12*, P*, B*, B+2, B+4, B+7*, C*, A*
, A+1, A+2, A+4, A+6, SET+1, EN+3
>> X(1 C*
>> X1 LRBLPCSS+9*
>> X2 LRBLPCSS+9*
>> Y LRBLPCSS+9, LRBLPCSS+10*, A, A+1*, EN+3*
>> Z SET+1*
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