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

Package: Patient Care Component Reports

Routine: APCL8AP


Information

APCL8AP ; IHS/CMI/LAB - print apc report 1A ;

Source Information

Source file <APCL8AP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
HEAD
VD ;
HEAD1 ;
P ;
START2
PRN ;
SU ;
START ;
CLINIC ;
DONE
FIRSTPG ;

External References

Name Field # of Occurrence
DD^%DT START+2
DONE^APCLOSUT DONE
^DIR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START2+4
Function Call: WRITE
  • Prompt: !,"Total Number of APC visits counted: ",APCLGRAN
  • Line Location: FIRSTPG+1
Function Call: WRITE
  • Prompt: !,"Total Number of those APC Visits NOT Exported: ",$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"NO EXPORT")):^("NO EXPORT"),1:0)
  • Line Location: FIRSTPG+2
Function Call: WRITE
  • Prompt: !!,"Of the total number of visits counted in the 1A, but NOT exported to the",!,"National Data Warehouse, ",$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"IN XREF")):^("IN XREF"),1:0)
  • Line Location: FIRSTPG+3
Function Call: WRITE
  • Prompt: " were not exported because they were posted ",!,"or modified after the last NDW export tape was generated.",!
  • Line Location: FIRSTPG+4
Function Call: WRITE
  • Prompt: !,"The remaining ",($S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"NO EXPORT")):^("NO EXPORT"),1:0)-$S($D(^XTMP("APCL8A",APCLJOB,APCLBT,"IN XREF")):^("IN XREF"),1:0))," visits are listed below.",!
  • Line Location: FIRSTPG+6
Function Call: WRITE
  • Prompt: !,APCLHRN,?8,APCLRD,?28,$E($P(^DIC(4,APCLVLOC,0),U),1,11),?40,APCLTYPE,?44,$E(APCLSC,1,15),?47,$E(APCLCLN,1,10),?52,^XTMP("APCL8A",APCLJOB,APCLBT,"VISITS",APCLVDFN)
  • Line Location: PRN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: APCL80
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,"AREA: ",APCLAREC," ",APCLAREA,?47,"PCC-APC REPORT 1A",?68,"Page ",APCLPG
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,"S.U.: ",APCLSUC," ",APCLSU,?47,"FISCAL YEAR ",APCLFYD
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"FAC.: ",APCLLOCC," ",APCLLOCP,?49,APCLDT
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?46,"VISITS NOT EXPORTED",!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: APCL80,!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: APCL80,!
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: " HRN ",?8,"VISIT DATE/TIME",?28,"LOCATION",?39,"TYPE",?44,"SC",?45," CLIN",?55,"REASON",!,APCL80,!
  • Line Location: HEAD1+11
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] P+4, P+5
^AUPNVSIT - [#9000010] P+3, CLINIC+1
^AUTTAREA - [#9999999.21] START+5, START+6
^AUTTLOC - [#9999999.06] START+3, START+4, SU+1
^AUTTSU - [#9999999.22] SU+2, SU+3
^DD("DD" VD+1
^DIC(4 - [#4] START+3, PRN+1
^DIC(40.7 - [#40.7] CLINIC+2
^XTMP("APCL8A" START2+2, DONE+1!, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1

Label References

Name Line Occurrences
FIRSTPG HEAD1+8
HEAD START2, P+2
HEAD1 HEAD
P START2+2
START2 SU+1, SU+2
SU START+4, START+5
VD CLINIC+1

Naked Globals

Name Field # of Occurrence
^("IN XREF" FIRSTPG+3, FIRSTPG+6
^("NO EXPORT" FIRSTPG+2, FIRSTPG+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80 START+1*, HEAD1+2, HEAD1+7, HEAD1+10, HEAD1+11
>> APCLAREA START+4*, START+5*, START+6*, HEAD1+3
>> APCLAREC START+4*, START+5*, START+6*, HEAD1+3
>> APCLBT START2+2, DONE+1, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1
>> APCLCLN CLINIC+1*, CLINIC+2*, PRN+1
>> APCLDT START+2*, HEAD1+5
>> APCLFYD START+2*, HEAD1+4
>> APCLFYE START+2
>> APCLGRAN FIRSTPG+1
>> APCLHRN P+4*, P+5*, PRN+1
>> APCLJOB START2+2, DONE+1, FIRSTPG+2, FIRSTPG+3, FIRSTPG+5, FIRSTPG+6, PRN+1
>> APCLLOC START+3, START+4, SU+1
>> APCLLOCC START+3*, HEAD1+5
>> APCLLOCP START+3*, HEAD1+5
>> APCLPG START2*, HEAD, HEAD1+1*, HEAD1+3, HEAD1+8
>> APCLPRIT START2*
APCLQUIT START2+1!, START2+2, FIRSTPG+5*, P+2, HEAD+1*, HEAD1+9
>> APCLRD VD+1*, PRN+1
>> APCLSC P+3*, PRN+1
>> APCLSU SU+1*, SU+2*, SU+3*, HEAD1+4
>> APCLSUC SU+1*, SU+2*, SU+3*, HEAD1+4
>> APCLTYPE P+3*, PRN+1
>> APCLVDFN START2*, START2+2*, P+3, CLINIC+1, PRN+1
>> APCLVLOC P+3*, P+4, PRN+1
>> APCLVREC P+3*, P+4, VD+1
>> DFN P+4*, P+5
DIR HEAD+1!
DIR(0 HEAD+1*
DT START+2
>> DTOUT HEAD+1
DUZ(2 P+5
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL P+2
IOST HEAD+1
U START+3, START+4, START+6, SU+1, SU+3, P+3, P+4, P+5, CLINIC+1, CLINIC+2
, PRN+1
>> Y START+2*, VD+1*, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All