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

SDVER.m

Go to the documentation of this file.

SDVER ;MAN/GRR - SCHEDULING VERSION DISPLAY ; 22 AUG 84  10:48 am

 ;;5.3;Scheduling;;Aug 13, 1993

 S IOP=$S($D(ION):ION,1:"HOME") D ^%ZIS K IOP W !!!,"Scheduling Version ",$P($T(SDVER+1),";",3),!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDVER   203     printed  Oct 16, 2024@19:02:21                                                                                                                                                                                                        Page 2

SDVER     ;MAN/GRR - SCHEDULING VERSION DISPLAY ; 22 AUG 84  10:48 am

 +1       ;;5.3;Scheduling;;Aug 13, 1993

 +2        SET IOP=$SELECT($DATA(ION):ION,1:"HOME")

           DO ^%ZIS

           KILL IOP

           WRITE !!!,"Scheduling Version ",$PIECE($TEXT(SDVER+1),";",3),!

 +3        QUIT