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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLDR31

Package: Patient Care Component Reports

Routine: APCLDR31


Information

APCLDR31 ; IHS/CMI/LAB - patients dm list - chinle ;

Source Information

Source file <APCLDR31.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Patient Care Component Reports 2 $$START1^APCLDF  (FINTOT,SUBTOT)^APCLDR3  
VA Fileman 2 COMMA^%DTC  ^DIR  
IHS Patient 1 ($$DOB,$$HRN)^AUPNPAT  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLDR3  

Entry Points

Name Comments DBIA/ICR reference
HGBS ;subtotal hbg values
LASTLDL ;
DATE(B) ;
BPS ;
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
HDL ;
PRINT1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
LDL ;
LASTBP
TC ;
PIH
HEAD ;EP
LDLS ;
C(X,X2,X3) ;
LASTTC ;
HGB ;
HEAD1 ;
USR() ;EP - Return name of current user from ^VA(200.
LASTHBG ;
LDLS1 ;
LASTDMV
LASTHDL ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
$$START1^APCLDF LASTBP+3, LASTHBG+3, LASTTC+3, LASTLDL+3, LASTHDL+3
FINTOT^APCLDR3 PRINT+18
SUBTOT^APCLDR3 PRINT+16
$$DOB^AUPNPAT PRINT1+10
$$HRN^AUPNPAT PRINT1+10
^DIR DONE+1, HEAD+2, EOP+5
$$FMADD^XLFDT LDLS+1
$$FMTE^XLFDT PRINT1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR("As of Date: "_APCLEDD_$S($D(APCLFINL):"",1:" Designated Provider: "_$G(APCLP)),80),!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?27,"HRN",?34,"DOB",?47,"COMMUNITY",?62,!,APCL80D
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: !,APCL80D
  • Line Location: PIH+1
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HEAD+2
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41.1 - [#9002241.1] HEAD1+6
^AUPNVPOV("AD" LASTDMV+6
^AUPNVPRV("AD" LASTDMV+7
^AUPNVSIT - [#9000010] LASTDMV+4, LASTDMV+5, LASTDMV+8
^AUPNVSIT("AA" LASTDMV+2, LASTDMV+3
^DIC(4 - [#4] HEAD1+5, LOC+1
^DPT - [#2] PRINT1+9
^VA(200 - [#200] HEAD1+4, USR+1
^XTMP("APCLDR3" PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT1+1, DONE+3!

Label References

Name Line Occurrences
$$CTR HEAD1+6, HEAD1+7
$$DATE PRINT1+15, PRINT1+16, PRINT1+19, PRINT1+20, HGB+3, HGB+4, TC+3, TC+4, LDL+3, LDL+4
, HDL+3, HDL+4
BPS PRINT1+21
DONE PRINT+7, PRINT+17, PRINT+19
HEAD PRINT+7, PRINT1+6, PRINT1+7
HEAD1 HEAD+1
HGBS HGB+5
LASTBP PRINT1+18
LASTDMV PRINT1+13
LASTHBG HGB+2
LASTHDL HDL+2
LASTLDL LDL+2
LASTTC TC+2
LDLS LDL+5
LDLS1 LDLS+4, LDLS+5
PRINT1 PRINT+14

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LASTBP+1~, LASTBP+3*, LASTHBG+1~, LASTHBG+3*, LASTTC+1~, LASTTC+3*, LASTLDL+1~, LASTLDL+3*, LASTHDL+1~, LASTHDL+3*
A LASTBP+1~, LASTBP+2!, LASTHBG+1~, LASTHBG+2!, LASTTC+1~, LASTTC+2!, LASTLDL+1~, LASTLDL+2!, LASTHDL+1~, LASTHDL+2!
A(1 LASTBP+4, LASTHBG+4, LASTTC+4, LASTLDL+4, LASTHDL+4
A(2 LASTBP+5, LASTHBG+5, LASTTC+5, LASTLDL+5, LASTHDL+5
>> APCL15M LDLS+1*, LDLS+4, LDLS+5
>> APCL80D PRINT+5*, PIH, PIH+1
>> APCLBD BPS+3, HGBS+3
APCLBTH PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT1+1, DONE+3!
>> APCLC PRINT+8*, PRINT+12*, PRINT+13, PRINT+14, PRINT1+1, PRINT1+10
>> APCLCNT PRINT+11*, PRINT+14*, PRINT1+6
>> APCLDMV1 PRINT1+13*, PRINT1+15, PRINT1+16, PRINT1+18*, PRINT1+19, PRINT1+20, HGB+2*, HGB+3, HGB+4, TC+2*
, TC+3, TC+4, LDL+2*, LDL+3, LDL+4, HDL+2*, HDL+3, HDL+4, LASTDMV+9*, LASTBP+4*
, BPS+3, BPS+7, LDLS+4, HGBS+3, HGBS+7, LASTHBG+4*, LASTTC+4*, LASTLDL+4*, LASTHDL+4*
>> APCLDMV2 PRINT1+13*, PRINT1+15, PRINT1+18*, PRINT1+19, HGB+2*, HGB+3, TC+2*, TC+3, LDL+2*, LDL+3
, HDL+2*, HDL+3, LASTDMV+9*, LASTBP+5*, LDLS+5, LASTHBG+5*, LASTTC+5*, LASTLDL+5*, LASTHDL+5*
>> APCLDOB PRINT1+9*, LASTBP+3, LASTHBG+3, LASTTC+3, LASTLDL+3, LASTHDL+3
>> APCLED LDLS+1
>> APCLEDD HEAD1+7, LASTBP+3, LASTHBG+3, LASTTC+3, LASTLDL+3, LASTHDL+3
APCLFINL PRINT+1!, HEAD1+7, HEAD1+8
>> APCLGUI PRINT+2, HEAD1+2
>> APCLIOSL PRINT+2*, PRINT1+7
APCLJOB PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT1+1, DONE+3!
>> APCLNAME PRINT+8*, PRINT+13*, PRINT+14, PRINT1+1, PRINT1+10
>> APCLP PRINT+4*, PRINT+8*, PRINT+9*, PRINT+12, PRINT+13, PRINT+14, PRINT1+1, PRINT1+3, PRINT1+4, PRINT1+5
, HEAD1+7, BPS+2, BPS+5, BPS+8, BPS+9, BPS+10, BPS+11, BPS+12, BPS+13, LDLS+3
, LDLS+6, LDLS1+1, LDLS1+2, LDLS1+3, LDLS1+4, LDLS1+5, LDLS1+6, HGBS+2, HGBS+5, HGBS+10
>> APCLP1 PRINT1+1*, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, BPS+2, BPS+5, BPS+8, BPS+9, BPS+10
, BPS+11, BPS+12, BPS+13, LDLS+3, LDLS+6, LDLS1+1, LDLS1+2, LDLS1+3, LDLS1+4, LDLS1+5
, LDLS1+6, HGBS+2, HGBS+5, HGBS+10
>> APCLPCP PRINT1+2
>> APCLPG PRINT+6*, HEAD+1, HEAD1+1*, HEAD1+2, HEAD1+4
APCLQ PRINT+8!, PRINT+9, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT1+6, PRINT1+7, HEAD+2*
>> APCLREG HEAD1+6
>> APCLSD PRINT1+15, PRINT1+19, HGB+3, TC+3, LDL+3, HDL+3
>> APCLSTAR HEAD1+6
APCLSTOT PRINT+12!
APCLSTOT(0 PRINT1+8*
APCLSTOT(1 PRINT1+15*
APCLSTOT(2 PRINT1+19*
APCLSTOT(3 HGB+3*
APCLSTOT(4 TC+3*
APCLSTOT(5 LDL+3*
APCLSTOT(6 HDL+3*
>> APCLSUB PIH, PIH+1
APCLTBP PRINT+1!, PRINT+3*, BPS+1*, BPS+4*, BPS+8*, BPS+9*, BPS+10*, BPS+11*, BPS+12*, BPS+13*
APCLTBP( PRINT1+4*, BPS+2*, BPS+5*, BPS+8*, BPS+9*, BPS+10*, BPS+11*, BPS+12*, BPS+13*
APCLTHGB PRINT+1!, PRINT+3*, HGBS+1*, HGBS+4*, HGBS+9*
APCLTHGB( PRINT1+3*, HGBS+2*, HGBS+5*, HGBS+10*
APCLTLDL PRINT+1!, PRINT+3*, LDLS+2*, LDLS+6*, LDLS1+1*, LDLS1+2*, LDLS1+3*, LDLS1+4*, LDLS1+5*, LDLS1+6*
APCLTLDL( PRINT1+5*, LDLS+3*, LDLS+6*, LDLS1+1*, LDLS1+2*, LDLS1+3*, LDLS1+4*, LDLS1+5*, LDLS1+6*
>> APCLWR PRINT1+2*, PRINT1+6, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+14, PRINT1+15, PRINT1+16, PRINT1+17
, PRINT1+19, PRINT1+20, HGB+1, HGB+3, HGB+4, TC+1, TC+3, TC+4, LDL+1, LDL+3
, LDL+4, HDL+1, HDL+3, HDL+4, HDL+5
B DATE~, DATE+1, DATE+2
C LASTDMV+1~, LASTDMV+2*, LASTDMV+3, LASTDMV+9*
D LASTDMV+1~, LASTDMV+2*, LASTDMV+3, LASTDMV+9, BPS+7*, BPS+8, BPS+9, BPS+10, BPS+11, BPS+12
>> DFN PRINT+14*, PRINT1+1, PRINT1+9, PRINT1+10, LASTDMV+2, LASTDMV+3, LASTBP+3, LASTHBG+3, LASTTC+3, LASTLDL+3
, LASTHDL+3
DFOUT EOP+4!
DIR DONE+1!, HEAD+2!, EOP+3~
DIR("A" DONE+1*
DIR(0 DONE+1*, HEAD+2*, EOP+5*
DIRUT DONE+1*, EOP+4!
DLOUT EOP+4!
DTOUT HEAD+2, EOP+4!
DUOUT DONE+1, EOP+4!
DUZ HEAD1+4, USR+1
DUZ(2 PRINT1+10, HEAD1+5, LOC+1
E LASTBP+1~, LASTBP+3*, LASTHBG+1~, LASTHBG+3*, LASTTC+1~, LASTTC+3*, LASTLDL+1~, LASTLDL+3*, LASTHDL+1~, LASTHDL+3*
IO DONE+1, HEAD+2
IO("S" EOP+2
IO(0 DONE+1, HEAD+2
IOF DONE+2, HEAD1+1
IOM CTR+1
IOSL PRINT+2
IOST DONE+1, HEAD+2, EOP+1
>> IOT EOP+2
>> P HGBS+8*, HGBS+9, HGBS+10
>> S BPS+7*, BPS+8, BPS+9, BPS+10, BPS+11, BPS+12
U PRINT1+9, PRINT1+19, PRINT1+20, HGB+3, HGB+4, TC+3, TC+4, LDL+3, LDL+4, HDL+3
, HDL+4, HEAD1+4, HEAD1+5, HEAD1+6, LASTDMV+4, LASTDMV+5, LASTDMV+8, LASTBP+4, LASTBP+5, BPS+1
, BPS+2, BPS+3, BPS+4, BPS+5, BPS+7, BPS+8, BPS+9, BPS+10, BPS+11, BPS+12
, BPS+13, LDLS+2, LDLS+3, LDLS+4, LDLS+5, LDLS+6, LDLS1+1, LDLS1+2, LDLS1+3, LDLS1+4
, LDLS1+5, LDLS1+6, HGBS+1, HGBS+2, HGBS+3, HGBS+4, HGBS+5, HGBS+7, HGBS+9, HGBS+10
, LASTHBG+4, LASTHBG+5, LASTTC+4, LASTTC+5, LASTLDL+4, LASTLDL+5, LASTHDL+4, LASTHDL+5, USR+1, LOC+1
V LASTDMV+1~, LASTDMV+2*, LASTDMV+3*, LASTDMV+4, LASTDMV+5, LASTDMV+6, LASTDMV+7, LASTDMV+8, BPS+7*, LDLS+4*
, LDLS+5*, LDLS1+1, LDLS1+2, LDLS1+3, LDLS1+4, LDLS1+5, LDLS1+6, HGBS+7*, HGBS+8
W LASTBP+1~, LASTHBG+1~, LASTTC+1~, LASTLDL+1~, LASTHDL+1~
X HEAD1+6*, LASTBP+3~, LASTHBG+3~, LASTTC+3~, LASTLDL+3~, LASTHDL+3~, C~, C+2, CTR~, CTR+1
X2 C~
X3 C~
Y HEAD+2, CTR~, CTR+1
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All