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

Package: Patient Care Component Reports

Routine: APCL2AP


Information

APCL2AP ; IHS/CMI/LAB - print apc report 1A ;

Source Information

Source file <APCL2AP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
HEAD
P1 ;
HEAD1 ;
P ;
START2 ;
START1 ;
SU ;
CHKPRIM ;
START ;
DONE
MONTOT ;set up month totals for all visits and pcp visits
W

External References

Name Field # of Occurrence
DD^%DT START+5
DONE^APCLOSUT DONE
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO VISITS FOR THIS FISCAL YEAR",!
  • Line Location: START2+3
Function Call: WRITE
  • Prompt: !!," T O T A L",?21,$J(APCLGRAN(APCLLOC),7),?30,"100.0"
  • Line Location: START2+7
Function Call: WRITE
  • Prompt: ?APCLTAB,$J(APCLMON,6)
  • Line Location: START2+8
Function Call: WRITE
  • Prompt: !!,"*TOTAL PRIMARY PVDR",?21,$J(APCLPRIT,7)
  • Line Location: START2+9
Function Call: WRITE
  • Prompt: ?30,$J(APCLP,5)
  • Line Location: START2+10
Function Call: WRITE
  • Prompt: ?APCLTAB,$J(APCLMON,6)
  • Line Location: START2+10
Function Call: WRITE
  • Prompt: !!!,^("IN XREF")," visits were not exported to the National Data Warehouse because they ",!,"were posted or modified after the last NDW export was generated.",!
  • Line Location: START2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: START2+22
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,APCLDISN,?22,$J(APCLT,6),?30,$J(APCLP,5)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?APCLTAB,$J(APCLMON,6)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: APCL132,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?5,"AREA: ",APCLAREC," ",APCLAREA,?50,"PCC-AMBULATORY PATIENT CARE REPORT 1A",?95,APCLDT,?110,"Page ",APCLPG
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?5,"S.U.: ",APCLSUC," ",APCLSU,?58,"FISCAL YEAR ",APCLFYD
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?5,"FAC.: ",APCLLOCC," ",APCLLOCP
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?24,"AMBULATORY CARE VISITS TO SERVICE LOCATION BY PRIMARY PROVIDER AND MONTH OF SERVICE",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: APCL132,!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: "PRIMARY PROVIDER",?23,"YR-TO",?30,"% OF"
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !," OF SERVICE",?23,"DATE",?30,"TOTAL"
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: ?APCLTAB,$P(APCLMOL,",",APCLX)
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,APCL132
  • Line Location: HEAD1+11
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTAREA - [#9999999.21] START1+4, START1+5
^AUTTLOC - [#9999999.06] START1+2, START1+3, SU+1
^AUTTSU - [#9999999.22] SU+2, SU+3
^DIC(4 - [#4] START1+2
^DIC(7 - [#7] P1+4, CHKPRIM+2
^XTMP("APCL2A" START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1!, P+1, P1+2, W+1
, MONTOT+1, MONTOT+2

Label References

Name Line Occurrences
CHKPRIM P1+4
DONE START+9, START2+3, START2+5, START2+6
HEAD START2+1, START2+6, P1+1
HEAD1 HEAD
MONTOT W+1
P START2+4
P1 P+1
START1 START+7
START2 SU+1, SU+2
SU START1+3, START1+4, START1+6
W P1+3

Naked Globals

Name Field # of Occurrence
^( START2+8, START2+10, W+1, MONTOT+1*, MONTOT+2*
^("IN XREF" START2+12, START2+13
^("NO EXPORT" START2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL("FY" START+5
>> APCL132 START+1*, HEAD1+2, HEAD1+7, HEAD1+11
>> APCLAREA START1+3*, START1+4*, START1+5*, HEAD1+3
>> APCLAREC START1+3*, START1+4*, START1+5*, HEAD1+3
>> APCLBT START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1, P+1, P1+2, W+1
, MONTOT+1, MONTOT+2
>> APCLDISC START2+1*, P+1*, P1+2, P1+3, P1+4, W+1, CHKPRIM+2
>> APCLDISN P1+3*, P1+4*, W
>> APCLDT START+5*, HEAD1+3
>> APCLFYD START+5*, HEAD1+4
>> APCLGRAN( START2+3, START2+7, START2+9, P1+2
>> APCLJ START2+8*, START2+10*, W+1*, MONTOT+1, MONTOT+2
>> APCLJOB START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1, P+1, P1+2, W+1
, MONTOT+1, MONTOT+2
>> APCLLOC START1+1*, START1+2, START1+3, SU+1, START2+3, START2+4, START2+7, START2+8, START2+9, START2+10
, START2+11, START2+12, START2+13, P+1, P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLLOCC START1+2*, HEAD1+5
>> APCLLOCP START1+2*, HEAD1+5
>> APCLLOCS( START1+1
>> APCLMOL START+2*, HEAD1+10
>> APCLMON START2+8*, START2+10*, W+1*, MONTOT+1, MONTOT+2
>> APCLP START2+9*, START2+10, P1+2*, W
>> APCLPDC START2+1*, START2+4*, P+1, P1+2, W+1
>> APCLPG START2+1*, HEAD, HEAD1+1*, HEAD1+3
APCLPRIM P1+4!, MONTOT+2, CHKPRIM+2*
>> APCLPRIT START2+1*, START2+9, CHKPRIM+2*
APCLQUIT START+8, START1+1, START2+2!, START2+4, START2+5, START2+6, P+1, P1+1, HEAD+1*
>> APCLSU SU+1*, SU+2*, SU+3*, HEAD1+4
>> APCLSUC SU+1*, SU+2*, SU+3*, HEAD1+4
>> APCLT P1+2*, W, CHKPRIM+2
>> APCLTAB START2+8*, START2+10*, W+1*, HEAD1+10*
>> APCLX HEAD1+10*
DIR HEAD+1!
DIR(0 HEAD+1*
DT START+5
>> DTOUT HEAD+1
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL START2+6, P1+1
IOST HEAD+1
U START1+2, START1+3, START1+5, SU+1, SU+3, P1+4, CHKPRIM+2
>> Y START+5*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All