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! |