source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQ2A.m@ 1211

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1VAQ2A ;ALB/CMM,JRP - PDX PATCH 15 FIELD VERIFIER ;01-FEB-95
2 ;;1.5;PATIENT DATA EXCHANGE;**15**;NOV 17, 1993
3 ;
4FIX1 ;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
22FIX2 ;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
Note: See TracBrowser for help on using the repository browser.