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 |  Marked Items |  All
Print Page as PDF
Routine: ICDDRGM

Package: DRG Grouper

Routine: ICDDRGM


Information

ICDDRGM ;ALB/GRR/EG/ADL - Grouper Driver ;04/21/2014

Source Information

Source file <ICDDRGM.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 ^%DTC  ^DIC  ^DIR  
DRG Grouper 2 ^ICDDRG  ($$DRG,$$DRGD,$$ROOT)^ICDEX  
Kernel 2 $$DT^XLFDT  H^XUS  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
DRG Grouper 3 ICD DRG GROUPER  ICDCOD  ICDZENT  

Entry Points

Name Comments DBIA/ICR reference
QQ ; Quit All
PAT0 ; Patient - Ask Again
PAT ; Patient
VA ; VA Patient File #2
DAM ; Ask if Patient was Discharged against Medical Advice
AGE ; Ask Patient Age
TAC ; Ask if Patient was Transferred to Acute Care
ALIVE ; Ask if Patient died during this episode of care
CD ; Primary and Secondary DX
Q ; Quit Current Patient
EN1 ; Entry point - Patient is Known (DFN)
WRT ; Write Output
KILL ; Clean up Environment
EFFDATE ; Prompts for effective date for DRG grouper?
ERROR ; Write Errors
ASK ; Ask all
SEX ; Ask for Patient's Sex
OUT ; Exit Application
OP ; Operation/Procedures

External References

Name Field # of Occurrence
^%DTC EN1+3
^DIC VA+1, CD+1, CD+6, OP+2
^DIR PAT+6, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, EFFDATE+3
^ICDDRG OP+3
$$DRG^ICDEX WRT+1
$$DRGD^ICDEX WRT+7
$$ROOT^ICDEX CD+1, CD+4, OP+2
$$DT^XLFDT ICDDRGM+25
H^XUS OUT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?11,"DRG Grouper Version ",$P($T(+2),";",3),!!
  • Line Location: ICDDRGM+25
Function Call: WRITE
  • Prompt: " AGE: ",AGE
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!?9,"Effective Date: "," ",ICDDSP
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !,"Diagnosis Related Group: ",$J(ICDDRG,6),?40,"Avg len of stay: ",$J($P(ICDDRG(0),"^",8),6)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !?17,"Weight: ",$J($P(ICDDRG(0),"^",2),6),?40,"Local Breakeven: ",$J($P(ICDDRG(0),"^",12),6)
  • Line Location: WRT+4
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+5
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+6
Function Call: WRITE
  • Prompt: ?10,ICDGDX(ICDGI),!
  • Line Location: WRT+8
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
Routine Call
  • DIC
  • Line Location:
    • VA+1
    • CD+1
    • CD+6
    • OP+2
Routine Call
  • DIR
  • Line Location:
    • PAT+6
    • AGE+1
    • ALIVE+1
    • TAC+1
    • DAM+1
    • SEX+1
    • EFFDATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
AGE ASK+1
ALIVE EN1+1, ASK+1
ASK PAT0+1
CD ASK+1
DAM VA+2, ASK+1
EFFDATE PAT+3
KILL PAT+1, PAT+3, PAT+6
OUT PAT+3, PAT+6, VA+1, CD+1, CD+3, OP+2, AGE+1, ALIVE+1, TAC+1, DAM+1
, SEX+1
PAT VA+2, EN1+1, Q+1, ASK+1
PAT0 OP+4, ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, ERROR+6
Q VA+1, CD+1, CD+7, OP+3
QQ AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1
SEX ASK+1
TAC VA+2, ASK+1
WRT OP+4, ERROR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+3~
AGE VA+1*, EN1+3*, KILL+2!, AGE+1*
CC CD+1*, KILL+2!
DFN VA+1*, EN1+1, KILL+1!
DIC VA+1*, CD+1!*, CD+4*, CD+6!, OP+2*!, OP+3!, KILL+1!
DIC("A" CD+1*, CD+5*, OP+2*
DIC("S" CD+2*, CD+5*, OP+1*
DIC(0 VA+1*, CD+1*, CD+4*, OP+2*
DIR PAT+6!, AGE+1!, ALIVE+1!, TAC+1!, DAM+1!, SEX+1!, EFFDATE+1!, EFFDATE+3!
DIR("?" PAT+5*, AGE+1*, SEX+1*, EFFDATE+2*
DIR("A" PAT+4*, AGE+1*, ALIVE+1*, TAC+1*, DAM+1*, SEX+1*, EFFDATE+1*
DIR("B" PAT+4*, EFFDATE+1*
DIR(0 PAT+4*, AGE+1*, ALIVE+1*, TAC+1*, DAM+1*, SEX+1*, EFFDATE+1*
>> DIRUT EFFDATE+3
DOB VA+1*, KILL+2!
DT ICDDRGM+25*, EN1+3
DTOUT PAT+3, PAT+6, VA+1, CD+1, CD+3, OP+2, KILL+1!, AGE+1, ALIVE+1, TAC+1
, DAM+1, SEX+1, ASK+1!
DUOUT PAT+3, PAT+6, KILL+1!, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1, ASK+1!
HICDRG KILL+2!
ICD KILL+2!
ICDCC3 KILL+2!
>> ICDDATE WRT+1, WRT+7, EFFDATE+4*
ICDDMS KILL+1!, DAM+1*
ICDDRG WRT+1, WRT+3, WRT+7, WRT+8, KILL+1!
ICDDRG(0 WRT+1*, WRT+3, WRT+4, WRT+5, WRT+6
ICDDSP WRT+2, KILL+2!, EFFDATE+4*
ICDDT KILL+2!
ICDDX PAT+2!, KILL+1!
ICDDX( CD+3*
ICDDX(1 CD+1*
ICDEXP PAT+2!, EN1+2*, KILL+1!, ALIVE+1*
ICDFZ KILL+2!
ICDGDX WRT+7~
ICDGDX( WRT+8
ICDGI WRT+7~*, WRT+8*
ICDJ KILL+2!
ICDJJ KILL+2!
ICDL39 KILL+2!
ICDMAJ KILL+2!
ICDMDC KILL+1!
ICDNMDC KILL+1!
ICDNOR OP+2*, KILL+1!
ICDNSD CD+3*, KILL+1!
ICDO24 KILL+1!
ICDP24 KILL+1!
ICDP25 KILL+1!
ICDPRC OP+1!, KILL+1!
ICDPRC( OP+2*
ICDPT PAT+6*, PAT0+1, KILL+1!
ICDQU PAT+2*, VA+2, EN1+1, KILL+1!, QQ+1*, ASK+1
ICDRTC ERROR+1, ERROR+2, ERROR+3, ERROR+4, ERROR+5, KILL+1!
ICDS25 KILL+2!
ICDSEX KILL+2!
ICDSURG PAT+2!
ICDSURG( OP+2*
ICDTRS KILL+1!, TAC+1*
ICDXD WRT+7~*
QUIT KILL+2!, EFFDATE+3*
SEX PAT+2!, VA+1*, SEX+1*
U ICDDRGM+25*, VA+1, CD+1, CD+3, CD+7, OP+2
X VA+1, EN1+3~, CD+1, CD+3, CD+7, OP+2, OP+3
X1 EN1+3~*
X2 EN1+3~*
>> Y PAT+6, VA+1, CD+1, CD+3, OP+2, AGE+1, ALIVE+1, TAC+1, DAM+1, SEX+1
, EFFDATE+4
>> Y(0 VA+1, EFFDATE+4

Marked Items

Name Field # of Occurrence
$T( ICDDRGM+25
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 |  Marked Items |  All