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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSLRB

Package: Health Summary

Routine: GMTSLRB


Information

GMTSLRB ; SLC/JER,KER - Blood Availability Component ; 11/26/2002

Source Information

Source file <GMTSLRB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Health Summary 3 ^GMTSLRBE  $$ROK^GMTSU  CKP^GMTSUP  
VA Fileman 1 $$GET1^DIQ  
VBECS 1 AVUNIT^VBECA4  

Entry Points

Name Comments DBIA/ICR reference
WRT ; Writes Blood Availability Record
MAIN ; Blood Availability
WRTBTYP ; Writes Blood Type (Added 03/31/1994)

External References

Name Field # of Occurrence
$$GET1^DIQ MAIN+3
^GMTSLRBE MAIN+10
$$ROK^GMTSU MAIN+9, MAIN+10
CKP^GMTSUP WRTBTYP+1, WRT+1, WRT+4, WRT+7, WRT+9
AVUNIT^VBECA4 MAIN+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?1,"Patient Blood Type:",?22,$P(^TMP("LRB",$J,0),U,1)
  • Line Location: WRTBTYP+2
Function Call: WRITE
  • Prompt: ?25,$P(^TMP("LRB",$J,0),U,2),!!
  • Line Location: WRTBTYP+3
Function Call: WRITE
  • Prompt: $P(X,U),?2,$P(X,U,2),?11,$P(X,U,3),?22,$P(X,U,4)
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?62,$J($P(X,U,6),2),?65,$P(X,U,7),?69,$P(X,U,8),!
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?6,"Unit Location:"
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?22,$S($L($P(X,U,10)):$P(X,U,10),1:"Blood Bank"),!
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?6,"Unit Division:",?22,$P(X,U,9),!
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?6,"Donation Type:",?22,$P(X,U,8),!
  • Line Location: WRT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] MAIN+3
^TMP("LRB" MAIN+11, MAIN+13, MAIN+14, MAIN+15!, WRTBTYP+2, WRTBTYP+3

Label References

Name Line Occurrences
WRT MAIN+14
WRTBTYP MAIN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN MAIN+3, MAIN+9
GMI MAIN+1~
>> GMTS1 MAIN+9
>> GMTS2 MAIN+9
>> GMTSNDM MAIN+2
>> GMTSQIT WRTBTYP+1, WRT+1, WRT+4, WRT+7, WRT+9
IX MAIN+1~, MAIN+13*, MAIN+14
LOC MAIN+1~, MAIN+2*, MAIN+9
LRDFN MAIN+1~, MAIN+3*
MAX MAIN+1~, MAIN+2*, MAIN+9
U WRTBTYP+2, WRTBTYP+3, WRT+2, WRT+3, WRT+6, WRT+8, WRT+9, WRT+10
X MAIN+1~, MAIN+14*, WRT+2, WRT+3, WRT+6, WRT+8, WRT+9, WRT+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All