Routine: YSDGDEM0

Information

YSDGDEM0 ;ALB/ASF,ALB/XAK-Patient Demographic Lookup (cont.) ;4/4/90 08:34 ;08/12/93 15:33

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
Mental Health	1	WAIT^YSUTL
Registration	1	(IN5,INP)^VADPT
VA FileMan	1	^%DTC

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

Package	Total	Caller Graph
Mental Health	1	YSDGDEM

Entry Points

Name	Comments	DBIA/ICR reference
A	;
LOSS	;
YSADM	;
L
YSTRN	;
INP	;
DIS	;
SA	;
CL	;
YSFA	;
RMK	;
YSCOV	;
YSCOV1	;

External References

Name	Field # of Occurrence
^%DTC	DIS+1
IN5^VADPT	A+1
INP^VADPT	A+1
$$FMTE^XLFDT	YSCOV1+1
WAIT^YSUTL	RMK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Inpatient Status: " Line Location: A+1
Function Call: WRITE	Prompt: "Not admitted" Line Location: A+1
Function Call: WRITE	Prompt: "Active",!,"Admitted: ",$P(VAIN(7),U,2),?30,"Ward: ",$P(VAIN(4),U,2)," -" Line Location: INP+1
Function Call: WRITE	Prompt: "On ward Bed: ",$P(VAIP(6),U,2) Line Location: INP+2
Function Call: WRITE	Prompt: "Absent Due: " Line Location: INP+3
Function Call: WRITE	Prompt: $P(VAIP(11),U,2) Condition for execution: VAIP(11)]"" Line Location: INP+3
Function Call: WRITE	Prompt: !?26,"Seriously Ill" Line Location: INP+4
Function Call: WRITE	Prompt: "Inactive",?28,"Discharged: ",$P(VAIP(17,1),U,2)," Type: ",$P(VAIP(17,4),U,2),?72,"LOS: ",X Line Location: DIS+2
Function Call: WRITE	Prompt: !?18,"Scheduled Admission on ward ",$P(^DIC(42,X,0),U)," on ",$E(L,4,5),"/",$E(L,6,7),"/",$E(L,2,3) Line Location: SA+1
Function Call: WRITE	Prompt: !!,"Currently enrolled in " Line Location: CL+1
Function Call: WRITE	Prompt: !?22 Condition for execution: $X>60 Line Location: CL+1
Function Call: WRITE	Prompt: $S($D(^SC(+^(0),0)):$P(^(0),U)_", ",1:"") Line Location: CL+1
Function Call: WRITE	Prompt: "NONE" Line Location: YSFA+1
Function Call: WRITE	Prompt: ?22,"Date",?34,"Time",?42,"Clinic",!?22 Line Location: YSFA+2
Function Call: WRITE	Prompt: "=" Line Location: YSFA+2
Function Call: WRITE	Prompt: !,"See Scheduling options for additional appointments." Line Location: YSFA+4
Function Call: WRITE	Prompt: !!,"Remarks: ",$P(PTI(0),U,10) Line Location: RMK+1
Function Call: WRITE	Prompt: " PATIENT HAS DIED." Line Location: RMK+1
Function Call: WRITE	Prompt: !?22,$P(YSFDT," "),?34,$P(YSFDT," ",2),?42,$P($S($D(^SC(C,0)):^(0),1:""),U)," ",YSCOV Line Location: YSCOV1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	YSADM+2, YSTRN+1
^DIC(42 - [#42]	SA+1
^DPT - [#2]	CL+1, YSFA+1, YSFA+3, YSFA+4, RMK+1
^DPT("AS"	INP+4
^SC - [#44]	CL+1, YSCOV1+2

Label References

Name	Line Occurrences
DIS	INP+1
INP	YSADM+1
RMK	YSFA+1, YSFA+3
SA	A+1, INP+5
YSADM	YSADM+2, YSTRN+1
YSCOV	YSFA+3
YSCOV1	YSFA+3
YSFA	CL+1
YSTRN	YSTRN+1

Naked Globals

Name	Field # of Occurrence
^(	SA+1, CL+1, YSFA+3, RMK+1
^(0	SA+1, CL+1, YSCOV1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	YSFA+3*, RMK+2!, YSCOV1+2
>> DFN	A+1*
DIS	LOSS+1, YSADM+1, RMK+2!
DT	LOSS+1, SA+1, YSFA+1, YSFA+3
>> I	CL+1, YSFA+2
L	LOSS+1, L, YSTRN+1, INP+1, SA+1, YSFA+3*, RMK+2!, YSCOV+1
PTI	RMK+2!
PTI(0	RMK+1
U	YSADM+1, L, YSTRN+1, INP+1, INP+2, INP+3, DIS+1, DIS+2, SA+1, CL+1 , YSFA+3, RMK+1, YSCOV+1, YSCOV1+2
>> VAIN(1	YSADM+1
>> VAIN(4	L, INP+1
>> VAIN(7	YSADM+1, INP+1
>> VAIP(1	A+1, YSTRN+1
>> VAIP(11	INP+3
>> VAIP(13	DIS+1
>> VAIP(17	DIS+1, DIS+2
>> VAIP(4	YSTRN+1
>> VAIP(5	YSTRN+1
>> VAIP(6	INP+2
>> X	DIS+2, SA+1*
>> X1	DIS+1*
>> X2	DIS+1*
Y	RMK+2!
YSADM	LOSS+1, YSADM+1, YSADM+2, RMK+2!
YSADM(0	LOSS+1, YSADM+2
>> YSADMDT	YSADM+1*, YSADM+2
YSCOV	RMK+2!, YSCOV+1*, YSCOV1+2
YSCT	YSFA+1, YSFA+3, RMK+2!, YSCOV+1
>> YSDFN	A+1, INP+4, SA+1, CL+1, YSFA+1, YSFA+3, YSFA+4, RMK+1
YSFA	YSFA+3*, YSFA+4, RMK+2!, YSCOV1+1
>> YSFDT	YSCOV1+1*, YSCOV1+2
YSNOW	LOSS+1*, YSADM+2, YSTRN+1, RMK+2!
YSSSN	RMK+2!
YSTRN	LOSS+1, YSADM+1, YSTRN+1*, RMK+2!
YSTRN(0	LOSS+1, YSADM+1, YSTRN+1*, INP+2
>> YSTRNDT	YSTRN+1*

Customize PDF page

Package: Mental Health