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

QAQAXREF.m

Go to the documentation of this file.
  1. QAQAXREF ;HISC/DAD-EXECUTE SET AND KILL XREF'S ;5/12/92 14:08
  1. ;;1.7;QM Integration Module;;07/25/1995
  1. ; REQUIRED VARIABLES
  1. ; QAQADICT = DATA DICTIONARY NUMBER
  1. ; QAQAFLD = FIELD NUMBER IN THE ABOVE DD
  1. ; X = FIELD VALUE TO BE CROSS REFERENCED
  1. ENKILL ; *** Execute a field's cross reference kill logic
  1. D CHECK G:QAQAEXIT EXIT S QAQAXSAV=X
  1. F QAQAXREF=0:0 S QAQAXREF=$O(^DD(QAQADICT,QAQAFLD,1,QAQAXREF)) Q:QAQAXREF'>0 S X=QAQAXSAV X:$D(^DD(QAQADICT,QAQAFLD,1,QAQAXREF,2))#2 ^(2)
  1. G EXIT
  1. ENSET ; *** Execute a field's cross reference set logic
  1. D CHECK G:QAQAEXIT EXIT S QAQAXSAV=X
  1. F QAQAXREF=0:0 S QAQAXREF=$O(^DD(QAQADICT,QAQAFLD,1,QAQAXREF)) Q:QAQAXREF'>0 S X=QAQAXSAV X:$D(^DD(QAQADICT,QAQAFLD,1,QAQAXREF,1))#2 ^(1)
  1. EXIT ;
  1. K QAQADICT,QAQAEXIT,QAQAFLD,QAQAXREF,QAQAXSAV
  1. Q
  1. CHECK ;
  1. S QAQAEXIT=$S($D(X)[0:1,$D(QAQADICT)[0:1,$D(QAQAFLD)[0:1,X="":1,QAQADICT'>0:1,QAQAFLD'>0:1,1:0)
  1. Q