Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls