LREPICD ;ALB/TEJ - EMERGING PATHOGENS ICD UTILITIES;16 Jun 2013 5:55 PM ; 19 Jun 2013 2:37 AM
Source file <LREPICD.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 |
|---|---|---|
| ICDSYS(LREPDOS,LRICDTYP) | ;
; Parameters ; input: LREPDOS - date of service (REQ) ; LRICDTYP - code type requested "D"iag/"P"roc) ; output: LRICDSYS - icd system for implementation ; e.g. (3131001,"D") |
|
| Q1 | ||
| ICDCONVT | ; Convert File #69.5 "ICD-9" text entries to "ICD"
|
|
| Q2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(69.5 - [#69.5] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| Q1 | ICDSYS+9, ICDSYS+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LRCTYP | ICDSYS+7~, ICDSYS+8*, ICDSYS+10, ICDSYS+12 |
| LRDT | ICDSYS+7~, ICDSYS+8*, ICDSYS+9, ICDSYS+12 |
| LREPDOS | ICDSYS~, ICDSYS+8 |
| LREPI695 | ICDCONVT+2!, ICDCONVT+3*, ICDCONVT+4, ICDCONVT+6, ICDCONVT+7, ICDCONVT+8 |
| LREPITXT | ICDCONVT+4! |
| LREPIX | ICDCONVT+4*, ICDCONVT+5, Q2! |
| LRICDSYS | ICDSYS+7~, ICDSYS+9*, ICDSYS+10*, ICDSYS+12*, Q1 |
| LRICDTYP | ICDSYS~, ICDSYS+8 |
| LRP | ICDCONVT+7*, Q2! |
| LRTXT | ICDCONVT+5*, ICDCONVT+7, Q2! |
| LRX | ICDCONVT+4*, ICDCONVT+5, ICDCONVT+7, Q2! |
| U | ICDSYS+12 |
