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

Package: Health Summary

Routine: GMTSLRB


Information

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

Source Information

Source file <GMTSLRB.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call