source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATTD9.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 468 bytes
Line 
1DICATTD9 ;SFISC/GFT ;10:55 AM 26 Jan 2001;MUMPS FIELDS
2 ;;22.0;VA FileMan;**42**;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
52 S DICATT2N="K",DICATT3N=""
6 S DICATT5N="K:$L(X)>245 X D:$D(X) ^DIM",DICATTLN=245
7 S DICATTMN="Enter Standard MUMPS code" D CHNG
8 D PUT^DDSVALF(7,,,"@","") ;no WRITE ACCESS
9 Q
10 ;
11CHNG I DICATT5N=DICATT5 K DICATTMN ;No DICATTMN means no change
12 D:$D(DICATTMN) PUT^DDSVALF(98,"DICATT",1,DICATTMN)
13 Q
14 ;
Note: See TracBrowser for help on using the repository browser.