source:
WorldVistAEHR/trunk/r/MEDICINE-MC/MCARAM0C.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 355 bytes |
Line | |
---|---|
1 | MCARAM0C ;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 | ; |
11 | DEL ; |
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.