Routine: PSXCSLOG

Information

PSXCSLOG ;BIR/JMB-Checks for Active Cost Tasks Before Queuing/View Cost Task Log ;[ 04/08/97 2:06 PM ]

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	1	($$FMDIFF,$$FMTE)^XLFDT
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
CMOP	2	PSXCST PSXCSTPG

Entry Points

Name	Comments	DBIA/ICR reference
CHECK	;Looks for jobs queued or running for same or overlapping date range.
VIEW	;Displays cost entries in 554
EXIT
DISP	;Displays one entry in cost task log.
HD

External References

Name	Field # of Occurrence
^DIR	HD+1
$$FMDIFF^XLFDT	DISP+10
$$FMTE^XLFDT	VIEW+2, VIEW+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"OH NO!" Line Location: CHECK+10
Function Call: WRITE	Prompt: !!,"Your task cannot be queued. The following active task(s) is for the same",!,"date range you have selected or for dates that overlap your date range.",!! Line Location: CHECK+13
Function Call: WRITE	Prompt: "Status Activity Data Date Range Task# Task Started",!,PSXSLN Line Location: CHECK+14
Function Call: WRITE	Prompt: !!,"There are no cost entries in the CMOP OPERATIONS file." Line Location: VIEW+1
Function Call: WRITE	Prompt: ?10,$S($P(PSXNODE,"^",6)="C":"Compile",$P(PSXNODE,"^",6)="P":"Purge",1:"Unknown") Line Location: DISP+3
Function Call: WRITE	Prompt: ?18,$E(PSXBDT,4,5)_$S(+$E(PSXBDT,6,7):"/"_$E(PSXBDT,6,7),1:"")_"/"_$E(PSXBDT,2,3)_"-"_$E(PSXEDT,4,5)_$S(+$E(PSXEDT,6,7):"/"_$E(PSXEDT,6,7),1:"")_"/"_$E(PSXEDT,2,3),?36,$P(PSXNODE,"^",8) Line Location: DISP+5
Function Call: WRITE	Prompt: ?43,$E($P(PSXSTART,"."),4,5)_"/"_$E($P(PSXSTART,"."),6,7)_"/"_$E($P(PSXSTART,"."),2,3)_"@"_$E($P(PSXSTART,".",2),1,4) Line Location: DISP+6
Function Call: WRITE	Prompt: 0 Line Location: DISP+7
Function Call: WRITE	Prompt: ?57,$E($P(PSXEND,"."),4,5)_"/"_$E($P(PSXEND,"."),6,7)_"/"_$E($P(PSXEND,"."),2,3)_"@"_$E($P(PSXEND,".",2),1,4) Line Location: DISP+8
Function Call: WRITE	Prompt: 0 Line Location: DISP+9
Function Call: WRITE	Prompt: !?18,"Queued by: "_PSXBY,! Line Location: DISP+12
Function Call: WRITE	Prompt: @IOF,!?11,"CONSOLIDATED MAIL OUTPATIENT PHARMACY COST ACTIVITY SUMMARY",!?23,"From "_PSXFIRST_" thru "_PSXLAST,!! Line Location: HD+2
Function Call: WRITE	Prompt: "Status Activity Data Date Range Task# Task Started Task Ended Task Time",!,PSXSLN Line Location: HD+3
Routine Call	DIR Line Location: HD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(554 - [#554]	CHECK+1, CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, VIEW+1, VIEW+2 , VIEW+3, VIEW+4, VIEW+5, DISP+1
^VA(200 - [#200]	DISP+11

Label References

Name	Line Occurrences
DISP	CHECK+15, VIEW+5
EXIT	VIEW+1
HD	VIEW+4, VIEW+5

Naked Globals

Name	Field # of Occurrence
^(0	DISP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	HD+1!
DIR(0	HD+1*
>> DTOUT	HD+1
>> DUOUT	HD+1
IOF	HD+2
IOSL	VIEW+5
PSXBDT	CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+10, EXIT!, DISP+4*, DISP+5
>> PSXBDTE	CHECK+9*, CHECK+10
PSXBY	EXIT!, DISP+11*, DISP+12
>> PSXCOM	CHECK+8
PSXEDT	CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+10, EXIT!, DISP+4*, DISP+5
>> PSXEDTE	CHECK+9*, CHECK+10
PSXEND	EXIT!, DISP+6*, DISP+8, DISP+9, DISP+10
>> PSXERR	CHECK+13*
PSXFIRST	VIEW+2*, EXIT!, HD+2
>> PSXI	DISP+7, DISP+9
PSXIEN	CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+9, CHECK+10, CHECK+15, VIEW+3* , VIEW+5*, EXIT!, DISP+1
PSXLAST	VIEW+3, VIEW+4, EXIT!, HD+2
PSXLOC	CHECK+1!
PSXLOC(	CHECK+4, CHECK+5, CHECK+6, CHECK+7, CHECK+10*, CHECK+15
PSXLOC(0	CHECK+11
PSXNODE	EXIT!, DISP+1*, DISP+2, DISP+3, DISP+4, DISP+5, DISP+6, DISP+11
PSXOUT	VIEW+2, VIEW+5, EXIT!, HD+1
PSXPAGE	VIEW+2, EXIT!, HD, HD+1
>> PSXSLN	CHECK+1, CHECK+13, CHECK+14, VIEW+2*, HD+3
>> PSXSTA	CHECK+2*
PSXSTART	EXIT!, DISP+6*, DISP+7, DISP+10

Customize PDF page

Package: CMOP