- ACHSEOBL ; IHS/ITSC/PMF - CHECK FOR EOBR POSTING JOB RUNNING ; [ 10/16/2001 8:16 AM ]
- ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- I $D(^ACHSUSE("EOBR")) U IO(0) W !!,*7,?10,"EOBR Posting in Progress -- Request Cancelled",!?15,"Enter <RETURN> to Continue " D RTRN^ACHS D ^XQ
- ACHSEOBL ; IHS/ITSC/PMF - CHECK FOR EOBR POSTING JOB RUNNING ; [ 10/16/2001 8:16 AM ]
- +1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- +2 IF $DATA(^ACHSUSE("EOBR"))
- USE IO(0)
- WRITE !!,*7,?10,"EOBR Posting in Progress -- Request Cancelled",!?15,"Enter <RETURN> to Continue "
- DO RTRN^ACHS
- DO ^XQ