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 ;VA/AVAMC/REG - PRE-OP COMPONENT SELECTION ;11/7/94 13:50 ;

Source Information

Source file <LRBLPCSS.m>

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  
DRG Grouper 1 ($$CPT,$$CPTD)^ICPTCOD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPCS  LRBLS  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " *** No operation schedule file ***"
  • Line Location: LRBLPCSS+10
Function Call: WRITE
  • Prompt: !!,LRP," not in operation schedule file."
  • Line Location: LRBLPCSS+11
Function Call: WRITE
  • Prompt: !!,"No operations pending."
  • Line Location: LRBLPCSS+14
Function Call: WRITE
  • Prompt: !!,"Operation scheduled: "
  • Line Location: LRBLPCSS+15
Function Call: WRITE
  • Prompt: !,$J(A,2),") ",$P(A(A),"^")," ",$P(A(A),"^",2)
  • Line Location: LRBLPCSS+16
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+10, LRBLPCSS+13
^SRF("ADT" LRBLPCSS+11, LRBLPCSS+13

Label References

Name Line Occurrences
A LRBLPCSS+10, LRBLPCSS+11, LRBLPCSS+14
B LRBLPCSS+15, P+1
C A+6
P P
SET A+1
W B+7, A+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3*
>> %DT LRBLPCSS+12*
A LRBLPCSS+12!, LRBLPCSS+13*, LRBLPCSS+16*, EN+2*, EN+3, EN+5
A( LRBLPCSS+13*, LRBLPCSS+16, B
>> B LRBLPCSS+13*, LRBLPCSS+16*, P
>> B(1 LRBLPCSS+13*
>> C LRBLPCSS+13*, LRBLPCSS+14, LRBLPCSS+15, EN+1, EN+2, EN+5, EN+6
>> DA SET+1*
>> DFN LRBLPCSS+11, LRBLPCSS+13
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+11
>> 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+12*, LRBLPCSS+13*, LRBLPCSS+15*, 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+12*
>> X2 LRBLPCSS+12*
>> Y LRBLPCSS+12, LRBLPCSS+13*, 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