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 ---[H[J[2J[HDDE1A 462 printed Oct 16, 2024@18:42:35 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
