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

Package: Lab Service

Routine: LRBLPX


Information

LRBLPX ;AVAMC/REG/CYM - XMATCH RESULTS ;08/20/2001 3:45 PM

Source Information

Source file <LRBLPX.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
R
SEL
S
E
K
LBL
EN ;from LRBLPUS2
IG
ALL
M
AB
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?28,"Enter crossmatch results",!!?28,LRAA(4)
  • Line Location: LRBLPX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!,"No units currently selected for XMATCH",!
  • Line Location: R+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select units (1-",LRV,") to enter XMATCH results: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1-",LRV,!,"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: E+0
Function Call: WRITE
  • Prompt: !!?4,"Sorry, must have ABO/Rh results to enter XMATCH results"
  • Line Location: E+6
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't finish this. Someone else is editing this record"
  • Line Location: K+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I won't be able to make this CAUTION TAG now. Someone else is using that function",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!,"SORRY YOU DO NOT HAVE THE APPROPRIATE SECURITY",!,"TO ALLOW THIS UNIT TO BE ASSIGNED",!
  • Line Location: IG+0
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER YOUR INITIALS TO ALLOW ASSIGNING UNIT: "
  • Variable: X(1)
  • Timeout: DTIME
  • Line Location: IG+1
Function Call: WRITE
  • Prompt: $C(7),!,"NOT YOUR INITIALS !",!
  • Line Location: IG+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN"
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Function Call: READ
  • Variable: S A=0 F B=0
  • Timeout: 1
  • Line Location: AB+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
65.02 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call