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),!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDVER 203 printed Dec 13, 2024@03:01:58 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