Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^ICD9 - [#80] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call