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

Package: Patient Care Component Reports

Routine: APCL2A


Information

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

Source Information

Source file <APCL2A.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
OLOC ;one location
ZIS ;
ERR
F ;
DEMO ;
SLOC ;taxonomy of locations
START ;
EOJ
FY
FAC ;
INFORM ;

External References

Name Field # of Occurrence
PEP^AMQQGTX0 SLOC+2
^APCLFY FY
DEMOCHK^APCLUTL DEMO+1
^DIC OLOC+1, SLOC+1
^DIR FAC+6
^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: !!,$G(IORVON)_"Please enter which FACILITY visits will be included in the list."_$G(IORVOFF),!
  • Line Location: FAC+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: FAC+11
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
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: SLOC+1
Function Call: WRITE
  • Prompt: !!,"**** all locations cannot be selected ****",!
  • Line Location: SLOC+4
Routine Call
  • DIC
  • Line Location:
    • OLOC+1
    • SLOC+1
Routine Call
  • DIR
  • Line Location:
    • FAC+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMQQ(5 - [#9009075] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Label References

Name Line Occurrences
@( FAC+9
EOJ FY+3, ZIS+3
FAC FAC+10
FY FY+6, FAC+7, DEMO+2
INFORM START+1
SLOC SLOC+4

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 EOJ!, EOJ+1!
APCLLOCC EOJ+1!
APCLLOCP EOJ+1!
APCLLOCS FAC+4!, SLOC+3, SLOC+4!
APCLLOCS( OLOC+3*
APCLLOCS("*" SLOC+4
>> APCLLOCT FAC+3*, FAC+8*, FAC+9
APCLMOL EOJ!
APCLMON EOJ+1!
APCLMOS EOJ!
APCLP EOJ+1!
APCLPDC EOJ+1!
APCLPG EOJ+1!
APCLPPOV EOJ!
APCLPRIM EOJ+1!
APCLPRIT EOJ+1!
APCLQ FAC+1!, FAC+10, OLOC+2*, SLOC+1*, SLOC+3*
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 FAC+6!, SLOC+1!
DFN EOJ+1!
DIC OLOC+1*!, SLOC+1*!
DIC("A" OLOC+1*
DIC("S" SLOC+1*
DIC(0 OLOC+1*, SLOC+1*
DIR FAC+6!
DIR("A" FAC+5*, FAC+6*
DIR("B" FAC+5*, FAC+6*
DIR(0 FAC+5*
>> DIRUT FAC+7
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
>> IORVOFF FAC+2
>> IORVON FAC+2
M EOJ+2!
POP EOJ+2!
S EOJ+2!
TS EOJ+2!
X EOJ+2!, SLOC+1*
X1 EOJ+2!
X2 EOJ+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y FAC+8, EOJ+2!, OLOC+2, OLOC+3, SLOC+1, SLOC+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All