- 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 Mar 13, 2025@21:03:55 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 ;
