- GMPLONI2 ; ; 25-AUG-1994
- ;;2.0;Problem List;;Aug 25, 1994
- ;
- ;
- K ^UTILITY("ORVROM",$J),DIC
- Q
- DT W !
- I '$D(DTIME) S DTIME=999
- K %DT D NOW^%DTC S DT=X
- K DIK,DIC,%I,DICS Q
- ;
- GMPLONI2 ; ; 25-AUG-1994
- +1 ;;2.0;Problem List;;Aug 25, 1994
- +2 ;
- +3 ;
- +4 KILL ^UTILITY("ORVROM",$JOB),DIC
- +5 QUIT
- DT WRITE !
- +1 IF '$DATA(DTIME)
- SET DTIME=999
- +2 KILL %DT
- DO NOW^%DTC
- SET DT=X
- +3 KILL DIK,DIC,%I,DICS
- QUIT
- +4 ;