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

Package: Patient Care Component Reports

Routine: APCLGVP


Information

APCLGVP ; IHS/CMI/LAB - print active client list ;

Source Information

Source file <APCLGVP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Patient Care Component Reports 2 SCREENS^APCLGV  DONE^APCLOSUT  
VA Fileman 2 DD^%DT  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  

Entry Points

Name Comments DBIA/ICR reference
PIH
VSTS ; process visits
PAT ;
HEAD1 ;
SRTV ;
HEAD
START ;
DFN ;
DONE
PRINT ;
LINE ;

External References

Name Field # of Occurrence
DD^%DT START+3
SCREENS^APCLGV VSTS+8
DONE^APCLOSUT DONE
^DIR HEAD+2
$$ICDDX^ICDEX VSTS+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,APCLSORV,": ",APCLSRT,!
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),U),1,15)
  • Line Location: DFN+2
Function Call: WRITE
  • Prompt: ?17,$J(APCLHRCN,7)
  • Line Location: DFN+4
Function Call: WRITE
  • Prompt: ?31,$E(Y,4,5),"/",$E(Y,6,7),"/",$E(Y,2,3)
  • Line Location: DFN+6
Function Call: WRITE
  • Prompt: ?27,$P(^DPT(DFN,0),U,2)
  • Line Location: DFN+7
Function Call: WRITE
  • Prompt: ?30,$E(Y,4,5),"/",$E(Y,6,7),"/",(1700+($E(Y,1,3)))
  • Line Location: DFN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: $P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: ?25,"PATIENTS SEEN AT LEAST ",APCLNUM," TIMES",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?17,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !!,?41,"LOCATION",?53,"PROVIDER",?65,"DX",?75,"#",!
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: "PATIENT NAME",?17,"CHART #",?26,"SEX",?31,"DOB",?41,"SEEN",?53,"SEEN",?65,"CODES",?73,"VISITS",!,APCL80D,!
  • Line Location: PIH+1
Routine Call
  • DIR
  • Line Location:
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] DFN+3
^AUPNVPOV - [#9000010.07] VSTS+17
^AUPNVPOV("AD" VSTS+17
^AUPNVPRV - [#9000010.06] VSTS+14
^AUPNVPRV("AD" VSTS+14
^AUPNVSIT - [#9000010] VSTS+5, VSTS+6, VSTS+7, VSTS+12
^AUPNVSIT("AA" VSTS+3, VSTS+4
^DD(9000010.06 VSTS+14
^DIBT( PRINT+2*, PRINT+3
^DIC(16 - [#16] VSTS+14
^DIC(4 - [#4] VSTS+12, HEAD1+3
^DPT - [#2] DFN+2, DFN+7
^VA(200 - [#200] VSTS+14, HEAD1+2
^XTMP("APCLGV" PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!

Label References

Name Line Occurrences
DFN PAT+5
DONE PRINT+1, START+5, SRTV+3
HEAD START+5, SRTV+1, PAT+2, PAT+4, DFN+1, VSTS+29
HEAD1 HEAD+1
LINE VSTS+23, VSTS+25, VSTS+27
PAT SRTV+2

Naked Globals

Name Field # of Occurrence
^(0 DFN+3, VSTS+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL80D START+1*, PIH+1
>> APCLBD START+3, VSTS+2
>> APCLBDD START+3*, HEAD1+5
>> APCLBDO VSTS+2*, VSTS+3
APCLBTH PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!
>> APCLED START+3, VSTS+2
>> APCLEDD START+3*, HEAD1+5
>> APCLEDO VSTS+2*
>> APCLHRCN DFN+3*, DFN+4
APCLJOB PRINT+2, START+5, SRTV+2, PAT+5, DONE+1!
APCLLINE VSTS+20!
APCLLINE( VSTS+28, VSTS+30, LINE+9*, LINE+10*, LINE+11*
APCLLINE(1 VSTS+21*, VSTS+28*, LINE+3*, LINE+7*, LINE+9, LINE+11
>> APCLNPAG PAT+1, PAT+4
>> APCLNUM HEAD1+4
>> APCLOUT PRINT+1
>> APCLP VSTS+14*, VSTS+17*
APCLPCNT VSTS+20!
>> APCLPG START+4*, HEAD+1, HEAD1+1*, HEAD1+2
APCLPRNM VSTS+20!, VSTS+24!, VSTS+26!, LINE+1
APCLPRNM( VSTS+22*, VSTS+24*, VSTS+26*, LINE+4, LINE+8
APCLPRNM(1 LINE+6
APCLPRNT VSTS+20!, LINE+1*, LINE+2*, LINE+3, LINE+6*, LINE+7, LINE+8*, LINE+10
APCLPROB VSTS+1!
APCLPROB( VSTS+17*, VSTS+26
APCLPRV VSTS+1!
APCLPRV( VSTS+14*, VSTS+24
APCLQ START+2!, SRTV+2, PAT+1, PAT+2, PAT+4, PAT+5, DFN+1, VSTS+28, VSTS+29, HEAD+2*
>> APCLRCNT VSTS+2*, VSTS+10*, VSTS+28*
APCLRLOC VSTS+1!
APCLRLOC( VSTS+12*, VSTS+22
>> APCLSD VSTS+2*, VSTS+3*, VSTS+4
>> APCLSKIP VSTS+9
>> APCLSORV PAT+3, PAT+4
>> APCLSRT SRTV+2*, PAT+3, PAT+4, PAT+5
>> APCLSTMP PRINT+2, PRINT+3
>> APCLVIEN VSTS+2*, VSTS+4*, VSTS+5, VSTS+6, VSTS+7, VSTS+12, VSTS+14, VSTS+17
>> APCLVREC VSTS+7*
>> C VSTS+22*, VSTS+24*, VSTS+26*
>> DFN PAT+5*, DFN+2, DFN+3, DFN+7, VSTS+3, VSTS+4
DIR HEAD+2!
DIR(0 HEAD+2*
>> DTOUT HEAD+2
DUZ HEAD1+2
DUZ(2 DFN+3, HEAD1+3
>> I LINE+3*, LINE+7*, LINE+10*, LINE+11*
IO HEAD+2
IO(0 HEAD+2
IOF HEAD1+1
IOSL PAT+2, DFN+1, VSTS+29
IOST HEAD+2
>> J LINE+3*, LINE+7*, LINE+10*, LINE+11*
>> K VSTS+22*, VSTS+24*, VSTS+26*, LINE+3, LINE+7, LINE+9, LINE+10, LINE+11*
>> P VSTS+14*, VSTS+17*
U PRINT+3, DFN+2, DFN+3, DFN+7, VSTS+5, VSTS+6, VSTS+12, VSTS+14, VSTS+17, HEAD1+2
, HEAD1+3
X PRINT+2*, VSTS+22*, VSTS+24*, VSTS+26*, VSTS+28*, VSTS+30, LINE+4*, LINE+5, LINE+8, LINE+9
, LINE+10, LINE+11*, HEAD~
>> Y START+3*, DFN+7*, HEAD+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All