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

Package: Quasar

Routine: ACKQDWLR


Information

ACKQDWLR ;HCIOFO/BH-Print A&SP Capitation Report ; [ 06/06/99 10:45 AM ]

Source Information

Source file <ACKQDWLR.m>

Entry Points

Name Comments DBIA/ICR reference
SUMZIP ; Display summary of ZIP data
SUMICD ; Display summary of ICD data
SUMCPT ; Display summary of CPT data
SUMEC ; Display summary of EC data
HEADER ; Display heading of summary report section
ZIPHD ; Display sub heading for ZIP code
ICDCPTHD ; Display sub heading for ICD/CPT code
LINE ; Write line if dashes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMZIP+16
Function Call: WRITE
  • Prompt: " "_ACKZC
  • Line Location: SUMZIP+22
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUMZIP+37
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMZIP+48
Function Call: WRITE
  • Prompt: !," Grand Total",?32,ACKGT1,?45,ACKGT2,?59,ACKGT3,?72,ACKGT4,!
  • Line Location: SUMZIP+49
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMICD+14
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMICD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMICD+22
Function Call: WRITE
  • Prompt: " "_ACKIC
  • Line Location: SUMICD+23
Function Call: WRITE
  • Prompt: ?9,$P(ACKDIV(ACKDD),U,3)
  • Line Location: SUMICD+24
Function Call: WRITE
  • Prompt: ?32,$S($P(ACKSTR,U,1):$P(ACKSTR,U,1),1:"0")
  • Line Location: SUMICD+25
Function Call: WRITE
  • Prompt: ?45,$S($P(ACKSTR,U,2):$P(ACKSTR,U,2),1:"0")
  • Line Location: SUMICD+26
Function Call: WRITE
  • Prompt: ?59,$S($P(ACKSTR,U,3):$P(ACKSTR,U,3),1:"0")
  • Line Location: SUMICD+27
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUMICD+36
Function Call: WRITE
  • Prompt: !," "_XAS," Total: ",?32,@("ACKISCT"_AS),?45,@("ACKISTT"_AS)
  • Line Location: SUMICD+37
Function Call: WRITE
  • Prompt: ?59,@("ACKISUT"_AS),!
  • Line Location: SUMICD+38
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMICD+47
Function Call: WRITE
  • Prompt: !," Grand Total",?32,ACKGT1,?45,ACKGT2,?59,ACKGT3,!
  • Line Location: SUMICD+48
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMCPT+14
Function Call: WRITE
  • Prompt: " "_XAS,":"
  • Line Location: SUMCPT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMCPT+23
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(509850.4,ACKCC_",",.01)
  • Line Location: SUMCPT+24
Function Call: WRITE
  • Prompt: ?9,$P(ACKDIV(ACKDD),U,3)
  • Line Location: SUMCPT+25
Function Call: WRITE
  • Prompt: ?32,$S($P(ACKSTR,U,1):$P(ACKSTR,U,1),1:"0")
  • Line Location: SUMCPT+26
Function Call: WRITE
  • Prompt: ?45,$S($P(ACKSTR,U,2):$P(ACKSTR,U,2),1:"0")
  • Line Location: SUMCPT+27
Function Call: WRITE
  • Prompt: ?59,$S($P(ACKSTR,U,3):$P(ACKSTR,U,3),1:"0")
  • Line Location: SUMCPT+28
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUMCPT+37
Function Call: WRITE
  • Prompt: !," "_XAS," Total: ",?32,@("ACKCSCT"_AS),?45,@("ACKCSTT"_AS)
  • Line Location: SUMCPT+38
Function Call: WRITE
  • Prompt: ?59,@("ACKCSUT"_AS),!
  • Line Location: SUMCPT+39
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMCPT+48
Function Call: WRITE
  • Prompt: !," Grand Total",?32,ACKGT1,?45,ACKGT2,?59,ACKGT3,!
  • Line Location: SUMCPT+49
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMEC+13
Function Call: WRITE
  • Prompt: " "_XAS,":"
  • Line Location: SUMEC+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMEC+22
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(725,ACKCC_",",1,"I")
  • Line Location: SUMEC+23
Function Call: WRITE
  • Prompt: ?9,$P(ACKDIV(ACKDD),U,3)
  • Line Location: SUMEC+24
Function Call: WRITE
  • Prompt: ?32,$S($P(ACKSTR,U,1):$P(ACKSTR,U,1),1:"0")
  • Line Location: SUMEC+25
Function Call: WRITE
  • Prompt: ?45,$S($P(ACKSTR,U,2):$P(ACKSTR,U,2),1:"0")
  • Line Location: SUMEC+26
Function Call: WRITE
  • Prompt: ?59,$S($P(ACKSTR,U,3):$P(ACKSTR,U,3),1:"0")
  • Line Location: SUMEC+27
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SUMEC+36
Function Call: WRITE
  • Prompt: !," "_XAS," Total: ",?32,@("ACKCSCT"_AS),?45,@("ACKCSTT"_AS)
  • Line Location: SUMEC+37
Function Call: WRITE
  • Prompt: ?59,@("ACKCSUT"_AS),!
  • Line Location: SUMEC+38
Function Call: WRITE
  • Prompt: !," "_XAS,":"
  • Line Location: SUMEC+47
Function Call: WRITE
  • Prompt: !," Grand Total",?32,ACKGT1,?45,ACKGT2,?59,ACKGT3,!
  • Line Location: SUMEC+48
Function Call: WRITE
  • Prompt: @IOF,"Printed: ",ACKCDT,?(IOM-8),"Page: ",ACKPG
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !," "_ACKTYPE,?9,"DIVISION",?30,"CLINIC",?43,"TELEPHONE",?58,"UNIQUE"
  • Line Location: ZIPHD+2
Function Call: WRITE
  • Prompt: !," EXAMS",?30,"VISITS",?44,"VISITS",?57,"PATIENTS",?71,"C&P"
  • Line Location: ZIPHD+3
Function Call: WRITE
  • Prompt: !," "_ACKTYPE,?9,"DIVISION",?30,"CLINIC",?43,"TELEPHONE",?58,"UNIQUE"
  • Line Location: ICDCPTHD+2
Function Call: WRITE
  • Prompt: !," EXAMS",?30,"VISITS",?44,"VISITS",?57,"PATIENTS"
  • Line Location: ICDCPTHD+3
Function Call: WRITE
  • Prompt: !,X
  • Line Location: LINE+1

FileMan Files Accessed Via FileMan Db Call

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