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

Package: Patient Care Component Surveillance

Routine: APCSCERT


Information

APCSCERT ; IHS/CMI/LAB - APCS Certification Export ;

Source Information

Source file <APCSCERT.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 5 DD^%DT  C^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  ^XBGSAVE  EN^XBVK  
Kernel 3 ($$DEL,$$LIST)^%ZISH  ($$FMADD,$$FMTE)^XLFDT  ($$CJ,$$UP)^XLFSTR  
Patient Care Component Reports 3 ^APCLSIL3  ($$DEMO,DEMO)^APCLUTL  PAUSE^APCLVL01  
Patient Care Component Surveillance 1 CERT^APCSHLOC  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
DATES ;set date range to T-91 to T-1
DEMO ;
PURGE ;
LABTYPE ;
EOP ;EP - End of page.
D ;taxonomy or selected
INDLAB ;
UID(APCSA) ;Given DFN return unique patient record id.
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;inform user
LABTAX ;
DATE(D) ;EP
A ;
B ;
ZIS ;called xbdbque to see if they want to queue or not
JDATE(D) ;EP - get date
ED ;get ending date
WRITE ; use XBGSAVE to save the temp global (APCSDATA) to a delimited
; file that is exported to the IE system
START ;
EP ;EP - called from option to create search template using ILI logic
LOC() ;EP - Return location name from file 4 based on DUZ(2).
USR() ;EP - Return name of current user from ^VA(200.
LAB ;does this visit have A or B or either?
LOINC(A,B) ;EP
CONTINUE ;
EXIT ;clean up and exit
PROC ;EP - called from xbdbque

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
$$DEL^%ZISH PURGE+13
$$LIST^%ZISH PURGE+9
^APCLSIL3 EP+1
$$DEMO^APCLUTL PROC+12
DEMO^APCLUTL DEMO+1
PAUSE^APCLVL01 PROC+23
CERT^APCSHLOC PROC+16
^DIC LABTAX+1, INDLAB+1
$$GET1^DIQ UID+4
^DIR BD+1, ED+1, LABTYPE+3, CONTINUE+2, D+3, EOP+5
^XBDBQUE DEMO+4
^XBFMK EXIT+2
^XBGSAVE WRITE+9
EN^XBVK EXIT+1
$$FMADD^XLFDT PURGE+7
$$FMTE^XLFDT ED+6, JDATE+3
$$CJ^XLFSTR INFORM+2
$$UP^XLFSTR JDATE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("EPI PROGRAM HL7 LAB EXPORT",80)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!,"This option is used to create a file of HL7 messages. These messages will"
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !,"be sent to the IHS Certification program. A message will be sent for every visit"
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"on which a certain lab test was done. The user will define the date range"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"of visits to export."
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"This HL7 export file will be automatically ftp'ed to the EPI program.",!!
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!,"The date range for this export is: ",$$FMTE^XLFDT(APCSBD)," to ",$$FMTE^XLFDT(APCSED),".",!
  • Line Location: ED+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONTINUE+1
Function Call: WRITE
  • Prompt: !!,"The SURVEILLANCE RAPID FLU TESTS lab taxonomy is missing. Cannot continue."
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"The SURVEILLANCE RAPID FLU CPT taxonomy is missing. Cannot continue."
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!,"The SURVEILLANCE RAPID FLU LOINC taxonomy is missing. Cannot continue."
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !!,"The SURVEILLANCE RAPID FLU TESTS site populated LAB taxonomy has no entries."
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !!,"The BGP CHLAMYDIA TESTS TAX lab taxonomy is missing. Cannot continue."
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !!,"The CHLAMYDIA CPT taxonomy is missing. Cannot continue."
  • Line Location: B+3
Function Call: WRITE
  • Prompt: !!,"The BGP CHLAMYDIA LOINC CODES taxonomy is missing. Cannot continue."
  • Line Location: B+5
Function Call: WRITE
  • Prompt: !!,"The BGP CHLAMYDIA TESTS TAX site populated LAB taxonomy has no entries."
  • Line Location: B+6
Function Call: WRITE
  • Prompt: !!,"no lab tests selected."
  • Line Location: D+8
Function Call: WRITE
  • Prompt: !!,"The following labs and values will be exported:"
  • Line Location: D+9
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,X,0),U,1)
  • Line Location: D+10
Function Call: WRITE
  • Prompt: !
  • Line Location: D+11
Routine Call
  • DIC
  • Line Location:
    • LABTAX+1
    • INDLAB+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • LABTYPE+3
    • CONTINUE+2
    • D+3
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXLAB - [#9002228] Classic Fileman Calls
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCSDATA($J PROC+2!, WRITE+16!
^ATXAX - [#9002226] LOINC+3, LOINC+5
^ATXAX("B" A+3, A+4, B+3, B+4
^ATXLAB - [#9002228] A+6, B+6, LABTAX+3, LAB+5, LAB+11
^ATXLAB("B" A+1, B+1
^AUPNPAT - [#9000001] UID+2
^AUPNVLAB - [#9000010.09] LAB+2, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13, LAB+17
^AUPNVLAB("AD" LAB+1
^AUPNVSIT - [#9000010] PROC+6, PROC+7, PROC+8
^AUPNVSIT("B" PROC+4, PROC+5
^AUTTLOC - [#9999999.06] WRITE+5, PURGE+6
^AUTTSITE(1 WRITE+5, UID+4, PURGE+3, PURGE+6
^DIC(4 - [#4] LOC+1
^DPT - [#2] PROC+10, PROC+11
^LAB(60 - [#60] LABTAX+3, D+10
^LAB(95.3 - [#95.3] LOINC+2, LOINC+4
^VA(200 - [#200] USR+1
^XTV(8989.3 - [#8989.3] PURGE+4

Label References

Name Line Occurrences
$$DATE WRITE+6, PURGE+8
$$LOINC LAB+8, LAB+14
A LABTYPE+7
B LABTYPE+8
BD ED+2
D LABTYPE+9
DATES LABTYPE+4
EXIT START+4, BD+2, CONTINUE+3, DEMO+5
INDLAB INDLAB+4, D+7
LAB PROC+15
LABTAX D+6
LABTYPE LABTYPE+7, LABTYPE+8, LABTYPE+9, DEMO+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LOINC+1~, LOINC+2*, LOINC+3, LOINC+4*, LOINC+5
A LOINC~, LOINC+2, LOINC+4, JDATE+2~, JDATE+3*, JDATE+4
>> APCLDEMO DEMO+1, DEMO+2
>> APCLQ LABTYPE+6*, LABTYPE+7, LABTYPE+8, LABTYPE+9, A+2*, A+3*, A+5*, A+6*, B+2*, B+3*
, B+5*, B+6*, D+4*, D+8*
APCSA UID~, UID+1, UID+2, UID+4
>> APCSACTT A+3*
>> APCSALBT A+1*, A+2, A+6, LAB+5
>> APCSALOT A+4*, A+5, LAB+6, LAB+8
>> APCSASU WRITE+5*, WRITE+6, PURGE+6*, PURGE+9
>> APCSBCTT B+3*
>> APCSBD BD+3*, ED+1, ED+4, ED+6
>> APCSBLBT B+1*, B+2, B+6, LAB+11
>> APCSBLOT B+4*, B+5, LAB+12, LAB+14
APCSDIR PURGE+2!, PURGE+3*, PURGE+4*, PURGE+5, PURGE+9, PURGE+13
>> APCSDT PURGE+7*, PURGE+8*, PURGE+13
>> APCSED DATES+1*, ED+3*, ED+6, PROC+4
APCSFILE PURGE+2!, PURGE+9
APCSFILE( PURGE+11, PURGE+12, PURGE+13
APCSFILE("" PURGE+10
>> APCSFLST PURGE+9*
>> APCSGOT PROC+14*, PROC+16, LAB+5*, LAB+9*, LAB+11*, LAB+15*, LAB+18*
>> APCSLAB PROC+16
>> APCSLAB( LAB+5*, LAB+9*, LAB+11*, LAB+15*, LAB+18*
APCSLABS D+1!, D+2*, D+5*, D+6, D+7, D+8!
APCSLABS( LABTAX+3*, INDLAB+3*, D+10, LAB+17
APCSLABS(0 D+8
APCSLABT PROC+14!
>> APCSLTYP LABTYPE+1*, LABTYPE+5*, LABTYPE+7, LABTYPE+8, LABTYPE+9, LAB+4, LAB+10, LAB+16
>> APCSM PURGE+13*
>> APCSSD DATES+1*, ED+4*, PROC+4*, PROC+5
>> APCSV PROC+5*, PROC+6, PROC+7, PROC+8, LAB+1
>> APCSVTOT PROC+3*, PROC+17*, PROC+20
>> APCSX PURGE+11*, PURGE+12, PURGE+13
B LOINC~, LOINC+3, LOINC+5
D DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4, PURGE+12*, PURGE+13
DA LABTYPE+3!, CONTINUE+2!, D+3!
>> DFN PROC+8*, PROC+9, PROC+10, PROC+11, PROC+12
DFOUT EOP+4!
>> DIC LABTAX+1*, INDLAB+1*
>> DIC(0 LABTAX+1*, INDLAB+1*
DIR BD+1!, ED+1!, LABTYPE+3!, CONTINUE+2!, D+3!, EOP+3~
DIR("A" BD+1*, ED+1*, LABTYPE+2*, CONTINUE+2*, D+3*
DIR("B" CONTINUE+2*, D+3*
DIR(0 BD+1*, ED+1*, LABTYPE+2*, CONTINUE+2*, D+3*, EOP+5*
DIRUT BD+1*, BD+2, ED+1*, ED+2, LABTYPE+4, D+4, EOP+4!
DLOUT EOP+4!
DT WRITE+6, PURGE+7
DTOUT EOP+4!
DUOUT BD+1, ED+1, EOP+4!
DUZ USR+1
DUZ(2 LOC+1
IO("S" EOP+2
IOF INFORM+1
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
>> J LAB+7*, LAB+8, LAB+13*, LAB+14
>> L LABTAX+3*
>> N PURGE+13*
U LABTAX+3, D+10, PROC+7, PROC+8, PROC+11, LAB+3, LAB+5, LAB+7, LAB+11, LAB+13
, LAB+17, LOINC+2, LOINC+4, WRITE+5, UID+4, USR+1, LOC+1, PURGE+6
X ED+4, LABTAX+3*, D+10*, LAB+1*, LAB+2, LAB+3, LAB+5, LAB+7, LAB+9, LAB+11
, LAB+13, LAB+15, LAB+17, LAB+18, CTR~, CTR+1
>> X1 ED+4*
>> X2 ED+4*
>> 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 DEMO+3*
XBQ WRITE+2~, WRITE+3*
XBQTO WRITE+2~
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
>> XBS1 WRITE+7*
XBUF WRITE+2~
Y BD+3, ED+1*, ED+3, LABTYPE+5, CONTINUE+3, LABTAX+2, LABTAX+3, INDLAB+2, INDLAB+3, D+5
, CTR~, CTR+1
>> ZTQUEUED PROC+1, PROC+21, 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