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

Package: Patient Care Component Reports

Routine: APCLSILO


Information

APCLSILO ; IHS/CMI/LAB - ILI surveillance export ;

Source Information

Source file <APCLSILO.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMADD^XLFDT  
Patient Care Component Reports 1 PAUSE^APCLVL01  

Entry Points

Name Comments DBIA/ICR reference
START ;
GETDATES ;
EXIT ;clean up and exit
ZIS ;call to XBDBQUE
TP ;

External References

Name Field # of Occurrence
PAUSE^APCLVL01 START+9, START+10, START+11, START+23, START+24, START+25, TP+16
$$GET1^DIQ START+9
^DIR START+6, START+13, TP+1, TP+12, GETDATES+4
^XBDBQUE ZIS+4
^XBFMK EXIT+2
EN^XBVK EXIT+1
$$FMADD^XLFDT TP+4, TP+7, GETDATES+10, GETDATES+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option can be used to send an ILI Surveillance (""FLU"") file or a FLU POP"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"file to the IHS EPI program. This should only be done if the EPI program"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"has requested that you do so because previous exports have failed.",!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,"You must be logged into the main facility to do this export.",!,"Your main facility is: ",$$GET1^DIQ(9999999.39,1,.01),!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !!,"Your CRS Site Parameters are not setup for this facility: ",!,$P(^DIC(4,DUZ(2),0),U,1)," can not continue.",!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"Your DBID is missing, cannot continue.",!
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !!,$P(^ATXAX(APCLCTAX,0),U,1)," is missing."
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !!,$P(^ATXAX(APCLDTAX,0),U,1)," is missing."
  • Line Location: START+24
Function Call: WRITE
  • Prompt: !!,$P(^ATXAX(APCLTTAX,0),U,1)," is missing."
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !,"Dates not entered."
  • Line Location: TP+16
Function Call: WRITE
  • Prompt: !!,"You will supply the beginning date, the ending date will be yesterday.",!
  • Line Location: GETDATES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATES+3
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: GETDATES+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: GETDATES+14
Routine Call
  • DIR
  • Line Location:
    • START+6
    • START+13
    • TP+1
    • TP+12
    • GETDATES+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTSITE - [#9999999.39] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLDATA($J START+19!
^APCLILIC(1 TP+5*
^ATXAX - [#9002226] START+23, START+24, START+25
^ATXAX("B" START+20, START+21, START+22
^AUTTLOC - [#9999999.06] START+11
^AUTTSITE(1 START+9
^BGPSITE - [#90241.02] START+10
^DIC(4 - [#4] START+10

Label References

Name Line Occurrences
EXIT START+2, START+7, START+8, START+9, START+10, START+11, START+14, START+23, START+24, START+25
, ZIS+5
GETDATES TP+15, GETDATES+7, GETDATES+13
START TP+2, TP+8, TP+16
ZIS START+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL1ST START+16*, START+17*
APCLALL1 START+18!
APCLALLT START+18!
>> APCLBDAT TP+4*, TP+5*, GETDATES+2*, GETDATES+8*, GETDATES+11, GETDATES+13
>> APCLCTAX START+20*, START+23
>> APCLDTAX START+21*, START+24
>> APCLED TP+7*, TP+16, GETDATES+2*, GETDATES+10*, GETDATES+13
>> APCLFLF TP+5*
>> APCLFLFN TP+5*, TP+6*
APCLHTOT START+18!
APCLLOCT START+18!
>> APCLQ TP+8, TP+11*, TP+13*, TP+14*
>> APCLSD TP+4*, TP+5*, TP+16, GETDATES+2*, GETDATES+11*
>> APCLTTAX START+22*, START+25
>> APCLWEXP START+12*, START+15*, START+16, START+17, START+26
>> APCLY TP+3*, TP+4, TP+5, TP+6, TP+7, TP+8, TP+15
>> APCLZHSD ZIS+2*
DA START+6!, START+13!, TP+1!, TP+12!
DIR START+6!, START+13!, TP+1!, TP+12!, GETDATES+3!
DIR("A" START+6*, START+13*, TP+1*, TP+12*, GETDATES+3*
DIR("B" START+6*, START+13*, TP+1*, TP+12*
DIR(0 START+6*, START+13*, TP+1*, TP+12*, GETDATES+3*
>> DIRUT START+7, START+14, TP+2, TP+13, GETDATES+5
DT TP+4, TP+7, ZIS+2, GETDATES+7, GETDATES+10
DUZ(2 START+9, START+10, START+11
IOF START+1
U START+9, START+10, START+11, START+23, START+24, START+25, TP+5
>> XBNS ZIS+3*
>> XBRC ZIS+3*
>> XBRP ZIS+3*
>> XBRX ZIS+3*
>> Y START+8, START+15, TP+3, TP+14, GETDATES+6, GETDATES+7, GETDATES+8
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