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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: KMPSUTL

Package: SAGG Project

Routine: KMPSUTL


Information

KMPSUTL ;SF/KAK - SAGG Utilities ;01 SEP 97 11:15 am

Source Information

Source file <KMPSUTL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 DD^%DT  YX^%DTC  ^DIC  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
SAGG Project 4 KMPS SAGG FILE  KMPS SAGG MAIL  KMPS SAGG STATUS  KMPS SAGG STOP  

Entry Points

Name Comments DBIA/ICR reference
STAT ;
END ;
STOP ;
SYS ;
FILE ;
MAIL ;

External References

Name Field # of Occurrence
DD^%DT STAT+4
YX^%DTC STAT+19
^DIC MAIL+2
^DIE FILE+4, FILE+13, MAIL+3
^DIR STOP+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?25,"SAGG Project Status",!,?29,"Version ",$P($T(+2),";",3),!,?(35-($L($P($T(+2),";",5))/2)),$P($T(+2),";",5),!
  • Line Location: STAT+1
Function Call: WRITE
  • Prompt: !," The 'SAGG Master Background Task' option [KMPS SAGG REPORT] is missing !",*7,!
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: !,?5,"The 'SAGG Master Background Task' [KMPS SAGG REPORT] is ",$S('KMPSTSK:"NOT ",1:""),"scheduled",$S('KMPSTSK:".",1:""),!
  • Line Location: STAT+6
Function Call: WRITE
  • Prompt: " every ",$S(KMPSX="":"UNKNOWN",1:+KMPSX)," ",$S(KMPSX["D":"day",KMPSX["M":"month",1:KMPSX)
  • Line Location: STAT+9
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: STAT+10
Function Call: WRITE
  • Prompt: !,?5,"SAGG Project collection routines will monitor the following:",!!,?7
  • Line Location: STAT+12
Function Call: WRITE
  • Prompt: !,?7
  • Line Location: STAT+13
Function Call: WRITE
  • Prompt: !,?5,"XTMP(""KMPS"") Global Location: ",$S($P(KMPSX,U,3)="":KMPSX2,1:$P(KMPSX,U,3)),",",$S($P(KMPSX,U,2)="":"UNKNOWN",1:$P(KMPSX,U,2)),!
  • Line Location: STAT+16
Function Call: WRITE
  • Prompt: !,?5,"Session #",%H
  • Line Location: STAT+19
Function Call: WRITE
  • Prompt: " is running for ",Y,".",!
  • Line Location: STAT+19
Function Call: WRITE
  • Prompt: " is running for ",Y,".",!
  • Line Location: STAT+19
Function Call: WRITE
  • Prompt: !,?5,"The SAGG Project routines are still running on:",!!,?7
  • Line Location: STAT+20
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: KMPS
  • Line Location: STAT+20
Function Call: WRITE
  • Prompt: KMPSX
  • Line Location: STAT+20
Function Call: WRITE
  • Prompt: KMPSX
  • Line Location: STAT+20
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: STAT+21
Function Call: WRITE
  • Prompt: @IOF,!,?5,"The SAGG Project collection routines have recorded an error on",!,?5,"Volume Set(s):",!!
  • Line Location: STAT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: STAT+21
Function Call: WRITE
  • Prompt: KMPSX
  • Line Location: STAT+22
Function Call: WRITE
  • Prompt: !,?5,"The SAGG Project collection routines have been informed to begin",!,?5,"an orderly shut-down process."
  • Line Location: STAT+23
Function Call: WRITE
  • Prompt: " The routines will stop running",!,?5,"after reaching the appropriate break-point."
  • Line Location: STAT+24
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue: "
  • Line Location: STAT+25
Function Call: WRITE
  • Prompt: !,?5,"The SAGG Project collection routines have not started.",!
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !,?5,"The SAGG Project collection routines have been notified to begin an",!,?5,"orderly shut-down process.",!
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !!,"Specify the "
  • Line Location: FILE+5
Function Call: WRITE
  • Prompt: $S(KMPSSYS="VAX":"Volume Sets",1:"Directories")
  • Line Location: FILE+5
Function Call: WRITE
  • Prompt: " which hold your VistA production globals:",!!,"For example:",!!,?10
  • Line Location: FILE+6
Function Call: WRITE
  • Prompt: "For DSM => ROU, VAA, VBB, VCC ... Vxx"
  • Line Location: FILE+7
Function Call: WRITE
  • Prompt: "For MSM => FDA, FDB, FDC ... FDx"
  • Line Location: FILE+8
Function Call: WRITE
  • Prompt: "For OpenM-NT => W:\VAA, W:\VBB, W:\VCC ... V:\Vxx"
  • Line Location: FILE+9
Function Call: WRITE
  • Prompt: "Specify all locations of VistA globals"
  • Line Location: FILE+10
Function Call: WRITE
  • Prompt: !!,"Do NOT specify 'scratch/test/training' "
  • Line Location: FILE+11
Function Call: WRITE
  • Prompt: $S(KMPSSYS="VAX":"Volume Sets",1:"Directories")
  • Line Location: FILE+11
Function Call: WRITE
  • Prompt: " (i.e., ZAA, UTL,"
  • Line Location: FILE+12
Function Call: WRITE
  • Prompt: !,"TST, etc.).",!
  • Line Location: FILE+12
Function Call: WRITE
  • Prompt: !!,"Specify the users that will receive SAGG notification messages.",!
  • Line Location: MAIL+1
Routine Call
  • DIE
  • Line Location:
    • FILE+4
    • FILE+13
    • MAIL+3
Routine Call
  • DIC
  • Line Location:
    • MAIL+2
Routine Call
  • DIR
  • Line Location:
    • STOP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] Classic Fileman Calls
^KMPS(8970.1 - [#8970.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" SYS+1
^%ZOSF("PROD" STAT+2
^DD("SITE" STAT+17
^DIC(19 - [#19] STAT+3, STAT+4
^DIC(19.2 - [#19.2] STAT+4, STAT+5
^KMPS(8970.1 - [#8970.1] STAT+13, STAT+14, STAT+16
^XTMP("KMPS" STAT+18, STAT+19, STAT+20, STAT+21, STAT+22, STAT+23, STAT+24, STOP+1, STOP+4*

Label References

Name Line Occurrences
END STAT+21
STAT STOP+2
SYS STAT+11, STAT+15, FILE+1

Naked Globals

Name Field # of Occurrence
^(0 STAT+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%H STAT+19*, END+1!
DA FILE+4*, FILE+13*, FILE+14!, MAIL+3*, MAIL+4!
DIC FILE+14!, MAIL+2*, MAIL+4!
DIC(0 MAIL+2*
DIE FILE+4*, FILE+13*, FILE+14!, MAIL+2*, MAIL+4!
DIR STOP+5!
DIR("A" STOP+3*
DIR("B" STOP+3*
DIR(0 STOP+3*
DLAYGO FILE+4*, FILE+14!, MAIL+2*, MAIL+4!
DR FILE+4*, FILE+13*, FILE+14!, MAIL+3*, MAIL+4!
DR(2 FILE+13*
DTIME STAT+21, STAT+25
IOF STAT+21
KMPS STAT+12*, STAT+13*, STAT+17*, STAT+18, STAT+19, STAT+20*, STAT+22*, END+1!
KMPSDA STAT+3*, STAT+4*, STAT+5, END+1!
KMPSSYS STAT+13, STAT+16, END+1!, FILE+1, FILE+5, FILE+7, FILE+8, FILE+9, FILE+10, FILE+11
, FILE+13, FILE+14!, SYS+1*
>> KMPSTSK STAT+5*, STAT+6, STAT+7, STAT+8
KMPSX STAT+4*, STAT+8, STAT+9*, STAT+10, STAT+12*, STAT+13*, STAT+14, STAT+16*, STAT+20*, STAT+22*
, END+1!
KMPSX2 STAT+2*, STAT+14, STAT+16, END+1!
KMPSX3 STAT+13, STAT+14*, END+1!
U STAT+2*, STAT+4, STAT+8, STAT+9, STAT+14, STAT+16, SYS+1
X STAT+21*, STAT+25*, END+1!, STOP+5!, MAIL+2*, MAIL+4!
Y STAT+4*, STAT+19, END+1!, STOP+4, STOP+5!, MAIL+3, MAIL+4!

Marked Items

Name Field # of Occurrence
$T( STAT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All