GMTSP98E ;WAT - ENV CHECK FOR GMTS*2.7*98 ;03/25/16 12:00
;;2.7;Health Summary;**98**;Oct 20, 1995;Build 88
;XPDUTL #10141
W !," Verifying installation environment...",!!
N GMTSABRT,GMTSRIEN,FLG18,FLG19 S (GMTSABRT,FLG18,FLG19)=0
I $$PATCH^XPDUTL("GMTS*2.7*98") D Q
. ;ensure types are at correct IEN.
. I +$O(^GMT(142,"B","REMOTE HT CLINICAL REMINDERS",""))=5000018 S FLG18=1
. I +$O(^GMT(142,"B","REMOTE HT TRACKING",""))=5000019 S FLG19=1
. I FLG18&(FLG19) W !," Verification complete; environment check passed " Q
. I 'FLG18 D MSG(5000018) S GMTSABRT=1
. I 'FLG19 D MSG(5000019) S GMTSABRT=1
. I GMTSABRT W !,"Please re-install HT TEMPLATES PROJECT 1.0 when necessary changes are complete." S XPDABORT=1 Q
F GMTSRIEN=5000018,5000019 D
.I $D(^GMT(142,GMTSRIEN)) D
..D MSG(GMTSRIEN) S GMTSABRT=1
..I +$G(GMTSABRT) W !,"Please re-install HT TEMPLATES PROJECT 1.0 when necessary changes are complete." S XPDABORT=1 Q
I +$G(GMTSABRT)=0 W !," Verification complete; environment check passed "
Q
;
MSG(IEN) ;abort message to screen
W !!,"!!! INSTALL ABORT !!!"
W !,"HEALTH SUMMARY TYPE IEN ***"_$G(IEN)_"*** is occupied."
W !,"This IEN is reserved for National REMOTE HEALTH SUMMARY TYPES and is expected"
W !,"to be undefined so that GMTS*2.7*98 may install a new entry in that location."
W !,"Please DO NOT delete the file entry at "_$G(IEN)
W !!,"Please DO contact the National Help Desk at 1-888-596-4357 and request"
W !,"a help desk ticket be created to the NTL SUP Clin 1 team."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP98E 1551 printed Nov 22, 2024@17:09:14 Page 2
GMTSP98E ;WAT - ENV CHECK FOR GMTS*2.7*98 ;03/25/16 12:00
+1 ;;2.7;Health Summary;**98**;Oct 20, 1995;Build 88
+2 ;XPDUTL #10141
+3 WRITE !," Verifying installation environment...",!!
+4 NEW GMTSABRT,GMTSRIEN,FLG18,FLG19
SET (GMTSABRT,FLG18,FLG19)=0
+5 IF $$PATCH^XPDUTL("GMTS*2.7*98")
Begin DoDot:1
+6 ;ensure types are at correct IEN.
+7 IF +$ORDER(^GMT(142,"B","REMOTE HT CLINICAL REMINDERS",""))=5000018
SET FLG18=1
+8 IF +$ORDER(^GMT(142,"B","REMOTE HT TRACKING",""))=5000019
SET FLG19=1
+9 IF FLG18&(FLG19)
WRITE !," Verification complete; environment check passed "
QUIT
+10 IF 'FLG18
DO MSG(5000018)
SET GMTSABRT=1
+11 IF 'FLG19
DO MSG(5000019)
SET GMTSABRT=1
+12 IF GMTSABRT
WRITE !,"Please re-install HT TEMPLATES PROJECT 1.0 when necessary changes are complete."
SET XPDABORT=1
QUIT
End DoDot:1
QUIT
+13 FOR GMTSRIEN=5000018,5000019
Begin DoDot:1
+14 IF $DATA(^GMT(142,GMTSRIEN))
Begin DoDot:2
+15 DO MSG(GMTSRIEN)
SET GMTSABRT=1
+16 IF +$GET(GMTSABRT)
WRITE !,"Please re-install HT TEMPLATES PROJECT 1.0 when necessary changes are complete."
SET XPDABORT=1
QUIT
End DoDot:2
End DoDot:1
+17 IF +$GET(GMTSABRT)=0
WRITE !," Verification complete; environment check passed "
+18 QUIT
+19 ;
MSG(IEN) ;abort message to screen
+1 WRITE !!,"!!! INSTALL ABORT !!!"
+2 WRITE !,"HEALTH SUMMARY TYPE IEN ***"_$GET(IEN)_"*** is occupied."
+3 WRITE !,"This IEN is reserved for National REMOTE HEALTH SUMMARY TYPES and is expected"
+4 WRITE !,"to be undefined so that GMTS*2.7*98 may install a new entry in that location."
+5 WRITE !,"Please DO NOT delete the file entry at "_$GET(IEN)
+6 WRITE !!,"Please DO contact the National Help Desk at 1-888-596-4357 and request"
+7 WRITE !,"a help desk ticket be created to the NTL SUP Clin 1 team."
+8 QUIT
+9 ;
