©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCDXUTL1 ;ALB/JRP - GENERAL UTILITY ROUTINES;10-MAY-1996
Source file <SCDXUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REPEAT(CHAR,TIMES) | ;Repeat a string
|
|
| KIDS(SDOE,SCKIDS) | ;return children of parent
; Input - SDOE = ptr to 409.68 ; Output- @SCKIDS@(kid ptr to 409.68) array |
|
| INSERT(INSTR,OUTSTR,COLUMN,LENGTH) | ;Insert a string into another string
|
|
| GETDTRNG(EARLIEST,LATEST,HELPBGN,HELPEND) | ;Prompt user for a date range
|
|
| PRIMPDX(SDPOE) | ; return pointer to ICD9 for primary dx of parent encounter
; Note: Includes ; SDPOE - encounter (parent) ; return: ; if one: ptr to ICD DIAGNOSIS file (ICD9)^pointer to V POV file ; if none: no prim dx ; if two+: -1 (error) |
|
| DIAG(SDPOE,SCDXARRY) | ;Get diagnoses from V POV file
; Note: Returns Dx from children (if any) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCE("APAR" | KIDS+4 |
| Name | Line Occurrences |
|---|---|
| DIAG | PRIMPDX+10 |
| KIDS | DIAG+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEGIN | GETDTRNG+20~, GETDTRNG+26*, GETDTRNG+31, GETDTRNG+39 |
| CHAR | REPEAT~, REPEAT+7, REPEAT+10 |
| COLUMN | INSERT~, INSERT+16*, INSERT+20, INSERT+21 |
| DIR | GETDTRNG+20~, GETDTRNG+30! |
| DIR("?" | GETDTRNG+24*, GETDTRNG+33* |
| DIR("A" | GETDTRNG+23*, GETDTRNG+32* |
| DIR(0 | GETDTRNG+22*, GETDTRNG+31* |
| DIROUT | GETDTRNG+20~ |
| DIRUT | GETDTRNG+20~, GETDTRNG+28, GETDTRNG+37 |
| DTOUT | GETDTRNG+20~ |
| DUOUT | GETDTRNG+20~ |
| EARLIEST | GETDTRNG~, GETDTRNG+15*, GETDTRNG+22 |
| END | GETDTRNG+20~, GETDTRNG+35*, GETDTRNG+39, INSERT+19~, INSERT+21*, INSERT+23 |
| FRONT | INSERT+19~, INSERT+20*, INSERT+23 |
| HELPBGN | GETDTRNG~, GETDTRNG+17*, GETDTRNG+24 |
| HELPEND | GETDTRNG~, GETDTRNG+18*, GETDTRNG+33 |
| INSTR | INSERT~, INSERT+13*, INSERT+14, INSERT+17, INSERT+23 |
| LATEST | GETDTRNG~, GETDTRNG+16*, GETDTRNG+22, GETDTRNG+31 |
| LENGTH | INSERT~, INSERT+17*, INSERT+21, INSERT+23 |
| OUTSTR | INSERT~, INSERT+14, INSERT+15*, INSERT+16, INSERT+20, INSERT+21 |
| SCDX | PRIMPDX+8~ |
| SCDX( | PRIMPDX+12 |
| SCDX1 | PRIMPDX+8~, PRIMPDX+9*, PRIMPDX+12*, PRIMPDX+13 |
| SCDXARRY | DIAG~, DIAG+10, DIAG+15 |
| SCKIDS | KIDS~, KIDS+4 |
| SCOPDX | DIAG+6~ |
| SCX | PRIMPDX+8~, PRIMPDX+11*, PRIMPDX+12*, KIDS+3~, KIDS+4* |
| SDCHILD | DIAG+6~, PRIMPDX+8~ |
| SDCHILD( | DIAG+14 |
| SDOE | DIAG+6~, DIAG+13*, DIAG+14*, DIAG+15, PRIMPDX+8~, KIDS~, KIDS+4 |
| SDPOE | DIAG~, DIAG+7, DIAG+10, PRIMPDX~, PRIMPDX+10 |
| TIMES | REPEAT~, REPEAT+8, REPEAT+10 |
| U | PRIMPDX+12 |
| X | GETDTRNG+20~ |
| Y | GETDTRNG+20~, GETDTRNG+26, GETDTRNG+35 |