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

DICATTD9.m

Go to the documentation of this file.
  1. DICATTD9 ;SFISC/GFT - MUMPS FIELDS ;10:55 AM 26 Jan 2001
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. 2 S DICATT2N="K",DICATT3N=""
  1. S DICATT5N="K:$L(X)>245 X D:$D(X) ^DIM",DICATTLN=245
  1. S DICATTMN="Enter Standard MUMPS code" D CHNG
  1. D PUT^DDSVALF(7,,,"@","") ;no WRITE ACCESS
  1. Q
  1. ;
  1. CHNG I DICATT5N=DICATT5 K DICATTMN ;No DICATTMN means no change
  1. D:$D(DICATTMN) PUT^DDSVALF(98,"DICATT",1,DICATTMN)
  1. Q
  1. ;