DGICDGT ;BIR/SJA - ALB/AAS - ADT ICD DIAGNOSIS SEARCH ;02-Feb-2012
Source file <DGICDGT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 | 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 |
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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPT - [#45] | GETAPI+33 |
>> | 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! |