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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLAA

Package: Patient Care Component Reports

Routine: APCLAA


Information

APCLAA ; IHS/CMI/LAB - APC visits by primary provider ;

Source Information

Source file <APCLAA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component Reports 2 ^APCLFY  DEMOCHK^APCLUTL  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
ZIS ;
ERR
F ;
DEMO ;
START ;
EOJ
FY
INFORM ;

External References

Name Field # of Occurrence
^APCLFY FY
DEMOCHK^APCLUTL DEMO+1
^DIC F+2
^XBDBQUE ZIS+2
$$FMTE^XLFDT FY+6, FY+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: FY+0
Function Call: WRITE
  • Prompt: !!?6,"Current FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY TODAY")
  • Line Location: FY+4
Function Call: WRITE
  • Prompt: !!?6,"FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY PRINTABLE EDATE")
  • Line Location: FY+5
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?6,"You have selected a FY with a beginning date that is in the future!!",!,?6,$$FMTE^XLFDT(APCL("FY BEG DATE"))," Select again!",!
  • Line Location: FY+6
Function Call: WRITE
  • Prompt: !!?6,"FISCAL Year date range: ",$$FMTE^XLFDT(APCL("FY BEG DATE"))," - ",$S(APCL("FY END DATE")>DT:$$FMTE^XLFDT(DT),1:$$FMTE^XLFDT(APCL("FY END DATE")))
  • Line Location: FY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: FY+11
Function Call: WRITE
  • Prompt: !
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!,",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!
  • Line Location: F+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid Year. Enter a year only!!,"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"********** ALL PCC VISITS BY PROVIDER DISCIPLINE PCC REPORT AA **********",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will print Year to Date PCC Visit Counts for the Facility",!,"and Fiscal Year that you select. The counts by month are for date of"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"service. This report will resemble, the AA report produced at the Data",!,"Center, BUT this report contains all PCC visits, not just those defined as APC",!,"visits.",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"This report includes all PCC VISITS with the exception of the following:"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !?5,"- visits with service categories H-HOSPITALIZATION, I-IN HOSPITAL, E-EVENTS"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !?5,"- visits with Type C-CONTRACT or V-VA"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !?5,"- visits with no Primary Provider or POV"
  • Line Location: INFORM+8
Routine Call
  • DIC
  • Line Location:
    • F+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Label References

Name Line Occurrences
EOJ FY+3, ZIS+3
FY FY+6, F+2, DEMO+2
INFORM START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!
%DT EOJ+2!
%H EOJ+2!
%T EOJ+2!
%W EOJ+2!
%Y EOJ+2!
>> APCL("FY BEG DATE" , FY+6, FY+7, FY+8
>> APCL("FY END DATE" , FY+7, FY+9
>> APCL("FY WORK ING DT" , FY+10
>> APCL("FY" FY+3
APCL1 EOJ!
APCL132 EOJ+1!
APCL2 EOJ!
APCLAP EOJ!
APCLAREA EOJ+1!
APCLAREC EOJ+1!
APCLBT EOJ!
APCLCLIN EOJ!
>> APCLDEMO DEMO+1, DEMO+2
APCLDISC EOJ!
APCLDISN EOJ+1!
APCLDPTR EOJ!
APCLDT EOJ+1!
APCLFY FY+8*, EOJ!
APCLFYD EOJ!
APCLFYE FY+9*, EOJ+1!
APCLGRAN EOJ+1!
APCLJ EOJ+1!
APCLJOB EOJ!
APCLLOC F+3*, EOJ!, EOJ+1!
APCLLOCC EOJ+1!
APCLLOCP EOJ+1!
APCLMOL EOJ!
APCLMON EOJ+1!
APCLMOS EOJ!
APCLP EOJ+1!
APCLPG EOJ+1!
APCLPPOV EOJ!
APCLPRIM EOJ+1!
APCLPRIT EOJ+1!
APCLQUIT EOJ+1!
APCLSD FY+10*, EOJ!
APCLSKIP EOJ!
APCLSU EOJ+1!
APCLSUC EOJ+1!
APCLT EOJ+1!
APCLTAB EOJ+1!
APCLVDFN EOJ!
APCLVLOC EOJ!
APCLVREC EOJ!
APCLX EOJ!
DA F+2!
DFN EOJ+1!
DIC F+2*!
DIC("A" F+2*
DIC(0 F+2*
DT FY+6, FY+7
DTOUT START+2!, FY+3, EOJ+2!
DUOUT START+2!, EOJ+2!
H EOJ+2!
IO("Q" EOJ+2!
IOF INFORM+1
M EOJ+2!
POP EOJ+2!
S EOJ+2!
TS EOJ+2!
X EOJ+2!
X1 EOJ+2!
X2 EOJ+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y F+2, F+3, EOJ+2!
ZTQUEUED EOJ+2!
ZTSK EOJ+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All