DDE1A.m

DDE1A ;DOITFO/PLT - Entity Enter/Edit via FM ;AUG 1, 2018  12:37

 ;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 QUIT

 ;

 ;entity look-up

EN ;

 N X,Y,DIC,DA,DDEIEN,DDSFILE,DDSPAGE,DR,DDSPARM

 S DIC="^DDE(",DIC(0)="AELMQZ"

 D ^DIC G END:(X="")!(X?1"^".E),EN:Y<1 S DDEIEN=+Y

 S DA=DDEIEN,DDSFILE=1.5,DDSPAGE=1,DR="[DDE ENTITY ENTER/EDIT]",DDSPARM="CS"

 D ^DDS

 G EN

 ;

END ;

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DDE1A   462     printed  Apr 09, 2024@21:57:10                                                                                                                                                                                                        Page 2

DDE1A     ;DOITFO/PLT - Entity Enter/Edit via FM ;AUG 1, 2018  12:37

 +1       ;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;entity look-up

EN        ;

 +1        NEW X,Y,DIC,DA,DDEIEN,DDSFILE,DDSPAGE,DR,DDSPARM

 +2        SET DIC="^DDE("

           SET DIC(0)="AELMQZ"

 +3        DO ^DIC

           if (X="")!(X?1"^".E)

               GOTO END

           if Y<1

               GOTO EN

           SET DDEIEN=+Y

 +4        SET DA=DDEIEN

           SET DDSFILE=1.5

           SET DDSPAGE=1

           SET DR="[DDE ENTITY ENTER/EDIT]"

           SET DDSPARM="CS"

 +5        DO ^DDS

 +6        GOTO EN

 +7       ;

END       ;

 +1        QUIT