QACIENV ; OAKOIFO/TKW - ENVIRONMENT CHECK ROUTINE FOR PATCH QAC*2.0*19 (PATS) ;3/31/06 13:34 ;;2.0;Patient Representative;**19**;07/25/1995;Build 55 EN ; PATS Environment Check Routine ; Check to see if DGRR Broker Type options exist N DGOPTPL,DGOPTPC S DGOPTPL=$$FIND1^DIC(19,,"QX","DGRR GUI PATIENT LOOKUP","B") S DGOPTPC=$$FIND1^DIC(19,,"QX","DGRR PATIENT SERVICE QUERY","B") I 'DGOPTPL D S XPDABORT=1 . W !!,"The Patient Service Lookup Broker Type Option DGRR GUI PATIENT LOOKUP" . W !,"is not found on your VistA system. Patient Service Lookup" . W !,"must be installed prior to installing PATS!" . Q I 'DGOPTPC D S XPDABORT=1 . W !!,"The Patient Service Construct Broker Type Option DGRR PATIENT SERVICE QUERY" . W !,"is not found on your VistA system. Patient Service Construct" . W !,"must be installed prior to installing PATS!" . Q Q ; ;