source: WorldVistAEHR/trunk/r/PATIENT_REPRESENTATIVE-QAC/QACIENV.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 869 bytes
Line 
1QACIENV ; OAKOIFO/TKW - ENVIRONMENT CHECK ROUTINE FOR PATCH QAC*2.0*19 (PATS) ;3/31/06 13:34
2 ;;2.0;Patient Representative;**19**;07/25/1995;Build 55
3EN ; PATS Environment Check Routine
4 ; Check to see if DGRR Broker Type options exist
5 N DGOPTPL,DGOPTPC
6 S DGOPTPL=$$FIND1^DIC(19,,"QX","DGRR GUI PATIENT LOOKUP","B")
7 S DGOPTPC=$$FIND1^DIC(19,,"QX","DGRR PATIENT SERVICE QUERY","B")
8 I 'DGOPTPL D S XPDABORT=1
9 . W !!,"The Patient Service Lookup Broker Type Option DGRR GUI PATIENT LOOKUP"
10 . W !,"is not found on your VistA system. Patient Service Lookup"
11 . W !,"must be installed prior to installing PATS!"
12 . Q
13 I 'DGOPTPC D S XPDABORT=1
14 . W !!,"The Patient Service Construct Broker Type Option DGRR PATIENT SERVICE QUERY"
15 . W !,"is not found on your VistA system. Patient Service Construct"
16 . W !,"must be installed prior to installing PATS!"
17 . Q
18 Q
19 ;
20 ;
Note: See TracBrowser for help on using the repository browser.