Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCARAM0F

MCARAM0F.m

Go to the documentation of this file.
  1. MCARAM0F ;WASH ISC/JKL-MUSE AUTO INSTRUMENT REINIT-MISS TRAN REC ;1/31/95 11:31
  1. ;;2.3;Medicine;;09/13/1996
  1. ;
  1. ;
  1. ;Called from ^MCARAM0
  1. ;Deletes EKG records without transaction by IEN patient match
  1. S (MCIEN,MCDATE,MCNAME,MCI,MCJ,MCZERO,MCK)=0
  1. 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
  1. Q
  1. CHECK ;
  1. 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
  1. I MCERR=0 D DEL Q
  1. Q
  1. DEL S DA=MCIEN,DIK="^MCAR(691.5," D ^DIK
  1. S MCCNT=MCCNT+1
  1. W:MCCNT#100=0 "."
  1. Q