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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YSDX3UB

Package: Mental Health

Routine: YSDX3UB


Information

YSDX3UB ;SLC/DJP/LJA-Continuation of Utilities for Diagnosis Entry in the MH Medical Record ;09/07/94 13:11

Source Information

Source file <YSDX3UB.m>

Entry Points

Name Comments DBIA/ICR reference
MODIF ; Called by routine YSDX3
; Print out modifier questions
MQUES ;
DQP(YSPEC) ; Display Qualifier Prompt (Specifier)
; Note: Cursor should be at beginning of line when DQP call made.
DQP1(YSPEC) ;Print prompt with proper wrapping...
; After call, cursor is left at end of last line...
YN ;
NUM ;
MSET ;
GAF ; Called by routine YSDX3B, YSDX3RUA
; Calculates the highest GAF for the past year. YSGAF(X) stores scale^DA.
GAF1 ;
EOR ;YSDX3UB-Continuation of Utilities for Diagnosis Entry in the MH Medical Record ;9/18/91 15:39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"MODIFIERS: "
  • Line Location: MODIF+4
Function Call: WRITE
  • Prompt: ":"
  • Line Location: DQP+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>9
  • Line Location: DQP+16
Function Call: WRITE
  • Prompt: ?10
  • Line Location: DQP+16
Function Call: WRITE
  • Prompt: YSY,!,?10
  • Line Location: DQP+19
Function Call: WRITE
  • Prompt: $E(YSY,1,YSI),!,?13,$E(YSY,YSI+1,999)
  • Line Location: DQP+22
Function Call: WRITE
  • Prompt: !,?10
  • Line Location: DQP+23
Function Call: WRITE
  • Prompt: YSPEC
  • Line Location: DQP1+6
Function Call: WRITE
  • Prompt: $E(YSPEC,1,+YSX)
  • Line Location: DQP1+9
Function Call: WRITE
  • Prompt: !!,"Diagnosis may be modified. Answer ""YES"" or ""NO""."
  • Line Location: YN+4
Function Call: WRITE
  • Prompt: "??"
  • Line Location: YN+6
Function Call: WRITE
  • Prompt: !!,"Diagnosis may be modified. Answer with corresponding numeric."
  • Line Location: NUM+3
Function Call: WRITE
  • Prompt: "??"
  • Line Location: NUM+6
Function Call: WRITE
  • Prompt: !!,"Answer with corresponding numeric."
  • Line Location: NUM+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSD(627.8 - [#627.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call