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

Package: Patient Care Component Reports

Routine: APCLTENP


Information

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

Source Information

Source file <APCLTENP.m>

Call Graph

Call Graph Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
COUNT ;if COUNTING entries only
SETDASH(APCLG) ;
PEXIT
SHOW ;
CTR(X,Y) ;EP - Center X in a field Y wide.
COVPAGE ;EP
PAPC
EXCLP ;
FF
PRINT
PPOV

External References

Name Field # of Occurrence
DONE^APCLOSUT PEXIT
PAUSE^APCLVL01 SHOW+6, EXCLP+5, COUNT+1, COUNT+5
^DIR PPOV, FF+1
$$ICDDX^ICDEX EXCLP+6, PPOV+8, PPOV+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF DIAGNOSES REPORT **********"
  • Line Location: COVPAGE+2
Function Call: WRITE
  • Prompt: !,$$CTR("Report run at: "_X,80)
  • Line Location: COVPAGE+3
Function Call: WRITE
  • Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U)
  • Line Location: COVPAGE+4
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+5
Function Call: WRITE
  • Prompt: !,$S(APCLPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria"
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !!?5,"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: !!?5,"ALL (Primary and Secondary) POV's included.",!
  • Line Location: COUNT+2
Function Call: WRITE
  • Prompt: !!?5,"PRIMARY POV's Only",!
  • Line Location: COUNT+3
Function Call: WRITE
  • Prompt: !?20,"********** FREQUENCY OF DIAGNOSES REPORT **********"
  • Line Location: COUNT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PPOV+0
Function Call: WRITE
  • Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. POVs: ",APCLTOT,?40,"POV/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)"
  • Line Location: PPOV+2
Function Call: WRITE
  • Prompt: !!!,"TOP ",APCLLNO," POV's =>"
  • Line Location: PPOV+3
Function Call: WRITE
  • Prompt: !,?58,"# Visits",?68,"# Patients"
  • Line Location: PPOV+3
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P($$ICDDX^ICDEX(APCLPOV),U,2),?17,$E($P($$ICDDX^ICDEX(APCLPOV),U,4),1,40)
  • Line Location: PPOV+8
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PPOV+10
Function Call: WRITE
  • Prompt: ?J,"|_________"
  • Line Location: PPOV+16
Function Call: WRITE
  • Prompt: ?J,APCLDASH*10*X
  • Line Location: PPOV+18
Function Call: WRITE
  • Prompt: !!,"TOP ",APCLLNO," DIAGNOSTIC CATEGORIES =>",!
  • Line Location: PAPC+0
Function Call: WRITE
  • Prompt: !?3,I,".",?7,$P(^ICM(APCLAPC,0),U)," (",@B,")"
  • Line Location: PAPC+5
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PAPC+6
Function Call: WRITE
  • Prompt: ?J,"|_________"
  • Line Location: PAPC+11
Function Call: WRITE
  • Prompt: ?J,APCLDASH*10*X
  • Line Location: PAPC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: FF+1
Routine Call
  • DIR
  • Line Location:
    • PPOV
    • 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
^DIC(4 - [#4] COVPAGE+3
^ICM - [#80.3] PAPC+5, PAPC+6
^VA(200 - [#200] COVPAGE+4
^XTMP("APCLTEN" PPOV+9

Label References

Name Line Occurrences
$$CTR COVPAGE+3
EXCLP SHOW+4
FF PPOV+6, PPOV+14, PPOV+20, PAPC+4, PAPC+9
PEXIT PPOV+13, PPOV+14, PPOV+20, PAPC+9
SETDASH PPOV+7, PAPC+3

Naked Globals

Name Field # of Occurrence
^(2 SHOW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PPOV+1*, PPOV+10*, PAPC+6*, SETDASH+3*
>> A PPOV+1*, PPOV+7, PPOV+9, PPOV+10, PPOV+11
>> APCLALL COUNT+2
>> APCLAPC PAPC+2*, PAPC+5, PAPC+6
>> APCLBDD SHOW+2
>> APCLBT PPOV+9
>> APCLCHRT PPOV+3, PPOV+7, PPOV+8, PPOV+15, PAPC+3, PAPC+5, PAPC+10
>> APCLDASH PPOV+10, PPOV+18, PPOV+19, PAPC+6, PAPC+13, PAPC+14, SETDASH+5*
>> APCLDXT( EXCLP+4
>> APCLDXT(0 EXCLP+2
>> APCLEDD SHOW+2
>> APCLEXCL EXCLP+2
APCLG SETDASH~, SETDASH+2
>> APCLI SHOW+5*, SHOW+7, SHOW+8
>> APCLJOB PPOV+9
>> APCLLNO PPOV+3, PAPC
>> APCLPOV PPOV+5*, PPOV+8, PPOV+9, PPOV+10
>> APCLPRIM COUNT+3
>> APCLPTVS COVPAGE+5, SHOW+1, COUNT+4
APCLQ SHOW+8!, EXCLP+1!, EXCLP+4
APCLQUIT COUNT+7!, PPOV*, PPOV+4, PPOV+6, PPOV+13, PPOV+14, PPOV+20, PAPC+1, PAPC+4, PAPC+9
, FF+1*
>> APCLRPT SHOW+4, SHOW+5, SHOW+8
>> APCLSEAT SHOW+3
>> APCLTOT PPOV+2
>> APCLTYPE SHOW+2
>> APCLVTOT COUNT+4, PPOV+2
>> APCLX EXCLP+4*, EXCLP+6
>> APCLY SHOW+8*
>> B PPOV+1*, PAPC+3, PAPC+5, PAPC+6, PAPC+7
>> C SHOW+8*, PPOV+1*
D PPOV+10*, PAPC+6*, SETDASH+1~
DIR PPOV!, FF+1!
DIR(0 PPOV*, FF+1*
>> DTOUT PPOV, FF+1
DUZ COVPAGE+4
DUZ(2 COVPAGE+3
>> E PPOV+1*
F PPOV+1*, PPOV+4, PPOV+5, SETDASH+1~, SETDASH+3*
>> G PPOV+1*, PAPC+1, PAPC+2
>> I PPOV+4*, PPOV+5, PPOV+7, PPOV+8, PAPC+1*, PAPC+2, PAPC+3, PAPC+5
IO PPOV, FF+1
IO(0 PPOV, FF+1
IOF PRINT, COVPAGE+1, SHOW+6, EXCLP+5, COUNT+1, COUNT+6, FF, FF+2
IOM CTR+1
IOSL SHOW+6, EXCLP+5, COUNT+1, PPOV, PPOV+6, PPOV+14, PPOV+20, PAPC+4, PAPC+9
IOST PPOV, FF, FF+1
>> J PPOV+4*, PPOV+16*, PPOV+18*, PAPC+11*, PAPC+13*
L PPOV+10*, PAPC+6*, SETDASH+1~, SETDASH+2*, SETDASH+3*, SETDASH+4*, SETDASH+5
M SETDASH+1~, SETDASH+3*
U COVPAGE+3, COVPAGE+4, SHOW+3, SHOW+7, EXCLP+6, PPOV+8, PPOV+10, PAPC+5, PAPC+6
X COVPAGE+3*, SHOW+8*, PPOV+16*, PPOV+18*, PAPC+11*, PAPC+13*, CTR~, CTR+1, FF+1*
Y PPOV, CTR~, CTR+1, FF+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All