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

Package: Patient Care Component Reports

Routine: APCLCH1P


Information

APCLCH1P ; IHS/CMI/LAB - community health profile print ;

Source Information

Source file <APCLCH1P.m>

Call Graph

Call Graph Total: 6

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All