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

Package: Patient Care Component Reports

Routine: APCLACC


Information

APCLACC ; IHS/CMI/LAB - active users by community ;

Source Information

Source file <APCLACC.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
ACC ;
SUF ;S (APCLSUF,APCLFS)="",DIR(0)="SBO^F:FACILITY;S:SERVICE UNIT",DIR("A")="Report for a particular Facility or for a Service Unit?" D ^DIR K DIR
ACCEOJ
RPT ;report type
SBT ;subtotal by tribe?
F ;
FY ;
INIT ;
SBC ;subtotal by community
START ;
S ;
EOJ ;ENTRY POINT
SUR ;
DEMO ;
IND ;
ZIS ;

External References

Name Field # of Occurrence
^%DT FY+2
PEP^AMQQGTX0 F+3, S+3
DEMOCHK^APCLUTL DEMO+1
^DIC F+2, S+2
^DIR SUF+1, SUR+5, IND+1, RPT+2, SBT+2, SBC+1
^XBDBQUE DEMO+5
$$FMTE^XLFDT RPT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: F+2
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: S+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SUR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: IND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FY+2
Function Call: WRITE
  • Prompt: !!,$C(7),"The name of the template will be: ACTIVE USERS AS OF "_$$FMTE^XLFDT(APCLFYE,"2E")_" and it will be attached to the IHS PATIENT file"
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SBT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SBC+1
Function Call: WRITE
  • Prompt: !!!,"THIS REPORT WILL SEARCH THE ENTIRE PATIENT FILE!",!!,"IT IS STRONGLY RECOMMENDED THAT YOU QUEUE THIS REPORT FOR A TIME WHEN THE",!,"SYSTEM IS NOT IN HEAVY USE!",!
  • Line Location: DEMO+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!
  • Line Location: ACC+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"Report Type Missing!!",!
  • Line Location: ACC+4
Function Call: WRITE
  • Prompt: !,"This option will produce either:"
  • Line Location: ACC+5
Function Call: WRITE
  • Prompt: !?5,"1) A Report of Registered Patients and Active Users sorted by",!?8,$S(APCLSORT="C":"Community of Residence",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),", OR"
  • Line Location: ACC+6
Function Call: WRITE
  • Prompt: !?5,"2) A Template of Active Users for use in QMan Searches"
  • Line Location: ACC+7
Function Call: WRITE
  • Prompt: !!,"Your Report or Template can be generated for one or more Facilities or for",!,"one or more Service Units."
  • Line Location: ACC+8
Function Call: WRITE
  • Prompt: !!,"To determine Active Users for your Report or Template, the system will select",!,"patients who have had a visit at the Facility(s) or Service Unit(s) specified",!
  • Line Location: ACC+9
Function Call: WRITE
  • Prompt: "within the past 3 years of the date you specify. IHS, CHS and Tribal"
  • Line Location: ACC+10
Function Call: WRITE
  • Prompt: !,"visits will all be included. Home, telephone, employee health, and chart review",!,"visits are excluded."
  • Line Location: ACC+11
Function Call: WRITE
  • Prompt: !!,"You will be asked if the patients must live in the Service Unit specified",!,"and if you only want Indian patients included."
  • Line Location: ACC+12
Function Call: WRITE
  • Prompt: " You must answer YES to both",!,"questions in order to conform to the official IHS definition of Active Users."
  • Line Location: ACC+13
Routine Call
  • DIC
  • Line Location:
    • F+2
    • S+2
Routine Call
  • DIR
  • Line Location:
    • SUF+1
    • SUR+5
    • IND+1
    • RPT+2
    • SBT+2
    • SBC+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] F+6
^DD("DD" FY+1, FY+4

Label References

Name Line Occurrences
EOJ START+2, SUF+2, F+2, S+2, DEMO+6
FY RPT+3, SBT+3, SBC+2
IND FY+3
INIT START+1
RPT DEMO+2
S SUF+4
SBC SBT+1
SUF F+4, F+5, S+4, S+5, SUR+6, IND+2
SUR F+7
ZIS RPT+5, SBT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT FY+2*, ACCEOJ!
%DT("A" FY+2*
APCL1 ACCEOJ+2!
APCL2 ACCEOJ+2!
APCL80D ACCEOJ+1!
APCLBT ACCEOJ+2!
APCLCOMM ACCEOJ+1!
APCLCOMN ACCEOJ+2!, ACCEOJ+3!
>> APCLDEMO DEMO+1, DEMO+2
APCLDFN ACCEOJ+1!
>> APCLDIC("B" ACCEOJ+1!
APCLDICB ACCEOJ+1!
APCLDTP FY+1*, ACCEOJ+2!
APCLFS SUF+1*, SUF+3*, SUR+3, ACCEOJ+1!
APCLFYB ACCEOJ+1!, ACCEOJ+3!
APCLFYBI ACCEOJ+3!
APCLFYBY ACCEOJ+3!
APCLFYE FY+4*, RPT+5, ACCEOJ+1!
APCLFYEI ACCEOJ+3!
APCLFYEY FY+4*, ACCEOJ+1!
APCLGOT1 ACCEOJ+1!
APCLGOTA ACCEOJ+2!
APCLHRN ACCEOJ+1!
APCLI ACCEOJ+3!
APCLIND IND+1*, IND+3*, ACCEOJ+3!
APCLJ ACCEOJ+1!
APCLJOB ACCEOJ+2!
APCLMAJ ACCEOJ+3!
APCLMIN ACCEOJ+3!
APCLP ACCEOJ+3!
APCLPCP ACCEOJ+2!
APCLPG ACCEOJ+1!
APCLQUIT START+2, ACC+1*, ACC+2*, ACC+4*, ACCEOJ+2!
APCLRPTT RPT+1*, RPT+4*, RPT+5, ACCEOJ+1!
APCLSKIP ACCEOJ+2!
APCLSORT SBT+1, ACC+4, ACC+6, ACCEOJ+3!
APCLSSUR SUR+2*, SUR+7*, ACCEOJ+3!
APCLSTMP ACCEOJ+1!
APCLSU F+1!, F+4, F+5!, S+1!, S+4, S+5!, ACCEOJ+1!
APCLSU( F+6, S+6
APCLSU("*" F+5, S+5
APCLSUB SBT+2*, SBT+4*, SBC+1*, SBC+3*, ACCEOJ+2!
APCLSUF SUF+1*, F+1!, ACCEOJ+3!
APCLSUF( F+6*, S+6*
APCLSUN ACCEOJ+3!
APCLSUP ACCEOJ+2!
APCLSUR ACCEOJ+3!
APCLSVJ ACCEOJ+1!
APCLT ACCEOJ+3!
APCLTRI ACCEOJ+1!
APCLTRIC ACCEOJ+1!
APCLV ACCEOJ+2!
APCLVAR ACCEOJ+3!
APCLVAR1 ACCEOJ+3!
APCLVAR2 ACCEOJ+3!
APCLVD ACCEOJ+2!
APCLVDFN ACCEOJ+2!
DA SUF+1!, F+2!, S+2!, RPT+2!
DIC F+2*!, S+2*!, ACCEOJ!
DIC("S" F+2*, S+2*
DIC(0 F+2*, S+2*
DIR SUF+1!, SUR+5!, IND+1!, RPT+2!, SBT+2!, SBC+1!
DIR("?" SUR+5*, IND+1*, SBT+2*, SBC+1*
DIR("A" SUF+1*, SUR+3*, IND+1*, RPT+2*, SBT+2*, SBC+1*
DIR("B" SUF+1*, RPT+2*
DIR(0 SUF+1*, SUR+4*, IND+1*, RPT+2*, SBT+2*, SBC+1*
DIRUT SUF+2, SUR+6, IND+2, RPT+3, SBT+3, SBC+2, ACCEOJ!
DT FY+1
DUZ(2 ACC+1, ACC+2
H ACCEOJ!
I ACCEOJ!
IO("Q" ACCEOJ!
IOF ACC+3
J ACCEOJ!
JK ACCEOJ!
K ACCEOJ!
M ACCEOJ!
POP ACCEOJ!
S ACCEOJ!
TS ACCEOJ!
U F+6
X F+2*, F+6*, S+2*, S+6*, ACCEOJ!
>> XBNS DEMO+4*
>> XBRC DEMO+4*
>> XBRP DEMO+4*
>> XBRX DEMO+4*
Y SUF+3, SUF+4, F+2, F+3, S+2, S+3, SUR+7, IND+3, FY+1*, FY+3
, FY+4, RPT+4, SBT+4, SBC+3, ACCEOJ!
ZTQUEUED ACCEOJ!
ZTSK ACCEOJ!
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