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 |  All
Print Page as PDF
Routine: APCSSILI

Package: Patient Care Component Surveillance

Routine: APCSSILI


Information

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

Source Information

Source file <APCSSILI.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
IHS VA Utilities 5 ^XBDBQUE  ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  ^XBGSAVE  EN^XBVK  
Patient Care Component Reports 5 ($$HASADVN6,$$OTHVAC)^APCLSIL1  $$HASIVAC^APCLSILI  $$DEMO^APCLUTL  $$CLINIC^APCLV  PAUSE^APCLVL01  
Kernel 3 ($$DEL,$$LIST)^%ZISH  ($$FMADD,$$FMTE)^XLFDT  ($$CJ,$$UP)^XLFSTR  
Patient Care Component Surveillance 2 ILI^APCSHLO  SETREC^APCSSIL2  
VA Fileman 2 $$GET1^DIQ  ^DIR  
Taxonomy 1 $$ICD^ATXCHK  

Entry Points

Name Comments DBIA/ICR reference
EOP ;EP - End of page.
PURGE ;
DATES ;set date range to T-91 to T-1
ZIS ;called xbdbque to see if they want to queue or not
LOC() ;EP - Return location name from file 4 based on DUZ(2).
INFORM ;inform user
UID(APCSA) ;Given DFN return unique patient record id.
HASAVM(V) ;EP
JDATE(D) ;EP - get date
WRITE ; use XBGSAVE to save the temp global (APCSDATA) to a delimited
; file that is exported to the IE system
START ;
USR() ;EP - Return name of current user from ^VA(200.
CONTINUE ;
H1N1DX ;
CTR(X,Y) ;EP - Center X in a field Y wide.
EXIT ;clean up and exit
HASSRD7(APCLV) ;EP
PROC ;EP - called from xbdbque
ILIDX ;
DATE(D) ;EP
ILIDX1 ;

External References

Name Field # of Occurrence
$$DEL^%ZISH PURGE+13
$$LIST^%ZISH PURGE+9
$$HASADVN6^APCLSIL1 PROC+32
$$OTHVAC^APCLSIL1 PROC+33
$$HASIVAC^APCLSILI PROC+31
$$DEMO^APCLUTL PROC+19
$$CLINIC^APCLV ILIDX+3, H1N1DX+2
PAUSE^APCLVL01 PROC+63, PROC+65
ILI^APCSHLO PROC+64
SETREC^APCSSIL2 PROC+39
$$ICD^ATXCHK ILIDX1+4, H1N1DX+6, HASSRD7+5
$$GET1^DIQ UID+4
^DIR CONTINUE+1, EOP+5
^XBDBQUE ZIS+2
$$VAL^XBDIQ1 ILIDX1+4, H1N1DX+6, HASSRD7+5
$$VALI^XBDIQ1 ILIDX+8
^XBFMK EXIT+2
^XBGSAVE WRITE+9
EN^XBVK EXIT+1
$$FMADD^XLFDT DATES+2, PROC+8, PROC+9, PURGE+7
$$FMTE^XLFDT DATES+3, JDATE+3
$$CJ^XLFSTR INFORM+2
$$UP^XLFSTR JDATE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("SURVEILLANCE ILI HL7 EXPORT",80)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This option is used to create a file of HL7 messages. The messages will"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"be sent to the IHS EPI program. Visits in the past 90 days that meet"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"the criteria defined by the EPI program for the ILI export will be sent."
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"The data elements contained in the HL7 messages have been defined by the"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"EPI program. Documentation of the message definitions can be"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !,"obtained from the EPI program.",!!
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !,"This HL7 export file will be automatically ftp'ed to the EPI program.",!!
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !!,"The date range for this export is: ",$$FMTE^XLFDT(APCSBD)," to ",$$FMTE^XLFDT(APCSED),".",!
  • Line Location: DATES+3
Function Call: WRITE
  • Prompt: !!,"There are no visits to export.",!
  • Line Location: PROC+63
Routine Call
  • DIR
  • Line Location:
    • CONTINUE+1
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCSDATA($J PROC+2!, PROC+41, PROC+42, PROC+43, PROC+44, PROC+45*, PROC+48, PROC+49, PROC+50, PROC+51
, PROC+52*, PROC+55, PROC+56, PROC+57, PROC+58, PROC+59*, PROC+62, WRITE+16!, EXIT+3!
^ATXAX - [#9002226] ILIDX+13, HASAVM+8
^ATXAX("B" PROC+3, PROC+4, H1N1DX+6, HASSRD7+5, HASAVM+2
^AUPNPAT - [#9000001] UID+2
^AUPNVMED - [#9000010.14] HASAVM+3, HASAVM+11
^AUPNVMED("AD" HASAVM+3
^AUPNVPOV - [#9000010.07] ILIDX1+4, H1N1DX+6, HASSRD7+5
^AUPNVPOV("AD" ILIDX1+4, H1N1DX+6, HASSRD7+5
^AUPNVPRV - [#9000010.06] ILIDX+6, ILIDX+7
^AUPNVPRV("AD" ILIDX+5
^AUPNVSIT - [#9000010] PROC+13, PROC+14, PROC+15, PROC+23, PROC+24, ILIDX+1, ILIDX+2, ILIDX+12, ILIDX+13, ILIDX1+1
, H1N1DX+1, H1N1DX+4, HASSRD7+2
^AUPNVSIT("B" PROC+11, PROC+12
^AUTTLOC - [#9999999.06] PROC+25, WRITE+5, PURGE+6
^AUTTSITE(1 WRITE+5, UID+4, PURGE+3, PURGE+6
^BGPSITE - [#90241.02] PROC+20
^DIBT( PROC+20
^DIC(4 - [#4] LOC+1
^DIC(7 - [#7] ILIDX+10
^DPT - [#2] PROC+17, PROC+18
^PSDRUG - [#50] HASAVM+5, HASAVM+7
^VA(200 - [#200] USR+1
^XTV(8989.3 - [#8989.3] PURGE+4

Label References

Name Line Occurrences
$$DATE WRITE+6, PURGE+8
$$HASAVM PROC+35
$$HASSRD7 PROC+34
$$JDATE ILIDX+2, ILIDX1+1, H1N1DX+4
EXIT START+4, CONTINUE+2, ZIS+3, PROC+5, PROC+6
H1N1DX PROC+29
ILIDX PROC+28
ILIDX1 ILIDX+11

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A JDATE+2~, JDATE+3*, JDATE+4
APCLCLIN HASSRD7+1~
APCLV HASSRD7~, HASSRD7+2, HASSRD7+5
APCSA UID~, UID+1, UID+2, UID+4
>> APCSADVE PROC+22*, PROC+32*, PROC+33
>> APCSALLT( PROC+59, H1N1DX+4*
>> APCSASU WRITE+5*, WRITE+6, PURGE+6*, PURGE+9
>> APCSASUF PROC+25*, PROC+26, ILIDX+2, ILIDX1+1, H1N1DX+4
>> APCSAV9 PROC+22*
>> APCSAVM PROC+22*, PROC+35*
>> APCSBD DATES+2*, DATES+3
>> APCSCLIN ILIDX+3*, ILIDX+12, ILIDX+13, H1N1DX+2*
>> APCSCTAX PROC+3*, PROC+5, ILIDX+13
>> APCSDATE PROC+24*, PROC+33, ILIDX+2, ILIDX1+1, H1N1DX+4
APCSDIR PURGE+2!, PURGE+3*, PURGE+4*, PURGE+5, PURGE+9, PURGE+13
>> APCSDT PURGE+7*, PURGE+8*, PURGE+13
>> APCSDTAX PROC+4*, PROC+6, ILIDX1+4
>> APCSED DATES+2*, DATES+3, PROC+9*, PROC+11
APCSFILE PURGE+2!, PURGE+9
APCSFILE( PURGE+11, PURGE+12, PURGE+13
APCSFILE("" PURGE+10
>> APCSFLST PURGE+9*
>> APCSH1N1 PROC+22*, PROC+29*
>> APCSHTOT( PROC+52, ILIDX+2*
>> APCSHVAC PROC+22*
>> APCSILI PROC+22*, PROC+28*
>> APCSIVAC PROC+22*, PROC+31*
>> APCSKV PROC+22*, PROC+28*, PROC+29*, PROC+31*, PROC+32*, PROC+34*, PROC+35*, PROC+37
>> APCSLOC PROC+23*, PROC+25
APCSLOCT PROC+1!
APCSLOCT( PROC+45, ILIDX1+1*
>> APCSM PURGE+13*
>> APCSOVAC PROC+33*
>> APCSSD PROC+8*, PROC+11*, PROC+12
>> APCSSRD PROC+22*, PROC+34*
>> APCSV PROC+12*, PROC+13, PROC+14, PROC+15, PROC+23, PROC+24, PROC+31, PROC+32, PROC+34, PROC+35
, ILIDX+1, ILIDX+2, ILIDX+3, ILIDX+5, ILIDX+12, ILIDX+13, ILIDX1+1, ILIDX1+4, H1N1DX+1, H1N1DX+2
, H1N1DX+4, H1N1DX+6
>> APCSVTOT PROC+10*
>> APCSX PURGE+11*, PURGE+12, PURGE+13
C ILIDX1+2*, ILIDX1+4*, HASSRD7+1~, HASSRD7+3*, HASSRD7+5*, HASAVM+1~, HASAVM+3*, HASAVM+11*, HASAVM+13
D PROC+44*, PROC+45, PROC+51*, PROC+52, PROC+58*, PROC+59, H1N1DX+6*, H1N1DX+8, HASSRD7+1~, DATE~
, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4, PURGE+12*, PURGE+13
DA CONTINUE+1!
>> DFN PROC+15*, PROC+16, PROC+17, PROC+18, PROC+19, PROC+20, PROC+33
DFOUT EOP+4!
DIR CONTINUE+1!, EOP+3~
DIR("A" CONTINUE+1*
DIR("B" CONTINUE+1*
DIR(0 CONTINUE+1*, EOP+5*
DIRUT EOP+4!
DLOUT EOP+4!
DT DATES+2, PROC+8, PROC+9, WRITE+6, PURGE+7
DTOUT EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 LOC+1
G PROC+20*, PROC+21, PROC+28*, PROC+29*, ILIDX1+3!*, ILIDX1+6*, ILIDX1+7*, H1N1DX+5*, H1N1DX+6*, H1N1DX+7
, H1N1DX+8*, HASSRD7+1~, HASSRD7+4!*, HASSRD7+7*, HASSRD7+8*, HASSRD7+9
IO("S" EOP+2
IOF INFORM+1
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
L PROC+44*, PROC+45, PROC+51*, PROC+52, PROC+58*, PROC+59, HASAVM+1~
M HASAVM+1~
N HASAVM+1~, HASAVM+7*, HASAVM+9, HASAVM+10, HASAVM+11, PURGE+13*
P ILIDX+5*, ILIDX+10*, ILIDX+11, HASSRD7+1~
T ILIDX1+4*, H1N1DX+6*, HASSRD7+1~, HASSRD7+5*, HASAVM+1~, HASAVM+2*, HASAVM+8
U PROC+14, PROC+15, PROC+18, PROC+20, PROC+23, PROC+24, PROC+25, PROC+50, ILIDX+1, ILIDX+2
, ILIDX+7, ILIDX+10, ILIDX+12, ILIDX+13, ILIDX1+1, ILIDX1+4, ILIDX1+6, ILIDX1+7, H1N1DX+1, H1N1DX+4
, H1N1DX+6, H1N1DX+8, HASSRD7+2, HASSRD7+5, HASSRD7+7, HASSRD7+8, HASAVM+3, HASAVM+7, HASAVM+11, WRITE+5
, UID+4, USR+1, LOC+1, PURGE+6
V HASAVM~, HASAVM+3
X PROC+20*, PROC+41*, PROC+42, PROC+43, PROC+44, PROC+45, PROC+48*, PROC+49, PROC+50, PROC+51
, PROC+52, PROC+55*, PROC+56, PROC+57, PROC+58, PROC+59, ILIDX+5*, ILIDX+6, ILIDX+7, ILIDX1+4*
, ILIDX1+6*, H1N1DX+6*, HASSRD7+1~, HASSRD7+5*, HASSRD7+7*, HASAVM+1~, HASAVM+3*, HASAVM+11, CTR~, CTR+1
>> XBE WRITE+3*
>> XBF WRITE+3*
>> XBFLG WRITE+11
>> XBFLG(1 WRITE+12, WRITE+13, WRITE+15
XBFLT WRITE+2~, WRITE+3*
XBFN WRITE+2~, WRITE+6*
XBGL WRITE+2~, WRITE+3*
XBMED WRITE+2~, WRITE+3*
XBNAR WRITE+2~, WRITE+4*
>> XBNS ZIS+1*
XBQ WRITE+2~, WRITE+3*
XBQTO WRITE+2~
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
>> XBS1 WRITE+7*
XBUF WRITE+2~
Y CONTINUE+2, ILIDX+7*, ILIDX+8, ILIDX1+3!, ILIDX1+5, HASSRD7+1~, HASSRD7+4!, HASSRD7+6, HASAVM+1~, HASAVM+3*
, HASAVM+4, HASAVM+5, HASAVM+7, HASAVM+8, CTR~, CTR+1
Y( ILIDX1+4*, ILIDX1+6, HASSRD7+5*, HASSRD7+7
Z ILIDX+8*, ILIDX+9, ILIDX+10, HASSRD7+1~, HASAVM+1~, HASAVM+6*, HASAVM+8*, HASAVM+9*, HASAVM+10*, HASAVM+11
>> ZTQUEUED PROC+38, PROC+63, PROC+65, WRITE+12, WRITE+13, WRITE+14, WRITE+15, EOP+2, PURGE+1
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 |  All