ICDRGAPI ;ALB/JAM - DRG GROUPER APIS ;05/29/12 2:39pm
Source file <ICDRGAPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICDID(FILE,ID,CODE) | ; Returns value indicating if identifier exist.
|
|
| IDIEN(FILE,ID) | ;get IEN for identifier
|
|
| ICDIDS(FILE,CODE,ARY) | ; Returns an array of identifiers.
|
|
| CHGIEN(FILE,CODE) | ;
|
|
| ICDIDF(ID,ARY) | ; Returns value indicating if identifier(s) exist in an array.
|
|
| ICDIDC(FILE,ID,ARY,RESULTS) | ; Returns value indicating if identifier(s) exist in a cluster.
|
|
| BLKCHK() | ;check if DX/PX code is in cluster
|
|
| ISOWNCC(IEN,CDT,FMT) | ; If DX is Own CC, return the CC value else zero
|
|
| ICDMRG(ARY1,ARY2) | ; Merge ARY2 with ARY1 and increment the counter
|
|
| CLUSTERS | ; Load Cluster Identifier Codes into ICD10SD, ICD10OR
|
|
| LDMDDRGD | ; Load DRG and Check MDC for Diagnosis Clusters
|
|
| LDMDDRGP | ; Load DRG and Check MDC for Procedure Clusters
|
|
| ICDRGCC(DRG,CDT) | ;Get CC/MCC flag from DRG (Temporary hard-code of ^ICD pending API)
|
|
| ISACCEX(IEN1,IEN2) | ; Is Code 2 an Excluded code of Code 1 so MCC/CC=0
|
|
| ICDXEXPT(DXIEN,LIST) | ;
; Checks if the DX code indicated by the DXIEN matches any code in LIST |
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | GET1^DIQ |
