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
Print Page as PDF
Routine: LRBLPUS1

Package: Lab Service

Routine: LRBLPUS1


Information

LRBLPUS1 ;AVAMC/REG/CYM - PATIENT UNIT SELECTION ;11/12/96 21:05 ; 11/30/00 4:21pm

Source Information

Source file <LRBLPUS1.m>

Entry Points

Name Comments DBIA/ICR reference
ALL
H
I
D
OK
CK
O
A
B
AB
OP
AP
BP
ABP
MORE
C
F

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: LRBLPUS1+4
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: LRBLPUS1+8
Function Call: WRITE
  • Prompt: $C(7)," Enter a valid unit",!!,"You can only select units from your division [",LRAA(4),"]",!,"even though units from other divisions may be displayed."
  • Line Location: LRBLPUS1+11
Function Call: WRITE
  • Prompt: !!,$C(7),"This unit currently unavailable. Please try another ",!!
  • Line Location: LRBLPUS1+12
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No units to choose from !",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,"DISPLAY AVAILABLE UNITS FROM OTHER DIVISIONS AS WELL"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?3
  • Line Location: H+3
Function Call: WRITE
  • Prompt: $S($P(Y,"^",3)="A":"aut",$P(Y,"^",3)="D":"dir",1:"")
  • Line Location: I+4
Function Call: WRITE
  • Prompt: $J(Z,2)
  • Condition for execution: $D(Z(1))
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?7,$P(F,"^",2),?20,$J($P(F,"^",8),2)," ",$P(F,"^",9)
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+7
Function Call: WRITE
  • Prompt: ?45,$P($G(^DIC(4,Y,0)),U)
  • Line Location: I+8
Function Call: WRITE
  • Prompt: !?48,$P(^LAB(61.3,O,0),"^")
  • Line Location: I+9
Function Call: WRITE
  • Prompt: !?3
  • Line Location: I+10
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: MORE+1
Function Call: READ
  • Prompt: ": "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3
  • Line Location: C+2
Info |  Source |  Entry Points |  Interaction Calls