SROICD ;BIR/SJA - CODE SET VERSIONING UTILITY ;27 Sep 2013 4:00 PM
Source file <SROICD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ICDVST(SRCODE) | ; Output Short Description, called from SRCUSS
; -- Input SRCODE in external code (e.g. "100.0" or "H54.0" |
|
| ICDC(SRCODE) | ; output principal ICD
|
|
| ICD(SRIEN,SRC) | ;
|
|
| ICDSYS(SRDT,SRICDTYP) | ; determine ICD coding system
; If date of interest is null, today's date will be assumed ; If SRICDTYP is null, Diagnosis is assumed for code type |
|
| ICDSTR(SRIEN) | ; return either "(ICD9)" or "(ICD10)" string
|
|
| ICD910(SRIEN) | ; return either "9" or "10"
|
|
| IMPDATE(SRCODSYS) | ; a wrapper for IMPDATE API
|
|
| P80 | ;No longer Used. ICD-9/ICD-10 diagnosis selection - called by input transform
|
|
| ASKOK(SRTOTAL) | ;
; -- See default setting of SRASK at LEX+8 |
|
| LEX | ||
| LOOK | ; Lookup
|
|
| LOOK2 | ||
| NXT | ; Next
|
|
| SPACEBAR(SRROOT) | ;
|
|
| SAVSPACE(SRROOT,SRRETV) | ;
|
|
| OUT(SRICDC) | ; called by output transform fields of the ICD diagnosis code fields
|
|
| SCRN(SRCODE) | ;screen for active ICD codes
|
|
| ICDSRCH | ; To handle ICD ICD-9/10 Diagnosis Code Searches when ^DIC or ^DIE cannot be used
; SRPRMT - For specific label, this field needs to be set from calling routine ; SRDEF - For displaying the default field value at diagnosis prompt ; X & Y variables need to be newed prior to calling this tag |
|
| TEST1 | ;
; do not ask question |
|
| TEST2 | ;
; ask question |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | RECALL^DILFD |
