source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCARAM0C.m@ 947

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

initial load of WorldVistAEHR

File size: 355 bytes
RevLine 
[613]1MCARAM0C ;WASH ISC/JKL- MUSE AUTO INSTRUMENT REINIT-NO DIAG ;1/31/95 11:27
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 ;
5 ;Called from ^MCARAM0
6 ;Deletes EKG records without diagnoses
7 S MCIEN=0
8 F S MCIEN=$O(^MCAR(691.5,MCIEN)) Q:MCIEN="B" I '$D(^MCAR(691.5,MCIEN,9)) D DEL
9 Q
10 ;
11DEL ;
12 S MCCNT=MCCNT+1
13 S DA=MCIEN,DIK="^MCAR(691.5," D ^DIK
14 W:MCCNT#100=0 "."
15 Q
Note: See TracBrowser for help on using the repository browser.