Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSPOST

GMTSPOST.m

Go to the documentation of this file.
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