DGICDGT ;BIR/SJA - ALB/AAS - ADT ICD DIAGNOSIS SEARCH ;02-Feb-2012
Source file <DGICDGT.m>
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 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ICD0 - [#80.1] | Classic Fileman Calls |