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

Package: Patient Care Component

Routine: APCDVCH


Information

APCDVCH ; IHS/CMI/LAB - EDIT HOSPITALIZATIONS ; 02 Nov 2015 11:43 AM

Source Information

Source file <APCDVCH.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient 2 $$AGE^AUPNPAT  $$CHKE1^AUPNSICD  
Patient Care Component 2 ^APCDVCH1  ^APCDVCH2  
DRG Grouper 1 ($$CODEC,$$ICDDX)^ICDEX  
Kernel 1 $$VERSION^XPDUTL  
Patient Care Component Reports 1 $$VD^APCLV  
VA Fileman 1 ^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCDVCHK  

Entry Points

Name Comments DBIA/ICR reference
C11 ;
GETPOVS ;
C12 ;
CHECKPVS ;
E11 ;
GETACC ;
SETPOV ;
E1W ;
XIT ;
E3 ;IF PRIM DX IS V30-V39(.1) ADM SRV MUST BE ,11
E4 ;IF PRIM DX (V30-V39 (.0 OR ,.1)) AGE CANNOT BE > 3 DAYS
C2 ;CERTAIN "V" CODES CANNOT BE PRIM DXS
C1 ;IF PRIM DX IS A "V" CODE SEC MUST BE "V" CODE ALSO
E1 ;CERTAIN CODES REQUIRE AN ACCEPT COMMAND
CHKHOSP ;
GETTS ;
E2 ;IF CODE V30-V39 (.0) ADM SRV MUST BE NEWBORN

External References

Name Field # of Occurrence
^%DTC CHKHOSP+10
^APCDVCH1 CHKHOSP+13
^APCDVCH2 CHKHOSP+11
$$VD^APCLV CHKHOSP+19, CHKHOSP+24, CHKHOSP+25
$$AGE^AUPNPAT CHKHOSP+24, CHKHOSP+25
$$CHKE1^AUPNSICD CHKHOSP+17
$$CODEC^ICDEX CHKHOSP+15, SETPOV+2, SETPOV+3
$$ICDDX^ICDEX CHKHOSP+19
$$VERSION^XPDUTL CHKHOSP+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKHOSP+2
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: No PRINCIPLE DX entered for this Hospitalization!",!
  • Line Location: CHKHOSP+7
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Multiple PRINCIPLE DXs entered for this Hospitalization!",!
  • Line Location: CHKHOSP+8
Function Call: WRITE
  • Prompt: !,"External Cause code used for POV"
  • Line Location: CHKHOSP+17
Function Call: WRITE
  • Prompt: !,APCDICD_" Diagnosis used"
  • Line Location: CHKHOSP+18
Function Call: WRITE
  • Prompt: !,"Gender of Patient invalid for this ICD code "_APCDICD
  • Line Location: CHKHOSP+19
Function Call: WRITE
  • Prompt: !,"WARNING: ICD code invalid for age, please review "_APCDICD
  • Line Location: CHKHOSP+26
Function Call: WRITE
  • Prompt: !,"Age invalid for this ICD code. PLEASE REVIEW: "_APCDICD
  • Line Location: CHKHOSP+27
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Admitting Service Missing",!
  • Line Location: GETTS+2
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Discharge Service Missing",!
  • Line Location: GETTS+3
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Admitting Service Code Missing",!
  • Line Location: GETTS+5
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Discharge Service Code Missing",!
  • Line Location: GETTS+6
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Diagnosis Code ",$P(APCDVCPV("P"),U)," cannot be used as a PRIMARY DX! Please review.",!
  • Line Location: C2+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Admitting Service must",!,"be NEWBORN (07)!",!
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Admitting Service must",!,"be PEDIATRICS (11)!",!
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: Primary DX is ",$P(APCDVCPV("P"),U)," therefore Age of Patient cannot be",!,"greater than 3 days!",!
  • Line Location: E4+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: You have used ICD code ",APCDICD9,", please review with Your Supervisor.",!
  • Line Location: E1W+1
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING: The primary POV for this Hospitalization is a V Code, therefore",!,"the Secondary POVs must be V codes. Please correct this Visit.",!
  • Line Location: C12+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCDINPT(2 C2+1
^APCDINPT(3 E4+1
^APCDINPT(4 E2+1, E4+1
^APCDINPT(8 E1+1, E11+1
^APCDINPT(9 CHKHOSP+26
^AUPNVINP - [#9000010.02] GETTS+1
^AUPNVINP("AD" CHKHOSP+1, GETTS+1
^AUPNVPOV - [#9000010.07] CHKHOSP+15, SETPOV+1
^AUPNVPOV("AD" CHKHOSP+15, GETPOVS+1
^AUPNVSIT - [#9000010] CHKHOSP+24, CHKHOSP+25
^DIC(45.7 - [#45.7] GETTS+4
^ICD9 - [#80] CHKHOSP+23

Label References

Name Line Occurrences
CHECKPVS CHKHOSP+12
E11 E1+2
E1W E1+1, E11+1
GETACC CHKHOSP+9
GETPOVS CHKHOSP+6
GETTS CHKHOSP+3
SETPOV GETPOVS+1
XIT CHKHOSP+7, CHKHOSP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHKHOSP+19*, CHKHOSP+22, XIT+2!
A CHKHOSP+20*, CHKHOSP+22*, CHKHOSP+23*, CHKHOSP+24, XIT+2!
APCD1 XIT+1!, GETPOVS+1*, SETPOV+3, E1+2*, E11+1
APCD2 XIT+1!, GETPOVS+1*, SETPOV+1, SETPOV+2, SETPOV+3
APCD3 CHKHOSP+8, XIT+1!, XIT+2!, GETPOVS+1*, SETPOV+2*
APCDACC XIT+1!, GETACC+1*, E1+1, E11+1
APCDACCO XIT+1!
APCDADM XIT+2!
APCDAGEE CHKHOSP+14!, CHKHOSP+16!, CHKHOSP+24*, CHKHOSP+25*, CHKHOSP+26, CHKHOSP+27, XIT+2!
>> APCDDATE CHKHOSP+10
APCDDIS XIT+2!
APCDDS CHKHOSP+5, XIT+1!, GETTS+1*, GETTS+3, GETTS+4*, GETTS+6
APCDDUPE XIT+1!
APCDDUPO XIT+1!
APCDDX XIT+1!
APCDDXC XIT+1!
APCDDXOP XIT+1!
APCDDXP XIT+1!
APCDE XIT+2!
APCDFOUN XIT+1!
APCDIACC XIT+1!
>> APCDICD CHKHOSP+15*, CHKHOSP+18, CHKHOSP+19, CHKHOSP+26, CHKHOSP+27
APCDICD9 XIT+1!, E1+1*, E11+1*, E1W+1
>> APCDICDP CHKHOSP+15*, CHKHOSP+17, CHKHOSP+19, CHKHOSP+23
APCDOP XIT+2!
APCDOPC XIT+1!
APCDOPDX XIT+1!
APCDOPP XIT+1!
APCDPREC XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDPX XIT+1!
APCDSC XIT+1!, SETPOV+1*, SETPOV+2, SETPOV+3
APCDTS CHKHOSP+4, XIT+1!, GETTS+1*, GETTS+2, GETTS+4*, GETTS+5, E2+1
APCDVCPS XIT+1!
APCDVCPV XIT+1!, XIT+2!
APCDVCPV( SETPOV+3*
APCDVCPV("P" CHKHOSP+7, SETPOV+2*, C2+1, E1+1, E2+1, E4+1
APCDVCPV("S" E1+2, E11+1
APCDVINR XIT+1!, GETTS+1*
APCDVPRC XIT+2!
>> APCDVREC CHKHOSP+26
>> APCDVSIT CHKHOSP+1, CHKHOSP+15, CHKHOSP+19, CHKHOSP+24, CHKHOSP+25, GETTS+1, GETPOVS+1
>> AUPNDAYS CHKHOSP+10*, E4+1
>> AUPNDOB CHKHOSP+10
>> AUPNSEX CHKHOSP+19
B CHKHOSP+20*, CHKHOSP+22*, CHKHOSP+23*, CHKHOSP+25, XIT+2!
U CHKHOSP+15, CHKHOSP+19, CHKHOSP+22, CHKHOSP+23, CHKHOSP+24, CHKHOSP+25, CHKHOSP+26, GETTS+1, GETTS+4, SETPOV+1
, SETPOV+2, SETPOV+3, C2+1, E1+1, E2+1, E4+1, E11+1
>> X CHKHOSP+10, CHKHOSP+15*
>> X1 CHKHOSP+10*
>> X2 CHKHOSP+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All