Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YSDX3

Package: Mental Health

Routine: YSDX3


Information

YSDX3 ;SLC/DJP,HIOFO/FT - Entry of Axis 1 & 2 Diagnoses for the Mental Health Medical Record ;9/20/11 16:58

Source Information

Source file <YSDX3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Mental Health 7 ^YSDX3A  (AXIS4,AXIS5)^YSDX3B  (END,INQ,LIST)^YSDX3U  (DSMLK,DSMP,DUPL,FILE)^YSDX3UA  MODIF^YSDX3UB  $$ACTDT^YSDXUTL  ^YSLRP  
VA FileMan 2 ^%DT  (FILE,YN)^DICN  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health 2 YSDIAGE  YSDX3UA  

Entry Points

Name Comments DBIA/ICR reference
DRIVER ;Controls flow of routine
ENTRY ;Initial entry of DSM diagnosis
DXDATE
AGAIN ; called from routine YSDX3UA
QUES1 ;Subroutine presents questions for Axes 1&2
DUPLCK ;Checks for and displays possible duplicate entries
CORR ;
FILE ;

External References

Name Field # of Occurrence
^%DT DXDATE, FILE+4
FILE^DICN FILE+5
YN^DICN CORR+4
$$UP^XLFSTR QUES1+5
^YSDX3A DRIVER+3
AXIS4^YSDX3B DRIVER+4
AXIS5^YSDX3B DRIVER+5
END^YSDX3U DRIVER+2, DRIVER+3, DRIVER+4, DRIVER+5, FILE+5
INQ^YSDX3U AGAIN+3
LIST^YSDX3U AGAIN+2
DSMLK^YSDX3UA QUES1+5
DSMP^YSDX3UA QUES1+4
DUPL^YSDX3UA DUPLCK+11
FILE^YSDX3UA FILE+7
MODIF^YSDX3UB FILE+6
$$ACTDT^YSDXUTL DUPLCK+3
^YSLRP ENTRY+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No active DSM diagnoses on file for ",YSNM,".",!
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !!,"You must hold the YSQ security key to enter a DSM diagnosis."
  • Line Location: QUES1+2
Function Call: READ
  • Variable: X1
  • Timeout: DTIME
  • Line Location: QUES1+3
Function Call: WRITE
  • Prompt: !!,"DSM DIAGNOSIS is associated with ICD-9 ICD VERSION but should be associated"
  • Line Location: DUPLCK+6
Function Call: WRITE
  • Prompt: !,"with the ICD-10 ICD VERSION for the entered DATE/TIME OF DIAGNOSIS."
  • Line Location: DUPLCK+7
Function Call: WRITE
  • Prompt: !!,"DSM DIAGNOSIS is associated with ICD-10 ICD VERSION but should be associated"
  • Line Location: DUPLCK+9
Function Call: WRITE
  • Prompt: !,"with the ICD-9 ICD VERSION for the entered DATE/TIME OF DIAGNOSIS."
  • Line Location: DUPLCK+10
Function Call: WRITE
  • Prompt: !!?10,YSWN_" "_YSW,!!,"Is this the DSM Dx you wish to select"
  • Line Location: CORR+3
Function Call: WRITE
  • Prompt: !!,"""YES"" indicates the diagnosis entered applies to ",YSNM,"."
  • Line Location: CORR+5
Function Call: WRITE
  • Prompt: !!,"This patient has diagnoses formulated under DSM-III criteria.",!,"Do you wish to review"
  • Line Location: FILE+11
Function Call: WRITE
  • Prompt: !!,"""YES"" provides a list of diagnoses which you may want to reformulate under",!," DSM criteria. ""NO"" will permit the option to continue.",!
  • Line Location: FILE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSD(627.8 - [#627.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] ENTRY+2
^XUSEC("YSQ" QUES1+2
^YSD(627.7 - [#627.7] DUPLCK+3, CORR+2
^YSD(627.8 - [#627.8] DUPLCK+11

Label References

Name Line Occurrences
ENTRY DRIVER+2
QUES1 AGAIN+2, QUES1+4, QUES1+5, DUPLCK+5, DUPLCK+8, CORR+6, FILE+6, FILE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGAIN+3!, CORR+3*, CORR+5, CORR+6, CORR+7
%DT DXDATE*, DXDATE+1!, FILE+4*
%DT("A" DXDATE*
%DT("B" DXDATE*
DA FILE+3!
DD FILE+3!
>> DIC FILE+5*
>> DIC(0 FILE+5*
DINUM FILE+3!
>> DLAYGO FILE+5*
DO FILE+3!
DTIME QUES1+3
>> DTOUT CORR+4
>> DUOUT CORR+4
DUZ ENTRY+2, QUES1+2
F1 FILE+8!
F2 FILE+8!
F3 FILE+8!
IOF ENTRY+2
IOM ENTRY+2
K1 FILE+8!
K2 FILE+8!
K3 FILE+8!
K4 FILE+8!
K5 FILE+8!
K6 FILE+8!
L2 FILE+8!
L3 FILE+8!
L4 FILE+8!
L5 FILE+8!
L7 FILE+8!
>> P1 AGAIN+2*, QUES1+4
P2 FILE+8!
P3 FILE+8!
P4 FILE+8!
P5 FILE+8!
S1 CORR+6!
S2 QUES1+4, DUPLCK+2*, DUPLCK+3, DUPLCK+11, CORR+6!, FILE+8!
S3 CORR+6!
U ENTRY+2, DUPLCK+3, DUPLCK+5, DUPLCK+8, CORR+2
W1 DUPLCK+11*, CORR+6!, FILE+8!
W2 DUPLCK+11*, CORR+6!, FILE+8!
W3 CORR+6!, FILE+8!
W4 CORR+6!, FILE+8!
W5 CORR+6!, FILE+8!
W6 FILE+8!
X QUES1+5*, FILE+4*, FILE+8!
X1 QUES1+3*, QUES1+4, QUES1+5, CORR+6!, FILE+8!
>> Y DXDATE, DXDATE+1, QUES1+5, DUPLCK+2, FILE+4, FILE+5
YSACSREC DUPLCK+3~*, DUPLCK+5, DUPLCK+8
>> YSAX AGAIN+2*
YSDA FILE+5*, FILE+8!
>> YSDFN ENTRY+2, DUPLCK+11
YSDTY AGAIN+2*, CORR+6!, FILE+8!
>> YSDUPDA DUPLCK+11*
>> YSDUZ ENTRY+2*
YSDXD CORR+6!
YSDXDA QUES1+4*, DUPLCK+2*, CORR+2, CORR+6!, FILE+5*, FILE+6, FILE+8!
YSDXDA1 CORR+6!, FILE+6*, FILE+8!
>> YSDXDAT DXDATE+1*, DUPLCK+3
YSDXDT CORR+6!, FILE+8!
YSDXN AGAIN+2, FILE+8!
YSDXND CORR+6!
YSDXNN FILE+8!
YSDXST CORR+6!, FILE+8!
YSICDVSN DUPLCK+3~*, DUPLCK+4*, DUPLCK+5, DUPLCK+8
YSLC CORR+6!
YSLCN CORR+6!
YSMOD FILE+8!
>> YSNM AGAIN+2, CORR+5
>> YSNO AGAIN+2
>> YSPLIC ENTRY+2
YSQT DRIVER+2, DRIVER+3, DRIVER+4, ENTRY+2!, DXDATE*, AGAIN+3, QUES1+3!*, FILE+6
>> YSTOUT ENTRY+2, QUES1+3*, CORR+4*
>> YSUOUT ENTRY+2, QUES1+3*, CORR+4*
YSW CORR+2*, CORR+3, CORR+6!, FILE+8!
YSWN CORR+2*, CORR+3, CORR+6!, FILE+8!
YSY QUES1+4, QUES1+5, CORR+6!, FILE+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All