Routine: APCLCH1P

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$CJ^XLFSTR
Patient Care Component Reports	2	EN^APCLCH1S DONE^APCLOSUT
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLCH1S

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;EP
TOP15IDX	;
HEAD1	;
PRN	;
SURGPROC	;
START	;
DONE	;
PRINT	;
TOP15ODX	;
AGEDIST	;

External References

Name	Field # of Occurrence
EN^APCLCH1S	SURGPROC+18
DONE^APCLOSUT	DONE+1
^DIR	HEAD+2
$$ICDDX^ICDEX	TOP15ODX+9, TOP15ODX+12, TOP15IDX+8, TOP15IDX+11
$$ICDOP^ICDEX	SURGPROC+8, SURGPROC+11
$$FMTE^XLFDT	AGEDIST+2, HEAD1+2, HEAD1+4
$$CJ^XLFSTR	HEAD1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: START+2
Function Call: WRITE	Prompt: !?5,"There are ",^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"LIVREG")," living patients registered at ",$P(^DIC(4,DUZ(2),0),U),"." Line Location: PRINT+2
Function Call: WRITE	Prompt: !?5,^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"HADHC")," received health care services during this time period." Line Location: PRINT+3
Function Call: WRITE	Prompt: !?5,^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"MCRA")," are currently enrolled in Medicare Part A; " Line Location: PRINT+5
Function Call: WRITE	Prompt: ^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"MCRB")," in Medicare Part B; " Line Location: PRINT+6
Function Call: WRITE	Prompt: !?5,^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"MCD")," in Medicaid; and " Line Location: PRINT+7
Function Call: WRITE	Prompt: ^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"PI")," have Private Insurance.",! Line Location: PRINT+8
Function Call: WRITE	Prompt: !?5,"There were ",^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"BIRTHS")," births and ",^XTMP("APCLCH1",APCLJOB,APCLBTH,"RP",APCLCOM,"DEATHS")," deaths during this period.",! Line Location: PRINT+10
Function Call: WRITE	Prompt: !?30,"AGE/SEX Distribution as of ",$$FMTE^XLFDT(APCLED),! Line Location: AGEDIST+2
Function Call: WRITE	Prompt: ?T,J Line Location: AGEDIST+3
Function Call: WRITE	Prompt: !?9,$TR($J("",70)," ","-") Line Location: AGEDIST+4
Function Call: WRITE	Prompt: !?2,"MALE" Line Location: AGEDIST+5
Function Call: WRITE	Prompt: ?T,$J(J,5) Line Location: AGEDIST+5
Function Call: WRITE	Prompt: !,"FEMALE" Line Location: AGEDIST+6
Function Call: WRITE	Prompt: ?T,$J(J,5) Line Location: AGEDIST+6
Function Call: WRITE	Prompt: !,"UNKNOWN" Line Location: AGEDIST+7
Function Call: WRITE	Prompt: ?T,$J(J,5) Line Location: AGEDIST+7
Function Call: WRITE	Prompt: !?1,"TOTAL" Line Location: AGEDIST+8
Function Call: WRITE	Prompt: ?T,$J(J,5) Line Location: AGEDIST+11
Function Call: WRITE	Prompt: !!!?5,"The Top 15 Purposes of Direct and Contract Outpatient Visits were:",! Line Location: TOP15ODX+2
Function Call: WRITE	Prompt: ?15,"Both Primary and Secondary Diagnoses are included",! Line Location: TOP15ODX+3
Function Call: WRITE	Prompt: !?5,APCLCOM,?43,$E($P(^AUTTSU(APCLSU,0),U),1,25)," Service Unit",! Line Location: TOP15ODX+4
Function Call: WRITE	Prompt: ?5,$TR($J("",$L(APCLCOM))," ","-"),?43,$TR($J("",35)," ","-"),! Line Location: TOP15ODX+5
Function Call: WRITE	Prompt: !,"Top 15 outpatient purpose of visits (cont.)",! Line Location: TOP15ODX+14
Function Call: WRITE	Prompt: ?43,$P(APCLS(APCLX),U),?70,"(",$P(APCLS(APCLX),U,2),")" Line Location: TOP15ODX+15
Function Call: WRITE	Prompt: !,"Top 15 outpatient purpose of visits (cont.)",! Line Location: TOP15ODX+17
Function Call: WRITE	Prompt: !!!?5,"The Top 15 Inpatient Diagnoses were:",! Line Location: TOP15IDX+2
Function Call: WRITE	Prompt: !?5,APCLCOM,?43,$E($P(^AUTTSU(APCLSU,0),U),1,25)," Service Unit",! Line Location: TOP15IDX+3
Function Call: WRITE	Prompt: ?5,$TR($J("",$L(APCLCOM))," ","-"),?43,$TR($J("",33)," ","-"),! Line Location: TOP15IDX+4
Function Call: WRITE	Prompt: !,"Top 15 inpatient diagnoses (cont.)",! Line Location: TOP15IDX+13
Function Call: WRITE	Prompt: ?43,$P(APCLS(APCLX),U),?70,"(",$P(APCLS(APCLX),U,2),")" Line Location: TOP15IDX+14
Function Call: WRITE	Prompt: !,"Top 15 inpatient diagnoses (cont.)",! Line Location: TOP15IDX+16
Function Call: WRITE	Prompt: !!!?5,"The Leading Surgical Procedures were:",! Line Location: SURGPROC+2
Function Call: WRITE	Prompt: !?5,APCLCOM,?43,$E($P(^AUTTSU(APCLSU,0),U),1,25)," Service Unit",! Line Location: SURGPROC+3
Function Call: WRITE	Prompt: ?5,$TR($J("",$L(APCLCOM))," ","-"),?43,$TR($J("",33)," ","-"),! Line Location: SURGPROC+4
Function Call: WRITE	Prompt: !,"Top 15 surgical procedures (cont.)",! Line Location: SURGPROC+13
Function Call: WRITE	Prompt: ?43,$P(APCLS(APCLX),U),?70,"(",$P(APCLS(APCLX),U,2),")" Line Location: SURGPROC+14
Function Call: WRITE	Prompt: !,"Top 15 surgical procedures (cont.)",! Line Location: SURGPROC+16
Function Call: WRITE	Prompt: !!,"End of Report. This report is based on visit data processed on the ",!,$P(^DIC(4,DUZ(2),0),U)," computer.",! Line Location: SURGPROC+20
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?21,"*** COMMUNITY HEALTH PROFILE ***",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?25,$$FMTE^XLFDT(APCLBD)," to ",$$FMTE^XLFDT(APCLED),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Search Template of Patients Used: "_$P(^DIBT(APCLSEAT,0),U,1),80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?(80-$L(APCLCOM))/2,APCLCOM,! Line Location: HEAD1+6
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSU - [#9999999.22]	TOP15ODX+4, TOP15IDX+3, SURGPROC+3
^DIBT(	HEAD1+5
^DIC(4 - [#4]	PRINT+2, SURGPROC+20
^VA(200 - [#200]	HEAD1+2
^XTMP("APCLCH1"	START+2, DONE+2!, PRN+1, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10 , AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10, AGEDIST+11, TOP15ODX+6, TOP15ODX+7, TOP15ODX+9, TOP15ODX+10, TOP15ODX+12 , TOP15IDX+5, TOP15IDX+6, TOP15IDX+8, TOP15IDX+9, TOP15IDX+11, SURGPROC+5, SURGPROC+6, SURGPROC+8, SURGPROC+9, SURGPROC+11

Label References

Name	Line Occurrences
DONE	START+2
HEAD	PRINT+1, PRINT+4, PRINT+9, AGEDIST+1, TOP15ODX+1, TOP15ODX+14, TOP15ODX+17, TOP15IDX+1, TOP15IDX+13, TOP15IDX+16 , SURGPROC+1, SURGPROC+13, SURGPROC+16
HEAD1	HEAD+1
PRINT	PRN+1
PRN	START+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLAGEP	AGEDIST+3
>> APCLBD	HEAD1+4
>> APCLBTH	START+2, DONE+2, PRN+1, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10 , AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10, AGEDIST+11, TOP15ODX+6, TOP15ODX+7, TOP15ODX+9, TOP15ODX+10, TOP15ODX+12 , TOP15IDX+5, TOP15IDX+6, TOP15IDX+8, TOP15IDX+9, TOP15IDX+11, SURGPROC+5, SURGPROC+6, SURGPROC+8, SURGPROC+9, SURGPROC+11
>> APCLC	TOP15ODX+13, TOP15ODX+15, TOP15IDX+12, TOP15IDX+14, SURGPROC+12, SURGPROC+14
>> APCLCOM	PRN+1*, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10, AGEDIST+5, AGEDIST+6 , AGEDIST+7, AGEDIST+10, AGEDIST+11, TOP15ODX+4, TOP15ODX+5, TOP15ODX+6, TOP15ODX+7, TOP15ODX+9, TOP15IDX+3, TOP15IDX+4 , TOP15IDX+5, TOP15IDX+6, TOP15IDX+8, SURGPROC+3, SURGPROC+4, SURGPROC+5, SURGPROC+6, SURGPROC+8, HEAD1+6
>> APCLED	AGEDIST+2, HEAD1+4
>> APCLJOB	START+2, DONE+2, PRN+1, PRINT+2, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+10 , AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10, AGEDIST+11, TOP15ODX+6, TOP15ODX+7, TOP15ODX+9, TOP15ODX+10, TOP15ODX+12 , TOP15IDX+5, TOP15IDX+6, TOP15IDX+8, TOP15IDX+9, TOP15IDX+11, SURGPROC+5, SURGPROC+6, SURGPROC+8, SURGPROC+9, SURGPROC+11
>> APCLPG	START+1, HEAD+1, HEAD1+1, HEAD1+2
>> APCLQUIT	PRN+1, PRINT+1, PRINT+4, PRINT+9, AGEDIST+1, TOP15ODX+1, TOP15ODX+6, TOP15ODX+10, TOP15ODX+13, TOP15ODX+14 , TOP15ODX+16, TOP15ODX+17, TOP15IDX+1, TOP15IDX+5, TOP15IDX+9, TOP15IDX+12, TOP15IDX+13, TOP15IDX+15, TOP15IDX+16, SURGPROC+1 , SURGPROC+5, SURGPROC+9, SURGPROC+12, SURGPROC+13, SURGPROC+15, SURGPROC+16, SURGPROC+19, HEAD+2*
APCLR	TOP15ODX+6!, TOP15IDX+5!, SURGPROC+5!
APCLR(	TOP15ODX+9, TOP15ODX+13, TOP15ODX+15, TOP15IDX+8, TOP15IDX+12, TOP15IDX+14, SURGPROC+8*, SURGPROC+12, SURGPROC+14
APCLS	TOP15ODX+10!, TOP15IDX+9!, SURGPROC+9!
APCLS(	TOP15ODX+12, TOP15ODX+15, TOP15ODX+16, TOP15ODX+18, TOP15IDX+11, TOP15IDX+14, TOP15IDX+15, TOP15IDX+17, SURGPROC+11*, SURGPROC+14 , SURGPROC+15, SURGPROC+17
>> APCLSEAT	HEAD1+5
>> APCLSU	TOP15ODX+4, TOP15IDX+3, SURGPROC+3
>> APCLX	TOP15ODX+6, TOP15ODX+7, TOP15ODX+9, TOP15ODX+10, TOP15ODX+12, TOP15ODX+13, TOP15ODX+15, TOP15ODX+16, TOP15ODX+18, TOP15IDX+5* , TOP15IDX+6, TOP15IDX+8, TOP15IDX+9, TOP15IDX+11, TOP15IDX+12, TOP15IDX+14, TOP15IDX+15, TOP15IDX+17, SURGPROC+5, SURGPROC+6 , SURGPROC+8, SURGPROC+9, SURGPROC+11, SURGPROC+12, SURGPROC+14, SURGPROC+15*, SURGPROC+17
>> APCLY	TOP15ODX+7, TOP15ODX+9, TOP15ODX+12, TOP15IDX+6, TOP15IDX+8, TOP15IDX+11, SURGPROC+6, SURGPROC+8, SURGPROC+11
>> C	TOP15ODX+6, TOP15ODX+9, TOP15ODX+10, TOP15ODX+12, TOP15ODX+16, TOP15IDX+5, TOP15IDX+8, TOP15IDX+9, TOP15IDX+11, TOP15IDX+15 , SURGPROC+5, SURGPROC+8, SURGPROC+9, SURGPROC+11, SURGPROC+15
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	HEAD1+2
>> DTOUT	HEAD+2
DUZ	HEAD1+2
DUZ(2	PRINT+2, SURGPROC+20
>> I	AGEDIST+3, AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10*, AGEDIST+11
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+4, PRINT+9, AGEDIST+1, TOP15ODX+1, TOP15ODX+14, TOP15ODX+17, TOP15IDX+1, TOP15IDX+13, TOP15IDX+16, SURGPROC+1 , SURGPROC+13, SURGPROC+16
IOST	HEAD+2
>> J	AGEDIST+3, AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10, AGEDIST+11
>> T	AGEDIST+3, AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+9, AGEDIST+11
U	PRINT+2, AGEDIST+5, AGEDIST+6, AGEDIST+7, AGEDIST+10, AGEDIST+11, TOP15ODX+4, TOP15ODX+9, TOP15ODX+12, TOP15ODX+15 , TOP15ODX+18, TOP15IDX+3, TOP15IDX+8, TOP15IDX+11, TOP15IDX+14, TOP15IDX+17, SURGPROC+3, SURGPROC+8, SURGPROC+11, SURGPROC+14 , SURGPROC+17, SURGPROC+20, HEAD1+2, HEAD1+5
>> Y	HEAD+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCH1P

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: