Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCPOS09

MCPOS09.m

Go to the documentation of this file.
  1. MCPOS09 ;HIRMFO/DAD-MOVE MICRO DESC REMARKS INTO WP FIELD ;5/31/96 12:48
  1. ;;2.3;Medicine;;09/13/1996
  1. ;
  1. N MCD0,MCDATA
  1. S MCDATA(1)=""
  1. S MCDATA(2)="Moving Micro Description Remarks from a free text field"
  1. S MCDATA(3)="to word processing field in the Hematology file (#694)."
  1. D MES^XPDUTL(.MCDATA)
  1. ;
  1. S MCD0=0
  1. F S MCD0=$O(^MCAR(694,MCD0)) Q:MCD0'>0 D
  1. . S MCDATA=$P($G(^MCAR(694,MCD0,7)),U)
  1. . K ^MCAR(694,MCD0,7)
  1. . I MCDATA="" Q
  1. . S ^MCAR(694,MCD0,7,0)="^^1^1^"_$$DT^XLFDT_"^"
  1. . S ^MCAR(694,MCD0,7,1,0)=MCDATA
  1. . Q
  1. Q