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

Package: Patient Care Component Reports

Routine: APCLRT1P


Information

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

Source Information

Source file <APCLRT1P.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 DD^%DT  EN^DIQ1  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;
HEAD
SET ;
END ;
HEAD1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PRN ;
INIT ;
PRINT2 ;
SET2 ;

External References

Name Field # of Occurrence
DD^%DT INIT+2, PRN+4, PRINT2+2
DONE^APCLOSUT END+1
EN^DIQ1 PRN+2
^DIR HEAD+1
$$ICDDX^ICDEX PRINT1+7, PRINT2+11
$$VAL^XBDIQ1 PRINT1+7, PRINT2+11
$$FMTE^XLFDT INIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No visits to report."
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !,APCLNAME,?16,APCLHRCN,?28,APCLVD,?45,APCLCLNP,?49,APCLFAC
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT2+14
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: !,$$CTR(X,80)
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,$$CTR(X)
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: !?18,"VISITS DATES: ",APCLBDD," TO ",APCLEDD
  • Line Location: HEAD1+12
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEAD1+13
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEAD1+15
Function Call: WRITE
  • Prompt: !!?5,"NAME",?17,"HRCN",?28,"VISIT DATE&TIME",?45,"CLN",?49,"FAC",?54,"ICD",?64,"PROVIDER NARRATIVE"
  • Line Location: HEAD1+16
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEAD1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+18
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] SET2+2, SET2+3
^AUPNVPOV - [#9000010.07] PRINT1+7, PRINT2+11
^AUPNVPOV("AD" PRINT1+3, PRINT2+7
^AUPNVSIT - [#9000010] SET2+1, PRINT2+2, PRINT2+3, PRINT2+4
^AUTTLOC - [#9999999.06] SET2+2, SET2+3, PRN+6, PRINT2+4, HEAD1+14
^DIC(4 - [#4] HEAD1+3
^DIC(40.7 - [#40.7] PRN+5, PRINT2+3, HEAD1+7, HEAD1+8
^DPT - [#2] PRN+1
^UTILITY("DIQ1" PRN+2!, PRN+3!
^VA(200 - [#200] HEAD1+4, HEAD1+9
^XTMP("APCLRT1" INIT+4, SET+3, SET+4, END+2!, PRINT2+1

Label References

Name Line Occurrences
$$CTR HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9, HEAD1+10, HEAD1+11, HEAD1+13, HEAD1+15
END INIT+4
HEAD INIT+4, SET+1, PRINT1+1, PRINT2+5
HEAD1 HEAD
PRN SET2+2
SET2 SET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLAGE PRN+3*
>> APCLBD INIT+2
>> APCLBDD INIT+2*, HEAD1+12
>> APCLBTH INIT+4, SET+3, SET+4, END+2, PRINT2+1
>> APCLCLNP PRN+5*, PRINT1+2, PRINT2+3*, PRINT2+6
>> APCLDFN PRINT2+1*
>> APCLDT INIT+1*
>> APCLED INIT+2
>> APCLEDD INIT+2*, HEAD1+12
>> APCLEINC HEAD1+10
>> APCLFAC PRN+6*, PRINT1+2, PRINT2+4*, PRINT2+6
>> APCLFCLN HEAD1+7
>> APCLFRST PRINT1+2*, PRINT1+4, PRINT1+5*, PRINT2+6*, PRINT2+8, PRINT2+9*
>> APCLHR HEAD1+6
>> APCLHRCN SET2+2*, SET2+3*, PRINT1+2
>> APCLJOB INIT+4, SET+3, SET+4, END+2, PRINT2+1
>> APCLLOC SET2+2, HEAD1+13, HEAD1+15
>> APCLLOC( HEAD1+14
>> APCLNAME PRN+1*, PRINT1+2
>> APCLP PRINT1+2*, PRINT1+3*, PRINT1+7, PRINT2+6*, PRINT2+7*, PRINT2+11
>> APCLPG INIT+3*, HEAD, HEAD1+1*, HEAD1+4
>> APCLPROV HEAD1+9
>> APCLQUIT SET+3, SET+4, PRINT1+1, PRINT2+1, PRINT2+5, HEAD+1*
>> APCLSDX HEAD1+11
>> APCLTCLN HEAD1+8
>> APCLV PRINT2+1*, PRINT2+2, PRINT2+3, PRINT2+4, PRINT2+7
>> APCLVD PRN+4*, PRINT1+2, PRINT2+2*, PRINT2+6
>> APCLVDFN SET+2*, SET+4*, SET2+1, PRINT1+3, PRINT2+1
>> APCLVREC SET2+1*, SET2+2, SET2+3, PRN+1, PRN+2, PRN+3, PRN+4, PRN+5, PRN+6
>> DA PRN+2*
>> DFN SET+3*, SET+4, PRINT2+1
>> DIC PRN+2*
DIR HEAD+1!
DIR(0 HEAD+1*
>> DR PRN+2*
DT INIT+1
>> DTOUT HEAD+1
DUZ HEAD1+4
DUZ(2 SET2+3, HEAD1+3
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOM CTR+1
IOSL PRINT1+1, PRINT2+5
IOST HEAD+1
U SET2+2, SET2+3, PRN+1, PRN+2, PRN+3, PRN+4, PRN+5, PRN+6, PRINT1+7, PRINT2+2
, PRINT2+3, PRINT2+4, PRINT2+11, HEAD1+3, HEAD1+7, HEAD1+8, HEAD1+9, HEAD1+14
X CTR~, CTR+1, HEAD1+3*, HEAD1+4, HEAD1+6*, HEAD1+7*, HEAD1+8*, HEAD1+9*, HEAD1+10*, HEAD1+11*
, HEAD1+13*, HEAD1+14*, HEAD1+15*
Y INIT+2*, PRN+4*, PRINT2+2*, CTR~, CTR+1, HEAD+1, HEAD1+14*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All