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

XU8P459.m

Go to the documentation of this file.

XU8P459 ;BP/BDT - Compile Print Template ;4/4/2007

 ;;8.0;KERNEL;**459**;Jul 10, 1995;Build 3

POST ;

 N X,Y,DMAX

 S X="XUCT01"

 S Y=$$FIND1^DIC(.4,"","MX","XUSERINQ","","","ERR")

 S DMAX=$$ROUSIZE^DILF

 I +Y>0 D EN^DIPZ

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P459   236     printed  Apr 09, 2024@21:14:45                                                                                                                                                                                                      Page 2

XU8P459   ;BP/BDT - Compile Print Template ;4/4/2007

 +1       ;;8.0;KERNEL;**459**;Jul 10, 1995;Build 3

 +2        QUIT

POST      ;

 +1        NEW X,Y,DMAX

 +2        SET X="XUCT01"

 +3        SET Y=$$FIND1^DIC(.4,"","MX","XUSERINQ","","","ERR")

 +4        SET DMAX=$$ROUSIZE^DILF

 +5        IF +Y>0

               DO EN^DIPZ

 +6        QUIT