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 | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: DGSCHAD2

Package: Registration

Routine: DGSCHAD2

Information

DGSCHAD2 ;ALB/MRL - SCHEDULED ADMISSIONS STATISTICS ; 06 MAY 87

Source Information

Source file <DGSCHAD2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC DT^DICRW
Registration	2	DIV^DGUTL (CLOSE,ZIS)^DGUTQ
Kernel	1	^%ZIS

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG SCHED ADMIT STATS DGSCHAD3

Entry Points

Name	Comments	DBIA/ICR reference
SET
OLD
DTOT
F
H
S1
Q
S
W
W1

External References

Name	Field # of Occurrence
^%DT	F, F+1
C^%DTC	S+2
^%ZIS	S
DIV^DGUTL	S+2
CLOSE^DGUTQ	Q
ZIS^DGUTQ	F+2
DT^DICRW	S, OLD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7," Margin width for this report is 132 *" Line Location: F+2
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: ! Line Location: DTOT+0
Function Call: WRITE	Prompt: !,X Line Location: S1+0
Function Call: WRITE	Prompt: !,X1 Line Location: S1+0
Function Call: WRITE	Prompt: DGL,!,$S(DGW=1:"SUB-",1:"DIVISION "),"TOTAL" Line Location: W1+0
Function Call: WRITE	Prompt: ?35,$J(+$P(DGD,"^",1),9),?47,$J(+$P(DGD,"^",2),9),?72,$J(+$P(DGD,"^",11),5),?82,$J(+$P(DGD,"^",12),5),?93,$J(+$P(DGD,"^",13),5),?108,$J(+$P(DGD,"^",14),5),?123,$J(+$P(DGD,"^",15),5) Line Location: W1+1
Function Call: WRITE	Prompt: @IOF,!,DGDIV_", "_DGHD,?112,DGPR,!!?75," C A N C E L L A T I O N R E A S O N" Line Location: H+0
Function Call: WRITE	Prompt: !?70,X,!?35,"TOTAL",?47,"TOTAL",?70,"\|",?93,"REFUSED",?108,"NO BEDS" Line Location: H+0
Function Call: WRITE	Prompt: !,"WARD/TREATING SPECIALTY",?35,"SCHEDULED",?47,"CANCELLED",?70,"\| EXPIRED",?82,"OVERDUE",?93,"ADMISSION",?108,"AVAILABLE",?123,"OTHER",! Line Location: H+1
Function Call: WRITE	Prompt: "=" Line Location: H+1
Function Call: WRITE	Prompt: !!,"OLDEST SCHEDULED ADMISSION ON FILE IS FOR ",Y,"." Line Location: OLD+0
Function Call: WRITE	Prompt: !!,"NO SCHEDULED ADMISSIONS ON FILE!!",*7 Line Location: OLD+1
Routine Call	%ZIS Line Location: S

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	F+1, S, S+1, OLD
^DG(40.8 - [#40.8]	SET
^DGS(41.1 - [#41.1]	S+3, OLD
^DIC(42 - [#42]	SET+1
^DIC(45.7 - [#45.7]	SET+1
^UTILITY($J	S!, S+4, S+5, DTOT, S1, SET+2, SET+4, SET+5, SET+6*, Q!

Label References

Name	Line Occurrences
DTOT	S+5
H	S+5, W
OLD	DGSCHAD2+2
Q	DGSCHAD2+2, F, F+1, F+2, S+4, S+6
S1	S+5
SET	S+3
W	S1
W1	S+5, DTOT

Naked Globals

Name	Field # of Occurrence
^(	S1, SET+2*
^(0	S+3, SET, SET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	F!, F+1!, Q!
%DT("A"	F, F+1
%DT("B"	F, F+1
%DT(0	F+1*
DGD	S+3, S+5, DTOT, S1, SET, SET+1, SET+3, W1+1, Q!
DGDIV	S+2, S+5, DTOT, S1, SET, H, Q!
DGDIV1	SET*, SET+2, SET+4, SET+5, SET+6, Q!
DGERR	DGSCHAD2+2, OLD, OLD+1, Q!
DGFR	F, F+1, S+1, S+2, S+3*, Q!
DGHD	S+1*, H, Q!
DGHOW	S+5, S1, SET, SET+2, SET+4, SET+5, Q!
DGHOW1	S+5, S1, SET+1*, SET+2, SET+4, W1+1, Q!
DGL	W1, H+1, Q!
DGOLD	F, OLD*, Q!
DGOLD1	F+1, OLD*, Q!
DGPGM	F+2*, Q!
DGPR	S*, H, Q!
DGST	SET+4, SET+5, SET+6*, Q!
DGTO	F+1, S+1, S+2, S+3, Q!
DGVAR	F+2*, Q!
DGW	S, S+5, DTOT, W1, W1+1, Q!
DT	F+1, S, OLD
I	S+3, S+5, Q!
I1	S+3, S+5, Q!
I2	S1*, Q!
IO	F+2
IOF	S, H
IOP	S*!
IOSL	W
>> POP	F+2
U	S*
X	S+2, S1, SET+3, SET+4, SET+5, SET+6, H*, Q!
X1	S+2, S1, SET+3*, SET+4, SET+5, SET+6, Q!
X2	S+2, SET+3, SET+4, SET+5, SET+6, Q!
Y	F, F+1, S, S+1, OLD, Q!

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All