SCDXUTL1 ;ALB/JRP - GENERAL UTILITY ROUTINES;10-MAY-1996
Source file <SCDXUTL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETDTRNG(EARLIEST,LATEST,HELPBGN,HELPEND) | ;Prompt user for a date range
|
|
| REPEAT(CHAR,TIMES) | ;Repeat a string
|
|
| INSERT(INSTR,OUTSTR,COLUMN,LENGTH) | ;Insert a string into another string
|
|
| DIAG(SDPOE,SCDXARRY) | ;Get diagnoses from V POV file
; Note: Returns Dx from children (if any) |
|
| 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) |
|
| KIDS(SDOE,SCKIDS) | ;return children of parent
; Input - SDOE = ptr to 409.68 ; Output- @SCKIDS@(kid ptr to 409.68) array |
