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

DGRPTX38.m

Go to the documentation of this file.

DGRPTX38 ; ;07/06/22

 S X=DE(42),DIC=DIE

 K ^DPT("APOS",$E(X,1,30),DA)

 S X=DE(42),DIC=DIE

 S X=DE(42),DIC=DIE

 I ($T(AVAFC^VAFCDD01)'="") S VAFCF=".323;" D AVAFC^VAFCDD01(DA)

 S X=DE(42),DIC=DIE

 D EVENT^IVMPLOG(DA)

 S X=DE(42),DIIX=2_U_DIFLD D AUDIT^DIET

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX38   270     printed  Apr 09, 2024@21:56:21                                                                                                                                                                                                     Page 2

DGRPTX38  ; ;07/06/22

 +1        SET X=DE(42)

           SET DIC=DIE

 +2        KILL ^DPT("APOS",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(42)

           SET DIC=DIE

 +4       ;

 +5        SET X=DE(42)

           SET DIC=DIE

 +6        IF ($TEXT(AVAFC^VAFCDD01)'="")

               SET VAFCF=".323;"

               DO AVAFC^VAFCDD01(DA)

 +7        SET X=DE(42)

           SET DIC=DIE

 +8        DO EVENT^IVMPLOG(DA)

 +9        SET X=DE(42)

           SET DIIX=2_U_DIFLD

           DO AUDIT^DIET