Routine: KMPSUTL

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

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

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

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*

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

Customize PDF page

Package: SAGG Project

Routine: KMPSUTL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items