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

Package: Quasar

Routine: ACKQCDR


Information

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

Source Information

Source file <ACKQCDR.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
INPUT
PASS
DEV
DQ ;
EXIT ;
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",!,"Speech Pathology Service Cost Distribution Report.",!
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !!,"Total Clinic Hours for ",ACKXRNG,": ",$J((ACKTCH+ACKTSH),0,2)
  • Line Location: HRS+1
Function Call: WRITE
  • Prompt: !,"Of that total, ",$J(ACKTSH,0,2)," hours are Instructional Support (.12).",!,"Remaining Clinic Hours: ",$J(ACKTCH,0,2)
  • Line Location: HRS+2
Function Call: WRITE
  • Prompt: !!,"Now for pass through CDR accounts..."
  • Line Location: PASS+0
Function Call: WRITE
  • Prompt: !!,$C(7),"You have hours remaining but no clinic visits to which they can be",!,"distributed! That won't work...",!!
  • Line Location: PASS+3
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You can queue it to run at a later time.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED."
  • Line Location: DEV+1
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