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

PXRMMATH.m

Go to the documentation of this file.
  1. PXRMMATH ;SLC/PKR - Math utility routines. ;07/30/2010
  1. ;;2.0;CLINICAL REMINDERS;**18**;Feb 04, 2005;Build 152
  1. ;
  1. ;=================================
  1. RANDOM(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ;
  1. ;VA-RANDOM NUMBER computed finding.
  1. N DIV,IND,LB,OFFSET,NDD,NOW,RANGE,UB
  1. S LB=+$P(TEST,U,1),UB=+$P(TEST,U,2),NDD=+$P(TEST,U,3)
  1. I (LB[".")!(UB[".") S NFOUND=0 Q
  1. I UB<LB S NFOUND=0 Q
  1. S NOW=$$NOW^PXRMDATE
  1. S NFOUND=NGET
  1. S OFFSET=-LB
  1. S DIV=10**NDD
  1. S RANGE=DIV*(UB+OFFSET)+1
  1. S TEXT(1)="Lower bound = "_LB_" Upper bound = "_UB_", "_NDD_" decimal digits"
  1. F IND=1:1:NGET D
  1. . S TEST(IND)=1
  1. . S DATA(IND,"VALUE")=($R(RANGE)/DIV)-OFFSET
  1. . S DATE(IND)=NOW
  1. Q
  1. ;