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

Package: CMOP

Routine: PSXCSLOG


Information

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

Source Information

Source file <PSXCSLOG.m>

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

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