GMTSPOST.m

GMTSPOST ;SLC/JER - Post-init for Health Summary ;11/18/92  11:23

 ;;2.7;Health Summary;;Oct 20, 1995

 ;IHS/ITSC/LJF 8/8/2003 made changes to accommodate patches and new releases since postinit was written

 ;

MAIN ; Controls branching and execution

 N GMI,INCLUDE,GMTSEG,GMTSI,GMTSIFN,GMTJ,GMTSNM

 W !!,"Starting post-init action now...."

 D SPOOL,PARAM

 D INPHAR,DIET,OERR,VITALS,LAB,RAD,MHPE,PRGNOTE,SURG,DCS,CP,PL^GMTSPOS1,PCE,MED^GMTSPOS1,PSO^GMTSPOS1,OUTPHAR,SOWK^GMTSPOS1

 ;

 ;IHS/ITSC/LJF 8/8/2003 added call to check on disabling clinical reminder, GAF & Spinal cord dysfuntion components

 D CRIHS^GMTSPOS1,GAFIHS^GMTSPOS1,SCDIHS^GMTSPOS1,MAS^GMTSPOS1

 ;

 D EN^GMTSPOS2

 K ^GMT(142,12,1,"C") ;Get rid of "C" xref in case there are duplicate entries

 W !!,"'C' cross-reference on the GMTS AD HOC OPTION type in file 142 deleted."

 W !,"It will be rebuilt"

 S INCLUDE=0 D ENPOST^GMTSLOAD

 ;D ^GMTSONIT    ;IHS/ITSC/LJF 8/8/2003 not needed as KIDS install is being used

 W !!,"Post-init successfully completed."

 D FINITO

 K GMTSIST

 Q

SPOOL ; Convert spool name to pointer value

 N DIC,DIE,DA,X

 S X=$P($G(^GMT(142.99,1,0)),U,4)

 Q:+X!(X']"")  ;Quit is Spool Device is null or a numeric value

 S DIC=3.5,DIC(0)="X"

 D ^DIC

 W !!,"Converting "_X_" to a pointer value for Spool Device in Site Parameter file."

 I +Y'>0 D  Q

 . W !,"** Can't converted "_X_" to a pointer value. **"

 . W !,"Enter a Valid Spool Device using 'Edit Health Summary Site Parameters' option."

 S $P(^GMT(142.99,1,0),U,4)=+Y

 W !,X," converted successfully."

 Q

PARAM ; Convert YES/NO codes from 1/0 to Y/N

 N GMNUM,X

 F GMNUM=2,3,5 D

 . S X=$P($G(^GMT(142.99,1,0)),U,GMNUM)

 . Q:X']""!(X="Y")!(X="N")  ;Quit there is not entry or it is "Y" or "N"

 . I X=0 S $P(^GMT(142.99,1,0),U,GMNUM)=""

 . I X=1 S $P(^GMT(142.99,1,0),U,GMNUM)="Y"

 Q

INPHAR ; Checks conditions auto-disable of Inpatient Pharmacy components

 N GMMSG,X

 S X="PSJEEU0"

 X ^%ZOSF("TEST")

 Q:$T

 F X="PHARMACY INTRAVENOUS","PHARMACY UNIT DOSE" S GMMSG="Inpatient Medications not yet available" D DISABLE

 Q

OUTPHAR ; Checks conditions auto-disable of Outpatient Pharmacy components

 N GMMSG,X

 S X="PSOHCSUM"

 X ^%ZOSF("TEST")

 Q:$T

 F X="PHARMACY OUTPATIENT" S GMMSG="Outpatient Pharmacy not yet available" D DISABLE

 Q

DIET ; Checks conditions auto-disable of Dietetics

 N GMMSG,X

 S X="FHWHEA"

 X ^%ZOSF("TEST")

 Q:$T

 F X="DIETETICS" S GMMSG="Dietetics not yet available" D DISABLE

 Q

OERR ; Checks conditions auto-disable of OERR Orders

 N GMMSG,X

 S X="ORF4"

 X ^%ZOSF("TEST")

 Q:$T

 F X="ORDERS CURRENT" S GMMSG="OE/RR Orders not yet available" D DISABLE

 Q

VITALS ; Checks conditions auto-disable of Vitals

 N GMMSG,X

 S X="GMRVUT0"

 X ^%ZOSF("TEST")

 Q:$T

 ;

 ;IHS/ITSC/LJF 8/8/2003 new components released in patches since postinit was written

 ;F X="VITAL SIGNS","VITAL SIGNS SELECTED" S GMMSG="Vital Signs not yet available" D DISABLE

 F X="VITAL SIGNS","VITAL SIGNS SELECTED","VITAL SIGNS DETAILED DISPLAY","VITAL SIGNS OUTPATIENT","VITAL SIGNS SELECTED OUTPAT." S GMMSG="Vital Signs not yet available" D DISABLE

 ;IHS/ITSC/LJF 8/8/2003 end of mods

 ;

 Q

PRGNOTE ; Checks conditions auto-disable of Progress Note components

 ;

 ;IHS/ITSC/LJF 8/8/2003 changed code because since original postinit was written, TIU was released - globals changed

 I $D(^TIU(8925.1))<10 F X="ADVANCE DIRECTIVE","CLINICAL WARNINGS","CRISIS NOTES","PROGRESS NOTES","PROGRESS NOTES BRIEF","PROGRESS NOTES SELECTED","DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF" S GMMSG=X_" not yet available" D DISABLE

 Q

 ;IHS/ITSC/LJF 8/8/2003 end of mods

 ;

 N GMMSG,X

 I ($D(^YSP(606))<10),($D(^GMR(121))<10) F X="PROGRESS NOTES","PROGRESS NOTES BRIEF" S GMMSG="Progress Notes not yet available" D DISABLE

 I $D(^GMR(121))<10 F X="ADVANCE DIRECTIVE","CLINICAL WARNINGS","CRISIS NOTES" S GMMSG=X_" not yet available" D DISABLE

 Q

SURG ; Checks conditions for auto-disable of Surgery component

 N X,GMMSG

 ;IHS/ITSC/LJF 8/8/2003 new Surgery components released in patches since postinit written

 ;I $D(^SRF)<10 F X="SURGERY REPORTS","SURGERY REPORTS BRIEF" S GMMSG="Surgery Package not yet installed" D DISABLE

 I $D(^SRF)<10 F X="SURGERY REPORTS","SURGERY REPORTS BRIEF","SURGERY NON OR PROCEDURES","SURGERY ONLY REPORTS","SURGERY SEL NON OR PROCEDURES" S GMMSG="Surgery Package not yet installed" D DISABLE

 ;IHS/ITSC/LJF 8/8/2003 end of mods

 Q

DCS ; Checks conditions for auto-disable of Discharge Summary components

 ;

 Q  ;IHS/ITSC/LJF 8/8/2003 see mods to PRGNOTE subroutine

 ;

 N X,GMMSG

 I $D(^GMR(128))<10 D

 . S GMMSG="Discharge Summary Package not yet installed or available"

 . F X="DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF"  D DISABLE

 Q

CP ; Checks conditions for auto-disable of Compensation and Pension component

 N X,GMMSG

 ; Checks conditions for auto-disable of Comp & Pen component

 I +$$VERSION^XPDUTL("DVBA")<2.7 D

 . S GMMSG="Requires AMIE version 2.7"

 . S X="COMPENSATION AND PENSION EXAMS" D DISABLE^GMTSPOST

 Q

LAB ; Checks condition for auto-disable of Lab components

 N GMMSG,X

 I $$VERSION^XPDUTL("LR")<5.1 D

 . S GMMSG="Requires Lab version 5.1 or later"

 . F X="LAB BLOOD AVAILABILITY","LAB BLOOD TRANSFUSIONS","LAB CHEMISTRY & HEMATOLOGY","LAB CUMULATIVE SELECTED","LAB CUMULATIVE SELECTED 1" D DISABLE^GMTSPOST

 . F X="LAB CUMULATIVE SELECTED 2","LAB CUMULATIVE SELECTED 3","LAB CUMULATIVE SELECTED 4","LAB CYTOPATHOLOGY","LAB ELECTRON MICROSCOPY","LAB MICROBIOLOGY" D DISABLE^GMTSPOST

 . F X="LAB MICROBIOLOGY BRIEF","LAB ORDERS","LAB ORDERS BRIEF","LAB SURGICAL PATHOLOGY","LAB TESTS SELECTED" D DISABLE^GMTSPOST

 Q

RAD ; Checks condition for auto-disable of Radiology

 N GMMSG,X

 I $$VERSION^XPDUTL("RA")<3 D

 . ;

 . ;IHS/ITSC/LJF 8/8/2003 a patch changed names of components

 . S GMMSG="Requires Radiology version 3 or later"

 . ;F X="RADIOLOGY IMPRESSION","RADIOLOGY IMPRESSION SELECTED","RADIOLOGY PROFILE","RADIOLOGY STATUS" D DISABLE^GMTSPOST

 . F X="IMAGING IMPRESSION","IMAGING IMPRESSION SELECTED","IMAGING PROFILE","IMAGING STATUS" D DISABLE^GMTSPOST

 . ;IHS/ITSC/LJF 8/8/2003 end of mods

 Q

MHPE ; Checks condition for auto-disable of Mental Health

 N GMMSG,X

 I $$VERSION^XPDUTL("YS")<5 D

 . S GMMSG="Requires Mental Health version 5 or later"

 . F X="MENTAL HEALTH PHYSICAL EXAM" D DISABLE^GMTSPOST

 Q

PCE ; Checks for existence of PCE package...Disables components if absents

 N GMMSG,X

 I $$VERSION^XPDUTL("PX")'>0 D  ;Disable PCE components if PCE not installed nor available 

 . S GMMSG="Patient Care Encounter Package not yet installed"

 . F X="PCE LOCATION OF HOME","PCE CLINICAL REMINDERS","PCE HEALTH FACTORS SELECTED","PCE HEALTH FACTORS ALL","PCE OUTPATIENT ENCOUNTERS","PCE MEASUREMENTS NON-TABULAR","PCE IMMUNIZATIONS","PCE SKIN TESTS" D DISABLE^GMTSPOST

 . F X="PCE MEASUREMENTS SELECTED","PCE EDUCATION","PCE EDUCATION LATEST","PCE OUTPATIENT DIAGNOSIS","PCE EXAMS LATEST","PCE TREATMENTS PROVIDED" D DISABLE^GMTSPOST

 . F X="PCE CLINICAL MAINTENANCE" D DISABLE^GMTSPOST

 Q

DISABLE ; Disable components if auto-disable conditions are met

 N DA,DIC,DIE,DR,Y

 S DIC="^GMT(142.1,",DIC(0)="X" D ^DIC

 I +Y>0 D

 . W !,X," Health Summary Component disabled"

 . S DA=+Y,DR="5///"_"P"_";8///"_GMMSG,DIE=DIC D ^DIE

 Q

FINITO ; Finish initialization, inform user

 N GMTSIFT,GMTSITD,X

 S GMTSIFT=$$NOW^GMTSPREI,GMTSITD=$$DIFF(GMTSIFT,+$G(GMTSIST))

 W !!,"HEALTH SUMMARY VERSION 2.7 INITIALIZATION COMPLETE!"

 Q:'$L($T(FMDIFF^XLFDT))

 S X=$G(GMTSIST) D REGDTM^GMTSU

 W !!?9,"Initialization began at: ",X

 S X=GMTSIFT D REGDTM^GMTSU

 W !!?5,"Initialization completed at: ",X

 W !!?7,"TOTAL Initialization Time: ",GMTSITD

 Q

DIFF(END,BEGIN) ; Converts time difference to external format

 N DIFF,HR,MIN,SEC,Y

 S DIFF=$$FMDIFF^XLFDT(END,BEGIN,2),HR=DIFF\3600

 S MIN=DIFF\60,SEC=DIFF#60

 S HR=$E("00",0,2-$L(HR))_HR,MIN=$E("00",0,2-$L(MIN))_MIN,SEC=$E("00",0,2-$L(SEC))_SEC

 S Y=HR_":"_MIN_":"_SEC

 Q Y

GMTSPOST  ;SLC/JER - Post-init for Health Summary ;11/18/92  11:23

 +1       ;;2.7;Health Summary;;Oct 20, 1995

 +2       ;IHS/ITSC/LJF 8/8/2003 made changes to accommodate patches and new releases since postinit was written

 +3       ;

MAIN      ; Controls branching and execution

 +1        NEW GMI,INCLUDE,GMTSEG,GMTSI,GMTSIFN,GMTJ,GMTSNM

 +2        WRITE !!,"Starting post-init action now...."

 +3        DO SPOOL

           DO PARAM

 +4        DO INPHAR

           DO DIET

           DO OERR

           DO VITALS

           DO LAB

           DO RAD

           DO MHPE

           DO PRGNOTE

           DO SURG

           DO DCS

           DO CP

           DO PL^GMTSPOS1

           DO PCE

           DO MED^GMTSPOS1

           DO PSO^GMTSPOS1

           DO OUTPHAR

           DO SOWK^GMTSPOS1

 +5       ;

 +6       ;IHS/ITSC/LJF 8/8/2003 added call to check on disabling clinical reminder, GAF & Spinal cord dysfuntion components

 +7        DO CRIHS^GMTSPOS1

           DO GAFIHS^GMTSPOS1

           DO SCDIHS^GMTSPOS1

           DO MAS^GMTSPOS1

 +8       ;

 +9        DO EN^GMTSPOS2

 +10      ;Get rid of "C" xref in case there are duplicate entries

           KILL ^GMT(142,12,1,"C")

 +11       WRITE !!,"'C' cross-reference on the GMTS AD HOC OPTION type in file 142 deleted."

 +12       WRITE !,"It will be rebuilt"

 +13       SET INCLUDE=0

           DO ENPOST^GMTSLOAD

 +14      ;D ^GMTSONIT    ;IHS/ITSC/LJF 8/8/2003 not needed as KIDS install is being used

 +15       WRITE !!,"Post-init successfully completed."

 +16       DO FINITO

 +17       KILL GMTSIST

 +18       QUIT 

SPOOL     ; Convert spool name to pointer value

 +1        NEW DIC,DIE,DA,X

 +2        SET X=$PIECE($GET(^GMT(142.99,1,0)),U,4)

 +3       ;Quit is Spool Device is null or a numeric value

           IF +X!(X']"")

               QUIT 

 +4        SET DIC=3.5

           SET DIC(0)="X"

 +5        DO ^DIC

 +6        WRITE !!,"Converting "_X_" to a pointer value for Spool Device in Site Parameter file."

 +7        IF +Y'>0

               Begin DoDot:1

 +8                WRITE !,"** Can't converted "_X_" to a pointer value. **"

 +9                WRITE !,"Enter a Valid Spool Device using 'Edit Health Summary Site Parameters' option."

               End DoDot:1

               QUIT 

 +10       SET $PIECE(^GMT(142.99,1,0),U,4)=+Y

 +11       WRITE !,X," converted successfully."

 +12       QUIT 

PARAM     ; Convert YES/NO codes from 1/0 to Y/N

 +1        NEW GMNUM,X

 +2        FOR GMNUM=2,3,5

               Begin DoDot:1

 +3                SET X=$PIECE($GET(^GMT(142.99,1,0)),U,GMNUM)

 +4       ;Quit there is not entry or it is "Y" or "N"

                   IF X']""!(X="Y")!(X="N")

                       QUIT 

 +5                IF X=0

                       SET $PIECE(^GMT(142.99,1,0),U,GMNUM)=""

 +6                IF X=1

                       SET $PIECE(^GMT(142.99,1,0),U,GMNUM)="Y"

               End DoDot:1

 +7        QUIT 

INPHAR    ; Checks conditions auto-disable of Inpatient Pharmacy components

 +1        NEW GMMSG,X

 +2        SET X="PSJEEU0"

 +3        XECUTE ^%ZOSF("TEST")

 +4        IF $TEST

               QUIT 

 +5        FOR X="PHARMACY INTRAVENOUS","PHARMACY UNIT DOSE"

               SET GMMSG="Inpatient Medications not yet available"

               DO DISABLE

 +6        QUIT 

OUTPHAR   ; Checks conditions auto-disable of Outpatient Pharmacy components

 +1        NEW GMMSG,X

 +2        SET X="PSOHCSUM"

 +3        XECUTE ^%ZOSF("TEST")

 +4        IF $TEST

               QUIT 

 +5        FOR X="PHARMACY OUTPATIENT"

               SET GMMSG="Outpatient Pharmacy not yet available"

               DO DISABLE

 +6        QUIT 

DIET      ; Checks conditions auto-disable of Dietetics

 +1        NEW GMMSG,X

 +2        SET X="FHWHEA"

 +3        XECUTE ^%ZOSF("TEST")

 +4        IF $TEST

               QUIT 

 +5        FOR X="DIETETICS"

               SET GMMSG="Dietetics not yet available"

               DO DISABLE

 +6        QUIT 

OERR      ; Checks conditions auto-disable of OERR Orders

 +1        NEW GMMSG,X

 +2        SET X="ORF4"

 +3        XECUTE ^%ZOSF("TEST")

 +4        IF $TEST

               QUIT 

 +5        FOR X="ORDERS CURRENT"

               SET GMMSG="OE/RR Orders not yet available"

               DO DISABLE

 +6        QUIT 

VITALS    ; Checks conditions auto-disable of Vitals

 +1        NEW GMMSG,X

 +2        SET X="GMRVUT0"

 +3        XECUTE ^%ZOSF("TEST")

 +4        IF $TEST

               QUIT 

 +5       ;

 +6       ;IHS/ITSC/LJF 8/8/2003 new components released in patches since postinit was written

 +7       ;F X="VITAL SIGNS","VITAL SIGNS SELECTED" S GMMSG="Vital Signs not yet available" D DISABLE

 +8        FOR X="VITAL SIGNS","VITAL SIGNS SELECTED","VITAL SIGNS DETAILED DISPLAY","VITAL SIGNS OUTPATIENT","VITAL SIGNS SELECTED OUTPAT."

               SET GMMSG="Vital Signs not yet available"

               DO DISABLE

 +9       ;IHS/ITSC/LJF 8/8/2003 end of mods

 +10      ;

 +11       QUIT 

PRGNOTE   ; Checks conditions auto-disable of Progress Note components

 +1       ;

 +2       ;IHS/ITSC/LJF 8/8/2003 changed code because since original postinit was written, TIU was released - globals changed

 +3        IF $DATA(^TIU(8925.1))<10

               FOR X="ADVANCE DIRECTIVE","CLINICAL WARNINGS","CRISIS NOTES","PROGRESS NOTES","PROGRESS NOTES BRIEF","PROGRESS NOTES SELECTED","DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF"

                   SET GMMSG=X_" not yet available"

                   DO DISABLE

 +4        QUIT 

 +5       ;IHS/ITSC/LJF 8/8/2003 end of mods

 +6       ;

 +7        NEW GMMSG,X

 +8        IF ($DATA(^YSP(606))<10)

               IF ($DATA(^GMR(121))<10)

                   FOR X="PROGRESS NOTES","PROGRESS NOTES BRIEF"

                       SET GMMSG="Progress Notes not yet available"

                       DO DISABLE

 +9        IF $DATA(^GMR(121))<10

               FOR X="ADVANCE DIRECTIVE","CLINICAL WARNINGS","CRISIS NOTES"

                   SET GMMSG=X_" not yet available"

                   DO DISABLE

 +10       QUIT 

SURG      ; Checks conditions for auto-disable of Surgery component

 +1        NEW X,GMMSG

 +2       ;IHS/ITSC/LJF 8/8/2003 new Surgery components released in patches since postinit written

 +3       ;I $D(^SRF)<10 F X="SURGERY REPORTS","SURGERY REPORTS BRIEF" S GMMSG="Surgery Package not yet installed" D DISABLE

 +4        IF $DATA(^SRF)<10

               FOR X="SURGERY REPORTS","SURGERY REPORTS BRIEF","SURGERY NON OR PROCEDURES","SURGERY ONLY REPORTS","SURGERY SEL NON OR PROCEDURES"

                   SET GMMSG="Surgery Package not yet installed"

                   DO DISABLE

 +5       ;IHS/ITSC/LJF 8/8/2003 end of mods

 +6        QUIT 

DCS       ; Checks conditions for auto-disable of Discharge Summary components

 +1       ;

 +2       ;IHS/ITSC/LJF 8/8/2003 see mods to PRGNOTE subroutine

           QUIT 

 +3       ;

 +4        NEW X,GMMSG

 +5        IF $DATA(^GMR(128))<10

               Begin DoDot:1

 +6                SET GMMSG="Discharge Summary Package not yet installed or available"

 +7                FOR X="DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF"

                       DO DISABLE

               End DoDot:1

 +8        QUIT 

CP        ; Checks conditions for auto-disable of Compensation and Pension component

 +1        NEW X,GMMSG

 +2       ; Checks conditions for auto-disable of Comp & Pen component

 +3        IF +$$VERSION^XPDUTL("DVBA")<2.7

               Begin DoDot:1

 +4                SET GMMSG="Requires AMIE version 2.7"

 +5                SET X="COMPENSATION AND PENSION EXAMS"

                   DO DISABLE^GMTSPOST

               End DoDot:1

 +6        QUIT 

LAB       ; Checks condition for auto-disable of Lab components

 +1        NEW GMMSG,X

 +2        IF $$VERSION^XPDUTL("LR")<5.1

               Begin DoDot:1

 +3                SET GMMSG="Requires Lab version 5.1 or later"

 +4                FOR X="LAB BLOOD AVAILABILITY","LAB BLOOD TRANSFUSIONS","LAB CHEMISTRY & HEMATOLOGY","LAB CUMULATIVE SELECTED","LAB CUMULATIVE SELECTED 1"

                       DO DISABLE^GMTSPOST

 +5                FOR X="LAB CUMULATIVE SELECTED 2","LAB CUMULATIVE SELECTED 3","LAB CUMULATIVE SELECTED 4","LAB CYTOPATHOLOGY","LAB ELECTRON MICROSCOPY","LAB MICROBIOLOGY"

                       DO DISABLE^GMTSPOST

 +6                FOR X="LAB MICROBIOLOGY BRIEF","LAB ORDERS","LAB ORDERS BRIEF","LAB SURGICAL PATHOLOGY","LAB TESTS SELECTED"

                       DO DISABLE^GMTSPOST

               End DoDot:1

 +7        QUIT 

RAD       ; Checks condition for auto-disable of Radiology

 +1        NEW GMMSG,X

 +2        IF $$VERSION^XPDUTL("RA")<3

               Begin DoDot:1

 +3       ;

 +4       ;IHS/ITSC/LJF 8/8/2003 a patch changed names of components

 +5                SET GMMSG="Requires Radiology version 3 or later"

 +6       ;F X="RADIOLOGY IMPRESSION","RADIOLOGY IMPRESSION SELECTED","RADIOLOGY PROFILE","RADIOLOGY STATUS" D DISABLE^GMTSPOST

 +7                FOR X="IMAGING IMPRESSION","IMAGING IMPRESSION SELECTED","IMAGING PROFILE","IMAGING STATUS"

                       DO DISABLE^GMTSPOST

 +8       ;IHS/ITSC/LJF 8/8/2003 end of mods

               End DoDot:1

 +9        QUIT 

MHPE      ; Checks condition for auto-disable of Mental Health

 +1        NEW GMMSG,X

 +2        IF $$VERSION^XPDUTL("YS")<5

               Begin DoDot:1

 +3                SET GMMSG="Requires Mental Health version 5 or later"

 +4                FOR X="MENTAL HEALTH PHYSICAL EXAM"

                       DO DISABLE^GMTSPOST

               End DoDot:1

 +5        QUIT 

PCE       ; Checks for existence of PCE package...Disables components if absents

 +1        NEW GMMSG,X

 +2       ;Disable PCE components if PCE not installed nor available 

           IF $$VERSION^XPDUTL("PX")'>0

               Begin DoDot:1

 +3                SET GMMSG="Patient Care Encounter Package not yet installed"

 +4                FOR X="PCE LOCATION OF HOME","PCE CLINICAL REMINDERS","PCE HEALTH FACTORS SELECTED","PCE HEALTH FACTORS ALL","PCE OUTPATIENT ENCOUNTERS","PCE MEASUREMENTS NON-TABULAR","PCE IMMUNIZATIONS","PCE SKIN TESTS"

                       DO DISABLE^GMTSPOST

 +5                FOR X="PCE MEASUREMENTS SELECTED","PCE EDUCATION","PCE EDUCATION LATEST","PCE OUTPATIENT DIAGNOSIS","PCE EXAMS LATEST","PCE TREATMENTS PROVIDED"

                       DO DISABLE^GMTSPOST

 +6                FOR X="PCE CLINICAL MAINTENANCE"

                       DO DISABLE^GMTSPOST

               End DoDot:1

 +7        QUIT 

DISABLE   ; Disable components if auto-disable conditions are met

 +1        NEW DA,DIC,DIE,DR,Y

 +2        SET DIC="^GMT(142.1,"

           SET DIC(0)="X"

           DO ^DIC

 +3        IF +Y>0

               Begin DoDot:1

 +4                WRITE !,X," Health Summary Component disabled"

 +5                SET DA=+Y

                   SET DR="5///"_"P"_";8///"_GMMSG

                   SET DIE=DIC

                   DO ^DIE

               End DoDot:1

 +6        QUIT 

FINITO    ; Finish initialization, inform user

 +1        NEW GMTSIFT,GMTSITD,X

 +2        SET GMTSIFT=$$NOW^GMTSPREI

           SET GMTSITD=$$DIFF(GMTSIFT,+$GET(GMTSIST))

 +3        WRITE !!,"HEALTH SUMMARY VERSION 2.7 INITIALIZATION COMPLETE!"

 +4        IF '$LENGTH($TEXT(FMDIFF^XLFDT))

               QUIT 

 +5        SET X=$GET(GMTSIST)

           DO REGDTM^GMTSU

 +6        WRITE !!?9,"Initialization began at: ",X

 +7        SET X=GMTSIFT

           DO REGDTM^GMTSU

 +8        WRITE !!?5,"Initialization completed at: ",X

 +9        WRITE !!?7,"TOTAL Initialization Time: ",GMTSITD

 +10       QUIT 

DIFF(END,BEGIN) ; Converts time difference to external format

 +1        NEW DIFF,HR,MIN,SEC,Y

 +2        SET DIFF=$$FMDIFF^XLFDT(END,BEGIN,2)

           SET HR=DIFF\3600

 +3        SET MIN=DIFF\60

           SET SEC=DIFF#60

 +4        SET HR=$EXTRACT("00",0,2-$LENGTH(HR))_HR

           SET MIN=$EXTRACT("00",0,2-$LENGTH(MIN))_MIN

           SET SEC=$EXTRACT("00",0,2-$LENGTH(SEC))_SEC

 +5        SET Y=HR_":"_MIN_":"_SEC

 +6        QUIT Y