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

Package: Patient Care Component Reports

Routine: APCLFPRP


Information

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

Source Information

Source file <APCLFPRP.m>

Call Graph

Call Graph Total: 4

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

Entry Points

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

External References

Name Field # of Occurrence
DONE^APCLOSUT PEXIT+1
PAUSE^APCLVL01 SHOW+6, COUNT+1, COUNT+3
^DIR PPRC, FF+1
$$ICDOP^ICDEX PPRC+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF PROCEDURES 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 PROCEDURES REPORT **********"
  • Line Location: COUNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRC+0
Function Call: WRITE
  • Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. PRCs: ",APCLTOT,?40,"PRC/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)"
  • Line Location: PPRC+3
Function Call: WRITE
  • Prompt: !!!,"TOP ",APCLLNO," PRC's =>"
  • Line Location: PPRC+4
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P(^ICD0(APCLPRC,0),U),?15,$P(^ICD0(APCLPRC,0),U,4)," (",@APCLA,")"
  • Line Location: PPRC+5
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P($$ICDOP^ICDEX(APCLPRC,,,"I"),U,2),?15,$P($$ICDOP^ICDEX(APCLPRC,,,"I"),U,5)," (",@APCLA,")"
  • Line Location: PPRC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PPRC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Routine Call
  • DIR
  • Line Location:
    • PPRC
    • 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("APCLFPR" PEXIT+2!

Label References

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

Naked Globals

Name Field # of Occurrence
^(2 SHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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