Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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
GO ; -- Jump for DRG calculation
MSG(TEXT) ;
TR(X) ;
D1 ; -- Diagnosis ? Help
D2 ; -- Diagnosis ?? Help
D3 ; -- Diagnosis ??? Help
P1 ;
P2 ;
P3 ;
T12
D19 ;
D29 ;
P19 ;

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call