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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCL1A

Package: Patient Care Component Reports

Routine: APCL1A


Information

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

Source Information

Source file <APCL1A.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+3
^XBDBQUE ZIS+2
$$FMTE^XLFDT FY+6, FY+7

Interaction Calls

Name Line Occurrences
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: !!,"Your provider class file does not contain the 1A workload reportable flags.",!,"This report cannot be run accurately until AUM Patch 6 is installed.",!!
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: F+2
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+5
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: !,"********** PCC/APC REPORT 1A **********",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will print Year to Date Ambulatory 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, but not duplicate exactly, the",!,"APC 1A report produced at the IHS Data Warehouse in Albuquerque.",!!
  • Line Location: INFORM+4
Routine Call
  • DIC
  • Line Location:
    • F+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(7 - [#7] F+1

Label References

Name Line Occurrences
EOJ FY+3, ZIS+3
FY FY+6, F+3, 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 EOJ+1!
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+4*, EOJ!, EOJ+1!
APCLLOCC EOJ+1!
APCLLOCP EOJ+1!
APCLMOL EOJ!
APCLMON EOJ+1!
APCLMOS EOJ!
APCLP EOJ+1!
APCLPDC 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+3!
DFN EOJ+1!
DIC F+3*!
DIC("A" F+3*
DIC(0 F+3*
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!
U F+1
X F+1*, EOJ+2!
X1 EOJ+2!
X2 EOJ+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y F+3, F+4, EOJ+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All