- 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 Mar 13, 2025@21:46:46 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
