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

Package: Patient Care Component Reports

Routine: APCL1AP


Information

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

Source Information

Source file <APCL1AP.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
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+2
Function Call: WRITE
  • Prompt: !!," T O T A L",?21,$J(APCLGRAN,7),?30,"100.0"
  • Line Location: START2+6
Function Call: WRITE
  • Prompt: ?APCLTAB,$J(APCLMON,6)
  • Line Location: START2+7
Function Call: WRITE
  • Prompt: !!,"*TOTAL PRIMARY PVDR",?21,$J(APCLPRIT,7)
  • Line Location: START2+8
Function Call: WRITE
  • Prompt: ?30,$J(APCLP,5)
  • Line Location: START2+9
Function Call: WRITE
  • Prompt: ?APCLTAB,$J(APCLMON,6)
  • Line Location: START2+9
Function Call: WRITE
  • Prompt: !!!,^("IN XREF")," visits were not exported to the National Data Warehouse (NDW) because they",!,"were posted or modified after the last NDW export was generated.",!
  • Line Location: START2+11
Function Call: WRITE
  • Prompt: " visits that will be counted in this report but not in the 1A report from the National Data Warehouse.",!
  • Line Location: START2+19
Function Call: WRITE
  • Prompt: !
  • Line Location: START2+20
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] START+9, START+10
^AUTTLOC - [#9999999.06] START+7, START+8, SU+1
^AUTTSU - [#9999999.22] SU+2, SU+3
^DIC(4 - [#4] START+7
^DIC(7 - [#7] P1+4, CHKPRIM+2
^XTMP("APCL1A" START2+3, START2+7, START2+9, START2+10, START2+11, START2+12, START2+17, START2+18, DONE+1!, P+1
, P1+2, W+1, MONTOT+1, MONTOT+2

Label References

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

Naked Globals

Name Field # of Occurrence
^( START2+7, START2+9, W+1, MONTOT+1*, MONTOT+2*
^("DUPLICATE" START2+18
^("IN XREF" START2+11, START2+12
^("NO EXPORT" START2+12, START2+18

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 START+8*, START+9*, START+10*, HEAD1+3
>> APCLAREC START+8*, START+9*, START+10*, HEAD1+3
>> APCLBT START2+3, START2+7, START2+9, START2+10, START2+11, START2+12, START2+17, START2+18, DONE+1, P+1
, P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLDISC START2*, 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+2, START2+6, START2+8, P1+2
>> APCLJ START2+7*, START2+9*, W+1*, MONTOT+1, MONTOT+2
>> APCLJOB START2+3, START2+7, START2+9, START2+10, START2+11, START2+12, START2+17, START2+18, DONE+1, P+1
, P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLLOC START+7, START+8, SU+1
>> APCLLOCC START+7*, HEAD1+5
>> APCLLOCP START+7*, HEAD1+5
>> APCLMOL START+2*, HEAD1+10
>> APCLMON START2+7*, START2+9*, W+1*, MONTOT+1, MONTOT+2
>> APCLP START2+8*, START2+9, P1+2*, W
>> APCLPDC START2*, START2+3*, P+1, P1+2, W+1
>> APCLPG START2*, HEAD, HEAD1+1*, HEAD1+3
APCLPRIM P1+4!, MONTOT+2, CHKPRIM+2*
>> APCLPRIT START2*, START2+8, CHKPRIM+2*
APCLQUIT START2+1!, START2+3, START2+4, START2+5, 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+7*, START2+9*, 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+5, P1+1
IOST HEAD+1
U START+7, START+8, START+10, 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