DVBCROP1.m

DVBCROP1 ;ALB/GTS-557/THM-REOPEN REQUESTS/EXAMS, CONTINUED ; 11/16/90  7:39 AM

 ;;2.7;AMIE;**193**;Apr 10, 1995;Build 84

 ;

STATUS1 W *7,!!,"Since this request has reopened, its status will",!,"be PENDING, REPORTED.",!!,"Be sure to regenerate any exam worksheets that will be needed",!,"for this request.",!!

 W "Press RETURN to continue " R ANS:DTIME ;if timeout, properly set record

 ;AJF;Request Status conversion

 K DR S DIE="^DVB(396.3,",DR="6///@;11///@;12///@;13///@;14///@;15///@;16///@;17////2;19///@;20///@;26///@",DA=REQDA D ^DIE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCROP1   552     printed  Feb 18, 2025@23:14:58                                                                                                                                                                                                     Page 2

DVBCROP1  ;ALB/GTS-557/THM-REOPEN REQUESTS/EXAMS, CONTINUED ; 11/16/90  7:39 AM

 +1       ;;2.7;AMIE;**193**;Apr 10, 1995;Build 84

 +2       ;

STATUS1    WRITE *7,!!,"Since this request has reopened, its status will",!,"be PENDING, REPORTED.",!!,"Be sure to regenerate any exam worksheets that will be needed",!,"for this request.",!!

 +1       ;if timeout, properly set record

           WRITE "Press RETURN to continue "

           READ ANS:DTIME

 +2       ;AJF;Request Status conversion

 +3        KILL DR

           SET DIE="^DVB(396.3,"

           SET DR="6///@;11///@;12///@;13///@;14///@;15///@;16///@;17////2;19///@;20///@;26///@"

           SET DA=REQDA

           DO ^DIE

 +4        QUIT