- DIPR163 ;O-OIFO/GMB-Envirocheck and Post Init ;2/23/2010
- ;;22.0;VA FileMan;**163**;Mar 30, 1999;Build 28
- ;Per VHA Directive 2004-038, this routine should not be modified.
- ENV ; Environmental Check
- D BMES^XPDUTL("Perform Environment Check...")
- D CHKSTOP
- D BMES^XPDUTL("Finished Environment Check.")
- Q
- POST ; Set DD changes to the PRINT TEMPLATE (#.4) file.
- S ^DD(.4,1815,1,0)="^.1^1^1"
- S ^DD(.4,1815,1,1,0)="^^^MUMPS"
- S ^DD(.4,1815,1,1,1)="Q"
- S ^DD(.4,1815,1,1,2)="D DELETROU^DIEZ($TR(X,U))"
- S ^DD(.4,"IX",1815)=""
- ; Set DD changes to the INPUT TEMPLATE (#.402) file.
- S ^DD(.402,1815,1,0)="^.1^1^1"
- S ^DD(.402,1815,1,1,0)="^^^MUMPS"
- S ^DD(.402,1815,1,1,1)="Q"
- S ^DD(.402,1815,1,1,2)="D DELETROU^DIEZ($TR(X,U))"
- S ^DD(.402,"IX",1815)=""
- S ^DD(.402,0,"ID","WRITED")="I $G(DZ)?1""???"".E N % S %=0 F S %=$O(^DIE(Y,""%D"",%)) Q:%'>0 I $D(^(%,0))#2 D EN^DDIOL(^(0),"""",""!?5"")"
- Q
- CHKSTOP ;
- ; Check XPDENV 0 = Loading; 1 = Installing
- Q:'XPDENV ; Loading Distribution - No Check
- ;
- ;
- INSCHK ; Do Checks During Install Only
- W $C(7)
- D MES^XPDUTL("** Although Queuing is allowed - it is HIGHLY recommended that ALL Users and")
- D MES^XPDUTL("VISTA Background jobs be STOPPED before installation of this patch. Failure")
- D MES^XPDUTL("to do so may result in 'source routine edited' error(s). Edits will be")
- D MES^XPDUTL("lost and record(s) may be left in an inconsistent state, for example,")
- D MES^XPDUTL("not all Cross-Referencing completed; which in turn may cause FUTURE")
- D MES^XPDUTL("VistA/FileMan Hard Errors or corrupted Data. **")
- ;
- TMCHK ; Check to see if TaskMan is still running
- S X=$$TM^%ZTLOAD
- I X,'$D(^%ZTSCH("WAIT")) D
- . W $C(7)
- . D BMES^XPDUTL("* Warning TaskMan Has NOT Been Stopped or Placed in a WAIT State!")
- ;
- LINH ; Check to see if Logons are Inhibited
- D GETENV^%ZOSV ; $P(Y,"^",2) = Installing Volume
- Q:$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
- W $C(7)
- D BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR163 2010 printed Feb 19, 2025@00:19:32 Page 2
- DIPR163 ;O-OIFO/GMB-Envirocheck and Post Init ;2/23/2010
- +1 ;;22.0;VA FileMan;**163**;Mar 30, 1999;Build 28
- +2 ;Per VHA Directive 2004-038, this routine should not be modified.
- ENV ; Environmental Check
- +1 DO BMES^XPDUTL("Perform Environment Check...")
- +2 DO CHKSTOP
- +3 DO BMES^XPDUTL("Finished Environment Check.")
- +4 QUIT
- POST ; Set DD changes to the PRINT TEMPLATE (#.4) file.
- +1 SET ^DD(.4,1815,1,0)="^.1^1^1"
- +2 SET ^DD(.4,1815,1,1,0)="^^^MUMPS"
- +3 SET ^DD(.4,1815,1,1,1)="Q"
- +4 SET ^DD(.4,1815,1,1,2)="D DELETROU^DIEZ($TR(X,U))"
- +5 SET ^DD(.4,"IX",1815)=""
- +6 ; Set DD changes to the INPUT TEMPLATE (#.402) file.
- +7 SET ^DD(.402,1815,1,0)="^.1^1^1"
- +8 SET ^DD(.402,1815,1,1,0)="^^^MUMPS"
- +9 SET ^DD(.402,1815,1,1,1)="Q"
- +10 SET ^DD(.402,1815,1,1,2)="D DELETROU^DIEZ($TR(X,U))"
- +11 SET ^DD(.402,"IX",1815)=""
- +12 SET ^DD(.402,0,"ID","WRITED")="I $G(DZ)?1""???"".E N % S %=0 F S %=$O(^DIE(Y,""%D"",%)) Q:%'>0 I $D(^(%,0))#2 D EN^DDIOL(^(0),"""",""!?5"")"
- +13 QUIT
- CHKSTOP ;
- +1 ; Check XPDENV 0 = Loading; 1 = Installing
- +2 ; Loading Distribution - No Check
- if 'XPDENV
- QUIT
- +3 ;
- +4 ;
- INSCHK ; Do Checks During Install Only
- +1 WRITE $CHAR(7)
- +2 DO MES^XPDUTL("** Although Queuing is allowed - it is HIGHLY recommended that ALL Users and")
- +3 DO MES^XPDUTL("VISTA Background jobs be STOPPED before installation of this patch. Failure")
- +4 DO MES^XPDUTL("to do so may result in 'source routine edited' error(s). Edits will be")
- +5 DO MES^XPDUTL("lost and record(s) may be left in an inconsistent state, for example,")
- +6 DO MES^XPDUTL("not all Cross-Referencing completed; which in turn may cause FUTURE")
- +7 DO MES^XPDUTL("VistA/FileMan Hard Errors or corrupted Data. **")
- +8 ;
- TMCHK ; Check to see if TaskMan is still running
- +1 SET X=$$TM^%ZTLOAD
- +2 IF X
- IF '$DATA(^%ZTSCH("WAIT"))
- Begin DoDot:1
- +3 WRITE $CHAR(7)
- +4 DO BMES^XPDUTL("* Warning TaskMan Has NOT Been Stopped or Placed in a WAIT State!")
- End DoDot:1
- +5 ;
- LINH ; Check to see if Logons are Inhibited
- +1 ; $P(Y,"^",2) = Installing Volume
- DO GETENV^%ZOSV
- +2 if $GET(^%ZIS(14.5,"LOGON",$PIECE(Y,"^",2)))
- QUIT
- +3 WRITE $CHAR(7)
- +4 DO BMES^XPDUTL("* Warning Logons are NOT Inhibited!")
- +5 QUIT