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

Package: Health Summary

Routine: GMTSLRT


Information

GMTSLRT ; SLC/JER,KER - Blood Bank Transfusion ;AUG 08,2009@14:32

Source Information

Source file <GMTSLRT.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Blood Transfusion
TEXT ;
KEY ;
VBEC ;VBECS format
OLD ;Pre-VBECS format
PARSE ;Parse Record
WRT1 ;Writes VBECS transfusion record for each day
PRSREC ; Parses Record for presentation
WRT ; Writes the Transfusion Record for each day

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?19,"*** [LEGACY VISTA BLOOD BANK REPORT] ***",!
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: !?3,"The following historical information comes from the Legacy VISTA Blood"
  • Line Location: TEXT+3
Function Call: WRITE
  • Prompt: !?3,"Bank System. It represents data collected prior to the installation of"
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !?3,"VBECS. Some of the information in this report may have been duplicated"
  • Line Location: TEXT+5
Function Call: WRITE
  • Prompt: !?3,"in the VBECS Blood Transfusion report above (if available).",!
  • Line Location: TEXT+6
Function Call: WRITE
  • Prompt: !?22,"---- Blood Transfusions ----",!
  • Line Location: TEXT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: KEY+2
Function Call: WRITE
  • Prompt: " Blood Product Key: "
  • Line Location: KEY+3
Function Call: WRITE
  • Prompt: ?21,GMI," = ",$G(^TMP("LRT",$J,GMI)),!
  • Line Location: KEY+6
Function Call: WRITE
  • Prompt: TD
  • Line Location: WRT1+3
Function Call: WRITE
  • Prompt: ?CL,GMA(GMJ)
  • Line Location: WRT1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT1+8
Function Call: WRITE
  • Prompt: TD
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: ?(((GMI2-1)*15)+10),GMA(GMJ)
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+8

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