| [613] | 1 | QAQAXREF ;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
|
|---|
| 7 | ENKILL ; *** 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
|
|---|
| 11 | ENSET ; *** 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)
|
|---|
| 14 | EXIT ;
|
|---|
| 15 | K QAQADICT,QAQAEXIT,QAQAFLD,QAQAXREF,QAQAXSAV
|
|---|
| 16 | Q
|
|---|
| 17 | CHECK ;
|
|---|
| 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
|
|---|
