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

Package: DRG Grouper

Routine: ICD1856A


Information

ICD1856A ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010

Source Information

Source file <ICD1856A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$NOW^XLFDT  (BMES,MES)^XPDUTL  
VA Fileman 2 FILE^DICN  UPDATE^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DRG Grouper 1 ICD1856P  

Entry Points

Name Comments DBIA/ICR reference
EFFDATE(ICDDRG,ICDFY,ICDMDC,ICDSURG,ICDTMP) ;-- 80.266D - #66 EFFECTIVE DATE
DRGEFFDT(ICDDRG,ICDFY,ICDREF,ICDTMP) ;-- 80.271D - #71 DRG GROUPER EFFECIVE DATE
EDITDRG(ICDLINE,ICDTMP,ICDTOT,ICDEDIT) ; edit existing (#80.2) DRG record
; Input:
; ICDLINE - $TEXT line of MS-DRG code data
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed
; Output:
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed
GETDRG(ICDRTN,ICDTMP,ICDTOT,ICDEDIT,ICDADD) ;get and file MS-DRG data
; Input:
; ICDRTN - Post Install routine to process MS-DRG codes
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed
; Output:
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed
WEIGHTS(ICDLINE,ICDTMP) ;--80.22D subfile - #20 FISCAL YEAR WEIGHTS&TRIM
; Input:
; ICDLINE - $TEXT line of MS-DRG code data
; ICDTMP - Temp file of error msg's
; Output:
; ICDTMP - Temp file of error msg's
DESCA(ICDDRG,ICDFY,ICDTMP) ;-- 80.268D - #68 DESCRIPTION
DESCB(ICDDRG,ICDFY,ICDDESC,ICDTMP) ;-- 80.2681 - #68 DESCRIPTION
DRG ;post-install driver (#80.2) DRG updates
NEWDRG(ICDLINE,ICDTMP,ICDTOT,ICDADD) ; add new (#80.2) DRG record
; Input:
; ICDLINE - $TEXT line of MS-DRG code data
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed
; Output:
; ICDTMP - Temp file of error msg's
; ICDTOT - Total MS-DRG codes filed

External References

Name Field # of Occurrence
FILE^DICN NEWDRG+37
UPDATE^DIE NEWDRG+27, DRGEFFDT+6, EFFDATE+8, DESCA+5, DESCB+6
$$NOW^XLFDT DRG+17
BMES^XPDUTL DRG+10
MES^XPDUTL DRG+26, DRG+27, DRG+28, DRG+29, DRG+30

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] GETDRG+13, EDITDRG+14, EDITDRG+18, NEWDRG+14, WEIGHTS+11, WEIGHTS+15, WEIGHTS+22*, WEIGHTS+24*, WEIGHTS+26, WEIGHTS+27*
^TMP("DRGFY2012" DRG+15

Label References

Name Line Occurrences
DESCA EDITDRG+37, NEWDRG+62
DESCB EDITDRG+40, NEWDRG+65
DRGEFFDT EDITDRG+28, NEWDRG+56
EDITDRG GETDRG+13
EFFDATE EDITDRG+34, NEWDRG+59
GETDRG DRG+23
NEWDRG GETDRG+14
WEIGHTS EDITDRG+43, NEWDRG+68

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EDITDRG+9~, NEWDRG+9~, NEWDRG+32!, NEWDRG+38!
DA(1 NEWDRG+33*, NEWDRG+34
DIC NEWDRG+9~, NEWDRG+32!, NEWDRG+34*, NEWDRG+38!
DIC(0 NEWDRG+35*
DIE EDITDRG+9~, NEWDRG+9~
DO NEWDRG+37!
DR EDITDRG+9~, NEWDRG+9~
ICDADD DRG+11~, DRG+12*, DRG+23, DRG+28, GETDRG~, GETDRG+14, NEWDRG~, NEWDRG+70*
ICDDESC EDITDRG+9~, EDITDRG+13*, EDITDRG+40, NEWDRG+10~, NEWDRG+19*, NEWDRG+36, NEWDRG+65, DESCB~, DESCB+1, DESCB+5
ICDDRG GETDRG+9~, EDITDRG+9~, EDITDRG+12*, EDITDRG+14, EDITDRG+15, EDITDRG+18, EDITDRG+27, EDITDRG+28, EDITDRG+34, EDITDRG+37
, EDITDRG+40, NEWDRG+10~, NEWDRG+12*, NEWDRG+14, NEWDRG+23, NEWDRG+26, NEWDRG+29, NEWDRG+33, NEWDRG+40, NEWDRG+55
, NEWDRG+56, NEWDRG+59, NEWDRG+62, NEWDRG+65, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+3, DRGEFFDT+8, EFFDATE~, EFFDATE+1
, EFFDATE+3, EFFDATE+10, DESCA~, DESCA+1, DESCA+3, DESCA+7, DESCB~, DESCB+1, DESCB+3, DESCB+8
, WEIGHTS+8~, WEIGHTS+10*, WEIGHTS+11, WEIGHTS+12, WEIGHTS+15, WEIGHTS+17, WEIGHTS+22, WEIGHTS+24, WEIGHTS+26, WEIGHTS+27
ICDEDIT DRG+11~, DRG+12*, DRG+23, DRG+27, GETDRG~, GETDRG+13, EDITDRG~, EDITDRG+45*
ICDERR EDITDRG+9~, NEWDRG+10~, NEWDRG+22!, NEWDRG+28!, DRGEFFDT+2!, DRGEFFDT+7!, EFFDATE+2!, EFFDATE+9!, DESCA+2!, DESCA+6!
, DESCB+2!, DESCB+7!
ICDFDA EDITDRG+9~, NEWDRG+10~, NEWDRG+22!, NEWDRG+27!, DRGEFFDT+2!, DRGEFFDT+6!, EFFDATE+2!, EFFDATE+8!, DESCA+2!, DESCA+5!
, DESCB+2!, DESCB+6!
ICDFDA( NEWDRG+23*, NEWDRG+24*, NEWDRG+25*, DRGEFFDT+3*, DRGEFFDT+4*, DRGEFFDT+5*, EFFDATE+3*, EFFDATE+4*, EFFDATE+5*, EFFDATE+6*
, EFFDATE+7*, DESCA+3*, DESCA+4*, DESCB+3*, DESCB+4*, DESCB+5*
ICDFY EDITDRG+9~, EDITDRG+11*, EDITDRG+18, EDITDRG+28, EDITDRG+34, EDITDRG+37, EDITDRG+40, NEWDRG+10~, NEWDRG+11*, NEWDRG+56
, NEWDRG+59, NEWDRG+62, NEWDRG+65, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+4, EFFDATE~, EFFDATE+1, EFFDATE+4, DESCA~
, DESCA+1, DESCA+4, DESCB~, DESCB+1, DESCB+4
ICDFYR WEIGHTS+8~, WEIGHTS+9*, WEIGHTS+15, WEIGHTS+20, WEIGHTS+22, WEIGHTS+24, WEIGHTS+27
ICDHIGH WEIGHTS+8~, WEIGHTS+9*, WEIGHTS+17*, WEIGHTS+20
ICDI DRG+11~, DRG+21*
ICDIEN NEWDRG+10~, NEWDRG+22!, NEWDRG+27!
ICDIEN(1 NEWDRG+26*
ICDJ WEIGHTS+8~, WEIGHTS+26*, WEIGHTS+27
ICDLINE GETDRG+9~, GETDRG+11*, GETDRG+13, GETDRG+14, EDITDRG~, EDITDRG+12, EDITDRG+13, EDITDRG+31, EDITDRG+33, EDITDRG+43
, NEWDRG~, NEWDRG+12, NEWDRG+16, NEWDRG+18, NEWDRG+19, NEWDRG+68, WEIGHTS~, WEIGHTS+7, WEIGHTS+10, WEIGHTS+18
ICDLN GETDRG+9~, GETDRG+11*
ICDLOS WEIGHTS+8~, WEIGHTS+18*, WEIGHTS+19*, WEIGHTS+20
ICDLOW WEIGHTS+8~, WEIGHTS+9*, WEIGHTS+17*, WEIGHTS+20
ICDMDC EDITDRG+9~, EDITDRG+31*, EDITDRG+32*, EDITDRG+34, NEWDRG+10~, NEWDRG+16*, NEWDRG+17*, NEWDRG+24, NEWDRG+59, EFFDATE~
, EFFDATE+6
ICDREF EDITDRG+9~, EDITDRG+27*, EDITDRG+28, NEWDRG+10~, NEWDRG+55*, NEWDRG+56, DRGEFFDT~, DRGEFFDT+5
ICDRTN DRG+11~, DRG+21*, DRG+23, GETDRG~, GETDRG+11
ICDSTR WEIGHTS+8~, WEIGHTS+20*, WEIGHTS+22
ICDSUB DRG+11~, DRG+20*, DRG+21
ICDSURG EDITDRG+9~, EDITDRG+33*, EDITDRG+34, NEWDRG+10~, NEWDRG+18*, NEWDRG+25, NEWDRG+58*, NEWDRG+59, EFFDATE~, EFFDATE+7
ICDTAG GETDRG+9~, GETDRG+11*
ICDTEXT GETDRG+9~, GETDRG+11*
ICDTMP DRG+11~, DRG+14*, DRG+15*, DRG+16, DRG+17, DRG+23, DRG+25, GETDRG~, GETDRG+13, GETDRG+14
, EDITDRG~, EDITDRG+15, EDITDRG+28, EDITDRG+34, EDITDRG+37, EDITDRG+40, EDITDRG+43, NEWDRG~, NEWDRG+29, NEWDRG+40
, NEWDRG+56, NEWDRG+59, NEWDRG+62, NEWDRG+65, NEWDRG+68, DRGEFFDT~, DRGEFFDT+1, DRGEFFDT+8, EFFDATE~, EFFDATE+1
, EFFDATE+10, DESCA~, DESCA+1, DESCA+7, DESCB~, DESCB+1, DESCB+8, WEIGHTS~, WEIGHTS+7, WEIGHTS+12
ICDTOT DRG+13*, DRG+23, DRG+29, GETDRG~, GETDRG+13, GETDRG+14, EDITDRG~, EDITDRG+45*, NEWDRG~, NEWDRG+70*
ICDWT WEIGHTS+8~, WEIGHTS+18*, WEIGHTS+20
ICDX WEIGHTS+8~, WEIGHTS+26*
U GETDRG+13, EDITDRG+12, EDITDRG+13, EDITDRG+31, EDITDRG+33, NEWDRG+12, NEWDRG+16, NEWDRG+18, NEWDRG+19, WEIGHTS+10
, WEIGHTS+18, WEIGHTS+20
X EDITDRG+9~, NEWDRG+9~, NEWDRG+36*
Y EDITDRG+9~, NEWDRG+9~, NEWDRG+39

Marked Items

Name Field # of Occurrence
$T(@ICDRTN DRG+22
$T(@ICDTAG GETDRG+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All