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

Package: Surgery

Routine: SRBLOOD


Information

SRBLOOD ;B'HAM ISC/MM,SM - BLOOD PRODUCT VERIFICATION ;08/11/05

Source Information

Source file <SRBLOOD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Lab Service 2 BAR^LRBLB  ^LRBLBU  
VA Fileman 2 EN1^DIP  ^DIR  
Registration 1 DEM^VADPT  
Surgery 1 ^SRBL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SR BLOOD PRODUCT VERIFICATION  SR BLOOD PRODUCT VERIFY AUDIT  

Entry Points

Name Comments DBIA/ICR reference
AUDIT
END
SRNO
SCAN
PAGE
SRYES
ASK
CHECKS

External References

Name Field # of Occurrence
EN1^DIP AUDIT
^DIR SCAN+4, SCAN+47, SRYES, ASK, PAGE
BAR^LRBLB SCAN
^LRBLBU SCAN+5
^SRBL SRBLOOD+10
DEM^VADPT SCAN+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SCAN+5
Function Call: WRITE
  • Prompt: !,$P(SRD(SRI),"^",3)
  • Line Location: SCAN+46
Function Call: WRITE
  • Prompt: !!," **WARNING**",!!,$P(SRD(Y),"^",4),!
  • Line Location: CHECKS+1
Function Call: WRITE
  • Prompt: !!," There is no 'DATE/TIME Unit Assigned' for this entry."
  • Line Location: CHECKS+2
Function Call: WRITE
  • Prompt: !!!,?25,"No Discrepancies Found",!!!
  • Line Location: SRYES+0
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: @IOF
  • Line Location: PAGE+1
Routine Call
  • DIR
  • Line Location:
    • SCAN+4
    • SCAN+47
    • SRYES
    • ASK
    • PAGE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SRBLOOD+10
^DD("DD" SCAN+39
^DPT - [#2] SCAN+2
^LAB(66 - [#66] SCAN+44
^LR - [#63] SCAN+37
^LRD(65 - [#65] SCAN+7, SCAN+8, SCAN+9, SCAN+10, SCAN+13, SCAN+14, SCAN+15, SCAN+39, SCAN+43, SCAN+44
^SRF - [#130] SCAN+2

Label References

Name Line Occurrences
ASK CHECKS+3
CHECKS SCAN+41
END SCAN+4, SCAN+47, SRYES
SCAN END+1
SRNO SCAN+3, SCAN+5, SCAN+7, SCAN+8, SCAN+18, SCAN+30, CHECKS
SRYES SCAN+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BY AUDIT*
>> DFN SCAN+36*, SCAN+37*, SCAN+38
>> DIC AUDIT*
DIR SCAN+4!, SCAN+47!, SRYES!, ASK!
DIR("?" SCAN+4*
DIR("A" SCAN+4*, SCAN+47*, SRYES*, ASK*
DIR("B" ASK*
DIR(0 SCAN+4*, SCAN+47*, SRYES*, ASK*, PAGE*
>> DIRUT SCAN+4
DT SCAN+39
>> DTOUT SCAN+47
>> DUOUT SCAN+47
>> FLDS AUDIT*
IOF PAGE+1
IOST PAGE
>> L AUDIT*
SRB END!
SRB( SCAN+16*, SCAN+22, SCAN+24, SCAN+25, SCAN+27
SRBLOOD END!
SRC2 SCAN+20*, SCAN+21, SCAN+22, SCAN+24*, SCAN+27*, END!
SRD SCAN+30, END!
SRD( SCAN+22*, SCAN+24*, SCAN+27*, SCAN+32, SCAN+33, SCAN+36, SCAN+37*, SCAN+38*, SCAN+39*, SCAN+42
, SCAN+43, SCAN+45, SCAN+46, CHECKS, CHECKS+1
SRDFN SCAN+2*, SCAN+3, SCAN+7, SCAN+17, SCAN+24, SCAN+33, CHECKS, END!
SRDS SCAN+32*, SCAN+40, END!
SRDSP SCAN+32*, SCAN+33*, SCAN+40, END!
SREXP SCAN+32*, SCAN+39*, SCAN+40, END!
SRFLAG SCAN+20*, SCAN+22, SCAN+23, SCAN+24*, SCAN+26*, SCAN+27, SCAN+32*, CHECKS+1*, CHECKS+3, END!
SRI SCAN+32*, SCAN+33, SCAN+36, SCAN+37, SCAN+38, SCAN+39, SCAN+42*, SCAN+43, SCAN+44, SCAN+45
, SCAN+46, END!
SRICNT SCAN+9*, SCAN+11*, SCAN+16*, SCAN+20, SCAN+22, SCAN+23, END!
SRIEN SCAN+9*, SCAN+10*, SCAN+13*, SCAN+14, SCAN+15, SCAN+16, SCAN+39*, SCAN+43*, SCAN+44, END!
SRLRD SCAN+11*, SCAN+14*, SCAN+15, SCAN+16, SCAN+17, END!
SRNODT SCAN+32*, SCAN+40, END!
SRO END!
SRO( SCAN+9*, SCAN+10*, SCAN+13
SROCNT SCAN+9*, SCAN+10*, SCAN+11, SCAN+21, SCAN+41, END!
SROK SCAN+9*, SCAN+17*, SCAN+18, SCAN+41, END!
>> SRTN SCAN+2
SRUNIT SCAN+5*, SCAN+8, SCAN+9, SCAN+10, SCAN+39*, SCAN+43*, SCAN+44, END!
SRZ SCAN+11*, SCAN+13, SCAN+20*, SCAN+22, SCAN+23, SCAN+24, SCAN+25, SCAN+27, SCAN+42*, SCAN+43*
, SCAN+47, END!
>> VA("PID" SCAN+37
>> VADM(1 SCAN+37
>> X SRBLOOD+10*, SCAN+5
>> Y SCAN+39*, SCAN+41*, SCAN+47, CHECKS, CHECKS+1, END+1
>> Z SCAN+39*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All