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

XU8P381.m

Go to the documentation of this file.

XU8P381 ;ISF/RWF - Clean up DD 9.8

 ;;8.0;KERNEL;**381**;Jul 10, 1995;Build 2

POST ;

 N DIU

 I $G(^DD(9.8,3,0))'["SUBROUTINE^9.82" Q

 S DIU=9.82,DIU(0)="SD" D EN^DIU2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P381   185     printed  Dec 13, 2024@02:07:30                                                                                                                                                                                                      Page 2

XU8P381   ;ISF/RWF - Clean up DD 9.8

 +1       ;;8.0;KERNEL;**381**;Jul 10, 1995;Build 2

 +2        QUIT

 +3       ;

POST      ;

 +1        NEW DIU

 +2        IF $GET(^DD(9.8,3,0))'["SUBROUTINE^9.82"

               QUIT

 +3        SET DIU=9.82

           SET DIU(0)="SD"

           DO EN^DIU2

 +4        QUIT