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 |  All
Print Page as PDF
Routine: DGICDGT

Package: Registration

Routine: DGICDGT


Information

DGICDGT ;BIR/SJA - ALB/AAS - ADT ICD DIAGNOSIS SEARCH ;02-Feb-2012

Source Information

Source file <DGICDGT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 EN^DDIOL  YN^DICN  DQ^DICQ  
Registration 2 GETAPI^DGICDGT  (EFFDAT1,EFFDATE)^DGPTIC10  
DRG Grouper 1 $$SYS^ICDEX  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Registration 38 DGPTX51  ^DGPT  401  501  601  CPT RECORD DATE/TIME  DGICDGT  DGPTX41  
DGPTX53  DGPTX7  DGPTX73  DGPTX74  DGX41  DGX42  DGX44  DGX51  
DGX53  DGX55  DGX56  DGX57  DGX58  DGX5F1  DGX5F2  DGX5FD1  
DGX5FD2  DGX5FD4  DGX5FD5  DGX5FD6  DGX5FD7  DGX61  DGX63  DGX64  
DGX7  DGX72  DGX73  DGX74  DGX75  ^DGCPT(46  

Entry Points

Name Comments DBIA/ICR reference
P2 ;
P3 ;
P1 ;
GETAPI(APP,TYPE,PTF,CHK,DGNODE) ;ICD-9/ICD-10 selection - called by input transform
; - INPUT: X := the initial user input to be searched on (REQUIRED)
; APP := application name "DG PTF" ;drp removed file ref in file 130.4;.01 (REQUIRED)
; TYPE := type of call "DIAG or "PROC" ;drp removed file ref in file 130.4;.04 (REQUIRED)
; PTF := top level entry in file 130 (DA) used to get date to compute correct version (OPTIONAL but needs DA)
; CHK := additional screening logic
; Note: applications using this as an example will need to modify the code that uses this.
; DGNODE := node variable needed to account for increased DX code storage across different
; PTF global nodes, default=0 (OPTIONAL)
; - OUTPUT: X := the internal value to be stored in the field.
; Y := the internal value to be stored in the field
MSG(TEXT) ;
D19 ;
TR(X) ;
GO ; -- Jump for DRG calculation
P19 ;
D29 ;
D2 ; -- Diagnosis ?? Help
D3 ; -- Diagnosis ??? Help
T12
D1 ; -- Diagnosis ? Help

External References

Name Field # of Occurrence
EN^DDIOL GO+10, MSG+1, D1+3, D1+4, D2+1, D2+2, D2+3, D2+4, D2+5, D2+6
, D2+7, D2+8, D3+30, P1+3, P1+4, P1+5, P2+1, P2+2, P2+3, P2+4
, P2+5, P2+6, P2+7, P3+1, P3+2, P3+3, P3+4, P3+5, D19+2, D19+3
, D19+4, D19+5, D19+6, D19+7, D19+8, D19+9, D29+1, D29+2, D29+3, D29+4
, D29+5, D29+6, D29+7, D29+8, D29+9, D29+10, D29+11, D29+12, D29+13, D29+14
, P19+2, P19+3
GETAPI^DGICDGT P3+9, P3+10, P3+11, P3+12, P3+14, P3+15, P3+16, P3+17, P3+19, P3+20
, P3+21, T12
EFFDAT1^DGPTIC10 GETAPI+32
EFFDATE^DGPTIC10 GETAPI+35
YN^DICN P19+3
DQ^DICQ P19+7
$$SYS^ICDEX GO+1
$$FMTE^XLFDT GO+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1"
  • Line Location: P3+9
Function Call: WRITE
  • Prompt: !,"2"
  • Line Location: P3+10
Function Call: WRITE
  • Prompt: !,"3"
  • Line Location: P3+11
Function Call: WRITE
  • Prompt: !,"4"
  • Line Location: P3+12
Function Call: WRITE
  • Prompt: !,"5"
  • Line Location: P3+14
Function Call: WRITE
  • Prompt: !,"6"
  • Line Location: P3+15
Function Call: WRITE
  • Prompt: !,"7"
  • Line Location: P3+16
Function Call: WRITE
  • Prompt: !,"8"
  • Line Location: P3+17
Function Call: WRITE
  • Prompt: !,"9 - SHOULD WORK"
  • Line Location: P3+19
Function Call: WRITE
  • Prompt: !,"10 - SHOULD WORK"
  • Line Location: P3+20
Function Call: WRITE
  • Prompt: !,"11 'COCAINE' - SHOULD WORK"
  • Line Location: P3+21
Function Call: WRITE
  • Prompt: !,"12 'FRACTURE'- TOO LONG"
  • Line Location: T12+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD0 - [#80.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] GETAPI+33

Label References

Name Line Occurrences
@( GO+5, GO+6, GO+29
D2 D1+2
D29 D19+1
D3 D1+1
GO GETAPI+32
MSG GETAPI+16, GETAPI+18, GETAPI+19, GETAPI+20, GETAPI+33, GO+2, GO+21, GO+23
P2 P1+2
P3 P1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % P19+3*
APP GETAPI~, GETAPI+18, GO+21
CHK GETAPI~, GETAPI+32*, GO+29
CODE GETAPI+12~, GO+20*, GO+21, GO+23, GO+24
>> D P19+6*
>> D0 GETAPI+31
>> DA GETAPI+31
>> DA(1 GETAPI+31
>> DA(2 GETAPI+31
>> DGDRGDT GETAPI+32
DGDT GETAPI+12~
DGER GETAPI+12~, GO+29*
DGNODE GETAPI~, GETAPI+14*
DGPTDA GETAPI+12~, GETAPI+31*, GETAPI+32, GETAPI+33, GETAPI+35
DGPTDAT GETAPI+12~
DGTYPE GETAPI+35~*
DGX GETAPI+12~
DGYN P19+1~*, P19+3*, P19+7
DIC GETAPI+12~, P19+6*
DIC("0" P19+6*
DIC("S" P19+4*
DIC("W" P19+5*
DIE GETAPI+12~
>> DO P19+6*
>> DO(2 P19+6*
DTOUT GETAPI+12~
DUOUT GETAPI+12~
>> DZ P19+6*
EFFDATE GETAPI+12~, GETAPI+32*, GO+1, GO+2
ENTRY GETAPI+12~
>> FORMAT GO+9*, GO+10
HLP D3+1~, D3+30
HLP(1 D3+2*, D3+3*
HLP(10 D3+16*, D3+17*
HLP(12 D3+18*, D3+19*
HLP(13 D3+20*, D3+21*
HLP(15 D3+22*, D3+23*
HLP(16 D3+24*, D3+25*
HLP(18 D3+26*, D3+27*
HLP(19 D3+28*, D3+29*
HLP(2 D3+4*, D3+5*
HLP(3 D3+6*, D3+7*
HLP(4 D3+8*, D3+9*
HLP(5 D3+10*, D3+11*
HLP(6 D3+12*, D3+13*
HLP(8 D3+14*, D3+15*
IMPDATE GETAPI+12~
KEY GETAPI+12~
LEXI GETAPI+12~
PTF GETAPI~, GETAPI+31
TAG GO+4~*, GO+5*, GO+6*, GO+7*, GO+8*, GO+10
TEXT MSG~, MSG+1
TYPE GETAPI~, GETAPI+19, GO+1, GO+2, GO+21, GO+23
U GETAPI+35
VERSION GETAPI+12~, GO+1*, GO+2, GO+5, GO+6, GO+7, GO+8, GO+12, GO+20, GO+21
X GETAPI+16*, GETAPI+17!, GETAPI+18!, GETAPI+19!, GETAPI+20!, GETAPI+33!, GO+2!, GO+3!, GO+5, GO+6
, GO+9, GO+12*, GO+21!, GO+23!, GO+29!, GO+31*, GO+32!, TR~, TR+1*, TR+2
, D1+1, D1+2, P1+1, P1+2, P3+9*, P3+10*, P3+11*, P3+12*, P3+13*, P3+15*
, P3+16*, P3+17*, P3+19*, P3+20*, P3+21*, T12*, D19+1, P19+3
>> X1 GETAPI+35
Y GO+3!, GO+29!, GO+31, GO+32!
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 |  All