Routine: DGSCHAD3

Package	Total	Call Graph
Registration	5	IN^DGHELP OLD^DGSCHAD2 ^DGTEMP (DIV,H)^DGUTL DIVISION^VAUTOMA
VA Fileman	3	(,DD)^%DT C^%DTC EN1^DIP

Package

Total

Call Graph

Registration

IN^DGHELP OLD^DGSCHAD2 ^DGTEMP (DIV,H)^DGUTL DIVISION^VAUTOMA

VA Fileman

(,DD)^%DT C^%DTC EN1^DIP

Package	Total	Caller Graph
Registration	1	DG SCHED ADMIT PRINT

Package

Total

Caller Graph

Registration

DG SCHED ADMIT PRINT

Name	Field # of Occurrence
^%DT	F, F+1
DD^%DT	TEMP+4
C^%DTC	F
IN^DGHELP	1
OLD^DGSCHAD2	DGSCHAD3+3
^DGTEMP	3
DIV^DGUTL	1+2
H^DGUTL	1, 1+7, 2
EN1^DIP	3
DIVISION^VAUTOMA	1+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Line Location: 1+0
Function Call: WRITE	Prompt: !!?4,"C - To list only future scheduled admissions which have been cancelled.",!?4,"S - To list only active future scheduled admissions.",!?4,"B - To list all future scheduled admissions regardless of status." Line Location: 1+1
Function Call: WRITE	Prompt: !!?15,*7,"This output requires 132 columns",!! Line Location: 3+0
Function Call: WRITE	Prompt: ?28,$E($P(DGPT,U,9),6,9),?35,"Phone: ",$S($D(^DPT(DFN,.13)):$P(^(.13),U),1:"UNKNOWN"),?60,"Reservation: ",Y Line Location: TEMP+0
Function Call: WRITE	Prompt: ?95,$S($P(DGSA,U,10)="W":"Ward Loc: "_$S($D(^DIC(42,+$P(DGSA,U,8),0)):$P(^(0),U),1:"UNKNOWN"),$P(DGSA,U,10)="T":"Treat Sp: "_$S($D(^DIC(45.7,+$P(DGSA,U,9),0)):$P(^(0),U),1:"UNKNOWN"),1:"") Line Location: TEMP+1
Function Call: WRITE	Prompt: !?32,"Provider: "_$S($P(DGSA,U,5)]""&($D(^VA(200,+$P(DGSA,U,5),0))):$P(^(0),U),1:"UNKNOWN"),?96,"Surgery: "_$S($P(DGSA,U,6)="Y":"YES",$P(DGSA,U,6)="N":"NO",1:"UNKNOWN") Line Location: TEMP+2
Function Call: WRITE	Prompt: !?34,"Status: " Line Location: TEMP+3
Function Call: WRITE	Prompt: "SCHEDULED - Admitting Diagnosis '"_$S($P(DGSA,U,4)]"":$P(DGSA,U,4),1:"UNKNOWN")_"'," Line Location: TEMP+3
Function Call: WRITE	Prompt: "ADMITTED - " Line Location: TEMP+4
Function Call: WRITE	Prompt: Y Line Location: TEMP+4
Function Call: WRITE	Prompt: "CANCELLED by: "_$S($P(DGSA,U,14)]"":$P(^VA(200,$P(DGSA,U,14),0),U),1:"UNKNOWN") Line Location: TEMP+5
Function Call: WRITE	Prompt: !,"**PATIENT DELETED FROM PATIENT FILE - CONTACT IRM SERVICE",!! Line Location: TEMP+6

FileNo	Call Tags
^DGS(41.1 - [#41.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DGSCHAD3+3, F+1, TEMP
^DGPM - [#405]	TEMP+4
^DGS(41.1 - [#41.1]	TEMP
^DIC(42 - [#42]	TEMP+1
^DIC(45.7 - [#45.7]	TEMP+1
^DPT - [#2]	TEMP
^VA(200 - [#200]	TEMP+2, TEMP+5

Name	Line Occurrences
1	1+1
2	1+2, 1+4
3	1+8
Q	DGSCHAD3+3, F, F+1, 1, 1+3, 3

Name	Field # of Occurrence
^(	TEMP
^(0	TEMP, TEMP+1, TEMP+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	1+1
%DT	F!, F+1!
%DT("A"	F, F+1
%DT("B"	F, F+1
%DT(0	F, F+1
>> BY	1+2, 1+4, 1+5, 1+7, 2*
>> D0	TEMP
DFN	TEMP*, TEMP+7!
DGDATE	Q!
DGDIV	1+2, 1+5*, Q!
DGERR	DGSCHAD3+3, Q!
>> DGFR	F, F+1, F+2
>> DGFR1	F*, 1+7, 2
DGHFR	F*, F+1!
DGNO	3*, Q!
DGOLD	DGSCHAD3+3, Q!
DGOLD1	DGSCHAD3+3, F, Q!
DGPT	TEMP*, TEMP+6, TEMP+7!
DGSA	TEMP*, TEMP+1, TEMP+2, TEMP+3, TEMP+4, TEMP+5, TEMP+7!
DGSCH	1+2*, 1+7, 2, Q!
>> DGTD	DGSCHAD3+3*, F
DGTEMP	Q!
DGTIME	Q!
>> DGTO	F+1*, F+2
>> DGTO1	F+1*, 1+7, 2
>> DHD	F+2*
>> DIC	3*
DIS	1+6~
DIS(0	1+6*
DT	DGSCHAD3+3
DTIME	1
>> FLDS	3*
FR	1+2, 1+4, 1+5!, 2*
FR(1	1+5*
FR(2	1+7*
FR(3	1+7*
FR(4	1+7*
>> L	3*
TO	1+2, 1+4, 1+5!, 2*
TO(1	1+5*
TO(2	1+7*
TO(3	1+7*
TO(4	1+7*
U	TEMP, TEMP+1, TEMP+2, TEMP+3, TEMP+4, TEMP+5
>> VAUTD	1+3, 1+4
>> VAUTD(0	1+3
X	F, 1, 1+2, 3, Q!
>> X1	F*
>> X2	F*
Y	DGSCHAD3+3, F, F+1, 1+3, TEMP, TEMP+4, TEMP+7!
>> Z	1*

Customize PDF page

Package: Registration

Routine: DGSCHAD3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q
TEMP
F
1
3
2