Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: SD132EN

Package: Scheduling

Routine: SD132EN


Information

SD132EN ;ALB/MJK - Patch SD*5.3*132 Environmental Check Routine ; 11/5/97

Source Information

Source file <SD132EN.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; --- main entry point
EVT ; -- check SDAM APPOINTMENT EVENTS protocol for dangling pointers
EVTQ
PKG ; -- check if needed patches are installed
LINE(OK,REASON) ; -- print line of text
BUILD(SDLIST) ; -- scan patch list and build array
REASON(SDPATCH,SDPKG,SDPKGV,SDOVER) ; check if patch is loaded or not needed
REASONQ
DISPLAY(SDLIST) ; -- display patch info
OK(SDLIST) ; -- have all patch checks passed
PKGS ; -- packages to check [ package name ^ package namespace ^ patch designation ^ package version ]
REASONS ; -- reason list [ 0:failed ; 1:passed ^ reason text ]
QIK(SDQIK) ; -- create quick list
VALID(SDPKG) ; -- was a valid namespace pasted
PAUSE ; -- pause for return
SET(SDPKG) ; -- set override for package namespace
KILL(SDPKG) ; -- kill override for package namespace
KILLALL ; -- kill overrides for all package namespaces

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Environmental Checks Started..."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Environmental Checks Completed."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: " [",$S($G(XPDQUIT):"Failed",1:"Passed"),"]",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!?5,"Item #",SDITEM," on the 'SDAM APPOINTMENT EVENTS' protocol"
  • Line Location: EVT+10
Function Call: WRITE
  • Prompt: !?5,"is a dangling pointer and must be corrected/removed"
  • Line Location: EVT+11
Function Call: WRITE
  • Prompt: !?5,"before patch SD*5.3*132 can be installed."
  • Line Location: EVT+12
Function Call: WRITE
  • Prompt: !!,?5,"Please contact the Customer Support Help Desk for assistance."
  • Line Location: EVT+13
Function Call: WRITE
  • Prompt: !!," -> At least one patch check failed."
  • Line Location: PKG+12
Function Call: WRITE
  • Prompt: !!," -> All patch checks passed."
  • Line Location: PKG+14
Function Call: WRITE
  • Prompt: !," -> ",SDPKG,"...",$S(OK:"Ok",1:"not Ok"),?30,"Reason: ",REASON
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: @IOF,!,"Information On Patches Needed For SD*5.3*132 Install",!,SDLINE
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !?33,"Patch or",?50,"Passed"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Package",?33,"Version",?50,"Check",?58,"Reason",!,SDLINE
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,SDLIST(SDPKG,"PACKAGE NAME")
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: ?33,SDLIST(SDPKG,"PATCH")
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: " / ",SDLIST(SDPKG,"NEEDED VERSION")
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: ?50,$S($G(SDLIST(SDPKG,"PASSED")):"Yes",1:"No")
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: ?58,$E($G(SDLIST(SDPKG,"REASON TEXT")),1,25)
  • Line Location: DISPLAY+13
Function Call: WRITE
  • Prompt: !,SDLINE
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: "...invalid namespace passed!",!
  • Line Location: VALID+5
Function Call: WRITE
  • Prompt: " ...override set for '",SDPKG,"'",!
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: " ...override killed for '",SDPKG,"'",!
  • Line Location: KILL+4
Function Call: WRITE
  • Prompt: " ...killed",!
  • Line Location: KILLALL+2
Info |  Source |  Entry Points |  Interaction Calls