| [613] | 1 | VAQ2A ;ALB/CMM,JRP - PDX PATCH 15 FIELD VERIFIER ;01-FEB-95
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | FIX1 ;Verify triggered field/cross reference in VAQ - RELEASE GROUP file
|
|---|
| 5 | ;Kill "C" cross reference
|
|---|
| 6 | K ^VAT(394.82,"C")
|
|---|
| 7 | ;Declare variables
|
|---|
| 8 | N LOOP,LOC,COUNT,DIE,DA,DR,DIC,X,Y
|
|---|
| 9 | W !,?3,"Performing update of triggered values in VAQ - RELEASE GROUP file "
|
|---|
| 10 | ;Loop through all entries in 394.82 to re-stuff Remote Domain.
|
|---|
| 11 | ;Will update any entries that had external format and make it
|
|---|
| 12 | ;the pointer value.
|
|---|
| 13 | W "."
|
|---|
| 14 | S (LOOP,COUNT)=0,DIE="^VAT(394.82,"
|
|---|
| 15 | F S LOOP=+$O(^VAT(394.82,LOOP)) Q:('LOOP) D
|
|---|
| 16 | .S LOC=$P(^VAT(394.82,LOOP,0),"^",2)
|
|---|
| 17 | .S DA=LOOP,DR=".02///"_LOC
|
|---|
| 18 | .D ^DIE
|
|---|
| 19 | .S COUNT=COUNT+1
|
|---|
| 20 | .I '(COUNT#10) W "."
|
|---|
| 21 | Q
|
|---|
| 22 | FIX2 ;Verify triggered field/cross reference in VAQ - OUTGOING GROUP file
|
|---|
| 23 | ;Declare variables
|
|---|
| 24 | N ENT,LOOP,COUNT,LOC,DIE,DA,DR,DIC,X,Y
|
|---|
| 25 | W !,?3,"Performing update of triggered values in VAQ - OUTGOING GROUP file "
|
|---|
| 26 | ;Loop through all entries in 394.83 to re-stuff Remote Domain.
|
|---|
| 27 | ;Will update any entries that had external format and make
|
|---|
| 28 | ;it the pointer value.
|
|---|
| 29 | S (ENT,COUNT)=0
|
|---|
| 30 | W "."
|
|---|
| 31 | F S ENT=+$O(^VAT(394.83,ENT)) Q:('ENT) D
|
|---|
| 32 | .;Kill "A-OUTGRP" cross reference
|
|---|
| 33 | .K ^VAT(394.83,ENT,"FAC","A-OUTGRP")
|
|---|
| 34 | .S LOOP=0
|
|---|
| 35 | .F S LOOP=+$O(^VAT(394.83,ENT,"FAC",LOOP)) Q:('LOOP) D
|
|---|
| 36 | ..S LOC=$P(^VAT(394.83,ENT,"FAC",LOOP,0),"^",2)
|
|---|
| 37 | ..S DA(1)=ENT,DA=LOOP,DR=".02///"_LOC,DIE="^VAT(394.83,"_ENT_",""FAC"","
|
|---|
| 38 | ..D ^DIE
|
|---|
| 39 | ..S COUNT=COUNT+1
|
|---|
| 40 | ..I '(COUNT#10) W "."
|
|---|
| 41 | Q
|
|---|
