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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLSILM

Package: Patient Care Component Reports

Routine: APCLSILM


Information

APCLSILM ;IHS/CMI/LAB - AGGREGATE ILI REPORT;

Source Information

Source file <APCLSILM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 ^XBDBQUE  EN^XBVK  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
LOC() ;EP - Return location name from file 4 based on DUZ(2).
ZIS ;
HEAD1 ;
HEADER ;EP - report header
EOJ ;ENTRY POINT
USR() ;EP - Return name of current user from ^VA(200.
START ;
CTR(X,Y) ;EP - Center X in a field Y wide.
EOP ;EP - End of page.
ED ;get ending date
PRINT ;
PROC ;EP - called from xbdbque

External References

Name Field # of Occurrence
^DIR BD+1, ED+1, HEADER+2, EOP+5
^XBDBQUE ZIS+2
EN^XBVK START+3, EOJ+1
$$FMADD^XLFDT PRINT+3
$$FMTE^XLFDT PRINT+7, HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR HEAD1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"********** LIST OF HL7 LAB EXPORTS TO THE EPI PROGRAM **********",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$$CTR("*** HL7 LAB Exports to the EPI Program***",80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: $$CTR(X,80),!!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: ?1,"DATE EXPORTED",?20,"FILENAME",?60,"# RECS",?68,"SUCCESSFULLY",!?68,"SENT?",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("-",79),!
  • Line Location: HEAD1+7
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • HEADER+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCLILIC(1 PRINT+4, PRINT+5, PRINT+7
^DIC(4 - [#4] HEAD1+3, LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR HEAD1+4, HEAD1+5
BD ED+2
EOJ BD+2
EOP PRINT+8
HEAD1 HEADER+1
HEADER PRINT+2, PRINT+6

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBD BD+3*, ED+1, PRINT+3, HEAD1+5
>> APCLED ED+3*, PRINT+4, HEAD1+5
>> APCLPG PRINT+1*, HEADER+1, HEAD1+1, HEAD1+2*, HEAD1+3
>> APCLQUIT PRINT+4, PRINT+5, PRINT+6, HEADER+2*
>> APCLSD PRINT+3*, PRINT+4*, PRINT+5, PRINT+7
>> APCLX PRINT+5*, PRINT+7
DFOUT EOP+4!
DIR BD+1!, ED+1!, HEADER+2!, EOP+3~
DIR("A" BD+1*, ED+1*
DIR(0 BD+1*, ED+1*, HEADER+2*, EOP+5*
DIRUT BD+1*, BD+2, ED+1*, ED+2, EOP+4!
DLOUT EOP+4!
DT HEAD1+3
DTOUT HEADER+2, EOP+4!
DUOUT BD+1, ED+1, EOP+4!
DUZ USR+1
DUZ(2 HEAD1+3, LOC+1
IO HEADER+2
IO("S" EOP+2
IO(0 HEADER+2
IOF START+1, HEAD1+1
IOM CTR+1
IOSL PRINT+6
IOST HEADER+2, EOP+1
>> IOT EOP+2
U PRINT+7, HEAD1+3, USR+1, LOC+1
X HEAD1+5*, CTR~, CTR+1
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+3, ED+3, HEADER+2, CTR~, CTR+1
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All