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

PXRMVPTR.m

Go to the documentation of this file.
  1. PXRMVPTR ; SLC/PKR - Routines for dealing with variable pointers. ; 02/06/2001
  1. ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
  1. ;
  1. ;==================================================
  1. BLDALIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
  1. ;indexed by the abbreviation.
  1. N ABBR,FN,IND,ROOT,TEMP
  1. S IND=0
  1. F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
  1. . S TEMP=^DD(FILE,FIELD,"V",IND,0)
  1. . S FN=$P(TEMP,U,1)
  1. . S ROOT=$$ROOT^DILFD(FN)
  1. . S ROOT=$P(ROOT,"^",2)
  1. . S ABBR=$P(TEMP,U,4)
  1. . S LIST(ABBR)=TEMP
  1. Q
  1. ;
  1. ;==================================================
  1. BLDNLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
  1. ;indexed by the file number.
  1. N FN,IND,ROOT,TEMP
  1. ;DBIA #2991
  1. S IND=0
  1. F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
  1. . S TEMP=^DD(FILE,FIELD,"V",IND,0)
  1. . S FN=$P(TEMP,U,1)
  1. . S ROOT=$$ROOT^DILFD(FN)
  1. . S ROOT=$P(ROOT,"^",2)
  1. . S LIST(FN)=TEMP
  1. Q
  1. ;
  1. ;==================================================
  1. BLDRLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
  1. ;indexed by the root.
  1. N FN,IND,ROOT,TEMP
  1. S IND=0
  1. F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
  1. . S TEMP=^DD(FILE,FIELD,"V",IND,0)
  1. . S FN=$P(TEMP,U,1)
  1. . S ROOT=$$ROOT^DILFD(FN)
  1. . S ROOT=$P(ROOT,"^",2)
  1. . S LIST(ROOT)=TEMP
  1. Q
  1. ;