Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXDXUTL

Package: PCE Patient Care Encounter

Routine: PXDXUTL


Information

PXDXUTL ;HP/TJH - DX CODE SET UTILITIES FOR PCE ;15 Aug 2012 9:22 AM

Source Information

Source file <PXDXUTL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Lexicon Utility 1 $$IMPDATE^LEXU  
VA FileMan 1 (IX,LIST)^DIC  

Caller Graph

Caller Graph Total: 42

Package Total Caller Graph
PCE Patient Care Encounter 42 AUPNSICD  PXAICPTV  PXAIIMMV  PXAIPL  PXAIPOV  PXAIPOVV  PXAISKV  PXBDCPT  
PXBDPOV  PXBGPOV  PXBGPOV2  PXBGPOV4  PXBHLP3  PXBPCPT  PXBPCPT2  PXBPL  
PXBPPOV  PXBPPOV1  PXBSTOR  PXBUTL2  PXCACPT  PXCADXP1  PXCAPL  PXCAPL1  
PXCAPL2  PXCAPOV  PXCASK  PXCAVIMM  PXCEAE1  PXCECPT  PXCECPT1  PXCEPOV  
PXCEPOV1  PXCEVFI4  PXCEVIMM  PXDSLK  PXKFPOV1  PXPXRMI2  PXRRFDSD  PXRRMDR  
PXRRPCE3  PXSCH4  

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.

External References

Name Field # of Occurrence
IX^DIC ACTIVE+12
LIST^DIC AVDX+8
$$ICDDATA^ICDXCODE SDESC+13
$$IMPDATE^LEXU ACTIVE+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All