Routine: YSGAF1

Information

YSGAF1 ;ASF/ALB- GLOBAL ASSESSMENT OF FUNCTIONNING CONT;9/25/97 11:19 ;11/10/97 16:08

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	4	^%DT NOW^%DTC ^DIC ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Mental Health	1	^YSLRP
Registration	1	DEM^VADPT

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

Package	Total	Caller Graph
Mental Health	2	YSGAF YSGAF HISTORY

Entry Points

Name	Comments	DBIA/ICR reference
ONELOC	;single hospital location
DATE	;
ONLYREQ	;only > ysdays
LP1	;loop to create tmp pt list
LP2	;apps at one time
HX	;GAF history
QHX	;Queued Task Entry Point
HXLP	;
TOP	;
BOT	;page end

External References

Name	Field # of Occurrence
^%DT	DATE+2
NOW^%DTC	TOP+5
^%ZIS	HX+5
HOME^%ZIS	HX+13
^%ZISC	QHX+14
^%ZTLOAD	HX+12
^DIC	ONELOC+3
^DIR	ONELOC+8, ONLYREQ+2, BOT+2
DEM^VADPT	QHX+2
^YSLRP	HX+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,YSCNAME," does not have a mental health stop code" Line Location: ONELOC+7
Function Call: WRITE	Prompt: !!,"No previous GAF's on file for this patient" Line Location: QHX+6
Function Call: WRITE	Prompt: !,$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3),$S($L($P(YSG,U,4)):"Err",1:" ") Line Location: QHX+10
Function Call: WRITE	Prompt: $E($P($G(^VA(200,$P(YSG,U,3),0)),U),1,15) Line Location: QHX+11
Function Call: WRITE	Prompt: ?26,$J(+YSG,3) Line Location: QHX+12
Function Call: WRITE	Prompt: " ",$E(YSGR,1,+YSG\2) Line Location: QHX+13
Function Call: WRITE	Prompt: @IOF,"Global Assessment of Functioning Historical Listing" Line Location: TOP+3
Function Call: WRITE	Prompt: !,VADM(1),?$X+5,"xxx-xx-",VA("BID"),?45,"printed: " Line Location: TOP+4
Function Call: WRITE	Prompt: Y Line Location: TOP+5
Function Call: WRITE	Prompt: !,YSLINE Line Location: TOP+6
Function Call: WRITE	Prompt: !,"Date",?10,"Clinician",?26,"GAF",?30,YSGT Line Location: TOP+7
Function Call: WRITE	Prompt: !! Line Location: BOT+2
Routine Call	DIC Line Location: ONELOC+3
Routine Call	DIR Line Location: ONELOC+8 ONLYREQ+2 BOT+2
Routine Call	%ZIS Line Location: HX+5
Routine Call	%ZIS Line Location: HX+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TOP+5
^DIC(40.7 - [#40.7]	ONELOC+5
^DPT - [#2]	LP2+3, LP2+4
^SC - [#44]	LP1+3, LP2+1, LP2+2
^TMP("YSGAF"	LP1+1!, LP2+5, QHX+3!, QHX+6, QHX+8, QHX+9, HXLP+2
^VA(200 - [#200]	QHX+11
^YSD(627.8 - [#627.8]	HXLP+1, HXLP+2

Label References

Name	Line Occurrences
BOT	QHX+8
HXLP	QHX+4
LP2	LP1+3
ONELOC	ONELOC+9
TOP	QHX+5, BOT+1, BOT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TOP+5
%DT	DATE+1~, DATE+2*, HX+1~
%DT("A"	DATE+2*
%DT("B"	DATE+2*
>> %ZIS	HX+4*
DA	HX+1~
DFN	LP2+3*, LP2+4, LP2+5, HX+2!, HXLP+1
DIC	ONELOC+1~, ONELOC+3*, HX+2!
DIC(0	ONELOC+3*
DIE	HX+1~
DIR	ONLYREQ+2!, HX+1~, BOT+1!
DIR("A"	ONELOC+8, ONLYREQ+2
DIR("B"	ONELOC+8, ONLYREQ+2
DIR(0	ONELOC+8, ONLYREQ+2, BOT+2*
DIRUT	ONLYREQ+3, HX+1~
DLAYGO	HX+1~
DR	HX+1~
IO	HX+15
IO("Q"	HX+7
IOF	TOP+3
IOSL	QHX+8
IOST	BOT+1
K	LP2+1*, LP2+2, HX+1~
>> POP	HX+6
U	ONELOC+4, ONELOC+5, LP2+3, LP2+4, QHX+10, QHX+11, HXLP+2
VA	HX+1~
VA("BID"	TOP+4
VADM	HX+1~
VADM(1	TOP+4
X	HX+1~
X1	HX+1~
X2	HX+1~
Y	ONELOC+1~, ONELOC+3, ONELOC+4, ONELOC+9, DATE+3, ONLYREQ+3, HX+1~, QHX+10, TOP+5, BOT+3
Y(0	ONELOC+5
YSCLIN	ONELOC+2, ONELOC+4, LP1+3, LP2+1, LP2+2, HX+1~
YSCNAME	ONELOC+2, ONELOC+4, ONELOC+7, HX+1~
YSDA	HX+1~
YSDATE	DATE+3*, LP1+2, LP1+3, HX+1~
YSDAYS	ONLYREQ+2, HX+1~
YSDD	LP1+2, LP1+3, LP2+1, LP2+2, LP2+4, HX+1~, QHX+8, QHX+9, HXLP+1, HXLP+2
YSDXEG	HX+1~
YSDXEL	HX+1~
YSDXEN	HX+1~
YSG	LP2+2, LP2+3, HX+1~, QHX+9, QHX+10, QHX+11, QHX+12, QHX+13
YSGAFLC	HX+1~
YSGAFLD	HX+1~
YSGAFLN	HX+1~
YSGC	HX+1~
YSGD	HX+1~
YSGN	HX+1~
YSGR	HX+1~, QHX+13, TOP+2*
YSGT	HX+1~, TOP+1*, TOP+7
YSLINE	HX+1~, TOP+6*
YSN	HX+1~, QHX+8, QHX+9, HXLP+1, HXLP+2
YSONLY	ONLYREQ+1, ONLYREQ+3, HX+1~
YSOUT	HX+1~, QHX+7, QHX+8, BOT+1, BOT+3*
YSPAGE	HX+1~
YSPTN	LP2+3*, LP2+5, HX+1~
YSRULE	HX+1~
YSSTOP	ONELOC+5*, ONELOC+6, HX+1~
ZTDESC	HX+8~, HX+10*
>> ZTQUEUED	QHX+1
>> ZTREQ	QHX+1*
ZTRTN	HX+8~, HX+9*
ZTSAVE	HX+8~
ZTSAVE("DFN"	HX+11*

Customize PDF page

Package: Mental Health