Routine: YSDX3U

Information

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

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
DRG Grouper	2	$$SINFO^ICDEX $$ICDDATA^ICDXCODE
Mental Health	2	LIST^YSDX3U END^YSDX3U00
VA FileMan	2	DD^%DT YN^DICN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Mental Health	3	YSDX3 YSDX3A YSDX3U

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

Name	Field # of Occurrence
DD^%DT	PLIST+27, PLIST+36
YN^DICN	INQ+5, RNQ+4
$$SINFO^ICDEX	PLIST+22
$$ICDDATA^ICDXCODE	PLIST+20
LIST^YSDX3U	INQ+9
END^YSDX3U00	END

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^YSD(627.7 - [#627.7]	PLIST+10
^YSD(627.8 - [#627.8]	LIST+4, AXIS1+4, AXIS1+6, AXIS3+4, AXIS3+6, SELECTL+3, SELECTL+5, STATUS+2, STATUS+4, PLIST+20 , PLIST+27, PLIST+30, PLIST+31, PLIST+32, PLIST+35, PLIST+36

Label References

Name	Line Occurrences
ALST	SELECTL+5
ILST	SELECTL+5
INQ	INQ+5
IRNLST	SELECTL+5
PLIST	ALST+2, ILST+2, IRNLST+2
RNQ	INQ+8
SELECTL	AXIS1+6, AXIS3+6
STATUS	SELECTL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INQ+3!, INQ+5, INQ+7, RNQ+2, RNQ+3*, RNQ+5, RNQ+9, RNQ+10, RNQ+11
>> DTOUT	INQ+6, RNQ+4
>> DUOUT	INQ+6, RNQ+4
F1	STATUS+3*, INQ+5!, INQ+9
F2	STATUS+4*, INQ+8, INQ+9, RNQ+9!
>> F3	INQ+4*, INQ+5, INQ+9, RNQ+7, RNQ+8
>> I	PLIST+32, PRINT+4
>> L10	PLIST+35*
>> L2	AXIS1+3, AXIS1+4, AXIS1+6, AXIS3+3, AXIS3+4, AXIS3+6, SELECTL+3, SELECTL+5
>> L3	AXIS1+5, AXIS1+6, AXIS3+5, AXIS3+6, SELECTL+3, SELECTL+5, PLIST+6, PLIST+7, PLIST+16, PLIST+17 , PLIST+38
>> L4	SELECTL+2, SELECTL+3, SELECTL+5, ALST+2, IRNLST+2
>> L5	SELECTL+4, SELECTL+5, STATUS+2, STATUS+4, PLIST+20, PLIST+27, PLIST+30, PLIST+31, PLIST+32, PLIST+35 , PLIST+36, PLIST+41
>> L7	PLIST+31*, PLIST+32, PRINT+4
>> L9	STATUS+2*, STATUS+3, STATUS+4, ILST+2, PLIST+26, PRINT+2
>> N1	LIST+3, PLIST+38, PLIST+39
>> N2(	PLIST+38*, PLIST+39
>> N3	PLIST+39*
>> N4	PLIST+38, PLIST+39
>> P1	PLIST+41*, PRINT+3
>> P2(	PLIST+41*
>> P3	PLIST+6, PLIST+8, PLIST+16, PLIST+18
>> P4	PLIST+7, PLIST+8, PLIST+10, PLIST+17, PLIST+18, PLIST+20, PLIST+39
>> P5	PLIST+8, PLIST+9, PLIST+18, PLIST+19
>> P50	PLIST+9, PLIST+11, PLIST+12, PLIST+19
U	STATUS+2, STATUS+4, PLIST+11, PLIST+12, PLIST+20, PLIST+21, PLIST+22, PLIST+24, PLIST+27, PLIST+31 , PLIST+32, PLIST+35, PLIST+36
>> Y	PLIST+27, PLIST+36
>> YSAX	AXIS1+2, AXIS3+2, PLIST+5, PLIST+15, INQ+4
>> YSDFN	LIST+4, AXIS1+4, AXIS1+6, AXIS3+4, AXIS3+6, SELECTL+3, SELECTL+5
>> YSDTY	SELECTL+5, PRINT+2, INQ+5, RNQ+10
>> YSDXCSTX	PLIST+4, PLIST+12, PLIST+22, PLIST+23, PRINT+3
YSDXDAT	END!
YSDXDATA	PLIST+20~*, PLIST+21, PLIST+22, PLIST+24
YSDXDT	LIST+3!, PLIST+27*, PRINT+5
YSDXN	LIST+3!, PLIST+10, PLIST+24, PRINT+3, INQ+9
YSDXNN	LIST+3!, PLIST+11, PLIST+21, PRINT+3
YSDXST	LIST+3!, PLIST+26*, PRINT+5
>> YSDXSTAT	PLIST+36*, PRINT+5
YSMOD	LIST+3!, PRINT+4
YSMOD(	PLIST+32*, PRINT+4
>> YSNM	LIST+5, INQ+5, RNQ+8
YSNO	LIST+3!, LIST+5*, INQ+2
>> YSQT	RNQ+11*
YSSTOP	PLIST+38!, PLIST+39*, PLIST+40
>> YSTATDT	PLIST+36*, PRINT+5
>> YSTOUT	INQ+6, INQ+8, RNQ+4
>> YSUOUT	INQ+6, INQ+8, RNQ+4

Customize PDF page

Package: Mental Health