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

Package: Patient Care Component Reports

Routine: APCLOSP1


Information

APCLOSP1 ; IHS/CMI/LAB - CONTINUATION OF APCLOSP1 ; 01 Nov 2010 11:33 AM

Source Information

Source file <APCLOSP1.m>

Call Graph

Call Graph Total: 3

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

Entry Points

Name Comments DBIA/ICR reference
ADMDX2 ;
ADMDX1 ;
CHS1 ;
CHS2 ;
RX ;
CHS ;
INPT2 ;
INPT ;
INPT1 ;

External References

Name Field # of Occurrence
HEAD^APCLOSP INPT+1, INPT+10, INPT+15, RX+1, CHS+1
CALC^APCLOSUT INPT+4, INPT+6, INPT+8, INPT2+5, ADMDX2+5, RX+4, RX+6, CHS+4, CHS2+1
$$ICDDX^ICDEX INPT2+7, ADMDX2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DIRECT INPATIENT"
  • Line Location: INPT+2
Function Call: WRITE
  • Prompt: !?10,"[ NO DIRECT INPATIENT DATA TO REPORT ]",!
  • Line Location: INPT+3
Function Call: WRITE
  • Prompt: !!,"There were ",X," discharges (",Z,") during this period, accounting for"
  • Line Location: INPT+5
Function Call: WRITE
  • Prompt: !,X," patient days (",Z,"). The average length of stay was "
  • Line Location: INPT+7
Function Call: WRITE
  • Prompt: X," days compared",!,"to an ALOS of ",Y," during this period last year."
  • Line Location: INPT+9
Function Call: WRITE
  • Prompt: !!,"In addition, there ",$S(APCLNBC("APCLOS")>1:"were",1:"was")," ",APCLNBC("APCLOS")," newborn discharge",$S(APCLNBC("APCLOS")>1:"s",1:"")," accounting",!,"for ",APCLNBDY("APCLOS")," days."
  • Line Location: INPT+12
Function Call: WRITE
  • Prompt: !!,"The Five leading primary diagnoses for hospitalizations were:",!
  • Line Location: INPT+13
Function Call: WRITE
  • Prompt: !!,"The Top Ten admitting diagnoses for hospitalizations were:",!
  • Line Location: INPT+16
Function Call: WRITE
  • Prompt: !?5,APCLC,"). ",?10,$E($P($$ICDDX^ICDEX(APCLD),U,4),1,32),?45,X,?52,"(",Z,")"
  • Line Location: INPT2+7
Function Call: WRITE
  • Prompt: !?5,APCLC,"). ",?10,$E($P($$ICDDX^ICDEX(APCLD),U,4),1,32),?45,X,?52,"(",Z,")"
  • Line Location: ADMDX2+7
Function Call: WRITE
  • Prompt: !!,"PHARMACY"
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: !?10,"[ NO PHARMACY DATA TO REPORT ]",!
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: !!,"There were ",X," new prescriptions (",Z,") and "
  • Line Location: RX+5
Function Call: WRITE
  • Prompt: X," refills (",Z,")",!,"during this period."
  • Line Location: RX+7
Function Call: WRITE
  • Prompt: !!,"CONTRACT HEALTH SERVICES"
  • Line Location: CHS+2
Function Call: WRITE
  • Prompt: !?10,"[ NO CHS DATA TO REPORT ]",!
  • Line Location: CHS+3
Function Call: WRITE
  • Prompt: !!,"Total CHS expenditures (obligations adjusted by payments) for this period were",!,X," (",Z,"). The number and dollar amount of authorizations by type were:",!
  • Line Location: CHS+5
Function Call: WRITE
  • Prompt: !?5,APCLTYPE,?40,^XTMP("APCLOS",APCLJOB,APCLBTH,"CHSCOUNT",APCLN,APCLTYPE),?50,^XTMP("APCLOS",APCLJOB,APCLBTH,"CHS",APCLN,APCLTYPE)
  • Line Location: CHS2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] INPT2+1, ADMDX2+1
^XTMP("APCLOS" INPT+3, INPT+4, INPT+6, INPT+8, INPT+14, INPT+17, INPT1+1, INPT2+3, ADMDX1+1, ADMDX2+3
, RX+3, RX+4, RX+6, CHS+3, CHS+4, CHS+6, CHS1+1, CHS2+1, CHS2+2
^XTMP("APCLOSP" INPT+3, INPT+4, INPT+6, INPT+8, INPT2+4, INPT2+5, ADMDX2+4, ADMDX2+5, RX+4, RX+6
, CHS+4, CHS2+1

Label References

Name Line Occurrences
ADMDX1 INPT+17
ADMDX2 ADMDX1+1
CHS1 CHS+6
CHS2 CHS1+1
INPT1 INPT+14
INPT2 INPT1+1

Naked Globals

Name Field # of Occurrence
^( CHS2+1
^("ALOS" INPT+8
^("CHSTOTAL" CHS+4
^("DISCH" INPT+4
^("PATDAYS" INPT+6
^("RXNEW" RX+4
^("RXREFILLS" RX+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCLBTH INPT+3, INPT+4, INPT+6, INPT+8, INPT+14, INPT+17, INPT1+1, INPT2+3, INPT2+4, INPT2+5
, ADMDX1+1, ADMDX2+3, ADMDX2+4, ADMDX2+5, RX+3, RX+4, RX+6, CHS+3, CHS+4, CHS+6
, CHS1+1, CHS2+1, CHS2+2
>> APCLC INPT+14*, INPT+17*, INPT1+1, INPT2+2*, INPT2+7, ADMDX1+1, ADMDX2+2*, ADMDX2+7
>> APCLD INPT1+1*, INPT2+1, INPT2+3, INPT2+4, INPT2+7, ADMDX1+1*, ADMDX2+1, ADMDX2+3, ADMDX2+4, ADMDX2+7
>> APCLJOB INPT+3, INPT+4, INPT+6, INPT+8, INPT+14, INPT+17, INPT1+1, INPT2+3, INPT2+4, INPT2+5
, ADMDX1+1, ADMDX2+3, ADMDX2+4, ADMDX2+5, RX+3, RX+4, RX+6, CHS+3, CHS+4, CHS+6
, CHS1+1, CHS2+1, CHS2+2
>> APCLN INPT+14*, INPT+17*, INPT1+1, INPT2+3, ADMDX1+1, ADMDX2+3, CHS+6*, CHS1+1, CHS2+1, CHS2+2
>> APCLNBC("APCLOS" INPT+12
>> APCLNBDY("APCLOS" INPT+12
>> APCLPD INPT2+4*, INPT2+5, ADMDX2+4*, ADMDX2+5
>> APCLQUIT INPT+1, INPT+10, INPT+15, ADMDX1+1, RX+1, CHS+1
>> APCLTYPE CHS1+1*, CHS2+1, CHS2+2
IOSL INPT+1, INPT+10, INPT+15, RX+1, CHS+1
U INPT2+7, ADMDX2+7
>> X INPT+4*, INPT+5, INPT+6*, INPT+7, INPT+8*, INPT+9, INPT2+3*, INPT2+7, ADMDX2+3*, ADMDX2+7
, RX+4*, RX+5, RX+6*, RX+7, CHS+4*, CHS+5, CHS2+1*
>> Y INPT+4*, INPT+6*, INPT+8*, INPT+9, INPT2+5*, ADMDX2+5*, RX+4*, RX+6*, CHS+4*, CHS2+1*
>> Z INPT+5, INPT+7, INPT2+7, ADMDX2+7, RX+5, RX+7, CHS+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All