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

Package: Patient Care Component Reports

Routine: APCLOSP3


Information

APCLOSP3 ; IHS/CMI/LAB - AMB PRINT ;

Source Information

Source file <APCLOSP3.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Patient Care Component Reports 3 HEAD^APCLOSP  DENTAL^APCLOSP4  CALC^APCLOSUT  
DRG Grouper 1 $$ICDDX^ICDEX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component Reports 1 APCLOSP2  

Entry Points

Name Comments DBIA/ICR reference
POV ;
PROC1 ;
DENTAL ;
CHART ;
APC ;
INJURY ;
PROC
PROC2 ;
ER ;

External References

Name Field # of Occurrence
HEAD^APCLOSP POV+1, APC+2, CHART+1, INJURY+1, INJURY+6, ER+1
DENTAL^APCLOSP4 DENTAL+1
CALC^APCLOSUT CHART+4, INJURY+5, INJURY+8, ER+4, ER+6, ER+8, PROC2+4
$$ICDDX^ICDEX POV+5, PROC2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The ten leading purposes of ambulatory visits by individual ICD Code are listed",!,"below. Both primary and secondary diagnoses are included in the counts.",!
  • Line Location: POV+3
Function Call: WRITE
  • Prompt: ":",$P(^ICD9(X,0),U)
  • Line Location: POV+4
Function Call: WRITE
  • Prompt: ":",$P($$ICDDX^ICDEX(X),U,2)
  • Line Location: POV+5
Function Call: WRITE
  • Prompt: !?11,"By ICD Diagnosis"
  • Line Location: POV+6
Function Call: WRITE
  • Prompt: !!?11,"By APC Code"
  • Line Location: APC+4
Function Call: WRITE
  • Prompt: !!,"CHART REVIEWS"
  • Line Location: CHART+2
Function Call: WRITE
  • Prompt: !?10,"[ NO CHART REVIEWS TO REPORT ]",!
  • Line Location: CHART+3
Function Call: WRITE
  • Prompt: !!,"There were ",X," (",Z,") chart reviews performed during this time period.",!
  • Line Location: CHART+5
Function Call: WRITE
  • Prompt: !!!,"INJURIES"
  • Line Location: INJURY+3
Function Call: WRITE
  • Prompt: !?10,"[ NO INJURY DATA TO REPORT ]",!
  • Line Location: INJURY+4
Function Call: WRITE
  • Prompt: !!,"There were ",X," visits for injuries (",Z,") reported during this period.",!,"Of these, "
  • Line Location: INJURY+7
Function Call: WRITE
  • Prompt: X," were new injuries (",Z,"). The five leading causes were:"
  • Line Location: INJURY+9
Function Call: WRITE
  • Prompt: !!!,"EMERGENCY ROOM"
  • Line Location: ER+2
Function Call: WRITE
  • Prompt: !?10,"[ NO EMERGENCY ROOM VISITS TO REPORT ]",!
  • Line Location: ER+3
Function Call: WRITE
  • Prompt: !!,"There were ",X," visits (",Z,") to the ER (Clinic Code=30). Of these "
  • Line Location: ER+5
Function Call: WRITE
  • Prompt: !,X," had an injury diagnosis (",Z,") and "
  • Line Location: ER+7
Function Call: WRITE
  • Prompt: X," had an alcohol-related",!,"diagnosis (",Z,")."
  • Line Location: ER+9
Function Call: WRITE
  • Prompt: !?5,APCLC,"). ",?10,$E($P(@G@(0),U,APCLPIEC),1,35),?45,$J(X,7),?56,"(",Z,")"
  • Line Location: PROC2+6
Function Call: WRITE
  • Prompt: !?5,APCLC,"). ",?10,$E($P($$ICDDX^ICDEX(APCLD),U,4),1,35),?45,$J(X,7),?56,"(",Z,")"
  • Line Location: PROC2+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("APCLOS" CHART+3, CHART+4, INJURY+4, INJURY+5, INJURY+8, ER+3, ER+4, ER+6, ER+8, DENTAL+2
, PROC, PROC1+1, PROC2+2
^XTMP("APCLOSP" CHART+3, CHART+4, INJURY+5, INJURY+8, ER+4, ER+6, ER+8, PROC2+3, PROC2+4

Label References

Name Line Occurrences
CHART APC+1
DENTAL ER+3
ER INJURY+4
INJURY CHART+3
PROC POV+7, APC+5, INJURY+10, DENTAL+3
PROC1 PROC
PROC2 PROC1+1

Naked Globals

Name Field # of Occurrence
^("CHART REVIEWS" CHART+4
^("ERALCHCOUNT" ER+8
^("ERCOUNT" ER+4
^("ERINJCOUNT" ER+6
^("INJCOUNT" INJURY+5
^("INJFIRST" INJURY+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL1 POV+2*, APC+3*, INJURY+2*, PROC2+3, PROC2+4
>> APCL2 POV+2*, APC+3*, INJURY+2*, PROC, PROC1+1, PROC2+2, PROC2+6
>> APCLBTH CHART+3, CHART+4, INJURY+4, INJURY+5, INJURY+8, ER+3, ER+4, ER+6, ER+8, DENTAL+2
, PROC, PROC1+1, PROC2+2, PROC2+3, PROC2+4
>> APCLC PROC*, PROC1+1, PROC2+1*, PROC2+6, PROC2+7
>> APCLD PROC1+1*, PROC2+2, PROC2+3, PROC2+5, PROC2+7
>> APCLDXT( POV+5
>> APCLDXT(0 POV+5
>> APCLEXCL POV+5
>> APCLGLOB POV+2*, APC+3*, INJURY+2*, PROC2+5
>> APCLJOB CHART+3, CHART+4, INJURY+4, INJURY+5, INJURY+8, ER+3, ER+4, ER+6, ER+8, DENTAL+2
, PROC, PROC1+1, PROC2+2, PROC2+3, PROC2+4
>> APCLMAX POV+2*, APC+3*, INJURY+2*, PROC, PROC1+1
>> APCLN PROC*, PROC1+1, PROC2+2
>> APCLPD PROC2+3*, PROC2+4
>> APCLPIEC POV+2*, APC+3*, INJURY+2*, PROC2+6
>> APCLQUIT POV+1, APC+2, CHART+1, INJURY+1, INJURY+6, ER+1
>> G PROC2+5*, PROC2+6
IOSL POV+1, APC+2, CHART+1, INJURY+1, INJURY+6, ER+1
U POV+5, PROC2+6, PROC2+7
>> X POV+5*, CHART+4*, CHART+5, INJURY+5*, INJURY+7, INJURY+8*, INJURY+9, ER+4*, ER+5, ER+6*
, ER+7, ER+8*, ER+9, PROC2+2*, PROC2+6, PROC2+7
>> Y CHART+4*, INJURY+5*, INJURY+8*, ER+4*, ER+6*, ER+8*, PROC2+4*
>> Z CHART+5, INJURY+7, INJURY+9, ER+5, ER+7, ER+9, PROC2+6, PROC2+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All