- 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 Feb 19, 2025@00:14:37 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
