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 |  Marked Items |  All
Print Page as PDF
Routine: APCDPTAB

Package: Patient Care Component

Routine: APCDPTAB


Information

APCDPTAB ; IHS/CMI/LAB - Provider table print

Source Information

Source file <APCDPTAB.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 3 COMMA^%DTC  ^DIC  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCC Medical Query 1 PEP^AMQQGTX0  

Entry Points

Name Comments DBIA/ICR reference
EOJ ;
USR() ;EP - Return name of current user from ^VA(200.
DISC ;
DONE ;
D(D) ;
PRINT ;EP - called from xbdbque
SORTR ;
ASORT ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
INTROT ;
DSORT ;
DATE(D) ;
ZIS ;
DIVC ;
HEADER ;EP
SSORT ;
AFFL ;
C(X,X2,X3) ;
ACTIVE ;
EP ;EP - called from option interactive
NSORT ;
SORT(P,S) ;
HEADER1 ;
PROC ;
PROVKEY ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
PEP^AMQQGTX0 AFFL+7, DISC+7, DIVC+12
^DIC AFFL+6, DISC+6, DIVC+11
^DIR PROVKEY+2, ACTIVE+2, AFFL+2, DISC+2, DIVC+7, SORTR+3, DONE+1, HEADER+2
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 PRINT+9, PRINT+10, PRINT+11, ASORT+1, NSORT+1, DSORT+1
$$VALI^XBDIQ1 PRINT+13, SSORT+1
^XBFMK EOJ+1
EN^XBVK EOJ+3
$$FMADD^XLFDT PROC+3
$$FMTE^XLFDT HEADER1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,APCDT
  • Line Location: EP+3
Function Call: WRITE
  • Prompt: !!,"Providers of all affiliations will be included in the report.",!
  • Line Location: AFFL+5
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: AFFL+6
Function Call: WRITE
  • Prompt: !!,"Providers of all Disciplines will be included in the report.",!
  • Line Location: DISC+5
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: DISC+6
Function Call: WRITE
  • Prompt: !!,"You can select just providers who have access to a particular"
  • Line Location: DIVC+1
Function Call: WRITE
  • Prompt: !,"division. Since there is no designation in file 200 to specify"
  • Line Location: DIVC+2
Function Call: WRITE
  • Prompt: !,"which facility a provider works knowing which Division they have"
  • Line Location: DIVC+3
Function Call: WRITE
  • Prompt: !,"access to may help determine where they work."
  • Line Location: DIVC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVC+5
Function Call: WRITE
  • Prompt: !!,"All will be included in the report.",!
  • Line Location: DIVC+10
Function Call: WRITE
  • Prompt: "OOPS - QMAN NOT CURRENT - QUITTING"
  • Line Location: DIVC+11
Function Call: WRITE
  • Prompt: !!,"UNKNOWN",!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?61,$P($G(^AUTTLOC(APCDX,0)),U,7)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?61,$P($G(^AUTTLOC(APCDX,0)),U,7)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCDPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,$$CTR("PROVIDER LISTING",80)
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEADER1+14
Function Call: WRITE
  • Prompt: !!,"NAME",?27,"AFFL",?36,"PROV CLASS",?54,"ADC",?72,"INACTIVE"
  • Line Location: HEADER1+15
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+16
Routine Call
  • DIC
  • Line Location:
    • AFFL+6
    • DISC+6
    • DIVC+11
Routine Call
  • DIR
  • Line Location:
    • PROVKEY+2
    • ACTIVE+2
    • AFFL+2
    • DISC+2
    • DIVC+7
    • SORTR+3
    • DONE+1
    • HEADER+2

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] PRINT+12, PRINT+14
^DIC(4 - [#4] HEADER1+3, LOC+1
^DIC(7 - [#7] HEADER1+13
^VA(200 - [#200] PROC+4, PROC+6, PROC+7, PROC+8, PROC+9, PROC+11, PRINT+9, PRINT+12, PRINT+14, HEADER1+2
, USR+1
^XTMP("APCDPTAB" PROC+2!, PROC+3*, PROC+14*, DONE+3!, PRINT+3, PRINT+7
^XUSEC("PROVIDER" PROC+5

Label References

Name Line Occurrences
$$CTR HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+10, HEADER1+14
$$DATE PRINT+13
$$SORT PROC+12
@( SORT+3
ACTIVE AFFL+3, DISC+3, DIVC+8
AFFL AFFL+8, AFFL+9
DISC AFFL+5, DISC+8, DISC+9
DIVC DISC+5, DIVC+13, DIVC+14, SORTR+4
DONE PRINT+15
EOJ EP+1, PROVKEY+3, AFFL+6, DISC+6, DIVC+11
HEADER PRINT+2, PRINT+8
HEADER1 HEADER+1
PROVKEY ACTIVE+3
SORTR DIVC+10

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDAFFM AFFL+1!, AFFL+8, AFFL+9!, PROC+8
APCDAFFM( PROC+8, HEADER1+9
APCDAFFM("*" AFFL+9
>> APCDAFFT AFFL+1*, AFFL+4*, AFFL+5, HEADER1+7, HEADER1+8
APCDDISM DISC+1!, DISC+8, DISC+9!, PROC+9
APCDDISM( PROC+9, HEADER1+13
APCDDISM("*" DISC+9
>> APCDDIST DISC+1*, DISC+4*, DISC+5, HEADER1+11, HEADER1+12
APCDDIVM DIVC+6!, DIVC+13, DIVC+14!, PROC+10
APCDDIVM( PROC+11
APCDDIVM("*" DIVC+14
>> APCDDIVT DIVC+6*, DIVC+9*, DIVC+10
>> APCDERR AFFL+6*, DISC+6*, DIVC+11*
APCDET DONE+2!
APCDH PROC+1*, PROC+2, PROC+14, DONE+3!, PRINT+3, PRINT+7
>> APCDIEN PROC+4*, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+11, PROC+12, PROC+14, PRINT+7*
, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14
APCDJ EP+3*, PROC+1*, PROC+2, PROC+14, DONE+3!, PRINT+3, PRINT+7
APCDM DONE+2!
>> APCDPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> APCDPKEY PROVKEY+4*, PROC+5
>> APCDQ PRINT+1*, PRINT+3, PRINT+8, HEADER+2*
APCDS DONE+2!
>> APCDSORT SORTR+1*, SORTR+5*, PROC+12, PRINT+4
>> APCDSTAN ACTIVE+4*, HEADER1+5
APCDSTAT ACTIVE+1!, ACTIVE+4*, PROC+6, PROC+7
>> APCDSV PRINT+3*, PRINT+5, PRINT+6, PRINT+7
>> APCDT EP+3*
>> APCDTEXT EP+3*
APCDTRIM PROVKEY+1!
>> APCDTRIT PROVKEY+1*
APCDTS DONE+2!
>> APCDX EP+3*, PRINT+12*, PRINT+14*
D D~, D+1, DATE~, DATE+1, DATE+2
DA PROVKEY+2!, ACTIVE+2!, AFFL+2!, AFFL+6!, DISC+2!, DISC+6!, DIVC+7!, DIVC+11!, SORTR+3!
DIC AFFL+6*!, DISC+6*!, DIVC+11*!, EOJ+2!
DIC("S" AFFL+6*, DISC+6*, DIVC+11*
DIC(0 AFFL+6*, DISC+6*, DIVC+11*
DIR PROVKEY+2!, ACTIVE+2!, AFFL+2!, DISC+2!, DIVC+7!, SORTR+3!, EOJ+2!, DONE+1!, HEADER+2!
DIR("A" PROVKEY+2*, ACTIVE+2*, AFFL+2*, DISC+2*, DIVC+7*, SORTR+2*, DONE+1*
DIR("B" PROVKEY+2*, ACTIVE+2*, AFFL+2*, DISC+2*, DIVC+7*, SORTR+2*
DIR(0 PROVKEY+2*, ACTIVE+2*, AFFL+2*, DISC+2*, DIVC+7*, SORTR+2*, DONE+1*, HEADER+2*
>> DIRUT PROVKEY+3, ACTIVE+3, AFFL+3, DISC+3, DIVC+8, SORTR+4, DONE+1*
DT PROC+3, HEADER1+2
>> DTOUT HEADER+2
>> DUOUT DONE+1
DUZ HEADER1+2, USR+1
DUZ(2 HEADER1+3, LOC+1
>> G PROC+10, PROC+11*
IO DONE+1, HEADER+2
IO(0 DONE+1, HEADER+2
IOF EP+2, HEADER1+1
IOM CTR+1
IOSL PRINT+8
IOST DONE+1, HEADER+2
P SORT~, ASORT+1, NSORT+1, DSORT+1, SSORT+1
>> Q AFFL+6, DISC+6, DIVC+11
R SORT+1~, SORT+2*, SORT+4*, SORT+5, ASORT+1*, NSORT+1*, DSORT+1*, SSORT+1*, SSORT+2*, SSORT+3*
S SORT~, SORT+3
U PROC+6, PROC+7, PROC+8, PROC+9, PRINT+9, PRINT+12, PRINT+14, HEADER1+2, HEADER1+3, HEADER1+13
, USR+1, LOC+1
X AFFL+6*, DISC+6*, DIVC+11*, PROC+8*, PROC+9*, PROC+11*, PROC+12*, PROC+13*, PROC+14, HEADER1+5*
, HEADER1+6*, HEADER1+7*, HEADER1+9*, HEADER1+10, HEADER1+11*, HEADER1+13*, HEADER1+14, C~, C+2, CTR~
, CTR+1
X2 C~
X3 C~
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y PROVKEY+4, ACTIVE+4, AFFL+4, AFFL+6, AFFL+7, DISC+4, DISC+6, DISC+7, DIVC+9, DIVC+11
, DIVC+12, SORTR+5, HEADER+2, HEADER1+9*, HEADER1+13*, CTR~, CTR+1
Y(0 ACTIVE+4

Marked Items

Name Field # of Occurrence
$T(@APCDTEXT+APCDJ EP+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 |  Marked Items |  All