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

Package: Patient Care Component Reports

Routine: APCLCP3


Information

APCLCP3 ; IHS/CMI/LAB - activity report ;

Source Information

Source file <APCLCP3.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 DD^%DT  C^%DTC  ^DIC  EN^DIQ  ^DIR  
Patient Care Component Reports 2 (O,OC,T,TC)^APCLCP1  DEMOCHK^APCLUTL  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC ;get location
ZIS ;
ERR
INFORM ;
ED ;get ending date
OC ;EP one location
O ;EP one location
TC ;EP taxonomy
START ;
CLINIC ;
GETDATES ;
XIT ;
T ;EP taxonomy
DEMO ;
GETGROUP ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
O^APCLCP1 O+1
OC^APCLCP1 OC+1
T^APCLCP1 T+1
TC^APCLCP1 TC+1
DEMOCHK^APCLUTL DEMO+1
^DIC GETGROUP+1
EN^DIQ GETGROUP+5
^DIR BD+1, ED+1, LOC+3, CLINIC+3
^XBDBQUE DEMO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"Bye ... "
  • Line Location: GETGROUP+2
Function Call: WRITE
  • Prompt: !!,"You have selected the ",$P(Y,U,2)," discipline group.",!
  • Line Location: GETGROUP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"Time and Patient Services by ",APCLSECS," for a Group of Provider",!,"Disciplines that you select.",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report displays, by ",APCLSORT,", the number of patient contacts",!,"total activity time and total travel time for each provider with",!,"a discipline in the provider discipline group that you select."
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+4
Routine Call
  • DIC
  • Line Location:
    • GETGROUP+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • LOC+3
    • CLINIC+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCLACTG - [#9001003.6] Classic Fileman Calls

Label References

Name Line Occurrences
BD ED+2, LOC+4
CLINIC LOC+5, CLINIC+6, CLINIC+7, DEMO+2
GETGROUP BD+2
INFORM START+5
LOC LOC+6, LOC+7, CLINIC+4
O LOC+6
OC CLINIC+6
T LOC+7
TC CLINIC+7
XIT GETGROUP+2, DEMO+5
ZIS CLINIC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+4!
APCL1 XIT+1!
APCL2 XIT+1!
APCL80S XIT+1!
APCLACTG GETGROUP+3*, XIT+2!
APCLAP XIT+1!
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+1!
APCLBT XIT+1!
APCLCHN XIT+1!
APCLCLN CLINIC+1!, CLINIC+5!
APCLCODE XIT+1!, XIT+2!
APCLDA1 XIT+1!
APCLDA2 XIT+1!
>> APCLDEMO DEMO+1, DEMO+2
APCLDISC XIT+1!
APCLDT XIT+1!
APCLED ED+3*, XIT+1!
APCLEDD XIT+1!
APCLFOUN XIT+1!
APCLG XIT+1!
APCLGLOB XIT+3!
APCLHIGH XIT+1!
APCLICD XIT+1!
APCLIPTR XIT+1!
APCLJOB XIT+3!
APCLLENG XIT+1!
APCLLOC LOC+1!, LOC+5!, XIT+2!
APCLLOW XIT+1!
APCLNSP XIT+2!
APCLODAT XIT+1!
APCLPG XIT+1!
APCLPIEC XIT+3!
APCLPRIM XIT+2!
>> APCLQ LOC+6, LOC+7, CLINIC+6, CLINIC+7
APCLQUIT XIT+1!
APCLRRTN XIT+3!
APCLSD ED+4*, XIT+1!
APCLSECS XIT+2!, INFORM+2
APCLSECV XIT+2!
APCLSITE START+2*, XIT+2!
APCLSKIP XIT+2!
APCLSORT START+3*, START+4*, XIT+2!, INFORM+3
APCLSORV START+3, START+4, XIT+2!
APCLSU XIT+1!, XIT+2!
APCLSUB XIT+2!
APCLVACT XIT+2!
APCLVAL XIT+2!
APCLVALP XIT+2!
APCLVDFN XIT+2!
APCLVLOC XIT+2!
APCLVREC XIT+2!
APCLVTM XIT+2!
APCLVTT XIT+2!
APCLX XIT+2!
APCLY XIT+2!
APCLZ XIT+2!
DA GETGROUP+5*!, LOC+3!, CLINIC+3!
DIC GETGROUP+1*!, GETGROUP+5*!
DIC("A" GETGROUP+1*
DIC(0 GETGROUP+1*
DIR BD+1!, ED+1!, LOC+3!, CLINIC+3!
DIR("A" BD+1*, ED+1*, LOC+3*, CLINIC+3*
DIR("B" LOC+3*, CLINIC+3*
DIR(0 BD+1*, ED+1*, LOC+2*, CLINIC+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, LOC+4, CLINIC+4, XIT+4!
>> DUOUT BD+1, ED+1
DUZ(2 START+1, START+2
H XIT+4!
IO("Q" XIT+4!
IOF INFORM+1
POP XIT+4!
U GETGROUP+4
X ED+4, XIT+4!
X1 ED+4*, XIT+4!
X2 ED+4*, XIT+4!
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y GETGROUP+2, GETGROUP+3, GETGROUP+4, GETGROUP+5, BD+3, ED+1*, ED+3, LOC+5, LOC+6, LOC+7
, CLINIC+5, CLINIC+6, CLINIC+7, XIT+4!
ZTQUEUED XIT+4!
ZTSK XIT+4!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All