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 |  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: DG53850B

Package: Registration

Routine: DG53850B


Information

DG53850B ;ALB/JRC - ICD-10 POST-INIT ;3/12/11 7:21am

Source Information

Source file <DG53850B.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 (FILE,UPDATE)^DIE  EN^DIEZ  ENALL^DIK  $$ROUSIZE^DILF  
Registration 2 ^DG53850C  UPD^DG53850D  
DRG Grouper 1 ($$CODEC,$$CODEN,$$CSI)^ICDEX  
Kernel 1 ($$PATCH,BMES,MES)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Post init entry
REC ; -- re-compile all compiled input templates.
REIN4589 ;
UPD4589(DG9IEN) ;
CHKPREP(DGCATAR,DG2717ST,DG4589ST) ;
ADD4589(DGCATAR,DG10IEN) ;
DIAG4589(DGIEN,DGCATAR) ;
PROC4589(DGIEN,DGCATAR) ;
INSREC(DGFILE,DGIEN,DGZFDA,DGRECNO,DGFLGS,DGLCKGL,DGLCKTM,DGNEWRE) ;*/
FILLFLDS(DGFILE,DGFLD,DGIENS,DGNEWVAL) ;

External References

Name Field # of Occurrence
^DG53850C DIAG4589+7, DIAG4589+19, DIAG4589+31, PROC4589+6
UPD^DG53850D EN+11
FILE^DIE FILLFLDS+8
UPDATE^DIE INSREC+10
EN^DIEZ REC+10
ENALL^DIK REIN4589+5
$$ROUSIZE^DILF REC+10
$$CODEC^ICDEX UPD4589+8
$$CODEN^ICDEX DIAG4589+10, DIAG4589+22, DIAG4589+34, PROC4589+10
$$CSI^ICDEX UPD4589+6
$$PATCH^XPDUTL EN+3
BMES^XPDUTL EN+10, EN+12, REC+5, REC+7, REIN4589+1, UPD4589+2, CHKPREP+2, CHKPREP+3, CHKPREP+5, CHKPREP+8
, CHKPREP+13, ADD4589+2, ADD4589+4, DIAG4589+5, DIAG4589+11, DIAG4589+12, DIAG4589+17, DIAG4589+23, DIAG4589+24, DIAG4589+29
, DIAG4589+35, DIAG4589+36, DIAG4589+39, PROC4589+4, PROC4589+11, PROC4589+12, PROC4589+15
MES^XPDUTL EN+4, EN+16, UPD4589+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Your DUZ is not defined. It must be defined to run this routine."
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: DGSTIEN
  • Line Location: ADD4589+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROC4589+7
Function Call: WRITE
  • Prompt: $$INSREC^DG53850C(45.89,"",.ZZ,5000,,,,1)
  • Line Location: PROC4589+40
Routine Call
  • DIE
  • Line Location:
    • FILLFLDS+8
Routine Call
  • DIE
  • Line Location:
    • INSREC+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.89 - [#45.89] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGEN(27.17 - [#27.17] CHKPREP+3
^DIC(27.17 CHKPREP+6, CHKPREP+9
^DIC(45.88 - [#45.88] CHKPREP+12
^DIC(45.89 - [#45.89] UPD4589+4, UPD4589+5, CHKPREP+2
^DIE - [#.402] REC+9
^DIE("B" REC+7

Label References

Name Line Occurrences
$$CHKPREP EN+8
$$DIAG4589 ADD4589+3
$$FILLFLDS UPD4589+8
$$INSREC DIAG4589+12, DIAG4589+24, DIAG4589+36, PROC4589+12
$$PROC4589 ADD4589+5
ADD4589 EN+15
REC EN+18
REIN4589 EN+14
UPD4589 EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REC+1~
DG10IEN ADD4589~, ADD4589+3
DG2717ST EN+1~, EN+6*, EN+8, EN+11, CHKPREP~, CHKPREP+5, CHKPREP+6
DG4589ST EN+1~, EN+7*, EN+8, EN+13, EN+15, CHKPREP~, CHKPREP+8, CHKPREP+9
DG9IEN UPD4589~, UPD4589+4
DGCAT DIAG4589+1~
DGCATAR EN+1~, EN+8, EN+15, CHKPREP~, ADD4589~, ADD4589+3, ADD4589+5, DIAG4589~, PROC4589~
DGCATAR( CHKPREP+12*, CHKPREP+13
DGCATAR("DIAL YSIS TYPE" , PROC4589+5
DGCATAR("KIDN EY TRANSPLANT STATUS" , DIAG4589+30
DGCATAR("SUBS TANCE ABUSE" , DIAG4589+6
DGCATAR("SUIC IDE INDICATOR" , DIAG4589+18
DGCATS CHKPREP+1~, CHKPREP+11*, CHKPREP+12, CHKPREP+13
DGCNT1 DIAG4589+1~, DIAG4589+2*, DIAG4589+8*, DIAG4589+20*, DIAG4589+32*, PROC4589+1~, PROC4589+2*, PROC4589+8*
DGCNT2 DIAG4589+1~, DIAG4589+2*, DIAG4589+14*, DIAG4589+26*, DIAG4589+38*, DIAG4589+39, PROC4589+1~, PROC4589+2*, PROC4589+14*, PROC4589+15
>> DGCSYS UPD4589+6*, UPD4589+7, UPD4589+8
DGDUZSV REC+1~, REC+3*, REC+12
DGERR REC+1~, REC+7*, REC+8*, REC+9*, INSREC+3~, INSREC+12
DGFDA INSREC+3~
DGFDA( INSREC+8*
DGFILE INSREC~, INSREC+1, INSREC+8, FILLFLDS~, FILLFLDS+1, FILLFLDS+7
DGFLD FILLFLDS~, FILLFLDS+2, FILLFLDS+7
DGFLGS INSREC~, INSREC+10
DGIEN UPD4589+1~, UPD4589+3*, UPD4589+4*, UPD4589+5, UPD4589+8, CHKPREP+1~, CHKPREP+6*, CHKPREP+9*, DIAG4589~, DIAG4589+12
, DIAG4589+13*, DIAG4589+24, DIAG4589+25*, DIAG4589+36, DIAG4589+37*, DIAG4589+40, PROC4589~, PROC4589+12, PROC4589+13*, PROC4589+16
, INSREC~, INSREC+2, INSREC+6, INSREC+7
DGIENMAX CHKPREP+1~, CHKPREP+5*, CHKPREP+6, CHKPREP+8*, CHKPREP+9
DGIENS INSREC+3~, INSREC+6*, INSREC+7*, INSREC+8, FILLFLDS~, FILLFLDS+3, FILLFLDS+6
DGIENSTR FILLFLDS+5~, FILLFLDS+6*, FILLFLDS+7
DGINTP REC+1~, REC+7*
DGLCKGL INSREC~, INSREC+9, INSREC+11
DGLCKTM INSREC~, INSREC+9
DGLOCK INSREC+4~*, INSREC+9*, INSREC+11
DGNEWRE INSREC~, INSREC+2
DGNEWVAL FILLFLDS~, FILLFLDS+4, FILLFLDS+7, FILLFLDS+9, FILLFLDS+10
DGPATCH EN+1~, EN+3*, EN+4, EN+5
DGQUIT CHKPREP+1~, CHKPREP+4*, CHKPREP+5, CHKPREP+6*, CHKPREP+7*, CHKPREP+8, CHKPREP+9*, CHKPREP+10*, CHKPREP+11, CHKPREP+13*
, CHKPREP+14
DGRECNO INSREC~, INSREC+2, INSREC+5~*, INSREC+6, INSREC+7
DGRETV EN+1~, EN+2*, EN+8*, EN+9, EN+16
DGSSI INSREC+3~
DGSSI(1 INSREC+6*, INSREC+7*, INSREC+13
DGSTIEN ADD4589+1~, ADD4589+3*, ADD4589+5*, ADD4589+6
DGVAL DIAG4589+1~, DIAG4589+12, DIAG4589+24, DIAG4589+36, PROC4589+1~, PROC4589+12
DGVAL( DIAG4589+3*, DIAG4589+6*, DIAG4589+10*, DIAG4589+11, DIAG4589+18*, DIAG4589+22*, DIAG4589+23, DIAG4589+30*, DIAG4589+34*, DIAG4589+35
, PROC4589+3*, PROC4589+5*, PROC4589+10*, PROC4589+11
DGX UPD4589+1~, UPD4589+5*, UPD4589+6, UPD4589+8, DIAG4589+1~, DIAG4589+7*, DIAG4589+9, DIAG4589+19*, DIAG4589+21, DIAG4589+31*
, DIAG4589+33, PROC4589+1~, PROC4589+6*, PROC4589+9
DGX2 DIAG4589+1~, DIAG4589+9*, DIAG4589+10, DIAG4589+11, DIAG4589+12, DIAG4589+21*, DIAG4589+22, DIAG4589+23, DIAG4589+24, DIAG4589+33*
, DIAG4589+34, DIAG4589+35, DIAG4589+36, PROC4589+1~, PROC4589+9*, PROC4589+10, PROC4589+11, PROC4589+12
DGY DIAG4589+1~, DIAG4589+7*, DIAG4589+19*, DIAG4589+31*, PROC4589+1~, PROC4589+6*
DGY2 DIAG4589+1~, DIAG4589+9*, DIAG4589+21*, DIAG4589+33*, PROC4589+1~, PROC4589+9*
DGZFDA INSREC~, INSREC+8
DIK REC+1~, REIN4589+2~, REIN4589+3*
DIK(1 REIN4589+4*
DMAX REC+1~, REC+10*
DNM REC+1~
DUZ REC+2
DUZ(0 REC+3*, REC+12*
ERRARR FILLFLDS+5~, FILLFLDS+9
ERRARR("DIERR" FILLFLDS+9
FDA FILLFLDS+5~
FDA( FILLFLDS+7*
U REC+9, UPD4589+5
X REC+1~, REC+9*
Y REC+1~, REC+7*, REC+8, REC+9

Marked Items

Name Field # of Occurrence
$T(DKIDNEY+DGY^DG53850C DIAG4589+31
$T(DSUBST+DGY^DG53850C DIAG4589+7
$T(DSUIC+DGY^DG53850C DIAG4589+19
$T(PDIAL+DGY^DG53850C PROC4589+6
Info |  Source |  Call 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