Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLFPCP

Package: Patient Care Component Reports

Routine: APCLFPCP


Information

APCLFPCP ; IHS/CMI/LAB - cont. of top ten ;

Source Information

Source file <APCLFPCP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Patient Care Component Reports 2 DONE^APCLOSUT  PAUSE^APCLVL01  
DRG Grouper 1 $$CPT^ICPTCOD  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;if COUNTING entries only
PEXIT ;
SHOW ;
COVPAGE ;EP
PCPT
FF
PRINT ;EP

External References

Name Field # of Occurrence
DONE^APCLOSUT PEXIT+1
PAUSE^APCLVL01 SHOW+6, COUNT+1, COUNT+3
^DIR PCPT, FF+1
$$CPT^ICPTCOD PCPT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF CPTS REPORT **********"
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"The following report contains a ",$S(APCLPTVS="V":"PCC Visit",1:"Patient")," report based on the",!,"following criteria:",!
  • Line Location: COVPAGE+4
Function Call: WRITE
  • Prompt: !,$S(APCLPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!,"ALL VISITS IN DATE RANGE SELECTED."
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: " ; "
  • Condition for execution: C'=1&(APCLY'="")
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF CPTS REPORT **********"
  • Line Location: COUNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PCPT+0
Function Call: WRITE
  • Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. CPTs: ",APCLTOT,?40,"CPT/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)"
  • Line Location: PCPT+3
Function Call: WRITE
  • Prompt: !!!,"TOP ",APCLLNO," CPT's =>"
  • Line Location: PCPT+4
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P(^ICPT(APCLCPT,0),U),?15,$P(^ICPT(APCLCPT,0),U,2)," (",@APCLA,")"
  • Line Location: PCPT+5
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P($$CPT^ICPTCOD(APCLCPT),U,2),?15,$P($$CPT^ICPTCOD(APCLCPT),U,3)," (",@APCLA,")"
  • Line Location: PCPT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PCPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Routine Call
  • DIR
  • Line Location:
    • PCPT
    • FF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLVRPT - [#9001003.8] SHOW+4, SHOW+5, SHOW+8
^APCLVSTS - [#9001003.7] SHOW+7, SHOW+8
^DIBT( SHOW+3
^VA(200 - [#200] COVPAGE+3
^XTMP("APCLFPC" PEXIT+2!

Label References

Name Line Occurrences
COUNT SHOW+4
FF PCPT+6, PCPT+7
PEXIT PCPT+6, PCPT+7

Naked Globals

Name Field # of Occurrence
^(2 SHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PCPT+2*, PCPT+7*
>> APCLA PCPT+2*, PCPT+6
>> APCLBDD SHOW+2
>> APCLBT PEXIT+2
>> APCLCPT PCPT+6*
>> APCLEDD SHOW+2
>> APCLF PCPT+2*, PCPT+6
>> APCLI SHOW+5*, SHOW+7, SHOW+8
>> APCLJOB PEXIT+2
>> APCLLINO PCPT+3*, PCPT+4*, PCPT+6*, PCPT+7*
>> APCLLNO PCPT+4
>> APCLPTVS COVPAGE+4, SHOW+1, COUNT+2
APCLQ SHOW+8!, SHOW+9!
>> APCLQUIT PCPT*
>> APCLRPT SHOW+4, SHOW+5, SHOW+8
>> APCLSEAT SHOW+3
>> APCLTOT PCPT+3
>> APCLTYPE SHOW+2, SHOW+3
>> APCLVTOT COUNT+2, PCPT+3
>> APCLY SHOW+8*
>> C SHOW+8*
DIR PCPT!, FF+1!
DIR(0 PCPT*, FF+1*
>> DTOUT PCPT, FF+1
DUZ COVPAGE+3
>> I PCPT+6*
IO PCPT, FF+1
IO(0 PCPT, FF+1
IOF COVPAGE+1, SHOW+6, COUNT+1, COUNT+4, PCPT+1, FF, FF+2
IOSL SHOW+6, COUNT+1, PCPT, PCPT+1, PCPT+6, PCPT+7
IOST PCPT, FF, FF+1
U COVPAGE+3, SHOW+3, SHOW+7, PCPT+6, PCPT+7
>> X SHOW+8*, PCPT+6, PCPT+7, FF+1*
>> Y PCPT, FF+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All