Routine: PXDXUTL

Package	Total	Caller Graph
PCE Patient Care Encounter	36	AUPNSICD PXAIPL PXBDCPT PXBDPOV PXBGPOV PXBGPOV2 PXBGPOV4 PXBHLP3 PXBPCPT PXBPCPT2 PXBPL PXBPPOV PXBPPOV1 PXBSTOR PXBUTL2 PXCACPT PXCADXP1 PXCAPL PXCAPL1 PXCAPL2 PXCAPOV PXCASC PXCASK PXCAVIMM PXCECPT PXCECPT1 PXCEPOV1 PXCEVFI4 PXCEVIMM PXDSLK PXKFPOV1 PXRRFDSD PXRRMDR PXRRPCE3 PXSCH4 ^AUPNVPOV

Entry Points

Name	Comments	DBIA/ICR reference
ACTIVE(PXCS)	; Return start date for requested coding system ; Input: Coding system abbreviation from #80.4 or #757.03 ; ICD, ICP, 10D, 10P
AVDX	; Build array of available Diagnosis Sets (Dx only, not Procedure Sets) in PXDXA("DX SET",fm-date) ; [1] = IEN in #80.4 ; [2] = Code Set name ; [3] = Code Set abbreviation ; [4] = File number holding code set values (always 80 in this function) ; [5] = Date that code set becomes active (FM format)
AVDXT	; AVDX TEST SET
ACTDT(PXTRXD)	; Active Dx Code Set for date supplied ; Input - a FileMan date ; Returns 4 piece value: ; [1] = Code Set abbreviation ; [2] = IEN into file #80.4 ; [3] = Long name ; [4] = Activation Date (FM) ; or ; 0 if no active Dx code set is found for the date supplied
SDESC(PXPOVIEN)	; Return short description for Computed field .019 - ICD NARRATIVE of file [#9000010.07] ; This function is not intended for general use. ; Input: a pointer to V POV [#9000010.07]
CSDATE(VSITIEN)	; Determine date to be used with diagnosis code look-ups when making ^ICDXCODE calls ; Input - Visit IEN for file #9000010 ; Output - FileMan date (Time element is removed if it exists) ; Returns Visit Date unless this is an "E" record, in which case it returns Data Entry Date. ; If, for some unknown reason, the Visit record doesn't exist the output will default to Today's date.

FileNo	Call Tags
^ICDS - [#80.4]	LIST^DIC

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	SDESC+9, SDESC+10, SDESC+11
^AUPNVSIT - [#9000010]	CSDATE+7

Name	Line Occurrences
$$CSDATE	SDESC+12
AVDX	ACTDT+11

Name	Field # of Occurrence
D	ACTIVE+12*, ACTIVE+16!
DIC	ACTIVE+12*, ACTIVE+16!
DIC(0	ACTIVE+12*
DT	ACTIVE+15, CSDATE+8
PXCS	ACTIVE~, ACTIVE+12, ACTIVE+14
PXD	AVDX+6~, AVDX+11*, AVDX+12
PXDT	ACTDT+10~, ACTDT+13, ACTDT+14, ACTDT+15, ACTDT+16
PXDX	SDESC+7~, SDESC+10*, SDESC+13
PXDXA	AVDX+7!, ACTDT+17!
PXDXA("DILIST"	AVDX+9, AVDX+10, AVDX+11, AVDX+13!
PXDXA("DX SET	" , AVDX+12*, ACTDT+12, ACTDT+14, ACTDT+15
PXI	AVDX+6~, AVDX+10*, AVDX+11
PXICDD	ACTIVE+11~, ACTIVE+14*, ACTIVE+15
PXMSG	AVDX+6~
PXOUT	ACTIVE+11~, ACTIVE+15, ACTIVE+17, ACTDT+10~, ACTDT+13, ACTDT+16*, ACTDT+18
PXPOVIEN	SDESC~, SDESC+6, SDESC+9, SDESC+10, SDESC+11
PXR	AVDX+6~, AVDX+11*, AVDX+12
PXREC	ACTDT+10~, ACTDT+15*, ACTDT+16
PXTRXD	ACTDT~, ACTDT+16
PXVISD	SDESC+7~, SDESC+12*, SDESC+13
PXVISIEN	SDESC+7~, SDESC+11*, SDESC+12
PXVREC	CSDATE+6~, CSDATE+7*, CSDATE+8
U	ACTIVE+15, AVDX+10, AVDX+11, ACTDT+16, SDESC+9, SDESC+10, SDESC+11, SDESC+14, CSDATE+8
VSITIEN	CSDATE~, CSDATE+7
X	ACTIVE+11~, ACTIVE+12, SDESC+7~, SDESC+8, SDESC+9, SDESC+13*, SDESC+14
Y	ACTIVE+11~, ACTIVE+13