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 Nov 22, 2024@18:00:35 Page 2
+1 SET X=DG(DQ)
SET DIC=DIE
+2 SET DGPMDDF=7
SET DGPMDDT=1
DO ^DGPMDDCN