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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDDRGM

Package: DRG Grouper

Routine: ICDDRGM


Information

ICDDRGM ;ALB/GRR/EG/ADL/KUM - GROUPER DRIVER ;28 Oct 2013 5:41 PM

Source Information

Source file <ICDDRGM.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
DRG Grouper 6 ASK^ICDCODLK  ^ICDDRG  ($$LEXICD10,SETPARAM)^ICDDSLK  ($$CODEN,$$DRG,$$DRGD,$$ICDDX,$$ICDOP,$$ROOT,$$VST)^ICDEX  $$SEARCH^ICDSAPI  $$ICDDATA^ICDXCODE  
VA FileMan 5 ^%DTC  EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 $$DT^XLFDT  H^XUS  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
DRG Grouper 5 ICD DRG GROUPER  ICDCOD  ICDCODLK  ICDDRG  ICDDSLK  

Entry Points

Name Comments DBIA/ICR reference
PAT ; Patient
PAT0 ; Patient - Ask again
VA ; VA Patient File #2
EN1 ; Entry Point - Patient is known (DFN)
CD ;Prompt POA if ICD-10 DRG calculation
OP ; PROCEDURE CODE SELECTION
WRT
ERROR
KILL
Q
AGE
ALIVE
TAC
DAM
SEX
QQ
EFFDATE ;prompts for effective date for DRG grouper?
ASK
ICDOUT
ICDCD ;prompts for ICD diagnosis codes; ALB/JAM *64 ICD10 changes
ICDSDXV
ICDPDX() ;
ICDSDX() ;
ICD10SRH(ICDPROM,ICDTINT) ; Lexicon Partial Code Search
GETUSINP(ICDPRMPT) ;
GETIDX(ICDCSYS,ICDCODE,ICDT) ;
POA(ICDDX123) ; Present On Admission
DXSCRN ;Diagnoses review of POA and HAC indicators; ALB/JAM *64 ICD10 changes
HAC(ICDDX123) ; Check if diagnosis code is in Hospital Acquired Conditions (HACS) file #80.6
ICD9OP ; ICD-9 PROCEDURE CODE SEARCH
HELPPOA ;
PROC ; Ask Procedure
P1 ;
P2 ;
P3 ;

External References

Name Field # of Occurrence
^%DTC EN1+3
EN^DDIOL POA+11, P1+3, P1+4, P1+5, P2+1, P2+2, P2+3, P2+4, P2+5, P2+6
P2+7, P3+1, P3+2, P3+3, P3+4, P3+5
^DIC VA+1
$$GET1^DIQ POA+8, POA+9, DXSCRN+9
^DIR PAT+6, AGEALIVETACDAMSEXEFFDATE+3, GETUSINP+6, POA+5, POA+12
PROC+6
ASK^ICDCODLK PROC+11
^ICDDRG OP+25
$$LEXICD10^ICDDSLK ICD10SRH+9
SETPARAM^ICDDSLK ICD10SRH+3
$$CODEN^ICDEX ICD10SRH+25
$$DRG^ICDEX WRT
$$DRGD^ICDEX WRT+18
$$ICDDX^ICDEX WRT+2, WRT+5
$$ICDOP^ICDEX WRT+8
$$ROOT^ICDEX ICDPDX+12, ICDSDX+12
$$VST^ICDEX WRT+3, WRT+6, WRT+9
$$SEARCH^ICDSAPI ICDPDX+15, ICDSDX+15, ICD9OP+5
$$ICDDATA^ICDXCODE GETIDX+2
$$IMPDATE^LEXU CD+1
$$DT^XLFDT ICDDRGM+25
H^XUS ICDOUT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?11,"DRG Grouper Version ","18.0",!!
  • Line Location: ICDDRGM+25
Function Call: WRITE
  • Prompt: " AGE: ",AGE
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: !!,"Procedure Code: "
  • Condition for execution: ICDI=1
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ICDI>1
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?21,$P(ICDTMP,U,2),?30,$E($$VST^ICDEX(80.1,ICDPRCZ(ICDI),ICDDATE),1,50)
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !!?9,"Effective Date: "," ",ICDDSP
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: !,"Diagnosis Related Group: ",$J(ICDDRG,6),?40,"Avg len of stay: ",$J($P(ICDDRG(0),"^",8),6)
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !?17,"Weight: ",$J($P(ICDDRG(0),"^",2),6),?40,"Local Breakeven: ",$J($P(ICDDRG(0),"^",12),6)
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !?12," Low day(s): ",$J($P(ICDDRG(0),"^",3),6),?39,"Local low day(s): ",$J($P(ICDDRG(0),"^",9),6)
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !?13," High days: ",$J($P(ICDDRG(0),"^",4),6),?40,"Local High days: ",$J($P(ICDDRG(0),"^",10),6)
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: ?10,$P(^(I,0),U,1),!
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?10,$P(^(I,0),U,1),!
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: ?10,ICDGDX(ICDGI),!
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !!,"Invalid ",$S(ICDRTC=1:"Principal Diagnosis",ICDRTC=2:"Operation/Procedure",ICDRTC=3:"Age",ICDRTC=4:"Sex",1:"")
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !!,"Grouper needs to know if patient died during this episode!"
  • Line Location: ERROR+2
Function Call: WRITE
  • Prompt: !!,"Grouper needs to know if patient was transferred to an acute care facility!"
  • Line Location: ERROR+3
Function Call: WRITE
  • Prompt: !!,"Grouper needs to know if patient was discharged against medical advice!"
  • Line Location: ERROR+4
Function Call: WRITE
  • Prompt: !!,"Patient assigned newborn diagnosis code. Check diagnosis!"
  • Line Location: ERROR+5
Function Call: WRITE
  • Prompt: !!,ICDPARAM("NO DATA FOUND")
  • Line Location: ICD10SRH+16
Function Call: WRITE
  • Prompt: !,"Please enter at least the first two characters of the ICD-10 code or code description to start the search."
  • Line Location: GETUSINP+10
Function Call: WRITE
  • Prompt: include
  • Line Location: DXSCRN+10
Function Call: WRITE
  • Prompt: !?5,"Apply the Present on Admission (POA) indicator for each diagnosis"
  • Line Location: HELPPOA+1
Function Call: WRITE
  • Prompt: !?5,"and external cause of injury code(s) reported as the final set of"
  • Line Location: HELPPOA+2
Function Call: WRITE
  • Prompt: !?5,"diagnosis codes assigned. One of the following values should be"
  • Line Location: HELPPOA+3
Function Call: WRITE
  • Prompt: !?5,"assigned in accordance with the official coding guidelines:"
  • Line Location: HELPPOA+4
Function Call: WRITE
  • Prompt: !?5,""
  • Line Location: HELPPOA+5
Function Call: WRITE
  • Prompt: !?5,"Y = present at the time of inpatient admission;"
  • Line Location: HELPPOA+6
Function Call: WRITE
  • Prompt: !?5,"N = not present at the time of inpatient admission;"
  • Line Location: HELPPOA+7
Function Call: WRITE
  • Prompt: !?5,"U = documentation is insufficient to determine if"
  • Line Location: HELPPOA+8
Function Call: WRITE
  • Prompt: !?5," condition is present on admission;"
  • Line Location: HELPPOA+9
Function Call: WRITE
  • Prompt: !?5,"W = provider is unable to clinically determine"
  • Line Location: HELPPOA+10
Function Call: WRITE
  • Prompt: !?5," whether condition was present on admission or not"
  • Line Location: HELPPOA+11
Function Call: WRITE
  • Prompt: !?5,"<enter> = use only if diagnosis is exempt from POA reporting"
  • Line Location: HELPPOA+12
Routine Call
  • DIC
  • Line Location:
    • VA+1
Routine Call
  • DIR
  • Line Location:
    • PAT+6
    • AGE
    • ALIVE
    • TAC
    • DAM
    • SEX
    • EFFDATE+3
    • GETUSINP+6
    • POA+5
    • POA+12
    • PROC+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^ICD9 - [#80] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN1+1
^ICDHAC("C" HAC+5

Label References

Name Line Occurrences
$$GETUSINP ICD10SRH+10
$$HAC DXSCRN+14, DXSCRN+16
$$ICD10SRH ICDPDX+9, ICDSDX+9
$$ICDPDX ICDCD+3
$$ICDSDX ICDSDXV
$$POA ICDCD+6, ICDSDXV+3
AGE ASK
ALIVE EN1+1, ASK
ASK PAT0+1
CD ASK
DAM VA+2, ASK
EFFDATE PAT+3
ICD9OP OP+7
ICDCD CD+2
ICDOUT PAT+3, PAT+6, VA+1, OP+4, AGEALIVETACDAMSEX
ICDSDXV ICDCD+5
KILL PAT+1, PAT+3, PAT+6
P2 P1+2
P3 P1+1
PAT VA+2, EN1+1, CD+2, QASK
PAT0 OP+28, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, ERROR+6
PROC OP+6
Q VA+1, CD+3, OP+8
QQ AGEALIVETACDAMSEX
SEX ASK
TAC VA+2, ASK
WRT OP+26, ERROR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+3~
AGE VA+1*, EN1+3*, KILL+1!, AGE*
C DXSCRN+1~, DXSCRN+23*, DXSCRN+24*
CC KILL+1!
DFN VA+1*, EN1+1, KILL!
DIC VA+1*, OP+8!, KILL!, ICDPDX+1~, ICDPDX+12*, ICDSDX+1~, ICDSDX+12*, ICD10SRH+24!
DIC("A" OP+2*, ICDPDX+13*, ICDSDX+13*, ICD9OP+3*
DIC("S" ICDPDX+14*, ICDPDX+15, ICDSDX+14*, ICDSDX+15, ICD9OP+2*, ICD9OP+5
DIC(0 VA+1*, ICDPDX+12*, ICDPDX+15, ICDSDX+12*, ICDSDX+15, ICD9OP+4*, ICD9OP+5
DIR PAT+6!, AGE!, ALIVE!, TAC!, DAM!, SEX!, EFFDATE+1!, EFFDATE+3!, GETUSINP+1~, POA+1~
, POA+3!, POA+12!, PROC+1~
DIR("?" PAT+5*, AGE*, SEX*, EFFDATE+2*, GETUSINP+4*, POA+4*, PROC+5*
DIR("??" GETUSINP+5*, POA+4*, PROC+5*
DIR("A" PAT+4*, AGE*, ALIVE*, TAC*, DAM*, SEX*, EFFDATE+1*, GETUSINP+2*, POA+2*, POA+3*
, POA+12*, PROC+4*
DIR("B" PAT+4*, EFFDATE+1*, POA+12*
DIR(0 PAT+4*, AGE*, ALIVE*, TAC*, DAM*, SEX*, EFFDATE+1*, GETUSINP+3*, POA+2*, POA+3*
, POA+12*, PROC+3*
>> DIROUT POA+6, POA+12, PROC+7
>> DIRUT EFFDATE+3, PROC+7
DOB VA+1*, KILL+1!
DT ICDDRGM+25*, EN1+3
DTOUT PAT+3, PAT+6, VA+1, OP+4, KILL!, AGEALIVETACDAMSEX
, ASK!, ICDSDX+16, GETUSINP+7, POA+6, POA+12, PROC+7
DUOUT PAT+3, PAT+6, KILL!, AGEALIVETACDAMSEX, ASK!, POA+6
, POA+12, PROC+7
HICDRG KILL+1!
I DXSCRN+1~, DXSCRN+11*, DXSCRN+14*
ICD KILL+1!
ICDCC3 KILL+1!
ICDCDSY OP+1*, OP+8!, ICDPDX+1~, ICDPDX+5*, ICDSDX+1~, ICDSDX+5*
ICDCNT OP+10*, OP+12, OP+13*, OP+17*, OP+19, OP+20*, OP+27!
ICDCODE GETIDX~, GETIDX+2
ICDCSYS PAT+2!, CD+1*, OP+1, OP+6, OP+7, OP+24, OP+27, WRT+1, ICDCD+2, ICDCD+5
ICDSDXV+2, ICDPDX+5, ICDPDX+7, ICDSDX+5, ICDSDX+7, GETIDX~, GETIDX+2
ICDCV OP+1*, OP+2, OP+8!, ICD9OP+3
>> ICDDATE CD+1, WRTWRT+2, WRT+3, WRT+5, WRT+6, WRT+8, WRT+9, WRT+18, EFFDATE+4*
, ICDPDX+9, ICDPDX+15, ICDSDX+9, ICDSDX+15, ICD9OP+5
ICDDMS KILL!, DAM*
ICDDRG WRTWRT+11, WRT+18, WRT+19, KILL!
ICDDRG(0 WRT*, WRT+11, WRT+12, WRT+13, WRT+14
ICDDSCR ICDPDX+2~, ICDPDX+4*, ICDPDX+9, ICDPDX+13, ICDSDX+2~, ICDSDX+4*, ICDSDX+9, ICDSDX+13
ICDDSP WRT+10, KILL+1!, EFFDATE+4*
ICDDT KILL+1!
ICDDX PAT+2!, OP+24, OP+27!, KILL!, DXSCRN+21, DXSCRN+22!
ICDDX( ICDSDXV*, DXSCRN+5, DXSCRN+9, DXSCRN+19!, DXSCRN+24*
ICDDX(1 ICDCD+3*
ICDDX123 POA~, POA+8, POA+9, DXSCRN+1~, DXSCRN+9*, DXSCRN+14, DXSCRN+16, HAC~, HAC+5
ICDDXPOA ICDCD+1~, ICDCD+6*, ICDSDXV+3*
ICDDXZ OP+24*, OP+27!
ICDDXZ( WRT+4, WRT+5, WRT+6
ICDDXZ(1 WRT+2, WRT+3
ICDEXP PAT+2!, EN1+2*, OP+27!, KILL!, ALIVE*
ICDFZ KILL+1!
ICDGDX WRT+17~
ICDGDX( WRT+19
ICDGI WRT+17~, WRT+18*, WRT+19*
>> ICDI WRT+4*, WRT+5, WRT+6, WRT+7*, WRT+8, WRT+9
ICDICDX GETIDX+1~, GETIDX+2*, GETIDX+3, GETIDX+4
ICDJ KILL+1!
ICDJJ KILL+1!
ICDL39 KILL+1!
ICDMAJ KILL+1!
ICDMDC KILL!
ICDNMDC KILL!
ICDNOR OP+4*, KILL!
ICDO24 KILL!
ICDOUT DXSCRN+1~, DXSCRN+5*, DXSCRN+11*, DXSCRN+12, DXSCRN+14*, DXSCRN+15, DXSCRN+16*, DXSCRN+17
ICDP24 KILL!
ICDP25 KILL!
ICDPARAM ICD10SRH+1~, ICD10SRH+3, ICD10SRH+9
ICDPARAM("NO DATA FOUND" , ICD10SRH+16
ICDPDXV ICDCD+1~, ICDCD+3*, ICDCD+6
ICDPOA PAT+2!, OP+24, OP+27!, DXSCRN+21, DXSCRN+22!
ICDPOA( ICDSDXV+3*, DXSCRN+7*, DXSCRN+11, DXSCRN+14, DXSCRN+16, DXSCRN+19!, DXSCRN+24*
ICDPOA(1 ICDCD+6*, DXSCRN+3*
ICDPOAZ OP+24*, OP+27!
ICDPOAZ( WRT+6
ICDPOAZ(1 WRT+3
ICDPR POA+1~, POA+11
ICDPR(1 POA+9*
ICDPR(2 POA+10*
ICDPRC OP+7*, OP+14!, OP+15*, OP+24, OP+27!, KILL!, PROC+2*, PROC+9*
ICDPRC( OP+4*, OP+11, OP+12
ICDPRCT OP+15, OP+27!
ICDPRCT( OP+12*
ICDPRCZ OP+24*, OP+27!
ICDPRCZ( WRT+7, WRT+8, WRT+9
ICDPRI ICDPDX+1~, ICDPDX+11*
ICDPRMPT GETUSINP~, GETUSINP+2
ICDPROM ICD10SRH~, ICD10SRH+10
ICDPT PAT+6*, PAT0+1, KILL!
ICDQU PAT+2*, VA+2, EN1+1, KILL!, QQ*, ASK
ICDQUIT ICDPDX+2~, ICDPDX+3*, ICDPDX+9*, ICDSDX+2~, ICDSDX+3*, ICDSDX+9*
ICDRTC ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, KILL!
ICDS25 KILL+1!
ICDSC ICDCD+1~, ICDCD+2*, ICDPDX+4, ICDSDX+4
ICDSD KILL!, ICDCD+1~, ICDSDXV*, ICDSDXV+3
ICDSDXV ICDCD+1~, ICDSDXV*, ICDSDXV+3
ICDSEX KILL+1!
ICDSURG PAT+2!, OP+21!, OP+22*, OP+27!
ICDSURG( OP+4*, OP+18, OP+19
ICDSURGT OP+22, OP+27!
ICDSURGT( OP+19*
ICDSVAL ICDPDX+1~, ICDPDX+7, ICDPDX+9*, ICDSDX+1~, ICDSDX+7, ICDSDX+9*
ICDT GETIDX~, GETIDX+2
ICDTINT ICD10SRH~, ICD10SRH+9
>> ICDTMP WRT+2*, WRT+3, WRT+5*, WRT+6, WRT+8*, WRT+9
ICDTMPOA DXSCRN+1~, DXSCRN+21*
ICDTMPOA( DXSCRN+24
ICDTMPX DXSCRN+1~, DXSCRN+21*
ICDTMPX( DXSCRN+24
ICDTRS KILL!, TAC*
ICDUSTR ICD10SRH+1~, ICD10SRH+9, ICD10SRH+10*
ICDXD WRT+17~, WRT+18*
ICDXX1 PROC+1~, PROC+2*
>> ICDY ICD10SRH+9*, ICD10SRH+12, ICD10SRH+14, ICD10SRH+16, ICD10SRH+18, ICD10SRH+20, ICD10SRH+22, ICD10SRH+25*, ICD10SRH+26
IENT KILL+1!, ICDPDX+1~, ICDPDX+11*, ICDSDX+1~, ICDSDX+11*, ICD9OP+1*
QUIT CD+2, KILL+1!, EFFDATE+3*, ICDCD+3, ICDCD+6, ICDSDXVICDSDXV+3, ICDPDX+9*, ICDPDX+16*, ICDSDX+9*
, ICDSDX+16*, POA+2*, POA+3*, POA+6*, POA+12*, POA+13*, POA+17
SEX PAT+2!, VA+1*, OP+27!, SEX*
U ICDDRGM+25*, VA+1, CD+3, OP+4, WRT+3, WRT+6, WRT+9, ICD10SRH+9, ICD10SRH+25, GETUSINP+11
, GETIDX+3, GETIDX+4
X VA+1, EN1+3~, CD+3, OP+4, OP+8, OP+10*, OP+11*, OP+12, OP+17*, OP+18*
OP+19, POA+1~, POA+7, POA+16, DXSCRN+1~, DXSCRN+4*, DXSCRN+5*, DXSCRN+7, DXSCRN+9, DXSCRN+11
DXSCRN+14, DXSCRN+16, DXSCRN+19, DXSCRN+24*, PROC+9, P1+1, P1+2
X1 EN1+3~*
X2 EN1+3~*
Y PAT+6, VA+1, OP+4, AGEALIVETACDAMSEXEFFDATE+4, ICDPDX+15*
, ICDPDX+16, ICDPDX+17, ICDSDX+15*, ICDSDX+17, GETUSINP+8, GETUSINP+9, GETUSINP+10, GETUSINP+11, POA+1~, POA+13
, POA+14*, POA+15*, POA+16*, POA+18, ICD9OP+5*, PROC+7*, PROC+12
Y(0 VA+1, EFFDATE+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All