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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: APCLD819

Package: Patient Care Component Reports

Routine: APCLD819


Information

APCLD819 ; IHS/CMI/LAB - 2008 DIABETES AUDIT ;

Source Information

Source file <APCLD819.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 2 ^XBCLS  ^XBDBQUE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Care Component Reports 3 APCLD81  APCLD816  APCLD81E  

Entry Points

Name Comments DBIA/ICR reference
ZIS ;
TEXTD ;EP
LASTHF(P,C,BDATE,EDATE,F) ;EP - get last factor in category C for patient P
TAXCHK ;EP
LAB ;
XIT ;EP
PRINT
DONE ;
TAXS ;
BANNER ;EP - banner for 2008 audit menu
PAGE ;
BMIEPI(H,W) ;EP ;

External References

Name Field # of Occurrence
^DIR DONE+1, PAGE+1
^XBCLS PRINT
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking for Taxonomies to support the 2008 Audit. ",!,"Please enter the device for printing.",!
  • Line Location: APCLD819+5
Function Call: WRITE
  • Prompt: !,"Checking for Taxonomies to support the 2008 Audit...",!
  • Line Location: TAXCHK+3
Function Call: WRITE
  • Prompt: !,"All taxonomies are present.",!
  • Line Location: TAXCHK+20
Function Call: WRITE
  • Prompt: !!,"In order for the 2008 Diabetes Audit to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing, have",!,"no entries or contain a panel test and should not:",!
  • Line Location: TAXCHK+21
Function Call: WRITE
  • Prompt: !?80-$L(APCLX)\2,APCLX
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?80-(8+$L(APCL("VERSION")))/2,"Version ",APCL("VERSION")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?80-$L(APCL("SITE"))\2,APCL("SITE")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • PAGE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] TAXCHK+10
^ATXAX("B" TAXCHK+8, TAXCHK+9
^ATXLAB - [#9002228] TAXCHK+14, TAXCHK+15, TAXCHK+17
^ATXLAB("B" TAXCHK+12, TAXCHK+13
^AUPNVHF - [#9000010.23] LASTHF+16
^AUPNVHF("AA" LASTHF+8, LASTHF+9, LASTHF+12
^AUTTHF - [#9999999.64] LASTHF+16
^AUTTHF("AC" LASTHF+7
^AUTTHF("B" LASTHF+4
^DIC(4 - [#4] PRINT+3
^LAB(60 - [#60] TAXCHK+18

Label References

Name Line Occurrences
DONE TAXCHK+26
PAGE TAXCHK+19, TAXCHK+23
XIT ZIS+3, PRINT+3, PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BMIEPI+1~, BMIEPI+5*, BMIEPI+6
A TAXCHK+4~, TAXCHK+5!, TAXCHK+20!
A( TAXCHK+8*, TAXCHK+10*, TAXCHK+12*, TAXCHK+14*, TAXCHK+22, TAXCHK+24
APCL XIT+1!
APCL("SITE" PRINT+3*
APCL("VERSION" BANNER+1*, PRINT+2
APCLJ XIT+1!, BANNER+2*, PRINT+1*
APCLLINE XIT+1!, BANNER+2*, PRINT+1
APCLQUIT TAXCHK+2!, TAXCHK+22, TAXCHK+23, TAXCHK+26, TAXCHK+27, TAXCHK+28, XIT+1!, PAGE+1*
APCLTEXT XIT+1!, BANNER+1*
APCLX TAXCHK+4~, TAXCHK+7*, TAXCHK+8, TAXCHK+9, TAXCHK+10, TAXCHK+11*, TAXCHK+12, TAXCHK+13, TAXCHK+14, TAXCHK+18
, TAXCHK+20!, TAXCHK+22*, TAXCHK+24, TAXCHK+27*, TAXCHK+28, TAXCHK+29, XIT+1!, BANNER+2*, PRINT+1*!
APCLY TAXCHK+4~, TAXCHK+17*, TAXCHK+18, TAXCHK+28*, TAXCHK+29
B TAXCHK+4~, TAXCHK+5!, TAXCHK+20
B( TAXCHK+18*, TAXCHK+27, TAXCHK+28, TAXCHK+29
BDATE LASTHF~, LASTHF+11
C TAXCHK+4~, TAXCHK+6*, TAXCHK+18*, LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7
D LASTHF+6~, LASTHF+9*, LASTHF+10, LASTHF+11, LASTHF+12, LASTHF+14*, LASTHF+15, LASTHF+16
DIR DONE+1!, PAGE+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, PAGE+1*
>> DIRUT DONE+1*
>> DTOUT PAGE+1
>> DUOUT DONE+1
DUZ(2 PRINT+3
EDATE LASTHF~, LASTHF+10
F LASTHF~, LASTHF+3*, LASTHF+16
H LASTHF+6~*, LASTHF+7*, LASTHF+8, LASTHF+9, LASTHF+12, BMIEPI~, BMIEPI+2, BMIEPI+4, BMIEPI+5*
I TAXCHK+4~, TAXCHK+9*, TAXCHK+10, TAXCHK+13*, TAXCHK+14, TAXCHK+15, TAXCHK+17, TAXCHK+20!
IO DONE+1, PAGE+1
IO(0 DONE+1, PAGE+1
IOF APCLD819+4, TAXCHK+1, PRINT
IOSL TAXCHK+19, TAXCHK+23
IOST DONE+1, PAGE+1
J TAXCHK+4~, TAXCHK+7*, TAXCHK+11*, XIT+2!
O LASTHF+6~!
O( LASTHF+12*, LASTHF+16
O(0 LASTHF+14
P LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+12
>> T TAXCHK+7*, TAXCHK+11*
U TAXCHK+15, TAXCHK+18, TAXCHK+24, TAXCHK+29, LASTHF+16
W BMIEPI~, BMIEPI+3, BMIEPI+5*
X XIT+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y TAXCHK+4~, TAXCHK+7*, TAXCHK+8, TAXCHK+10, TAXCHK+11*, TAXCHK+12, TAXCHK+14, TAXCHK+18, TAXCHK+20!, XIT+2!
, PAGE+1
Z TAXCHK+4~, TAXCHK+7*, TAXCHK+11*, TAXCHK+20!

Marked Items

Name Field # of Occurrence
$T(@APCLTEXT+APCLJ BANNER+2, PRINT+1
$T(@T+J TAXCHK+7, TAXCHK+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All