source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDSOPT.m@ 1710

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

initial load of WorldVistAEHR

File size: 604 bytes
RevLine 
[613]1DDSOPT ;SFISC/MLH,MKO-SCREENMAN OPTIONS ;07:32 AM 15 Jul 1994
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
40 S DIC="^DOPT(""DDS"","
5 G OPT:$D(^DOPT("DDS",1)) S ^(0)="SCREENMAN OPTION^1.01" K ^("B")
6 F X=1:1:4 S ^DOPT("DDS",X,0)=$P($T(@X),";;",2)
7 S DIK=DIC D IXALL^DIK
8OPT ;
9 S DIC(0)="AEQIZ" D ^DIC G Q:Y<0 S DI=+Y D EN G 0
10 ;
11EN ;Entry point for all screenman options
12 D @DI W !!
13Q K %,DI,DIC,DIK,X,Y Q
14 ;
151 ;;EDIT/CREATE A FORM
16CREATE G ^DDGF
17 ;
182 ;;RUN A FORM
19 G ^DDSRUN
20 ;
213 ;;DELETE A FORM
22 G ^DDSDFRM
23 ;
244 ;;PURGE UNUSED BLOCKS
25 G ^DDSDBLK
Note: See TracBrowser for help on using the repository browser.