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

DGX62.m

Go to the documentation of this file.

DGX62 ; ;02/01/23

 S X=DG(DQ),DIC=DIE

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGX62   84     printed  Apr 09, 2024@22:00:50                                                                                                                                                                                                         Page 2

DGX62     ; ;02/01/23

 +1        SET X=DG(DQ)

           SET DIC=DIE

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