Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call