- PXRMV2E ; SLC/PKR - Environment check for PXRM*2.0. ;12/17/2004
- ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
- ;
- ;===============================================================
- ENVCHK ;Perform an environment check. Check for the existence of the globals
- ;that are indexed. If they exist then the index for that global must
- ;be built before v2.0 can be installed.
- N DIR,DIROUT,DIRUT,DTOUT,DUOUT,GNAME,NE,NG,NI,TEXTG,TEXTI,X,Y
- I $$VERSION^XPDUTL("PXRM")="2.0" S XPDABORT=1,TEXTI(1)="Reminders 2.0 has already been installed" D EN^DDIOL(.TEXTI) Q
- ;Ask if this is a Legacy system, if it is then don't require the
- ;index being built.
- S DIR(0)="Y"_U_"AO",DIR("B")="NO"
- W !,"Is this a Legacy system?"
- D ^DIR
- I Y Q
- S (NG,NI)=2
- ;
- ;LABORATORY TEST
- D CHECK(63,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;MENTAL HEALTH
- ;D CHECK(601.2,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;ORDERS
- D CHECK(100,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;PTF
- ;D CHECK(45,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;PHARMACY PATIENT
- D CHECK(55,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;PRESCRIPTION
- D CHECK(52,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;PROBLEM LIST
- D CHECK(9000011,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;RADIOLOGY
- D CHECK(70,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V CPT
- D CHECK(9000010.18,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V EXAM
- D CHECK(9000010.13,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V IMMUNIZATION
- D CHECK(9000010.11,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V PATIENT ED
- D CHECK(9000010.16,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V POV
- D CHECK(9000010.07,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;V SKIN TEST
- D CHECK(9000010.12,.NG,.TEXTG,.NI,.TEXTI)
- ;
- ;VITAL MEASUREMENT
- ;D CHECK(120.5,.NG,.TEXTG,.NI,.TEXTI)
- ;
- I NI>2 S XPDABORT=1
- I $G(XPDABORT) D
- . S TEXTI(1)="Clinical Reminders v2.0 cannot be installed because the following indexes"
- . S TEXTI(2)="are not built:"
- . D EN^DDIOL(.TEXTI)
- E D
- . S TEXTI(1)="Environment check passed, ok to install Clinical Reminders v2.0"
- . D EN^DDIOL(.TEXTI)
- ;
- I NG>2 D
- . S TEXTG(1)=" "
- . I NG=3 S TEXTG(2)="The following global does not have data or does not exist:"
- . I NG>3 S TEXTG(2)="The following globals do not have data or do not exist:"
- . S NG=NG+1,TEXTG(NG)="Because of this Clinical Reminder evaluation may not operate correctly on your system!"
- . D EN^DDIOL(.TEXTG)
- Q
- ;
- ;===============================================================
- CHECK(FNUM,NG,TEXTG,NI,TEXTI) ;
- N GNAME,NE
- S GNAME=$$GET1^DID(FNUM,"","","NAME")
- S NE=$$GET1^DID(FNUM,"","","ENTRIES")
- I NE="" S NG=NG+1,TEXTG(NG)=" "_GNAME_" does not exist"
- I NE=0 S NG=NG+1,TEXTG(NG)=" "_GNAME_" does not have any data"
- I (NE>0)&'$D(^PXRMINDX(FNUM,"DATE BUILT")) S NI=NI+1,TEXTI(NI)=" "_GNAME
- Q
- ;
- PXRMV2E ; SLC/PKR - Environment check for PXRM*2.0. ;12/17/2004
- +1 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
- +2 ;
- +3 ;===============================================================
- ENVCHK ;Perform an environment check. Check for the existence of the globals
- +1 ;that are indexed. If they exist then the index for that global must
- +2 ;be built before v2.0 can be installed.
- +3 NEW DIR,DIROUT,DIRUT,DTOUT,DUOUT,GNAME,NE,NG,NI,TEXTG,TEXTI,X,Y
- +4 IF $$VERSION^XPDUTL("PXRM")="2.0"
- SET XPDABORT=1
- SET TEXTI(1)="Reminders 2.0 has already been installed"
- DO EN^DDIOL(.TEXTI)
- QUIT
- +5 ;Ask if this is a Legacy system, if it is then don't require the
- +6 ;index being built.
- +7 SET DIR(0)="Y"_U_"AO"
- SET DIR("B")="NO"
- +8 WRITE !,"Is this a Legacy system?"
- +9 DO ^DIR
- +10 IF Y
- QUIT
- +11 SET (NG,NI)=2
- +12 ;
- +13 ;LABORATORY TEST
- +14 DO CHECK(63,.NG,.TEXTG,.NI,.TEXTI)
- +15 ;
- +16 ;MENTAL HEALTH
- +17 ;D CHECK(601.2,.NG,.TEXTG,.NI,.TEXTI)
- +18 ;
- +19 ;ORDERS
- +20 DO CHECK(100,.NG,.TEXTG,.NI,.TEXTI)
- +21 ;
- +22 ;PTF
- +23 ;D CHECK(45,.NG,.TEXTG,.NI,.TEXTI)
- +24 ;
- +25 ;PHARMACY PATIENT
- +26 DO CHECK(55,.NG,.TEXTG,.NI,.TEXTI)
- +27 ;
- +28 ;PRESCRIPTION
- +29 DO CHECK(52,.NG,.TEXTG,.NI,.TEXTI)
- +30 ;
- +31 ;PROBLEM LIST
- +32 DO CHECK(9000011,.NG,.TEXTG,.NI,.TEXTI)
- +33 ;
- +34 ;RADIOLOGY
- +35 DO CHECK(70,.NG,.TEXTG,.NI,.TEXTI)
- +36 ;
- +37 ;V CPT
- +38 DO CHECK(9000010.18,.NG,.TEXTG,.NI,.TEXTI)
- +39 ;
- +40 ;V EXAM
- +41 DO CHECK(9000010.13,.NG,.TEXTG,.NI,.TEXTI)
- +42 ;
- +43 ;V IMMUNIZATION
- +44 DO CHECK(9000010.11,.NG,.TEXTG,.NI,.TEXTI)
- +45 ;
- +46 ;V PATIENT ED
- +47 DO CHECK(9000010.16,.NG,.TEXTG,.NI,.TEXTI)
- +48 ;
- +49 ;V POV
- +50 DO CHECK(9000010.07,.NG,.TEXTG,.NI,.TEXTI)
- +51 ;
- +52 ;V SKIN TEST
- +53 DO CHECK(9000010.12,.NG,.TEXTG,.NI,.TEXTI)
- +54 ;
- +55 ;VITAL MEASUREMENT
- +56 ;D CHECK(120.5,.NG,.TEXTG,.NI,.TEXTI)
- +57 ;
- +58 IF NI>2
- SET XPDABORT=1
- +59 IF $GET(XPDABORT)
- Begin DoDot:1
- +60 SET TEXTI(1)="Clinical Reminders v2.0 cannot be installed because the following indexes"
- +61 SET TEXTI(2)="are not built:"
- +62 DO EN^DDIOL(.TEXTI)
- End DoDot:1
- +63 IF '$TEST
- Begin DoDot:1
- +64 SET TEXTI(1)="Environment check passed, ok to install Clinical Reminders v2.0"
- +65 DO EN^DDIOL(.TEXTI)
- End DoDot:1
- +66 ;
- +67 IF NG>2
- Begin DoDot:1
- +68 SET TEXTG(1)=" "
- +69 IF NG=3
- SET TEXTG(2)="The following global does not have data or does not exist:"
- +70 IF NG>3
- SET TEXTG(2)="The following globals do not have data or do not exist:"
- +71 SET NG=NG+1
- SET TEXTG(NG)="Because of this Clinical Reminder evaluation may not operate correctly on your system!"
- +72 DO EN^DDIOL(.TEXTG)
- End DoDot:1
- +73 QUIT
- +74 ;
- +75 ;===============================================================
- CHECK(FNUM,NG,TEXTG,NI,TEXTI) ;
- +1 NEW GNAME,NE
- +2 SET GNAME=$$GET1^DID(FNUM,"","","NAME")
- +3 SET NE=$$GET1^DID(FNUM,"","","ENTRIES")
- +4 IF NE=""
- SET NG=NG+1
- SET TEXTG(NG)=" "_GNAME_" does not exist"
- +5 IF NE=0
- SET NG=NG+1
- SET TEXTG(NG)=" "_GNAME_" does not have any data"
- +6 IF (NE>0)&'$DATA(^PXRMINDX(FNUM,"DATE BUILT"))
- SET NI=NI+1
- SET TEXTI(NI)=" "_GNAME
- +7 QUIT
- +8 ;
