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 |  Local Variables |  All
Print Page as PDF
Routine: APCLRADP

Package: Patient Care Component Reports

Routine: APCLRADP


Information

APCLRADP ; IHS/CMI/LAB - PRINT CLINIC VISITS ;

Source Information

Source file <APCLRADP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component Reports 2 DONE^APCLOSUT  ($$PRIMPROV,$$VD)^APCLV  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS Patient 1 $$HRN^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD
PRINT2 ;
END ;
HEAD1 ;
INIT ;
SET ;
SET2 ;

External References

Name Field # of Occurrence
DONE^APCLOSUT END+1
$$PRIMPROV^APCLV PRINT1+2, PRINT2+4
$$VD^APCLV PRINT1+2, PRINT2+4
$$HRN^AUPNPAT PRINT1+2
^DIR HEAD+1
$$ICDDX^ICDEX PRINT1+7, PRINT2+9
$$VAL^XBDIQ1 PRINT1+7, PRINT2+9
$$FMTE^XLFDT HEAD1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No visits to report."
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,$S(APCLLOC:APCLLOC,1:DUZ(2))),?29,$$VD^APCLV(APCLVDFN,"S"),?38,$P(^AUTTLOC($P(APCLVREC,U,6),0),U,7),?43,$E($$PRIMPROV^APCLV(APCLVDFN,"N"),1,10)
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPG
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !?19,"READMISSIONS WITHIN 30 DAYS OF A DISCHARGE"
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !?18,"VISITS DATES: ",$$FMTE^XLFDT(APCLBD)," TO ",$$FMTE^XLFDT(APCLED)
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !!?5,"NAME",?22,"HRCN",?29,"ADM DATE",?38,"LOC",?43,"PROV",?54,"ICD",?64,"PROVIDER NARRATIVE"
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+9
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVPOV - [#9000010.07] PRINT1+7, PRINT2+9
^AUPNVPOV("AD" PRINT1+3, PRINT2+5
^AUPNVSIT - [#9000010] SET2+1, PRINT2+2
^AUTTLOC - [#9999999.06] PRINT1+2, PRINT2+2
^DIC(4 - [#4] HEAD1+3
^DPT - [#2] PRINT1+2
^VA(200 - [#200] HEAD1+4
^XTMP("APCLRAD" INIT+2, SET+3, END+2!, PRINT2+1

Label References

Name Line Occurrences
END INIT+2
HEAD INIT+2, SET+1, PRINT1+1, PRINT2+3
HEAD1 HEAD
SET2 SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBD HEAD1+6
>> APCLBTH INIT+2, SET+3, END+2, PRINT2+1
>> APCLDFN PRINT2+1*
>> APCLED HEAD1+6
>> APCLFAC PRINT2+2*, PRINT2+4
>> APCLFRST PRINT1+2*, PRINT1+4, PRINT1+5*, PRINT2+4*, PRINT2+6, PRINT2+7*
>> APCLJOB INIT+2, SET+3, END+2, PRINT2+1
>> APCLLOC PRINT1+2
>> APCLP PRINT1+2*, PRINT1+3*, PRINT1+7, PRINT2+4*, PRINT2+5*, PRINT2+9
>> APCLPG INIT+1*, HEAD, HEAD1+1*, HEAD1+4
>> APCLQUIT SET+3, PRINT1+1, PRINT2+1, PRINT2+3, HEAD+1*
>> APCLV PRINT2+1*, PRINT2+2, PRINT2+4, PRINT2+5
>> APCLVDFN SET+2*, SET+3*, SET2+1, PRINT1+2, PRINT1+3, PRINT2+1
>> APCLVREC SET2+1*, PRINT1+2
>> DFN SET2+1*, PRINT1+2
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ HEAD1+4
DUZ(2 PRINT1+2, HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOSL PRINT1+1, PRINT2+3
IOST HEAD+1
U SET2+1, PRINT1+2, PRINT1+7, PRINT2+2, PRINT2+9, HEAD1+3
>> X HEAD1+3*, HEAD1+4
>> Y HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All