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

Package: Patient Care Component Reports

Routine: APCLCP9


Information

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

Source Information

Source file <APCLCP9.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 (OC,TC)^APCLCP1  DEMOCHK^APCLUTL  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
OC^APCLCP1 CLINIC+6
TC^APCLCP1 CLINIC+7
DEMOCHK^APCLUTL DEMO+1
^DIC GETGROUP+1, S+1, O+2, T+2, OC+2, TC+2
EN^DIQ GETGROUP+5
^DIR BD+1, ED+1, 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: !
  • Line Location: S+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: !,"Top Ten Primary Purposes for Services",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report displays, by service unit, the top ten primary purposes for",!,"services by staff in the discipline group that you select.",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+4
Routine Call
  • DIC
  • Line Location:
    • GETGROUP+1
    • S+1
    • O+2
    • T+2
    • OC+2
    • TC+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • CLINIC+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^APCLACTG - [#9001003.6] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTTSU - [#9999999.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] T+4, TC+4
^AUTTLOC - [#9999999.06] S
^AUTTSU - [#9999999.22] S

Label References

Name Line Occurrences
BD ED+2
CLINIC S+2, CLINIC+6, CLINIC+7, DEMO+2
GETGROUP BD+2
INFORM START+2
S CLINIC+4
XIT GETGROUP+2, S+3
ZIS CLINIC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% XIT+3!
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!
APCLCLN( OC+4*, TC+4*
APCLCNT XIT+2!
APCLCODE XIT+1!
APCLDA1 XIT+1!
APCLDA2 XIT+1!
>> APCLDEMO DEMO+1, DEMO+2
APCLDIC XIT+2!
APCLDIC("B" S*
APCLDICB S*, S+2, XIT+2!
APCLDISC XIT+1!
APCLDT XIT+1!
APCLED ED+3*, XIT+1!
APCLEDD XIT+1!
APCLFOUN XIT+1!
APCLGLOB XIT+2!
APCLHIGH XIT+1!
APCLICD XIT+1!
APCLIPTR XIT+1!
APCLJOB XIT+2!
APCLLENG XIT+1!
APCLLOC XIT+2!
APCLLOC( O+4*, T+4*
APCLLOW XIT+1!
APCLNUM XIT+2!
APCLODAT XIT+1!
APCLPG XIT+1!
APCLPIEC XIT+2!
APCLPRIM XIT+2!
APCLQ CLINIC+6, CLINIC+7, O+1!, O+3*, T+1!, T+3*, OC+1!, OC+3*, TC+1!, TC+3*
APCLQUIT XIT+1!
APCLRRTN XIT+2!
APCLSD ED+4*, XIT+1!
APCLSITE START+1!, XIT+2!
APCLSKIP XIT+2!
APCLSU S+2*, S+4*, XIT+1!, XIT+2!
APCLSUF S+2*, S+4*, XIT+2!
APCLVACT XIT+2!
APCLVDFN XIT+2!
APCLVLOC XIT+2!
APCLVREC XIT+2!
APCLVTM XIT+2!
APCLVTT XIT+2!
APCLX XIT+2!
APCLY XIT+2!
DA GETGROUP+5*!, CLINIC+3!
DIC GETGROUP+1*!, GETGROUP+5*!, S+1*!, O+2*!, T+2*!, OC+2*!, TC+2*!
DIC("A" GETGROUP+1*, S*, O+2*, T+2*, OC+2*, TC+2*
DIC("S" T+2*, TC+2*
DIC(0 GETGROUP+1*, S+1*, O+2*, T+2*, OC+2*, TC+2*
DIR BD+1!, ED+1!, CLINIC+3!
DIR("A" BD+1*, ED+1*, CLINIC+3*
DIR("B" CLINIC+3*
DIR(0 BD+1*, ED+1*, CLINIC+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, CLINIC+4, XIT+3!
>> DUOUT BD+1, ED+1
DUZ(2 START+1, S
H XIT+3!
IO("Q" XIT+3!
IOF INFORM+1
M XIT+3!
POP XIT+3!
S XIT+3!
T XIT+3!
TS XIT+3!
U GETGROUP+4, S
X ED+4, S+2, XIT+3!, T+4*, TC+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, S+3, S+4, CLINIC+5
, CLINIC+6, CLINIC+7, XIT+3!, O+3, O+4, T+3, T+4, OC+3, OC+4, TC+3
, TC+4
ZTQUEUED 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 |  Local Variables |  All