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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQCDD

Package: Quasar

Routine: ACKQCDD


Information

ACKQCDD ;AUG/JLTP BIR/PTD HCIOFO/AG -Generate A&SP Service CDR for a Division; [ 03/03/98 3:10 PM ]

Source Information

Source file <ACKQCDD.m>

Entry Points

Name Comments DBIA/ICR reference
SITE ; check whether the CDR should be run for the site or for each Division
OPTN ;Introduce option.
HRS ; calculate the total clinic hours
INPUT ;
; ask user for flat values for Admin Support and Cont Education
PASS ; now do Pass-through accounts
DEV
DQ ; entry point if queued
EXIT ; always exit here
SAVE ;
SAVE2
DATES ;
DATES2
MONTH
RANGE ;
ENDD
YNFLAT ;
YNFLAT2
FNH ;
FNH2
SPREAD(X,Y) ;
LM() ;RETURN EXTERNAL VALUE OF LAST MONTH
LD(M) ;RETURN LAST DATE OF MONTH M
OK(YN) ;
OK2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"This option generates and prints the Audiology and"
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !,"Speech Pathology Service Cost Distribution Report"
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !,"for a single Division.",!
  • Line Location: OPTN+3
Function Call: WRITE
  • Prompt: !!,"Total Clinic Hours for ",ACKXRNG,": ",$J((ACKTCH+ACKTSH),0,2)
  • Line Location: HRS+6
Function Call: WRITE
  • Prompt: !,"Of that total, ",$J(ACKTSH,0,2)," hours are Instructional Support (.12)."
  • Line Location: HRS+8
Function Call: WRITE
  • Prompt: !,"Remaining Clinic Hours: ",$J(ACKTCH,0,2)
  • Line Location: HRS+9
Function Call: WRITE
  • Prompt: !!,"Now for pass through CDR accounts..."
  • Line Location: PASS+1
Function Call: WRITE
  • Prompt: !!,$C(7),"You have hours remaining but no clinic visits to which they can be"
  • Line Location: PASS+11
Function Call: WRITE
  • Prompt: !,"distributed! That won't work...",!!
  • Line Location: PASS+12
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80."
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"You can queue it to run at a later time.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: SAVE2+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: DATES2+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: MONTH+3
Function Call: WRITE
  • Prompt: !,$C(7),"Month Required!"
  • Line Location: MONTH+5
Function Call: WRITE
  • Prompt: !,$C(7),"Can't run for future dates!",!
  • Line Location: MONTH+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: RANGE+4
Function Call: WRITE
  • Prompt: !,$C(7),"Can't run for future dates!",!
  • Line Location: RANGE+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: ENDD+3
Function Call: WRITE
  • Prompt: !,"Can't run for future dates!",!
  • Line Location: ENDD+5
Function Call: WRITE
  • Prompt: !,"Can't be before Start Date!",!
  • Line Location: ENDD+6
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: YNFLAT2+5
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: FNH2+4
Function Call: WRITE
  • Prompt: !,"Jumping not allowed.",!
  • Line Location: OK2+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.8 - [#509850.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call