DGPMX21 ; ;11/15/12
S X=DG(DQ),DIC=DIE
S DGPMDDF=7,DGPMDDT=1 D ^DGPMDDCN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPMX21 78 printed Dec 13, 2024@02:50:34 Page 2
+1 SET X=DG(DQ)
SET DIC=DIE
+2 SET DGPMDDF=7
SET DGPMDDT=1
DO ^DGPMDDCN