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  | All
Print Page as PDF
Routine: NVSTMPC

Package: National VistA Support

Routine: NVSTMPC


Information

NVSTMPC ;emc/maw-clean inactive jobs nodes in ^TMP ; 07/09/2004

Source Information

Source file <NVSTMPC.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 GETENV^%ZOSV  ($$FMTE,$$NOW)^XLFDT  $$CNV^XLFUTL  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
LVL1 ; first-level subscript...
LVL2 ; second-level subscript...
LVL3 ; third-level subscript...
OKDEL(OK) ; ask okay to delete...
; OK is passed by reference, returned 0 if NO 1 if YES

External References

Name Field # of Occurrence
GETENV^%ZOSV NVSTMPC+8
^DIR NVSTMPC+29, NVSTMPC+37, NVSTMPC+46, NVSTMPC+57, OKDEL+6
$$FMTE^XLFDT NVSTMPC+59
$$NOW^XLFDT NVSTMPC+59
$$CNV^XLFUTL NVSTMPC+6, LVL1+8, LVL2+10, LVL3+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CLEAN INACTIVE JOB NODES IN ^TMP GLOBAL"
  • Line Location: NVSTMPC+10
Function Call: WRITE
  • Prompt: !!,"Current Node: ",?18,NVSHNODE
  • Line Location: NVSTMPC+11
Function Call: WRITE
  • Prompt: !!,"This procedure will process down through the specified"
  • Line Location: NVSTMPC+12
Function Call: WRITE
  • Prompt: !,"number of subscript levels searching for PID numbers."
  • Line Location: NVSTMPC+13
Function Call: WRITE
  • Prompt: !,"When a PID is found, for those whose first three digits"
  • Line Location: NVSTMPC+14
Function Call: WRITE
  • Prompt: !,"match this node's hexidecimal PID prefix, a check is"
  • Line Location: NVSTMPC+15
Function Call: WRITE
  • Prompt: !,"invoked to determine if that PID is active. If it is"
  • Line Location: NVSTMPC+16
Function Call: WRITE
  • Prompt: !,"inactive, you have the choice of either reporting that"
  • Line Location: NVSTMPC+17
Function Call: WRITE
  • Prompt: !,"PID, or have this procedure delete that global node."
  • Line Location: NVSTMPC+18
Function Call: WRITE
  • Prompt: !,"If you choose to delete them, you will also be asked"
  • Line Location: NVSTMPC+19
Function Call: WRITE
  • Prompt: !,"whether you want to be prompted to delete the nodes,"
  • Line Location: NVSTMPC+20
Function Call: WRITE
  • Prompt: !,"or allow this process to automatically delete them."
  • Line Location: NVSTMPC+21
Function Call: WRITE
  • Prompt: !!,"*NOTE: THIS CLEAN UP IS SPECIFIC TO THIS NODE ONLY*"
  • Line Location: NVSTMPC+22
Function Call: WRITE
  • Prompt: !,"IT MUST BE RUN ON EACH NODE IN YOUR CLUSTER IN ORDER"
  • Line Location: NVSTMPC+23
Function Call: WRITE
  • Prompt: !,"TO CLEAN UP THE ^TMP GLOBAL ON EACH NODE."
  • Line Location: NVSTMPC+24
Function Call: WRITE
  • Prompt: !
  • Line Location: NVSTMPC+29
Function Call: WRITE
  • Prompt: !
  • Line Location: NVSTMPC+37
Function Call: WRITE
  • Prompt: !!,"Process type: ",$S(NVSTYPE="R":"Report only",1:"Clean up nodes")
  • Line Location: NVSTMPC+51
Function Call: WRITE
  • Prompt: !,"Action type : ",$S(NVSASK="Y":"Prompt for deletion",1:"Automatic deletion")
  • Line Location: NVSTMPC+52
Function Call: WRITE
  • Prompt: !,"Subscripts: ",NVSSUBS
  • Line Location: NVSTMPC+53
Function Call: WRITE
  • Prompt: !
  • Line Location: NVSTMPC+57
Function Call: WRITE
  • Prompt: !,"**REPORT ONLY**"
  • Line Location: NVSTMPC+60
Function Call: WRITE
  • Prompt: !!,"First level..."
  • Line Location: LVL1+1
Function Call: WRITE
  • Prompt: " -- not deleted."
  • Line Location: LVL1+16
Function Call: WRITE
  • Prompt: !!,NVSICNT," inactive PID",$S(NVSICNT>1:"s",1:"")," at first subscript level."
  • Line Location: LVL1+19
Function Call: WRITE
  • Prompt: !!,"Second level..."
  • Line Location: LVL2+1
Function Call: WRITE
  • Prompt: " -- not deleted."
  • Line Location: LVL2+18
Function Call: WRITE
  • Prompt: !!,NVSICNT," inactive PID",$S(NVSICNT>1:"s",1:"")," at second subscript level."
  • Line Location: LVL2+21
Function Call: WRITE
  • Prompt: !!,"Third level..."
  • Line Location: LVL3+1
Function Call: WRITE
  • Prompt: " -- not deleted."
  • Line Location: LVL3+20
Function Call: WRITE
  • Prompt: !!,NVSICNT," inactive PID",$S(NVSICNT>1:"s",1:"")," at third subscript level."
  • Line Location: LVL3+23
Routine Call
  • DIR
  • Line Location:
    • NVSTMPC+29
    • NVSTMPC+37
    • NVSTMPC+46
    • NVSTMPC+57
    • OKDEL+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^$JOB( LVL1+10, LVL2+12, LVL3+14
^TMP( LVL1+4, LVL1+17!, LVL2+4, LVL2+6, LVL2+19!, LVL3+4, LVL3+6, LVL3+8, LVL3+21!

Label References

Name Line Occurrences
@( NVSTMPC+63
OKDEL LVL1+15, LVL2+17, LVL3+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR NVSTMPC+29!, NVSTMPC+37!, NVSTMPC+46!, NVSTMPC+57!, OKDEL+2~, OKDEL+6!
DIR("?" NVSTMPC+28*, NVSTMPC+34*, NVSTMPC+35*, NVSTMPC+44*, NVSTMPC+45*
DIR("A" NVSTMPC+26*, NVSTMPC+33*, NVSTMPC+42*, NVSTMPC+55*, OKDEL+4*
DIR("B" NVSTMPC+27*, NVSTMPC+36*, NVSTMPC+43*, NVSTMPC+56*, OKDEL+5*
DIR(0 NVSTMPC+25*, NVSTMPC+32*, NVSTMPC+41*, NVSTMPC+54*, OKDEL+3*
DIRUT NVSTMPC+30!, NVSTMPC+38!, NVSTMPC+47, NVSTMPC+49!, NVSTMPC+65!, OKDEL+2~
DTOUT NVSTMPC+30!, NVSTMPC+38!, NVSTMPC+49!, NVSTMPC+65!, OKDEL+2~
NVSASK NVSTMPC+48*, NVSTMPC+50*, NVSTMPC+52, NVSTMPC+65!, LVL1+14, LVL1+15, LVL2+16, LVL2+17, LVL3+18, LVL3+19
NVSDEL LVL1+14*, LVL1+15, LVL1+16, LVL1+20!, LVL2+16*, LVL2+17, LVL2+18, LVL2+22!, LVL3+18*, LVL3+19
, LVL3+20, LVL3+24!
NVSHNODE NVSTMPC+9*, NVSTMPC+11, NVSTMPC+65!
NVSHP3 NVSTMPC+7*, NVSTMPC+65!, LVL1+8, LVL2+10, LVL3+12
NVSHPID NVSTMPC+6*, NVSTMPC+7, NVSTMPC+65!
NVSICNT LVL1+2*, LVL1+11*, LVL1+19, LVL1+20!, LVL2+2*, LVL2+13*, LVL2+21, LVL2+22!, LVL3+2*, LVL3+15*
, LVL3+23, LVL3+24!
NVSLVL NVSTMPC+62*, NVSTMPC+63, NVSTMPC+65!
NVSSUB NVSTMPC+61*, NVSTMPC+62, NVSTMPC+65!
NVSSUBS NVSTMPC+31*, NVSTMPC+38!, NVSTMPC+53, NVSTMPC+61, NVSTMPC+65!
NVSTYPE NVSTMPC+39*, NVSTMPC+40, NVSTMPC+51, NVSTMPC+52, NVSTMPC+60, NVSTMPC+65!, LVL1+13, LVL2+15, LVL3+17
OK OKDEL~, OKDEL+7*
X NVSTMPC+30!, NVSTMPC+38!, NVSTMPC+49!, NVSTMPC+65!, OKDEL+2~
X1 LVL1+3*, LVL1+4*, LVL1+6, LVL1+7, LVL1+8, LVL1+10, LVL1+12, LVL1+17, LVL1+20!, LVL2+3*
, LVL2+4*, LVL2+6, LVL2+14, LVL2+19, LVL2+22!, LVL3+3*, LVL3+4*, LVL3+6, LVL3+8, LVL3+16
, LVL3+21, LVL3+24!
X2 LVL2+5*, LVL2+6*, LVL2+8, LVL2+9, LVL2+10, LVL2+12, LVL2+14, LVL2+19, LVL2+22!, LVL3+5*
, LVL3+6*, LVL3+8, LVL3+16, LVL3+21, LVL3+24!
X3 LVL3+7*, LVL3+8*, LVL3+10, LVL3+11, LVL3+12, LVL3+14, LVL3+16, LVL3+21, LVL3+24!
Y NVSTMPC+9, NVSTMPC+30!, NVSTMPC+31, NVSTMPC+38!, NVSTMPC+39, NVSTMPC+49!, NVSTMPC+50, NVSTMPC+58, NVSTMPC+65!, OKDEL+2~
, OKDEL+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All