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: YSDXUTL

Package: Mental Health

Routine: YSDXUTL


Information

YSDXUTL ;ALB/RBD - DX CODE SET UTILITIES FOR MENTAL HEALTH ;04/02/2012

Source Information

Source file <YSDXUTL.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health 3 ^YSD(627.8  YSDX3  YSDX3A  

Entry Points

Name Comments DBIA/ICR reference
DXVALID ;
ACTIVE(YSCS) ; Return start date for requested coding system
; Input: Coding system abbreviation from #80.4 or #757.3
; ICD, ICP, 10D, 10P
ACTDT(YSTRXD) ; 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
AVDX ; Build array of available Diagnosis Sets (Dx only, not Procedure Sets) in YSDXA("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)

External References

Name Field # of Occurrence
EN^DDIOL DXVALID+4, DXVALID+6, DXVALID+11, DXVALID+13, DXVALID+17
IX^DIC ACTIVE+12
LIST^DIC AVDX+8
$$ICDDATA^ICDXCODE DXVALID+15
$$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)
^YSD(627.7 - [#627.7] DXVALID+9
^YSD(627.8 - [#627.8] DXVALID+1

Label References

Name Line Occurrences
$$ACTDT DXVALID+5
AVDX ACTDT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A DXVALID+1~, DXVALID+4, DXVALID+6, DXVALID+11, DXVALID+13, DXVALID+17
A(1 DXVALID+3*, DXVALID+4*, DXVALID+6*, DXVALID+11*, DXVALID+13*, DXVALID+17*
A(2 DXVALID+3*
D ACTIVE+12*, ACTIVE+16!
>> DA DXVALID+1
>> DG("0;3" DXVALID+2
DIC ACTIVE+12*, ACTIVE+16!
DIC(0 ACTIVE+12*
DT ACTIVE+15
U ACTIVE+15, AVDX+10, AVDX+11, ACTDT+16, DXVALID+1, DXVALID+9, DXVALID+10, DXVALID+12, DXVALID+16
X ACTIVE+11~, ACTIVE+12*, DXVALID+4!, DXVALID+6!, DXVALID+7, DXVALID+11!, DXVALID+13!, DXVALID+17!
Y ACTIVE+11~, ACTIVE+13
YSCODSET DXVALID+1~, DXVALID+5*, DXVALID+6, DXVALID+10, DXVALID+12
YSCS ACTIVE~, ACTIVE+12, ACTIVE+14
YSD AVDX+6~, AVDX+11*, AVDX+12
YSDATA DXVALID+1~, DXVALID+15*, DXVALID+16
YSDT ACTDT+10~, ACTDT+13*, ACTDT+14*, ACTDT+15, ACTDT+16
YSDXA AVDX+7!, ACTDT+17!
YSDXA("DILIST" AVDX+9, AVDX+10, AVDX+11, AVDX+13!
YSDXA("DX SET " , AVDX+12*, ACTDT+12, ACTDT+14, ACTDT+15
YSDXDA DXVALID+1~, DXVALID+7*, DXVALID+9, DXVALID+15
YSDXDATE DXVALID+1~*, DXVALID+2*, DXVALID+4, DXVALID+5, DXVALID+15
YSFILE DXVALID+1~, DXVALID+7*, DXVALID+8, DXVALID+14
YSI AVDX+6~, AVDX+10*, AVDX+11
YSICDD ACTIVE+11~, ACTIVE+14*, ACTIVE+15
YSMSG AVDX+6~
YSOUT ACTIVE+11~, ACTIVE+15*, ACTIVE+17, ACTDT+10~, ACTDT+13*, ACTDT+16*, ACTDT+18
YSR AVDX+6~, AVDX+11*, AVDX+12
YSREC ACTDT+10~, ACTDT+15*, ACTDT+16
YSTRXD ACTDT~, ACTDT+16
YSTYPE DXVALID+1~, DXVALID+9*, DXVALID+10, DXVALID+12
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