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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SRBL

Package: Surgery

Routine: SRBL


Information

SRBL ;BIR/ADM - BLOOD PRODUCT VERIFICATION FOR VBECS ;09/01/05

Source Information

Source file <SRBL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 (,DD)^%DT  EN^DDIOL  ^DIR  
Kernel 1 $$UP^XLFSTR  
VBECS 1 AVUNIT^VBECA1B  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRBLOOD  

Entry Points

Name Comments DBIA/ICR reference
BAR ; test bar code reader
CODA ; interpret Codabar barcodes used to label the Unit ID of blood component
LIST
62 ;;A POS;620
66 ;;A;660
TST
84 ;;AB POS;840
SCAN
28 ;;AB NEG;280
ISBTUID(SRBLIN) ; Check for and display valid ISBT-128 Unit Id
; Valid codes are prefixed by "="
6 ;;A NEG;060
ASK
ISBTBG(SRIN,SRBLABO,SRBLRH) ; check for ISBT-128 valid blood group and return ABO & Rh values
; Valid codes are prefixed by "=%".
END
G ;;
77 ;;B;770
STRIP(X) ; strip off any ISBT-128 barcode identifier characters
73 ;;B POS;730
95 ;;O NEG;950
MATCH ; retrieve matching units from list of available units
17 ;;B NEG;170
SRNO
55 ;;O;550
51 ;;O POS;510
88 ;;AB;880
SRYES

External References

Name Field # of Occurrence
^%DT LIST+3, SRYES
DD^%DT LIST+5
EN^DDIOL ISBTUID+10
^DIR TST+1, LIST+8, SRYES+3, ASK, BAR+6
AVUNIT^VBECA1B SCAN+2
$$UP^XLFSTR ISBTUID+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !,"Eye Readable ID: ",$P(X,"^",3),!
  • Line Location: MATCH+3
Function Call: WRITE
  • Prompt: ?45,"UNIT ID: ",SRUID
  • Line Location: CODA+3
Function Call: WRITE
  • Prompt: !!!,?25,"No Discrepancies Found",!!!
  • Line Location: SRYES+3
Function Call: WRITE
  • Prompt: !!,?30,"**WARNING**",!!
  • Line Location: SRNO+0
Function Call: WRITE
  • Prompt: ?5,"There is no record that this unit has been assigned to this patient."
  • Line Location: SRNO+1
Function Call: WRITE
  • Prompt: !!,?8," Please recheck the patient and blood product IDs.",!!
  • Line Location: SRNO+2
Function Call: WRITE
  • Prompt: $C(13),$J("",79),$C(13),SRPROMPT,"(Bar code)"
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: $C(7),!!?28,"Not a GROUP-TYPE label",!?15,"Press <ENTER> key if BAR CODE READER is not used",!
  • Line Location: BAR+13
Function Call: WRITE
  • Prompt: " ",$P($T(G+A),";",3)
  • Line Location: BAR+14
Function Call: WRITE
  • Prompt: $C(13),$J("",79),$C(13),SRPROMPT,?32,"(Bar code)"
  • Line Location: ISBTUID+9
Routine Call
  • DIR
  • Line Location:
    • TST+1
    • LIST+8
    • SRYES+3
    • ASK
    • BAR+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SCAN+1
^TMP("SRBL" SCAN+1!, LIST, MATCH+1, MATCH+2, END!

Label References

Name Line Occurrences
$$ISBTUID CODA+1
$$STRIP CODA+2, BAR+11
ASK SRYES
BAR SCAN, BAR+13
CODA TST+2
END TST+1, TST+4, SRYES+3, ASK
ISBTBG BAR+8
LIST TST+4, SRYES+1
MATCH TST+2
SCAN ASK
SRNO TST+2
SRYES TST+3, TST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A BAR+1~, BAR+12*
>> DFN SCAN+1*, SCAN+2
DIR TST!, TST+1!, LIST+7!, LIST+8!, SRYES+3!, ASK!, END!, BAR+2!, BAR+6!
DIR("?" TST+1*, BAR+5*, BAR+6*
DIR("A" TST*, LIST+7*, SRYES+3*, ASK*, BAR+2*, BAR+3*, BAR+4*
DIR("B" ASK*
DIR(0 TST*, LIST+7*, SRYES+3*, ASK*, BAR+2*
DT SRYES
>> DTOUT TST+1, LIST+8, BAR+6
>> DUOUT TST+1, LIST+8, BAR+6
SR END!, BAR+1~*, BAR+9*, BAR+12*, BAR+13
SR(2 BAR+9*, BAR+12*
SRABO BAR+1~, BAR+8, BAR+10
SRBL END!
SRBL( LIST+2, LIST+3, MATCH+3*, SRYES
SRBLABO ISBTBG~, ISBTBG+7*, ISBTBG+11*, ISBTBG+12, ISBTBG+13, ISBTBG+14*
SRBLIN ISBTUID~, ISBTUID+6, ISBTUID+7*, ISBTUID+8*, ISBTUID+10
SRBLRH ISBTBG~, ISBTBG+7*, ISBTBG+13*
SREXP LIST+3*, LIST+5, END!
SRI LIST+2*, LIST+6*, LIST+7, END!
SRIDT MATCH+1*, MATCH+2, END!
SRIN ISBTBG~, ISBTBG+8, ISBTBG+9, ISBTBG+10
SRMATCH TST+2, TST+3, MATCH+1*, MATCH+3*, SRYES+1, END!
SRNAME LIST+1*, LIST+5, END!
SRPROD LIST+3*, LIST+4, END!
SRPROMPT TST*, END!, BAR+1~, BAR+2*, BAR+7, ISBTUID+9
SRQ SCAN+1*, TST+4, LIST+8*, END!
SRRH BAR+1~, BAR+8, BAR+10
SRSSN LIST*, LIST+1, END!
>> SRTN SCAN+1
SRUID LIST+4, MATCH+3, CODA+1*, CODA+2*, CODA+3, END!
SRY TST+3*, TST+5*, LIST+9*, SRYES, END!
SRZ LIST+2*, LIST+3, LIST+4, END!
X LIST+3*, MATCH+2*, MATCH+3, CODA+1, CODA+2, SRYES*, END!, STRIP~, STRIP+1*, STRIP+2
, BAR+1~, BAR+6, BAR+8, BAR+11*, BAR+12
X(1 BAR+12*
Y TST+5, LIST*, LIST+1, LIST+3, LIST+5*, LIST+8, LIST+9, SRYES, ASK, END!
, BAR+1~, BAR+12*
Z LIST*, LIST+3*, END!, ISBTBG+7~, ISBTBG+10*, ISBTBG+11

Marked Items

Name Field # of Occurrence
$T(G+A BAR+12, BAR+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All