source: WorldVistAEHR/trunk/r/QUALITY_ASSURANCE_INTEGRATION-QAQ/QAQAXREF.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 901 bytes
Line 
1QAQAXREF ;HISC/DAD-EXECUTE SET AND KILL XREF'S ;5/12/92 14:08
2 ;;1.7;QM Integration Module;;07/25/1995
3 ; REQUIRED VARIABLES
4 ; QAQADICT = DATA DICTIONARY NUMBER
5 ; QAQAFLD = FIELD NUMBER IN THE ABOVE DD
6 ; X = FIELD VALUE TO BE CROSS REFERENCED
7ENKILL ; *** Execute a field's cross reference kill logic
8 D CHECK G:QAQAEXIT EXIT S QAQAXSAV=X
9 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)
10 G EXIT
11ENSET ; *** Execute a field's cross reference set logic
12 D CHECK G:QAQAEXIT EXIT S QAQAXSAV=X
13 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)
14EXIT ;
15 K QAQADICT,QAQAEXIT,QAQAFLD,QAQAXREF,QAQAXSAV
16 Q
17CHECK ;
18 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)
19 Q
Note: See TracBrowser for help on using the repository browser.