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

DGPTX43.m

Go to the documentation of this file.

DGPTX43 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 S ^DGPT(DA(1),"S","AO",$E(X,1,30),DA)=""

DGPTX43   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET ^DGPT(DA(1),"S","AO",$EXTRACT(X,1,30),DA)=""