source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS07.m@ 1800

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

initial load of WorldVistAEHR

File size: 607 bytes
Line 
1MCPOS07 ;HIRMFO/DAD-DELETE POINTERS TO LAB FILES ;8/2/96 10:32
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N DA,DIE,DR,MCD0,MCDATA,MCFIELD,MCFILE,MCOFFSET
5 S MCDATA(1)=""
6 S MCDATA(2)="Deleting pointers to Lab files."
7 D MES^XPDUTL(.MCDATA) K MCDATA
8 ;
9 F MCOFFSET=1:1 S MCDATA=$P($T(FILEFLD+MCOFFSET),";",3) Q:MCDATA="" D
10 . S MCFILE=$P(MCDATA,U),MCFIELD=$P(MCDATA,U,2)
11 . S MCD0=0
12 . F S MCD0=$O(^MCAR(MCFILE,MCD0)) Q:MCD0'>0 D
13 .. S DIE="^MCAR("_MCFILE_",",DA=MCD0,DR=MCFIELD_"///@"
14 .. D ^DIE
15 .. Q
16 . Q
17 Q
18 ;
19FILEFLD ;; File # ^ Field #
20 ;;693.5^1
21 ;;695.3^1
22 ;;695.5^1
23 ;;695.9^1
24 ;;696^2
25 ;;696.2^1
26 ;;697^2
Note: See TracBrowser for help on using the repository browser.