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

Package: Patient Care Component Reports

Routine: APCLP17


Information

APCLP17 ; IHS/BJI/GRL - Routine to create bulletin [ 01/16/05 2:03 PM ]

Source Information

Source file <APCLP17.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA Fileman 5 (,IX)^DIC  FILE^DICN  DT^DICRW  ^DIE  (,IX1)^DIK  
Kernel 4 HOME^%ZIS  $$CJ^XLFSTR  ($$ADD,$$DELETE)^XPDMENU  MES^XPDUTL  
Patient Care Component Reports 2 ^APCL1TX  ^APCL2TX  
IHS VA Utilities 1 ^XBFMK  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP
OPT ;add new options
IMES ;
SET ;
SENDER
SETTAXL ;
GETRECIP ;
WRITEMSG ;
TAX ;
LAB ;
DUPE ;
TAXREAD ;
LAB1 ;
SORRY(X) ;
LABTAX ;
INSTALLD(APCLSTAL) ;EP - Determine if patch APCLSTAL was installed, where
; APCLSTAL is the name of the INSTALL. E.g "AG*6.0*11".
POST ;EP
SUBJECT

External References

Name Field # of Occurrence
HOME^%ZIS OPT+45
^APCL1TX OPT+30
^APCL2TX OPT+31
^DIC LAB1+4, SETTAXL+14, INSTALLD+9, INSTALLD+12, TAXREAD+14
IX^DIC INSTALLD+6
FILE^DICN OPT+41
DT^DICRW OPT+45
^DIE PRE+9, OPT+36
^DIK PRE+1, PRE+3, PRE+4, PRE+5, PRE+6, PRE+7, DUPE+3, DUPE+7, DUPE+11
IX1^DIK LAB1+7
^XBFMK OPT+36, OPT+38, OPT+42
$$CJ^XLFSTR IMES+1, SORRY+4
^XMD SENDER+3
$$ADD^XPDMENU OPT+2, OPT+5, OPT+7, OPT+9, OPT+11, OPT+13, OPT+15, OPT+17, OPT+19, OPT+21
, OPT+23, OPT+25
$$DELETE^XPDMENU OPT+4
MES^XPDUTL IMES+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Attempt to add PATIENT REFUSAL LIST report option failed.."
  • Line Location: OPT+3
Function Call: WRITE
  • Prompt: "Attempt to add DV REPORTS menu option failed.."
  • Line Location: OPT+6
Function Call: WRITE
  • Prompt: "Attempt to add DV REPORTS menu option failed.."
  • Line Location: OPT+8
Function Call: WRITE
  • Prompt: "Attempt to add RETURNS TO CLINIC report option failed.."
  • Line Location: OPT+10
Function Call: WRITE
  • Prompt: "Attempt to add CPT BY PROVIDER REPORT menu option failed.."
  • Line Location: OPT+12
Function Call: WRITE
  • Prompt: "Attempt to add BMI MOVE menu option failed.."
  • Line Location: OPT+14
Function Call: WRITE
  • Prompt: "Attempt to add 2005 DM AUDIT menu option failed.."
  • Line Location: OPT+16
Function Call: WRITE
  • Prompt: "Attempt to add SUICIDE REPORTS menu option failed.."
  • Line Location: OPT+18
Function Call: WRITE
  • Prompt: "Attempt to add TALLY BY PROV/CLINIC menu option failed.."
  • Line Location: OPT+20
Function Call: WRITE
  • Prompt: "Attempt to add Self Monitoring Report failed.."
  • Line Location: OPT+22
Function Call: WRITE
  • Prompt: "Attempt to add DECEASED PTS LISTING menu option failed.."
  • Line Location: OPT+24
Function Call: WRITE
  • Prompt: "Attempt to add TOTAL HOUSEHOLD INCOME LISTING menu option failed.."
  • Line Location: OPT+26
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR ZERO.",!
  • Line Location: OPT+44
Function Call: WRITE
  • Prompt: !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key."
  • Line Location: SENDER+2
Function Call: WRITE
  • Prompt: !,"Creating ",APCLX," Taxonomy..."
  • Line Location: LAB1+3
Function Call: WRITE
  • Prompt: !!,"ERROR IN CREATING ",APCLX," TAX"
  • Line Location: LAB1+5
Function Call: WRITE
  • Prompt: !,$P(APCLDATA,"|")
  • Line Location: SETTAXL+5
Function Call: WRITE
  • Prompt: !,"updating package multiple for ",APCLPP," entry ",$P(^ATXLAB(APCLDA,0),U)," failed"
  • Line Location: SETTAXL+15
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,$P(APCLDATA,"|")
  • Line Location: TAXREAD+5
Function Call: WRITE
  • Prompt: !,"updating package multiple for ",APCLPP," entry ",$P(^ATXAX(APCLDA,0),U)," failed"
  • Line Location: TAXREAD+15
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: SET+4
Routine Call
  • %ZIS
  • Line Location:
    • OPT+45
Routine Call
  • DIE
  • Line Location:
    • PRE+9
    • OPT+36
Routine Call
  • DIC
  • Line Location:
    • LAB1+4
    • SETTAXL+14
    • INSTALLD+9
    • INSTALLD+12
    • TAXREAD+14
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^DIC(9.4 - [#9.4] Classic Fileman Calls
^APCLCNTL - [#9001003] Classic Fileman Calls
^APCLVSTS - [#9001003.7] Classic Fileman Calls
^APCLBMI - [#9001003.9] Classic Fileman Calls
^APCLRECD - [#9001004.1] Classic Fileman Calls
^APCLDMTX - [#9001004.2] Classic Fileman Calls
^APCLPDES - [#9001004.5] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^ATXLAB - [#9002228] Classic Fileman Calls
^ATXTYPE - [#9002229] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLBMI("H" PRE+8!
^APCLPDES - [#9001004.5] WRITEMSG+3
^APCLPDES("B" WRITEMSG+1
^ATXAX - [#9002226] TAXREAD+5*, TAXREAD+6*, TAXREAD+15, SET+1, SET+2, SET+4*
^ATXAX("B" OPT+35, TAXREAD+3
^ATXLAB - [#9002228] LAB1+2*, LAB1+6*, SETTAXL+5*, SETTAXL+6*, SETTAXL+15
^ATXLAB("B" DUPE+1, DUPE+5, DUPE+9, LAB1+1, SETTAXL+3
^ATXTYPE("B" OPT+39
^DD(9002226 TAXREAD+13
^DD(9002228 SETTAXL+1, SETTAXL+13
^DIC(19 - [#19] PRE+9
^DIC(9.4 - [#9.4] SETTAXL+11, TAXREAD+11
^TMP($J OPT+48!, SENDER+4!, WRITEMSG+3*
^XUSEC( GETRECIP+4

Label References

Name Line Occurrences
$$INSTALLD APCLP17+6
DUPE OPT+28
GETRECIP OPT+49
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
LAB OPT+29
LAB1 LAB+1, LAB+2, LAB+3
SORRY APCLP17+6
TAXREAD OPT+32
WRITEMSG OPT+49

Naked Globals

Name Field # of Occurrence
^(0 LAB1+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLC DUPE+1*, DUPE+2, DUPE+5*, DUPE+6, DUPE+9*, DUPE+10
>> APCLDA OPT+39*, OPT+40, LAB1+1*, LAB1+2, SETTAXL+3*, SETTAXL+4, SETTAXL+5, SETTAXL+6, SETTAXL+13, SETTAXL+15
, TAXREAD+3*, TAXREAD+4, TAXREAD+5, TAXREAD+6, TAXREAD+13, TAXREAD+15
>> APCLDATA SETTAXL+2*, SETTAXL+3, SETTAXL+5, SETTAXL+6, SETTAXL+9, TAXREAD+2*, TAXREAD+3, TAXREAD+5, TAXREAD+6, TAXREAD+9
APCLKEY SENDER+2, SENDER+4!, GETRECIP+3*, GETRECIP+4
>> APCLN SETTAXL+10*, TAXREAD+10*
>> APCLP SETTAXL+9*, SETTAXL+10, TAXREAD+9*, TAXREAD+10
>> APCLPI SETTAXL+11*, SETTAXL+12, SETTAXL+13, TAXREAD+11*, TAXREAD+12, TAXREAD+13
>> APCLPNSP SET+3, SET+4
>> APCLPP SETTAXL+10*, SETTAXL+11, SETTAXL+15, TAXREAD+10*, TAXREAD+11, TAXREAD+15
APCLSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> APCLTEXT SETTAXL+2*, TAXREAD+2*
>> APCLTX LAB1+6*, LAB1+7
>> APCLX DUPE+1*, DUPE+3, DUPE+5*, DUPE+7, DUPE+9*, DUPE+11, LAB+1*, LAB+2*, LAB+3*, LAB1+1
, LAB1+3, LAB1+4, LAB1+5, LAB1+6, SETTAXL+2*, TAXREAD+2*
APCLY INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> ATXFLG OPT+34*
>> ATXPNSP TAXREAD+1*
>> CTR GETRECIP+3*, GETRECIP+4*
>> D INSTALLD+5*
D0 OPT+41!
DA PRE+1*, PRE+3*, PRE+4*, PRE+5*, PRE+6*, PRE+7*, PRE+9*!, OPT+35*, OPT+36, DUPE+3*
, DUPE+7*, DUPE+11*, LAB1+4!, LAB1+7*, SETTAXL+8!, SETTAXL+16!, TAXREAD+8!, TAXREAD+16!
DA(1 SETTAXL+13*, TAXREAD+13*
DD OPT+41!
DIADD OPT+41*, OPT+42!, LAB1+4*!
DIC OPT+41*, LAB1+4*!, SETTAXL+8!, SETTAXL+13*, SETTAXL+16!, INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*, TAXREAD+8!
, TAXREAD+13*, TAXREAD+16!
DIC("DR" OPT+41*
DIC("P" SETTAXL+13*, TAXREAD+13*
DIC(0 OPT+41*, LAB1+4*, SETTAXL+13*, INSTALLD+5*, TAXREAD+13*
DIE PRE+9*!, OPT+36*
DIFQ SORRY+1!
DIFROM OPT+47~
>> DIK PRE+1*, PRE+3*, PRE+4*, PRE+5*, PRE+6*, PRE+7*, DUPE+3*, DUPE+7*, DUPE+11*, LAB1+7*
DLAYGO OPT+41*, OPT+42!, LAB1+4*!
DO OPT+41!
DR PRE+9*!, OPT+36*, SETTAXL+8!, TAXREAD+8!
DT LAB1+6
DUZ OPT+44, SENDER+1, LAB1+6
I LAB1+4!
IOM IMES+1, SORRY+4
IOST SENDER+2
>> L SET+3*, SET+4
U LAB1+2, LAB1+6, SETTAXL+5, SETTAXL+6, SETTAXL+13, SETTAXL+15, TAXREAD+5, TAXREAD+6, TAXREAD+13, TAXREAD+15
, SET+2, SET+4
X APCLP17+5*, OPT+1~, OPT+2*, OPT+3, OPT+4*, OPT+5*, OPT+6, OPT+7*, OPT+8, OPT+9*
, OPT+10, OPT+11*, OPT+12, OPT+13*, OPT+14, OPT+15*, OPT+16, OPT+17*, OPT+18, OPT+19*
, OPT+20, OPT+21*, OPT+22, OPT+23*, OPT+24, OPT+25*, OPT+26, OPT+41*, WRITEMSG+1*, WRITEMSG+2
, WRITEMSG+3, LAB1+4*, SETTAXL+13*, SETTAXL+16!, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, SORRY~, SORRY+2
, SORRY+3, TAXREAD+13*, TAXREAD+16!, SET+1*, SET+2, SET+4
XMDUZ OPT+47~, SENDER*
XMSUB OPT+47~, SUBJECT*
XMTEXT OPT+47~, SENDER+1*
XMY OPT+47~
XMY( SENDER+1*, GETRECIP+4*
XMY(1 SENDER+1*
>> XPDDIQ( APCLP17+5*
>> XPDQUIT SORRY+2*, SORRY+3*
Y WRITEMSG+3*, GETRECIP+4*, LAB1+5, LAB1+6, SETTAXL+15, SETTAXL+16!, INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10
, INSTALLD+11, INSTALLD+13, IMES+1, TAXREAD+15, TAXREAD+16!, SET+2*, SET+4

Marked Items

Name Field # of Occurrence
$T(@APCLTEXT+APCLX SETTAXL+2, TAXREAD+2
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