Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ADGT163

ADGT163.m

Go to the documentation of this file.

ADGT163 ; ;04/14/04

 S X=DG(DQ),DIC=DIE

 S DGPMDDF=7,DGPMDDT=1 D ^DGPMDDCN

ADGT163   ; ;04/14/04

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET DGPMDDF=7

           SET DGPMDDT=1

           DO ^DGPMDDCN