Routine: YSDX3UA

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

YSDX3UA ;SLC/DJP/LJA,HIOFO/FT - Utilities for Dx Entry in MH Med Rec (cont.) ;10 May 2013 2:25 PM

Source file <YSDX3UA.m>

Name	Comments	DBIA/ICR reference
DSMLK	; Called by routine YSDX3 ; Keywork lookup for DSM
LK1	;
DSMP	; Called by routine YSDX3
ICDLK	; Called from YSDX3A ; Lookup on the ICD9 File
ICD1	;
ICDP	; Called by routine YSDX3A
DXLS
DXLSQ
DUPL	; Called by routine YSDX3, YSDX3A ; Print out information concerning duplicate entry
DUPLP	;
FILE	; Called from routines YSDX3, YSDX3A
FILEQ	;
CHECK	;
DELETE	; Called by routine YSDX3UB
EOR	;YSDX3UA - Utilities for Diagnosis Entry in the MH Medical Record (cont.) ;4/16/92 11:17

Name	Line Occurrences
Function Call: WRITE	Prompt: " ?? " Line Location: DSMP+2
Function Call: WRITE	Prompt: @IOF Line Location: DSMP+2
Function Call: WRITE	Prompt: !!,"This diagnosis has been entered as follows: " Line Location: DUPLP+3
Function Call: WRITE	Prompt: !!?5,"DIAGNOSIS: ",?15,YSDXND_" "_YSDXD,!?5,"STATUS:" Line Location: DUPLP+4
Function Call: WRITE	Prompt: ?13,W6,!?5,"BY:",?13,$E(W3,1,25)_" on "_W4,! Line Location: DUPLP+5
Function Call: WRITE	Prompt: ! Line Location: FILE+3
Function Call: WRITE	Prompt: !!?18,"Incomplete information." Line Location: FILE+12
Function Call: WRITE	Prompt: !!," Do you want to record this diagnosis" Line Location: FILEQ+3
Function Call: WRITE	Prompt: !!,"NO will delete this entry. YES will file it under the patient's name." Line Location: FILEQ+5
Function Call: WRITE	Prompt: !!?18,"Incomplete information." Line Location: CHECK+3
Function Call: WRITE	Prompt: !!?15,"< This diagnosis deleted. >" Line Location: DELETE+4