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

Package: Mental Health

Routine: YSDX3U


Information

YSDX3U ;SLC/DJP/LJA - Utilities for Diagnoses Entered in MH Med Record ;13 May 2013 12:43 PM

Source Information

Source file <YSDX3U.m>

Entry Points

Name Comments DBIA/ICR reference
END
LIST ; Called by routines YSDX3, YSDX3A, YSDX3U
; List diagnoses on file for a specific patient
AXIS1 ; DSM display
AXIS3 ; ICD9/ICD10 Display
SELECTL ;
STATUS ;
ALST ;
ILST ;
IRNLST ;
PLIST ;Sets variables for print of list line
PRINT ;
INQ ; Called by routines YSDX3, YSDX3A
RNQ ;
EOR ;YSDX3U - Utilities for Diagnoses in MH Med Record ;6/30/89 09:49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"No diagnoses on file for ",YSNM
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,P1,?3,YSDXCSTX," ",YSDXNN,!?3,$E(YSDXN,1,75)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?8," --- "_YSDXST,?35,YSDXDT
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !?8," --- "_YSDXSTAT,?35,YSTATDT
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"List INACTIVE diagnoses"
  • Line Location: INQ+5
Function Call: WRITE
  • Prompt: !!,"YES will list all INACTIVE,",F3,"diagnoses for ",$E(YSNM,1,20),".",!
  • Line Location: INQ+5
Function Call: WRITE
  • Prompt: !,"No additional",F3,"dx found."
  • Line Location: INQ+9
Function Call: WRITE
  • Prompt: !!,"List REFORMULATED/NOT FOUND diagnoses"
  • Line Location: RNQ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RNQ+4
Function Call: WRITE
  • Prompt: !!,"YES will list, in addition to all INACTIVE"
  • Line Location: RNQ+6
Function Call: WRITE
  • Prompt: F3,"diagnoses,",!?3," all REFORMULATED/NOT FOUND"
  • Line Location: RNQ+7
Function Call: WRITE
  • Prompt: F3,"diagnoses on file",!?3,"for ",$E(YSNM,1,20),".",!
  • Line Location: RNQ+8
Info |  Source |  Entry Points |  Interaction Calls