source: WorldVistAEHR/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVTP1.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1ABSVTP1 ;VAMC ALTOONA/CTB - BUILD MASTER FILE FROM AUSTIN ;12/17/93 2:38 PM
2V ;;4.0;VOLUNTARY TIMEKEEPING;;JULY 6, 1994
3 ;THIS ROUTINE CONTINUES FROM ABSVTP AND LOOPS THROUGH TMP TO BUIL D MASTER FILE.
4EN I $S('$D(^ABS(503330,0)):1,$P(^(0),"^",3)+$P(^(0),"^",4)=0:1,1:0) G ^ABSVTP2
5 S X="There appears to be data in the Voluntary Master File #503330. I will not overwrite existing data. I will make new entries where necessary. Where an entry already exists, I will add the appropriate station information." D MSG^ABSVQ
6 S X="Since data exists, will now check to assure that there are no duplicate SSN's in your data." D MSG^ABSVQ,WAIT^ABSVYN
7 S SSN=0 F I=1:1 S SSN=$O(^ABS(503330,"D",SSN)) Q:SSN="" S N=$O(^ABS(503330,"D",SSN,0)) S N1=$O(^ABS(503330,"D",SSN,N)) I N1 W !,"DUPLICATE RECORDS EXIST FOR SSN ",SSN,". Correction Necessary" S SSNCK=""
8 I $D(SSNCK) K SSNCK S X="No further action can be taken until duplicate SSN's have been corrected.*" D MSG^ABSVQ Q
9 S X="No duplicate SSN's were found. Update will now continue." D MSG^ABSVQ
10 G ^ABSVTP2
Note: See TracBrowser for help on using the repository browser.