source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPRE07.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: 676 bytes
RevLine 
[613]1MCPRE07 ;HIRMFO/DAD-KILL RECORDS WITH NO ZERO NODES ;8/2/96 11:00
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCD0,MCDATA,MCFILE,MCOFFSET
5 S MCDATA(1)=""
6 S MCDATA(2)="Searching the Medicine files for bad records, (missing"
7 S MCDATA(3)="zero nodes). If found, these records will be killed."
8 D MES^XPDUTL(.MCDATA)
9 ;
10 F MCOFFSET=1:1 S MCFILE=$P($T(FILE+MCOFFSET),";",3) Q:MCFILE'>0 D
11 . S MCD0=0
12 . F S MCD0=$O(^MCAR(MCFILE,MCD0)) Q:MCD0'>0 D
13 .. I $G(^MCAR(MCFILE,MCD0,0))="" K ^MCAR(MCFILE,MCD0)
14 .. Q
15 . Q
16 Q
17FILE ;;File#
18 ;;690
19 ;;691
20 ;;691.1
21 ;;691.5
22 ;;691.6
23 ;;691.7
24 ;;691.8
25 ;;691.9
26 ;;692
27 ;;694
28 ;;694.5
29 ;;698
30 ;;698.1
31 ;;698.2
32 ;;698.3
33 ;;699
34 ;;699.5
35 ;;700
36 ;;701
Note: See TracBrowser for help on using the repository browser.