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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLCP5

Package: Patient Care Component Reports

Routine: APCLCP5


Information

APCLCP5 ; IHS/CMI/LAB - DISC tally activity time ;

Source Information

Source file <APCLCP5.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC ;get location
GETCODE ;
ERR
EOJ
V1 ;
INFORM ;
DEMO ;
GETPPOV ;
PROC21
END ;
ZIS ;
ED ;get ending date
START ;
CLINIC ;
XIT ;
V ; Run by visit date
PROC2 ;
PROCESS ;EP - called from xbdbque
GETDATES ;
PROC ;
GETGROUP ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
O^APCLCP1 LOC+6
OC^APCLCP1 CLINIC+6
T^APCLCP1 LOC+7
TC^APCLCP1 CLINIC+7
XTMP^APCLOSUT V+2
$$DEMO^APCLUTL PROC+2
DEMOCHK^APCLUTL DEMO+1
^DIC GETGROUP+1
EN^DIQ GETGROUP+5
^DIR BD+1, ED+1, LOC+3, CLINIC+3
^XBDBQUE DEMO+4
$$PROVCLSC^XBFUNC1 PROC2+3

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: !
  • Line Location: GETGROUP+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 Services Report by Provider 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",!,"CHART REVIEWS and the total activity and 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PROCESS+4
^APCLACTG - [#9001003.6] PROCESS+2, PROCESS+3, PROC21
^AUPNVPOV - [#9000010.07] GETCODE+2, GETPPOV+2
^AUPNVPOV("AD" V1+1, GETPPOV+1, GETPPOV+2
^AUPNVPRV - [#9000010.06] PROC+6, PROC2+2, PROC21+3, PROC21+4
^AUPNVPRV("AD" V1+1, PROC+6, PROC2+1
^AUPNVSIT - [#9000010] V1+1
^AUPNVSIT("B" V+3, V+4, V1+1
^AUPNVTM - [#9000010.19] PROC21+6
^AUPNVTM("AD" PROC21+5, PROC21+6
^DD(9000010.06 PROC2+3
^DIC(7 - [#7] PROC2+6, PROC2+7
^VA(200 - [#200] PROC2+4
^XTMP( V+1!, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8

Label References

Name Line Occurrences
@( GETCODE+3
BD ED+2, LOC+4
CLINIC LOC+5, CLINIC+6, CLINIC+7, DEMO+2
END V+3
EOJ END+1, V1+1
GETCODE PROC21+1
GETGROUP BD+2
GETPPOV GETCODE+1
INFORM START+5
LOC LOC+6, LOC+7, CLINIC+4
PROC V1+1
PROC2 PROC+10
PROC21 PROC2+3
V1 V+4
XIT GETGROUP+2, DEMO+5
ZIS CLINIC+5

Naked Globals

Name Field # of Occurrence
^("ACT" PROC21+7*
^("NOACT" PROC21+5*
^("PRIM" PROC21+3*
^("SEC" PROC21+4*
^("TOTAL" PROC21+2*
^("TT" PROC21+8*
^(0 PROCESS+2, PROCESS+3, V1+1, PROC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+3!
APCL1 XIT+1!, PROC+6*, PROC+7, PROC+8, EOJ!, GETCODE+2, GETPPOV+1*, GETPPOV+2*
APCL2 XIT+1!, PROC+6*, EOJ!, GETPPOV+2*
APCL80S XIT+1!
APCLACTG GETGROUP+3*, XIT+2!, PROCESS+2, PROCESS+3, PROC21
APCLAP XIT+1!, PROC+6*, PROC2+2*, PROC2+3, PROC2+4, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7
, PROC21+8
APCLBD BD+3*, ED+1, ED+4, XIT+1!
APCLBDD XIT+1!
APCLBT XIT+1!, PROCESS+1*, V+1, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8
APCLCLN CLINIC+1!, CLINIC+5!, PROC+5
APCLCLN( PROC+5
APCLCODE EOJ!, PROC21+1, GETCODE+4*
>> APCLDEMO DEMO+1, DEMO+2, PROC+2
APCLDISC XIT+1!, EOJ!, PROC2+3*, PROC2+7*, PROC21
APCLDT XIT+1!
APCLED ED+3*, XIT+1!, V+4
APCLEDD XIT+1!
>> APCLET END+2*
APCLGLOB XIT+2!, PROCESS+3*, PROCESS+4*, PROCESS+5*
APCLIPTR EOJ!, GETCODE+2*, GETCODE+4
APCLJOB XIT+2!, PROCESS+1*, V+1, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8
APCLLENG XIT+1!
APCLLOC LOC+1!, LOC+5!, XIT+1!, PROC+4
APCLLOC( PROC+4
APCLNSP START+3*, START+4*, XIT+3!, V+1, V+2, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7
, PROC21+8
APCLODAT XIT+1!, V+3*, V+4*, V1+1
APCLPG XIT+1!
APCLPIEC XIT+2!, PROCESS+3*, PROCESS+4*, PROCESS+5*
APCLPRIM XIT+1!, EOJ!
>> APCLQ LOC+6, LOC+7, CLINIC+6, CLINIC+7
APCLQUIT XIT+1!
APCLRRTN XIT+2!, PROCESS+3*, PROCESS+4*, PROCESS+5*, PROCESS+6*, GETCODE+3
APCLSD ED+4*, XIT+1!, V+3, V+4
APCLSITE START+2*, XIT+1!
APCLSKIP XIT+1!, PROC+1!, EOJ!
APCLSORT START+3*, START+4*, XIT+3!, INFORM+3
APCLSORV START+3, START+4, XIT+3!, EOJ, PROC21+1, PROC21+2, PROC21+3, PROC21+4, PROC21+7, PROC21+8
APCLSUB XIT+3!
APCLVACT XIT+1!, PROC21+6*, PROC21+7
APCLVAL XIT+3!
APCLVDFN XIT+1!, V1+1*, PROC+6, PROC2+1, PROC21+5, PROC21+6, GETPPOV+1, GETPPOV+2
APCLVLOC XIT+1!, PROC+9*, EOJ!
APCLVREC XIT+1!, V1+1*, PROC+2, PROC+3, PROC+4, PROC+5, PROC+9, EOJ!, GETPPOV+1
APCLVTM XIT+1!, EOJ!, PROC21+6*
APCLVTT XIT+1!, EOJ!, PROC21+6*, PROC21+8
APCLX XIT+1!, EOJ!
APCLY XIT+1!, EOJ!, PROC2+4*, PROC2+5, PROC2+6, PROC2+7
APCLZ XIT+3!, PROC2+1*, PROC2+2, PROC21+3, PROC21+4
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!, XIT+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+3!
DLOUT XIT+3!
DTOUT XIT+3!
DUOUT BD+1, ED+1, XIT+3!
DUZ(2 START+1, START+2
H XIT+3!
IOF INFORM+1
M XIT+3!
POP XIT+3!
S XIT+3!
T XIT+3!
TS XIT+3!
U GETGROUP+4, PROCESS+2, PROCESS+3, V1+1, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+9
, PROC2+2, PROC2+3, PROC2+4, PROC2+7, PROC21+3, PROC21+4, PROC21+6, GETCODE+2, GETPPOV+1, GETPPOV+2
X ED+4, XIT+3!, PROCESS+4*
X1 ED+4*, XIT+3!
X2 ED+4*, XIT+3!
>> 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+3!
Z XIT+3!
ZTSK XIT+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All