source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCARAM0F.m@ 1046

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

initial load of WorldVistAEHR

File size: 619 bytes
Line 
1MCARAM0F ;WASH ISC/JKL-MUSE AUTO INSTRUMENT REINIT-MISS TRAN REC ;1/31/95 11:31
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 ;
5 ;Called from ^MCARAM0
6 ;Deletes EKG records without transaction by IEN patient match
7 S (MCIEN,MCDATE,MCNAME,MCI,MCJ,MCZERO,MCK)=0
8 F S MCIEN=$O(^MCAR(691.5,MCIEN)) Q:MCIEN="B" S MCDATE=$P(^MCAR(691.5,MCIEN,0),"^"),MCSSN=^MCAR(691.5,MCIEN,.1) D CHECK
9 Q
10CHECK ;
11 S MCI=0 F S MCERR=0,MCI=$O(^MCAR(700.5,"B",MCDATE,MCI)) Q:MCI="" S MCZERO=^MCAR(700.5,MCI,0) I $P(MCZERO,"^",3)=MCSSN S MCERR=MCIEN Q
12 I MCERR=0 D DEL Q
13 Q
14DEL S DA=MCIEN,DIK="^MCAR(691.5," D ^DIK
15 S MCCNT=MCCNT+1
16 W:MCCNT#100=0 "."
17 Q
Note: See TracBrowser for help on using the repository browser.