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

DGPTX71.m

Go to the documentation of this file.
  1. DGPTX71 ; ;10/15/12
  1. S X=DE(23),DIC=DIE
  1. X "N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)"