Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BLRASP

BLRASP.m

Go to the documentation of this file. 
  1. BLRASP ;MTK/CR-ListMan program for Lab Results [ 11/18/2002  1:39 PM ]
  1.  ;;5.2;LR;**1013,1015**;NOV 18, 2002
  1.  ;; ;
  1. EN ;EP
  1.  ; -- main entry point for BLRASP
  1.  D EN^VALM("BLRASP")
  1.  Q
  1.  ;
  1. HDR ; -- header code
  1.  D HDR^BLRALBA
  1.  Q
  1.  ;
  1. INIT ; -- init variables and list array
  1.  ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)
  1.  ;S VALMCNT=30
  1.  ;D CLEAN^VALM10    ;CLEARS SCREEN BEFORE DISPLAY
  1.  ;S LINENUM=0
  1.  ;F  S LINENUM=$O(^TMP($J,"BLRA",LINENUM)) Q:LINENUM=""  D
  1.  ;. S LINEDATA=$G(^TMP($J,"BLRA",LINENUM,0))
  1.  ;. D SET^VALM10(LINENUM,LINEDATA)
  1.  ;S VALMCNT=LINENUM
  1.  ;I LINENUM=0 S VALMSG="No Lab Results to be displayed at this time"
  1.  Q
  1.  ;
  1. HELP ; -- help code
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1. EXIT ; -- exit code
  1.  Q
  1.  ;
  1. EXPND ; -- expand code
  1.  Q
  1.  ;