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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YSDX3RUA

Package: Mental Health

Routine: YSDX3RUA


Information

YSDX3RUA ;SLC/DJP - Print Utilities for Diagnoses Reporting in MH - Cont ;13 May 2013 9:21 AM

Source Information

Source file <YSDX3RUA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
DRG Grouper 2 $$SINFO^ICDEX  $$ICDDATA^ICDXCODE  
Mental Health 2 (CK,FINISH)^YSDX3RU  GAF^YSDX3UB  
VA FileMan 1 DD^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YSDX3R  

Entry Points

Name Comments DBIA/ICR reference
AX4 ; Called by routine YSDX3R
; Print latest Axis 4 information
AX4P ;
AX5 ; Called by routine YSSP6
DXLS ; Called by routines YSDX3R, YSPP6
; This subroutine looks up and displays the diagnosis for Length of Stay (DXLS)
DXLS1 ;
EOR ;YSDX3RUA - Print Utilities for Diagnoses reporting - continued ;9/18/92 15:37

External References

Name Field # of Occurrence
DD^%DT AX4P+2, AX5+4, DXLS1+4
$$SINFO^ICDEX DXLS1+22
$$ICDDATA^ICDXCODE DXLS1+19
CK^YSDX3RU AX4P+3, AX5+5
FINISH^YSDX3RU AX5+7
GAF^YSDX3UB AX5+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AXIS IV: Psychosocial stressors: ",YSPS,!?10,"Severity: ",A3_"--"_YSAX4,!?10,"Dated: ",A9
  • Line Location: AX4P+4
Function Call: WRITE
  • Prompt: !!,"AXIS V: Current GAF: ",A7_" (as of "_A8_")",!?10,"Highest GAF past year: ",$S($D(G5):G5,1:"No other GAF for past year")
  • Line Location: AX5+6
Function Call: WRITE
  • Prompt: " (dtd "_$S($D(G11):G11,1:"Date Missing")_")",!
  • Line Location: AX5+6
Function Call: WRITE
  • Prompt: !!,"Principal Diagnosis (DXLS): ",!!?3
  • Line Location: DXLS1+26
Function Call: WRITE
  • Prompt: YSDXCSTX_" "_YSDXLS_" "_$E(YSDXLSN,1,59),!?8," dated ",YSDXLSD
  • Line Location: DXLS1+27
Function Call: WRITE
  • Prompt: !?3,"--- ",$P(^YSD(627.8,+J1,5,I,0),U,3)
  • Line Location: DXLS1+32

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(627.8 AX4P+3
^YSD(627.7 - [#627.7] DXLS1+13
^YSD(627.8 - [#627.8] AX4+3, AX4P+2, AX5+3, AX5+4, DXLS+3, DXLS+4, DXLS1+2, DXLS1+3, DXLS1+4, DXLS1+30
, DXLS1+31, DXLS1+32

Label References

Name Line Occurrences
AX4P AX4+3

Naked Globals

Name Field # of Occurrence
^(0 AX4P+2
^(60 AX4P+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A1 AX4+3*
>> A2 AX4+3*, AX4P+2
>> A3 AX4P+2*, AX4P+3, AX4P+4
>> A5 AX5+3*
>> A6 AX5+3*, AX5+4
>> A7 AX5+3*, AX5+6
>> A8 AX5+4*, AX5+6
>> A9 AX4P+2*, AX4P+4
>> G11 AX5+6
>> G5 AX5+6
>> I AX4+3*, DXLS1+32*
IOSL AX4P+3, AX5+5
>> J DXLS+4*, DXLS1+2
J1 DXLS1+2*, DXLS1+3, DXLS1+4, DXLS1+30, DXLS1+31, DXLS1+32, DXLS1+34!
J2 DXLS1+3*, DXLS1+5, DXLS1+6, DXLS1+34!
J3 DXLS1+5*, DXLS1+7, DXLS1+12, DXLS1+18, DXLS1+34!
J4 DXLS1+6*, DXLS1+7, DXLS1+13, DXLS1+19, DXLS1+34!
J5 DXLS1+7*, DXLS1+8, DXLS1+34!
J50 DXLS1+8*, DXLS1+14, DXLS1+15, DXLS1+34!
J6 DXLS1+31*, DXLS1+32, DXLS1+34!
>> SUBSET AX4P+3*
>> TOTSET AX4P+3*
U AX4P+2, AX4P+3, AX5+3, AX5+4, DXLS1+3, DXLS1+4, DXLS1+14, DXLS1+15, DXLS1+20, DXLS1+21
, DXLS1+22, DXLS1+31, DXLS1+32
>> Y AX4P+2*, AX5+4*, DXLS1+4*
>> YSAX4 AX4P+3*, AX4P+4
YSCON DXLS1+34!
>> YSDFN AX4+3, AX5+3, DXLS+3, DXLS+4, DXLS1+2
YSDXCSTX DXLS1+10*, DXLS1+15*, DXLS1+22*, DXLS1+23*, DXLS1+27, DXLS1+34!
YSDXDATA DXLS1+19~*, DXLS1+20, DXLS1+21, DXLS1+22
YSDXLS DXLS1+14*, DXLS1+21*, DXLS1+25, DXLS1+27, DXLS1+34!
YSDXLSD DXLS1+4*, DXLS1+27, DXLS1+34!
>> YSDXLSD2 DXLS1+4*, DXLS1+19
YSDXLSN DXLS1+13*, DXLS1+20*, DXLS1+27, DXLS1+34!
>> YSLFT AX4P+3, AX5+5
>> YSPS AX4P+2*, AX4P+4
>> YSSL AX4P+3, AX5+5
>> YSTOUT AX4P+3, AX5+5
>> YSUOUT AX4P+3, AX5+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All