Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 HOME^%ZIS  ($$PATCH,$$VERSION)^XPDUTL  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS EN+2
$$PATCH^XPDUTL REASON+5
$$VERSION^XPDUTL REASON+3

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] EVT+3, EVT+6, EVT+7, EVT+8
^XTMP("SD*5.3*132 OVERRIDE FLAGS" BUILD+7, SET+2*, SET+3*, KILL+2!, KILL+3!, KILLALL+1!

Label References

Name Line Occurrences
$$OK PKG+10
$$REASON BUILD+9
$$VALID SET+1, KILL+1
BUILD PKG+4
DISPLAY PKG+7
EVT EN+7
EVTQ EVT+4
PAUSE EVT+14, PKG+15
PKG EN+7
QIK VALID+3
REASONQ REASON+2, REASON+4, REASON+5, REASON+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT SET+2
DTIME PAUSE+2
IOF DISPLAY+4
IOM DISPLAY+2
OK LINE~, LINE+1
REASON LINE~, LINE+1
SDBAD EVT+1~, EVT+2*, EVT+6, EVT+9*, EVT+15
SDI BUILD+1~, BUILD+2*, QIK+1~, QIK+2*
SDIEN EVT+1~, EVT+7*, EVT+8
SDITEM EVT+1~, EVT+5*, EVT+6*, EVT+7, EVT+10
SDLINE DISPLAY+1~, DISPLAY+2*, DISPLAY+4, DISPLAY+6, DISPLAY+14
SDLIST PKG+1~, PKG+4, PKG+7, PKG+10, BUILD~, DISPLAY~, OK~
SDLIST( BUILD+12*, BUILD+13*, BUILD+14*, BUILD+15*, BUILD+16*, BUILD+17*, BUILD+18*, DISPLAY+8, DISPLAY+9, DISPLAY+10
, DISPLAY+11, DISPLAY+12, DISPLAY+13, OK+4, OK+5
SDMAIN EVT+1~, EVT+3*, EVT+4, EVT+6, EVT+7
SDOK OK+1~, OK+2*, OK+4, OK+5*, OK+6, VALID+1~, VALID+2*, VALID+4*, VALID+5, VALID+6
SDOVER BUILD+1~, BUILD+7*, BUILD+9, BUILD+18, REASON~, REASON+2
SDPATCH BUILD+1~, BUILD+5*, BUILD+9, BUILD+13, REASON~, REASON+5
SDPKG LINE+1, BUILD+1~, BUILD+4*, BUILD+7, BUILD+9, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+16
, BUILD+17, BUILD+18, REASON~, REASON+3, DISPLAY+7*, DISPLAY+8*, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12
, DISPLAY+13, OK+3*, OK+4*, OK+5, VALID~, VALID+4, SET~, SET+1, SET+3, SET+4
, KILL~, KILL+1, KILL+2, KILL+4
SDPKGN BUILD+1~, BUILD+3*, BUILD+12, DISPLAY+1~, OK+1~
SDPKGV BUILD+1~, BUILD+6*, BUILD+9, BUILD+14, REASON~, REASON+6
SDQIK QIK~, VALID+1~, VALID+3
SDQIK( QIK+3*, VALID+4
SDREASON BUILD+1~, BUILD+9*, BUILD+17, REASON+1~, REASON+2*, REASON+4*, REASON+5*, REASON+6*, REASON+7*, REASONQ
SDTEXT BUILD+1~, BUILD+10*, BUILD+15, BUILD+16
SDVERS REASON+1~, REASON+3*, REASON+4, REASON+6
SDX BUILD+1~, BUILD+2*, BUILD+3, BUILD+4, BUILD+5, BUILD+6, QIK+1~, QIK+2*, QIK+3
U EN+1*, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+16, QIK+3
>> XPDQUIT EN+10, EVT+15*, PKG+11*
Y PAUSE+1~, PAUSE+2*

Marked Items

Name Field # of Occurrence
$T(PKGS+SDI BUILD+2, QIK+2
$T(REASONS+SDREASON BUILD+10
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All