PXRMVPTR ; SLC/PKR - Routines for dealing with variable pointers. ; 02/06/2001
;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
;
;==================================================
BLDALIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
;indexed by the abbreviation.
N ABBR,FN,IND,ROOT,TEMP
S IND=0
F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
. S TEMP=^DD(FILE,FIELD,"V",IND,0)
. S FN=$P(TEMP,U,1)
. S ROOT=$$ROOT^DILFD(FN)
. S ROOT=$P(ROOT,"^",2)
. S ABBR=$P(TEMP,U,4)
. S LIST(ABBR)=TEMP
Q
;
;==================================================
BLDNLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
;indexed by the file number.
N FN,IND,ROOT,TEMP
;DBIA #2991
S IND=0
F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
. S TEMP=^DD(FILE,FIELD,"V",IND,0)
. S FN=$P(TEMP,U,1)
. S ROOT=$$ROOT^DILFD(FN)
. S ROOT=$P(ROOT,"^",2)
. S LIST(FN)=TEMP
Q
;
;==================================================
BLDRLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
;indexed by the root.
N FN,IND,ROOT,TEMP
S IND=0
F S IND=$O(^DD(FILE,FIELD,"V",IND)) Q:+IND=0 D
. S TEMP=^DD(FILE,FIELD,"V",IND,0)
. S FN=$P(TEMP,U,1)
. S ROOT=$$ROOT^DILFD(FN)
. S ROOT=$P(ROOT,"^",2)
. S LIST(ROOT)=TEMP
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMVPTR 1324 printed Dec 13, 2024@01:49:57 Page 2
PXRMVPTR ; SLC/PKR - Routines for dealing with variable pointers. ; 02/06/2001
+1 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
+2 ;
+3 ;==================================================
BLDALIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
+1 ;indexed by the abbreviation.
+2 NEW ABBR,FN,IND,ROOT,TEMP
+3 SET IND=0
+4 FOR
SET IND=$ORDER(^DD(FILE,FIELD,"V",IND))
if +IND=0
QUIT
Begin DoDot:1
+5 SET TEMP=^DD(FILE,FIELD,"V",IND,0)
+6 SET FN=$PIECE(TEMP,U,1)
+7 SET ROOT=$$ROOT^DILFD(FN)
+8 SET ROOT=$PIECE(ROOT,"^",2)
+9 SET ABBR=$PIECE(TEMP,U,4)
+10 SET LIST(ABBR)=TEMP
End DoDot:1
+11 QUIT
+12 ;
+13 ;==================================================
BLDNLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
+1 ;indexed by the file number.
+2 NEW FN,IND,ROOT,TEMP
+3 ;DBIA #2991
+4 SET IND=0
+5 FOR
SET IND=$ORDER(^DD(FILE,FIELD,"V",IND))
if +IND=0
QUIT
Begin DoDot:1
+6 SET TEMP=^DD(FILE,FIELD,"V",IND,0)
+7 SET FN=$PIECE(TEMP,U,1)
+8 SET ROOT=$$ROOT^DILFD(FN)
+9 SET ROOT=$PIECE(ROOT,"^",2)
+10 SET LIST(FN)=TEMP
End DoDot:1
+11 QUIT
+12 ;
+13 ;==================================================
BLDRLIST(FILE,FIELD,LIST) ;Build a list of variable pointer information
+1 ;indexed by the root.
+2 NEW FN,IND,ROOT,TEMP
+3 SET IND=0
+4 FOR
SET IND=$ORDER(^DD(FILE,FIELD,"V",IND))
if +IND=0
QUIT
Begin DoDot:1
+5 SET TEMP=^DD(FILE,FIELD,"V",IND,0)
+6 SET FN=$PIECE(TEMP,U,1)
+7 SET ROOT=$$ROOT^DILFD(FN)
+8 SET ROOT=$PIECE(ROOT,"^",2)
+9 SET LIST(ROOT)=TEMP
End DoDot:1
+10 QUIT
+11 ;
