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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLOSP

Package: Patient Care Component Reports

Routine: APCLOSP


Information

APCLOSP ; IHS/CMI/LAB - print Operational summary ;

Source Information

Source file <APCLOSP.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 (CALC,DONE)^APCLOSUT  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Patient Care Component Reports 6 APCLOSP1  APCLOSP2  APCLOSP3  APCLOSP4  APCLOSP5  APCLOSP6  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;ENTRY POINT
SEGMNT ; OUTPUT A SEGMENT TYPE
HEAD1 ;
THIRD ;
EOJ ;ENTRY POINT
POP ;
START ;
DONE ;

External References

Name Field # of Occurrence
DD^%DT HEAD1+5
CALC^APCLOSUT POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
DONE^APCLOSUT DONE+2
^DIR HEAD+2
$$FMTE^XLFDT HEAD1+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PATIENT REGISTRATION"
  • Line Location: POP+2
Function Call: WRITE
  • Prompt: !!,"There are ",X," (",Z,") living patients registered at this ",$S(APCLLOCT="O":"facility.",1:"SU.")
  • Line Location: POP+4
Function Call: WRITE
  • Prompt: !,"This number does not represent the 'Active User Population' which",!,"is found elsewhere in PCC Reports."
  • Line Location: POP+5
Function Call: WRITE
  • Prompt: " There were ",X," (",Z,") new patients, ",!
  • Line Location: POP+7
Function Call: WRITE
  • Prompt: X," (",Z,") births, and "
  • Line Location: POP+9
Function Call: WRITE
  • Prompt: X," (",Z,") death(s) during this period. Data is",!,"based on the Patient Registration File."
  • Line Location: POP+11
Function Call: WRITE
  • Prompt: !!,"THIRD PARTY ELIGIBILITY"
  • Line Location: THIRD+2
Function Call: WRITE
  • Prompt: !!,"There were ",X," (",Z,") patients enrolled in Medicare Part A and "
  • Line Location: THIRD+4
Function Call: WRITE
  • Prompt: !,X," (",Z,") patients enrolled in Part B at the end of this time period."
  • Line Location: THIRD+6
Function Call: WRITE
  • Prompt: !!,"There were ",X," (",Z,") patients enrolled in Medicare Part D."
  • Line Location: THIRD+8
Function Call: WRITE
  • Prompt: !!,"There were also ",X," (",Z,") patients enrolled in Medicaid and"
  • Line Location: THIRD+10
Function Call: WRITE
  • Prompt: !,X," (",Z,") patients with an active private insurance policy as of that date."
  • Line Location: THIRD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?10,"PCC Operations Summary for ",APCLSUP,$S(APCLLOCT="O":"",APCLLOCT="S":" Service Unit",1:""),?70,"Page ",APCLPG
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?72,"Page ",APCLPG
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?((80-APCLLENG)/2),"OPERATIONS SUMMARY FOR ",APCLSUP,$S(APCLLOCT="O":"",APCLLOCT="S":" Service Unit",1:"")
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?33,"FOR ",Y
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !192,"FOR FY",APCLFY,"-To-Date as of ",APCLFYEY
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !?22,"FOR FY",APCLFY,"-To-Date: ",APCLFYBY," - ",APCLFYEY
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !?15,"FOR DATE RANGE: ",$$FMTE^XLFDT(APCLFYB)," - ",$$FMTE^XLFDT(APCLFYE)
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !!,"(Note: In parentheses following each statistic is the percent increase or",!,"decrease from the same time period in the previous year. '**' indicates",!,"no data is present for one of the two time periods.)",!
  • Line Location: HEAD1+9
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLOSC - [#9001003.2] SEGMNT+1
^APCLOST - [#9001003.1] START+6, SEGMNT+1
^AUTTSU - [#9999999.22] START+2, START+3
^DIC(4 - [#4] START+3
^XTMP("APCLOS" DONE+1!, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
^XTMP("APCLOSP" DONE+1!, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
^XTMP("APCLSU" START+3, DONE+1!

Label References

Name Line Occurrences
@( SEGMNT+2
HEAD START+5, POP+1, THIRD+1
HEAD1 HEAD+1
SEGMNT START+6

Naked Globals

Name Field # of Occurrence
^("BIRTHS" POP+8
^("DEATHS" POP+10
^("LIVREG" POP+3
^("MCD" THIRD+9
^("MCRA" THIRD+3
^("MCRB" THIRD+5
^("MCRD" THIRD+7
^("NEWREG" POP+6
^("PI" THIRD+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL1 EOJ+1!, EOJ+2!
APCL2 EOJ+1!, EOJ+2!
APCL3 EOJ+2!, EOJ+3!
APCLBT EOJ+2!
>> APCLBTH START+3, DONE+1, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9
, THIRD+11
APCLC EOJ+1!
APCLD EOJ+1!
>> APCLFY HEAD1+7
>> APCLFYB HEAD1+8
>> APCLFYBY HEAD1+7
>> APCLFYE HEAD1+8
>> APCLFYEY HEAD1+7
APCLGLOB EOJ+1!
>> APCLJOB START+3, DONE+1, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9
, THIRD+11
APCLLC EOJ+1!, EOJ+2!
APCLLENG EOJ+1!, HEAD1+2*, HEAD1+4
APCLLOCT START+2, START+3, START+4, EOJ+1!, POP+4, HEAD+4, HEAD1+4
APCLLWC EOJ+3!
APCLMAX EOJ+1!
>> APCLMFY HEAD1+5, HEAD1+7, HEAD1+8
>> APCLMON HEAD1+5
APCLN EOJ+1!
APCLPD EOJ+1!
APCLPG START+1*, EOJ+1!, HEAD+1, HEAD+3*, HEAD+4, HEAD1+1*, HEAD1+3
APCLPIEC EOJ+1!
APCLPTR EOJ+3!
APCLQUIT START+6!, POP+1, THIRD+1, HEAD+2*
APCLRPT START+6, EOJ+1!, SEGMNT+1
APCLSEGC EOJ+1!, SEGMNT+1*
APCLSEGN START+6*, EOJ+1!, SEGMNT+1
APCLSEGP EOJ+1!, SEGMNT+1*, SEGMNT+2
APCLSEGT EOJ+1!, SEGMNT+1*
>> APCLSQ START+6*
APCLSQIT EOJ+1!
APCLSU START+2, START+3, EOJ+1!
APCLSUN START+2*, START+3*, START+4*, EOJ+1!, HEAD1+2
APCLSUP START+2*, START+3*, START+4*, EOJ+1!, HEAD+4, HEAD1+4
APCLT EOJ+2!, EOJ+3!
APCLTOT EOJ+1!
APCLTOTC EOJ+2!, EOJ+3!
APCLTOTO EOJ+2!, EOJ+3!
APCLTYPE EOJ+1!
APCLWC EOJ+3!
APCLX EOJ+1!, EOJ+2!
APCLY EOJ+1!
DIR HEAD+2!
DIR(0 HEAD+2*
>> DTOUT HEAD+2
G EOJ+4!
IO HEAD+2
IO(0 HEAD+2
IOF HEAD+4, HEAD1+1
IOSL POP+1, THIRD+1
IOST HEAD+2
U START+2, START+3, SEGMNT+1, SEGMNT+2
X EOJ+4!, POP+3*, POP+4, POP+6*, POP+7, POP+8*, POP+9, POP+10*, POP+11, THIRD+3*
, THIRD+4, THIRD+5*, THIRD+6, THIRD+7*, THIRD+8, THIRD+9*, THIRD+10, THIRD+11*, THIRD+12
Y EOJ+4!, POP+3*, POP+6*, POP+8*, POP+10*, THIRD+3*, THIRD+5*, THIRD+7*, THIRD+9*, THIRD+11*
, HEAD+2, HEAD1+5*
Z EOJ+4!, POP+4, POP+7, POP+9, POP+11, THIRD+4, THIRD+6, THIRD+8, THIRD+10, THIRD+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All