DIFROMSL(DIFRDD) ;SFISC/DCL-DIFROM SELECT FIELD FROM DD ;08:37 AM 6 Sep 1994
;;22.0;VA FileMan;;Mar 30, 1999;Build 1
;Per VHA Directive 10-93-142, this routine should not be modified.
;
;Select field from DD
N D0,D1,D2,D3,DA,DIC,DO,DIE,%,C,DC,DH,DI,DIA,DR,DIEL,DILK,DIOV,DIP,DK,DL,DM,DP,DQ,DSC,DV,DW,DXS,Y
S DIC="^DD("_DIFRDD_",",DIC(0)="AEMQ"
D ^DIC
S X=+Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIFROMSL 376 printed Dec 13, 2024@02:48:23 Page 2
DIFROMSL(DIFRDD) ;SFISC/DCL-DIFROM SELECT FIELD FROM DD ;08:37 AM 6 Sep 1994
+1 ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 ;Select field from DD
+5 NEW D0,D1,D2,D3,DA,DIC,DO,DIE,%,C,DC,DH,DI,DIA,DR,DIEL,DILK,DIOV,DIP,DK,DL,DM,DP,DQ,DSC,DV,DW,DXS,Y
+6 SET DIC="^DD("_DIFRDD_","
SET DIC(0)="AEMQ"
+7 DO ^DIC
+8 SET X=+Y
