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: YSDX3B

Package: Mental Health

Routine: YSDX3B


Information

YSDX3B ;SLC/DJP-Entry of Axis 4 & Axis 5 Diagnoses for the Mental Health Medical Record ;8/29/89 08:51

Source Information

Source file <YSDX3B.m>

Entry Points

Name Comments DBIA/ICR reference
AXIS4 ; Called by routine YSCEN1, YSDX3
; Entry of Axis 4 information
AX43 ;
AX42 ;
AX4 ;
AX41 ;
AXIS5 ; Called by routines YSCEN1, YSDX3
AX51 ;
GAFQ ;
AX5
GAF2 ;
GAF3 ;
GAFUP ;
PATSTAT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"AXIS 4",!,"------"
  • Line Location: AXIS4+3
Function Call: READ
  • Variable: X3
  • Timeout: DTIME
  • Line Location: AX43+2
Function Call: READ
  • Variable: X4
  • Timeout: DTIME
  • Line Location: AX42+2
Function Call: WRITE
  • Prompt: " "_X6
  • Line Location: AX42+5
Function Call: WRITE
  • Prompt: !!,"Enter code indicating overall severity of psychosocial stressor.",!
  • Line Location: AX4+2
Function Call: WRITE
  • Prompt: !?5,$P(A2,":")_" "_$P(A2,":",2)
  • Line Location: AX4+2
Function Call: WRITE
  • Prompt: !!,"Enter ""??"" for additional information on Severity Codes."
  • Line Location: AX4+3
Function Call: WRITE
  • Prompt: !!,"Enter short narrative (1-60 characters) describing source of stress."
  • Line Location: AX41+2
Function Call: WRITE
  • Prompt: !!,"AXIS 5",!,"------",!
  • Line Location: AXIS5+3
Function Call: READ
  • Variable: X5
  • Timeout: DTIME
  • Line Location: AX51+2
Function Call: READ
  • Variable: G7
  • Timeout: DTIME
  • Line Location: GAFQ+2
Function Call: WRITE
  • Prompt: !!,"Enter rating of current functioning as indicated on GAF Scale (100-1).",!,"Enter ""??"" for additional information on the GAF Scale.",!
  • Line Location: AX5+0
Function Call: WRITE
  • Prompt: !!,"Default shown is the highest recorded GAF Scale for this patient during ",!,"the past year. To change, enter a HIGHER number.",!,"Enter ""??"" for additional information on the GAF Scale.",!
  • Line Location: GAF2+2
Function Call: WRITE
  • Prompt: " ??",!,"Type a number (1-100) relevant to the GAF Scale."
  • Line Location: GAF3+1

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