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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDDRG0

Package: DRG Grouper

Routine: ICDDRG0


Information

ICDDRG0 ;ALB/GRR/EG/ADL - DRG GROUPER PROCESSING BEGINS ; 11/13/07 4:06pm

Source Information

Source file <ICDDRG0.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
DRG Grouper 20 KILL^ICDDRG  ^ICDDRG1  ^ICDDRG10  ^ICDDRG11  ^ICDDRG12  ^ICDDRG13  ^ICDDRG14  ^ICDDRG17  
^ICDDRG2  ^ICDDRG3  (,EN1)^ICDDRG5  ^ICDDRG6  ^ICDDRG7  (,END)^ICDDRG8  ^ICDDRG9  (CHKMDC4,CKHIV,CKMST,CKNMDC)^ICDDRGX  
$$DRG^ICDGTDRG  CMS516^ICDTBL2  DRG232^ICDTLB3  DRG516^ICDTLB6B  
VA FileMan 1 ^%DTC  

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 ICDDRG  ICDTLB6  ICDTLB6A  ICDTLB6B  ICDTLB6C  

Entry Points

Name Comments DBIA/ICR reference
GROUP ;
NEONATE
CONT
ENTER
GETMOR
CKDRG
DODRG ;Go to DRG file and retrieve table entry to use if defined
ORNI(X) ;
END ;
MI ;
; if PTCA and not a bypass
CKBURN ; MDC22 - Burns (extensive, full thickness, or non-extensive)
AGAIN
LOOK8
NBCOMP ; check for complication related to NB
FTBURN ; full thickness burn check
NEONATF ;NEONATE - Continuation of xecute line

External References

Name Field # of Occurrence
^%DTC NEONATE+2
KILL^ICDDRG GROUP+1, END+29
^ICDDRG1 NEONATE+10
^ICDDRG10 NEONATE+10
^ICDDRG11 NEONATE+10
^ICDDRG12 NEONATE+10
^ICDDRG13 NEONATE+10
^ICDDRG14 GROUP+27
^ICDDRG17 NEONATE+11
^ICDDRG2 NEONATE+10
^ICDDRG3 NEONATE+10
^ICDDRG5 NEONATE+10
EN1^ICDDRG5 MI+5
^ICDDRG6 NEONATE+10
^ICDDRG7 NEONATE+10
^ICDDRG8 NEONATE+10
END^ICDDRG8 LOOK8+2
^ICDDRG9 NEONATE+10
CHKMDC4^ICDDRGX END+24, END+26
CKHIV^ICDDRGX END+5
CKMST^ICDDRGX END+1
CKNMDC^ICDDRGX END+19
$$DRG^ICDGTDRG END+28
CMS516^ICDTBL2 MI+3
DRG232^ICDTLB3 DODRG+9
DRG516^ICDTLB6B MI+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] DODRG+3, DODRG+5, DODRG+7

Label References

Name Line Occurrences
$$ORNI GROUP+16, GROUP+21
@( DODRG+8
AGAIN CONT+2
CKBURN GROUP+31
CKDRG GROUP+25
CONT LOOK8+2
DODRG NEONATECONT+1, CKDRGEND+7, END+8, END+9, END+25, END+26, MI+5, MI+22
MI+23, MI+25, MI+26
END GROUP+2, GROUP+14, GROUP+20, GROUP+22, GROUP+23, GROUP+26, GROUP+27, GROUP+28, GROUP+31, GROUP+32
NEONATENEONATE+9, CONT+2, ENTER
ENTER CONTAGAIN
FTBURN CKBURN+5
GETMOR NEONATECONTCKDRG+1, LOOK8LOOK8+1, LOOK8+2
GROUP AGAIN+1, AGAIN+2
LOOK8 CONT+2
MI GROUP+23
NBCOMP NEONATE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NEONATE+1~
>> AGE NEONATE+9
>> DGADM NEONATE+2
>> DOB NEONATE+2
DRGFY DODRG+2~*, DODRG+3*, DODRG+4*, DODRG+5
DT NEONATE+2
>> HICDRG GROUP+25*, CONT*, GETMOR*, CKDRG+1, AGAIN+1, AGAIN+2
I ORNI+1~, ORNI+2*
>> ICDCC CKBURN+6, CKBURN+7, FTBURN+2, FTBURN+5
>> ICDCC3 MI+5
>> ICDDATE GROUP+1, GROUP+2, GROUP+5, GROUP+14, GROUP+16, GROUP+20, GROUP+21, GROUP+22, GROUP+23, GROUP+25
GROUP+26, GROUP+29, GROUP+31, GROUP+33, NEONATE+3, NEONATE+4, NEONATE+6, NEONATE+7, NEONATE+8, NEONATE+9
ENTERGETMORDODRG+3, DODRG+9, END+3, END+4, END+7, END+8, END+9, END+10
END+11, END+13, END+14, END+18, END+20, END+23, END+28, MI+3, MI+7, MI+12
MI+14, MI+15, MI+18, MI+20, MI+25, CKBURN+3, CKBURN+6, NBCOMP+4, FTBURN+2, FTBURN+3
FTBURN+5, FTBURN+6, NEONATF+1
>> ICDDMS GROUP+28, GROUP+29, GROUP+30
>> ICDDRG GROUP+1*, END+1*, END+5*, END+19*, END+22*, END+25*, END+26*, END+28*
>> ICDEXP GROUP+23, GROUP+32, MI+8, MI+11
>> ICDF GROUP+3, GROUP+15
>> ICDJ LOOK8LOOK8+1*, LOOK8+2
ICDJ( LOOK8+2!
>> ICDJ(0 LOOK8+1
ICDMCV DODRG+1~
ICDMCV1 DODRG+1~
ICDMCV2 DODRG+1~
>> ICDMDC GROUP+2, GROUP+14, GROUP+20, GROUP+22, GROUP+23, GROUP+25, GROUP+26, GROUP+27, GROUP+28, GROUP+31
GROUP+32, NEONATE+9, NEONATE+10, NEONATE+11, CONTCONT+2, ENTER
ICDNMDC END+19!
ICDNMDC(1 END+7*, END+8*, END+9*, END+10*, END+11*, END+13*, END+18*, END+19
>> ICDNOR GROUP+6, GROUP+9, GROUP+21, GROUP+22, NEONATEENTER
>> ICDOCNT GROUP+25
ICDODRG NEONATEAGAINAGAIN+1!, LOOK8+2!
ICDODRG( AGAIN+1!, AGAIN+2
ICDODRG(0 CONTMI+5, MI+22, MI+23
>> ICDONR GROUP+6, GROUP+9, GROUP+21, GROUP+22
>> ICDOP( END+18
>> ICDOP(" 33.6" END+7
>> ICDOP(" 36.06 " , MI+15
>> ICDOP(" 36.07 " , MI+10, MI+14
>> ICDOP(" 37.26 " , MI+10, MI+12, MI+14, MI+15
>> ICDOP(" 37.27 " , MI+10, MI+14, MI+15
>> ICDOP(" 37.5" END+7
>> ICDOP(" 37.51 " , END+7
>> ICDOP(" 37.52 " , END+20
>> ICDOP(" 37.63 " , END+9
>> ICDOP(" 37.64 " , END+8, END+9
>> ICDOP(" 37.65 " , END+8
>> ICDOP(" 37.66 " , END+7
>> ICDOP(" 37.90 " , MI+2
>> ICDOP(" 39.61 " , MI+12
>> ICDOP(" 39.65 " , END+10
>> ICDOP(" 46.97 " , END+11
>> ICDOP(" 52.80 " , END+13
>> ICDOP(" 52.82 " , END+13
>> ICDOP(" 55.69 " , END+15, END+16
>> ICDOP(" 96.72 " , CKBURN+3
>> ICDOPCT GROUP+2, GROUP+4*, GROUP+16, GROUP+21, GROUP+22
>> ICDOPNR GROUP+7*, GROUP+10*
>> ICDOR GROUP+4, GROUP+6, GROUP+9, GROUP+23, GROUP+25, GROUP+26, DODRG+9, END+3, END+4, MI+2
MI+17, MI+22, MI+23, CKBURN+3, CKBURN+4, FTBURN+1
>> ICDORNI GROUP+6, GROUP+7, GROUP+9, GROUP+10, GROUP+14, GROUP+16, GROUP+20, GROUP+21, GROUP+26, ORNI+2
>> ICDORNI("O" GROUP+6, GROUP+9
>> ICDORNR ENTER
>> ICDP24 END+1
>> ICDP25 END+5
>> ICDPD GROUP+4, MI+5, MI+6, MI+8, MI+11, MI+18, MI+19, CKBURN+2, CKBURN+5, CKBURN+6
CKBURN+7, FTBURN+2, FTBURN+5
>> ICDPDRG END+3, END+4
ICDPDRG( CKDRG+1!
>> ICDPDRG(0 NEONATEGETMORMI+25, MI+26
ICDPDRG(121 MI+26!
ICDPDRG(124 MI+21!
ICDPDRG(280 MI+25!
ICDPDRG(281 MI+25!
ICDPDRG(282 MI+25!
ICDPDRG(286 MI+20!
ICDPDRG(287 MI+20!
>> ICDPDRG(377 GROUP+9
>> ICDPDRG(387 NBCOMP+9, NEONATF+2
>> ICDPDRG(391 NBCOMP+9, NEONATF+2
>> ICDPDRG(769 GROUP+6
>> ICDPDRG(791 NBCOMP+6, NEONATF+1
>> ICDPDRG(795 NBCOMP+6, NEONATF+1
ICDREF DODRG+2~*, DODRG+5*, DODRG+6, DODRG+7*, DODRG+8*!
>> ICDRG GROUP+2, GROUP+6*, GROUP+7*, GROUP+9*, GROUP+10*, GROUP+14, GROUP+16*, GROUP+20, GROUP+21*, GROUP+22*
GROUP+23*, GROUP+25*, GROUP+26*, GROUP+27, GROUP+29*, GROUP+30*, GROUP+31*, GROUP+33*, GROUP+34*, NEONATE*
NEONATE+3, NEONATE+4, NEONATE+6*, NEONATE+7*, NEONATE+8*, NEONATE+9*, CONT*, CONT+2, ENTER*, GETMOR*
CKDRG+1, DODRG+3, DODRG+5, DODRG+7, DODRG+8, END+1, END+3*, END+4*, END+5, END+7*
END+8*, END+9*, END+10*, END+11*, END+13*, END+15*, END+16*, END+18*, END+19, END+21*
END+24, END+25, END+26, MI+5*, MI+8*, MI+10*, MI+11*, MI+12*, MI+14*, MI+15*
MI+18*, MI+19*, MI+22*, MI+23*, MI+25*, MI+26*, CKBURN+3*, CKBURN+4*, CKBURN+6*, CKBURN+7*
AGAIN+2*, NBCOMP+5, NBCOMP+6*, NBCOMP+8, NBCOMP+9*, FTBURN+2*, FTBURN+3*, FTBURN+5*, FTBURN+6*, NEONATF+1*
NEONATF+2*
>> ICDRG(391 NEONATE+6
>> ICDRG(795 NEONATE+7
>> ICDRTC GROUP+1*, GROUP+23*, GROUP+28*, GROUP+31*, GROUP+32*, GROUP+33, GROUP+34, NEONATE+8*, NEONATE+9*, END+27*
>> ICDS24 END+1
>> ICDS25(1 END+5
>> ICDSD MI+6, MI+8, MI+11, MI+18, MI+19, CKBURN+2, CKBURN+5, CKBURN+6, CKBURN+7, NBCOMP+1
FTBURN+1, FTBURN+2, FTBURN+5
>> ICDSDRG NBCOMP+1
>> ICDSDRG(0 NBCOMP+3, NBCOMP+6, NBCOMP+9, NEONATF+1, NEONATF+2
ICDSDXCK NBCOMP+2~, NBCOMP+3*, NBCOMP+5, NBCOMP+8
>> ICDSEX(1 GROUP+1
>> ICDSEX(2 GROUP+1
>> ICDTMP END+28*
>> ICDTRS GROUP+31, GROUP+32
K GROUP+16~*, GROUP+21~*, ORNI+1~, ORNI+2*, ORNI+3
U DODRG+7, END+3, END+4, END+28
X NEONATE+1~, NEONATE+2, ORNI~, END+18~*
X1 NEONATE+1~, NEONATE+2*
X2 NEONATE+1~, NEONATE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All