Routine: SCDXUTL1

Information

SCDXUTL1 ;ALB/JRP - GENERAL UTILITY ROUTINES;10-MAY-1996

Source file <SCDXUTL1.m>

Package	Total	Call Graph
Scheduling	1	GETDX^SDOE
VA Fileman	1	^DIR

Package	Total	Caller Graph
Scheduling	13	SCDXPRG0 SCDXPRN1 SCDXPRN2 SCDXRT01 SCDXRT02 SD53105A SD53121 SD53156P SD53229P SD53248P SD5360PT SD5384NC SD53P215
Registration	1	DGQEHL70

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	Field # of Occurrence
^DIR	GETDTRNG+25, GETDTRNG+34
GETDX^SDOE	DIAG+10, DIAG+15

Name	Line Occurrences (* Changed, ! Killed)
^SCE("APAR"	KIDS+4

Name	Line Occurrences
DIAG	PRIMPDX+10
KIDS	DIAG+7

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