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: 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>

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

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
Info |  Source |  Entry Points |  Interaction Calls