source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS09.m@ 1150

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

initial load of WorldVistAEHR

File size: 529 bytes
Line 
1MCPOS09 ;HIRMFO/DAD-MOVE MICRO DESC REMARKS INTO WP FIELD ;5/31/96 12:48
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N MCD0,MCDATA
5 S MCDATA(1)=""
6 S MCDATA(2)="Moving Micro Description Remarks from a free text field"
7 S MCDATA(3)="to word processing field in the Hematology file (#694)."
8 D MES^XPDUTL(.MCDATA)
9 ;
10 S MCD0=0
11 F S MCD0=$O(^MCAR(694,MCD0)) Q:MCD0'>0 D
12 . S MCDATA=$P($G(^MCAR(694,MCD0,7)),U)
13 . K ^MCAR(694,MCD0,7)
14 . I MCDATA="" Q
15 . S ^MCAR(694,MCD0,7,0)="^^1^1^"_$$DT^XLFDT_"^"
16 . S ^MCAR(694,MCD0,7,1,0)=MCDATA
17 . Q
18 Q
Note: See TracBrowser for help on using the repository browser.