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

Package: Patient Care Component Reports

Routine: APCLIPCT


Information

APCLIPCT ; IHS/OHPRD/TMJ - DRIVER FOR ACTIVE POP ; [ 03/19/01 9:50 AM ]

Source Information

Source file <APCLIPCT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
SUF
ZIS ;
SBT ;subtotal by tribe?
F ;
ED
VL
INIT ;
SBC ;subtotal by community
START ;
S
QUIT
PCTEOJ
IND ;
SD ;

External References

Name Field # of Occurrence
^%DT SD+3, ED
^DIC F+1, S+1
^DIR SUF, VL, IND+1, SBT+2, SBC+1
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !
  • Line Location: IND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+0
Function Call: WRITE
  • Prompt: !!,"Ending Date cannot be before Starting Date! Please reenter.",!
  • Line Location: ED+3
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 AND VISIT FILES!",!!,"IT IS STRONGLY RECOMMENDED THAT YOU QUEUE THIS REPORT FOR A TIME WHEN THE",!,"SYSTEM IS NOT IN HEAVY USE!",!
  • Line Location: SBC+4
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"Report Type Missing!!",!
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !!,"This Option will search the Patient file for all patients registered",!,"at the Service Unit or the facility that you select.",!
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: "A Report will result which will give the following counts:",!
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: ?5,"- All Living Patients registered at the facility or SU selected",!
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: ?5,"- All Patients seen in the INPATIENT Visit Date Range specified",!
  • Line Location: INIT+7
Function Call: WRITE
  • Prompt: ?5,"- Total number of INPATIENT Visits by these patients",!
  • Line Location: INIT+8
Function Call: WRITE
  • Prompt: ?5,"- Total number of APC Visits by these patients",!
  • Line Location: INIT+9
Function Call: WRITE
  • Prompt: ?5,"- Total number of Primary Care Provider Visits by these patients",!
  • Line Location: INIT+10
Function Call: WRITE
  • Prompt: "The report will be sorted by ",$S(APCLSORT="C":"COMMUNITY OF RESIDENCE",APCLSORT="T":"TRIBE OF MEMBERSHIP",1:"SERVICE UNIT OF RESIDENCE"),".",!!
  • Line Location: INIT+11
Routine Call
  • DIC
  • Line Location:
    • F+1
    • S+1
Routine Call
  • DIR
  • Line Location:
    • SUF
    • VL
    • IND+1
    • SBT+2
    • SBC+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] F+3, S
^AUTTSU - [#9999999.22] S
^DD("DD" SD+2, SD+5, ED+2

Label References

Name Line Occurrences
IND VL+3, S+2, SD+4
INIT START+1
QUIT START+2, SUF+1, F+1, S+3, ZIS+3
S SUF+3
SBC SBT+1
SD ED+1, ED+3, SBT+3, SBC+2
SUF VL+1, IND+2
ZIS SBT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SD+3*, ED!, PCTEOJ!
%DT("A" SD+3*, ED*
APCL PCTEOJ+1!
APCL1 PCTEOJ+2!
APCL2 PCTEOJ+2!
APCL3 PCTEOJ+1!
APCL4 PCTEOJ+1!
APCL5 PCTEOJ+1!
APCL80D PCTEOJ+1!
APCLACT PCTEOJ+2!
APCLACTT PCTEOJ+2!
APCLAP PCTEOJ+2!
APCLAPC PCTEOJ+2!
APCLAPCT PCTEOJ+2!
APCLBT PCTEOJ+3!
APCLCLIN PCTEOJ+3!
APCLCNT PCTEOJ+1!
APCLCNTT PCTEOJ+2!
APCLCOMM PCTEOJ+1!
APCLCOMN PCTEOJ+2!, PCTEOJ+3!
APCLDFN PCTEOJ+1!
>> APCLDIC("B" S*, PCTEOJ+1!
APCLDICB S*, S+2, PCTEOJ+1!
APCLDISC PCTEOJ+2!
APCLDTP SD+2*, PCTEOJ+2!
APCLED ED+2*, ED+3, PCTEOJ+1!
APCLEDY ED+2*, PCTEOJ+1!
APCLFS SUF+2*, PCTEOJ+1!
APCLFYB PCTEOJ+1!
APCLFYE PCTEOJ+1!
APCLGOT1 PCTEOJ+1!
APCLGOTA PCTEOJ+2!
APCLGOTB PCTEOJ+2!
APCLHRN PCTEOJ+1!
APCLI PCTEOJ+3!
APCLIND IND+1*, IND+3*, PCTEOJ+3!
APCLJ PCTEOJ+1!
APCLJOB PCTEOJ+3!
APCLLOCC PCTEOJ+2!
APCLMAJ PCTEOJ+3!
APCLMIN PCTEOJ+3!
APCLP PCTEOJ+3!
APCLPAR PCTEOJ+2!
APCLPCP PCTEOJ+2!
APCLPCPT PCTEOJ+2!
APCLPG PCTEOJ+1!
APCLPPOV PCTEOJ+3!
APCLQUIT START+2, PCTEOJ+2!, INIT+1*, INIT+2*
APCLSBT PCTEOJ+2!
APCLSD SD+5*, ED+3, PCTEOJ+1!
APCLSDY SD+5*, PCTEOJ+1!
APCLSKIP PCTEOJ+2!
APCLSORT SBT+1, PCTEOJ+3!, INIT+2, INIT+11
APCLSU F+2*, F+3, S+2*, S+4*, PCTEOJ+1!
APCLSUB SBT+2*, SBT+4*, SBC+1*, SBC+3*, PCTEOJ+3!
APCLSUF SUF*, F+3*, S+2*, S+4*, PCTEOJ+3!
APCLSUN PCTEOJ+3!
APCLSUP PCTEOJ+2!
APCLSUR PCTEOJ+3!
APCLSVJ PCTEOJ+1!
APCLT PCTEOJ+3!
APCLT1 PCTEOJ+1!
APCLT2 PCTEOJ+1!
APCLT3 PCTEOJ+1!
APCLT4 PCTEOJ+1!
APCLT5 PCTEOJ+1!
APCLTRI PCTEOJ+1!
APCLTRIC PCTEOJ+1!
APCLV PCTEOJ+2!
APCLVAR PCTEOJ+3!
APCLVAR1 PCTEOJ+3!
APCLVAR2 PCTEOJ+3!
APCLVCNT PCTEOJ+2!
APCLVCTT PCTEOJ+2!
APCLVD PCTEOJ+2!
APCLVDFN PCTEOJ+2!
APCLVFL SUF*, VL+2*, PCTEOJ+1!, PCTEOJ+3!
APCLVLOC PCTEOJ+3!
APCLVREC PCTEOJ+3!
APCLY PCTEOJ+2!
DA F+1!
DIC F+1*!, S+1*, PCTEOJ!
DIC("A" F+1*, S*
DIC(0 F+1*, S+1*
DIR SUF!, VL!, IND+1!, SBT+2!, SBC+1!
DIR("?" IND+1*, SBT+2*, SBC+1*
DIR("A" SUF*, VL*, IND+1*, SBT+2*, SBC+1*
DIR("B" VL*
DIR(0 SUF*, VL*, IND+1*, SBT+2*, SBC+1*
DIRUT SUF+1, VL*, VL+1, IND+2, SBT+3, SBC+2, PCTEOJ!
DT SD+2
>> DUOUT VL
DUZ(2 S, INIT+1
H PCTEOJ!
I PCTEOJ!
IO("Q" PCTEOJ!
IOF INIT+3
J PCTEOJ!
JK PCTEOJ!
K PCTEOJ!
M PCTEOJ!
POP PCTEOJ!
S PCTEOJ!
TS PCTEOJ!
U F+3, S
X S+2, PCTEOJ!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y SUF+2, SUF+3, F+1, F+2, VL+2, S+3, S+4, IND+3, SD+2*, SD+4
, SD+5, ED+1, ED+2, SBT+4, SBC+3, PCTEOJ!
ZTIO PCTEOJ!
ZTQUEUED PCTEOJ!
ZTSK PCTEOJ!
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