Routine: YSDX3RUA

Information

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

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

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