Routine: DGPMX1

Information

DGPMX1 ; GENERATED FROM 'DGPM ADMIT' INPUT TEMPLATE(#446), FILE 405;10/30/24

Package	Total	Call Graph
VA FileMan	18	^%DT NOW^%DTC EN^DDIOL $$EZBLD^DIALOG $$LABEL^DIALOGZ ^DIC ^DICR E^DIE0 (,0,F,FIREREC,M,N,OUT,UNIQFERR,Z)^DIE17 Z^DIE2 ^DIE3 (AST,NOSCR,SET)^DIED QQ^DIEQ ($$OUTPUT,$$VALEXT,$$VALEXTS)^DIETLIBF $$GETTMP^DIKC1 ($$CREF,$$OREF)^DILF $$SET^DIQ RW^DIR2
Registration	10	ADMIT^DGCOMPACT $$ELIG^DGCOMPACTELIG ^DGPMDD1 ^DGPMDD2 ^DGPMDDCN ^DGPMGLC (ROOM,W,WARD)^DGPMVDD $$ADCAT^DGSAUTL $$UPPER^DGUTL DFN^DGYZODS
ODS	1	^A1B2XFR

Entry Points

Name	Comments	DBIA/ICR reference
DE
W
O
TR
A
B
RE
N
RD
T
P
V
UNIQ
Z
X
QS
D
Y
PR
R
RP
I
SAVEVALS
NKEY
KEYCHK()
BEGIN
1
X1
2
C2
C2S
C2F1
X2
3
C3
C3S
C3F1
X3
4
X4
5
X5
6
7
X7
8
X8
9
10
X10
11
X11
12
13
X13
14
C14
C14S
C14F1
X14
15
X15
16
X16
17
C17
C17S
C17F1
X17
18
X18
19
C19
C19S
C19F1
X19
20
X20
21
X21
22
C22
C22S
C22F1
X22
23
X23
24
X24
25
26
X26
27
X27
28

External References

Name	Field # of Occurrence
^%DT	X2
NOW^%DTC	C3S+2
^A1B2XFR	C2+16, C2S+16, C17+2, C17S+2
EN^DDIOL	X3
ADMIT^DGCOMPACT	X8
$$ELIG^DGCOMPACTELIG	X7
^DGPMDD1	C2S+4
^DGPMDD2	C2+4
^DGPMDDCN	C3+6, C3S+6, C19+2, C19S+2, C22+2, C22S+2
^DGPMGLC	C2+14, C2S+14, C19S+6
ROOM^DGPMVDD	X22
W^DGPMVDD	X19
WARD^DGPMVDD	X19
$$ADCAT^DGSAUTL	5+2
$$UPPER^DGUTL	X21
DFN^DGYZODS	X23
$$EZBLD^DIALOG	O+2
$$LABEL^DIALOGZ	2, 4, 5, 11, 17, 18, 19, 22, 24, 27
^DIC	X4, X14, X19, X22
^DICR	C3+2, C3+4, C3S+4, C14+2, C19S+4
E^DIE0	I+1, 2+4, 5+4, 24+3, 27+4
^DIE17	RD
0^DIE17	28
F^DIE17	1, 3, 4, 7, 8, 10, 13, 15, 16, 17 , 18, 20, 21, 22, 23, 24, 26
FIREREC^DIE17	1, 7, 8, 10, 13, 15, 16, 20, 21, 23 , 26
M^DIE17	T
N^DIE17	RP, 2+4, 5+4, 24+3, 27+4
OUT^DIE17	1, 7, 8, 10, 13, 15, 16, 20, 21, 23 , 26
UNIQFERR^DIE17	Z
Z^DIE17	X
Z^DIE2	RD+1
^DIE3	T
AST^DIED	P
NOSCR^DIED	P
SET^DIED	T+3
QQ^DIEQ	QS
$$OUTPUT^DIETLIBF	PR+1
$$VALEXT^DIETLIBF	T+2
$$VALEXTS^DIETLIBF	T+2
$$GETTMP^DIKC1	BEGIN+1
$$CREF^DILF	C2F1
$$OREF^DILF	C2F1
$$SET^DIQ	R+2
RW^DIR2	O+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !?DL+DL-2,DLB_": " Line Location: W+0
Function Call: WRITE	Prompt: W Line Location: O+0
Function Call: WRITE	Prompt: Y Line Location: O+0
Function Call: WRITE	Prompt: !?9 Condition for execution: $X>45 Line Location: O+0
Function Call: WRITE	Prompt: " ("_$$EZBLD^DIALOG(710,.X)_")" Line Location: O+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: TR+0
Function Call: WRITE	Prompt: $C(7) Line Location: TR+0
Function Call: WRITE	Prompt: " "_X Line Location: RD+2
Function Call: WRITE	Prompt: !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS!" Line Location: X2+0
Function Call: WRITE	Prompt: !?3,*7,"USE BED CONTROL MOVEMENT OPTIONS!" Line Location: X17+0
Routine Call	DIALOG Line Location: O+2
Routine Call	DIC Line Location: X4 X14 X19 X22

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	R, R+1
^DD("DD"	R+2
^DD("KEY" - [#.31]	N
^DD(405	C2S+6, C2S+10, C3S+2, C14S+2
^DG(405.1 - [#405.1]	C14S+2
^DGPM - [#405]	DE, X1, C2+12, C2+14, C2+16, C2S+8, C2S+10, C2S+12, C2S+14, C2S+16 , C3+2, C3+4, C3S+2, C3S+4, 5+2, C14+2, C14S+2, X16, C17+2, C17S+2 , C19+6, C19S+4, C19S+6, X26
^DGPM("ADFN"	C2+12!, C2S+12*
^DGPM("B"	C2+2!, C2S+2*
^DIC(42 - [#42]	C19+6, X21
^DIE(446	BEGIN+2
^DISV(	RD+2, Z, X13, X15*
^DPT - [#2]	X10
^UTILITY($J	X21*

Label References

Name	Line Occurrences
$$KEYCHK	Z
@(	B, V
A	RE, N, Z, Y, RP, 1, 2+4, 5+4, 7, 8 , 10, 13, 15, 16, 20, 21, 23, 24+3, 26, 27+4
B	QS
BEGIN	DGPMX1+1
C14F1	C14S
C14S	C14
C17F1	C17S
C17S	C17
C19F1	C19S
C19S	C19
C22F1	C22S
C22S	C22
C2F1	C2S
C2S	C2
C3F1	C3S
C3S	C3
D	RD, RD+1, P+1, QS
DE	DGPMX1+1, 1, 3, 4, 7, 8, 10, 13, 15, 16 , 17, 18, 20, 21, 22, 23, 24, 26
N	Y
NKEY	N
O	Y, RP
PR	RE, I+1
QS	RD, NKEY
R	R, R+1
RD	Y, I, I+1, 2+5, 5+5, 24+4, 27+5
RE	3+3, 4+2, 11+2, 14+3, 17+3, 18+1, 19+3, 22+3
RP	PR, PR+1, R, R+1
SAVEVALS	Z
TR	RE
UNIQ	T+1
V	T+3, P+1
W	O, RE
X	N, T, T+3, P, Y
X1	1
X10	10
X13	13
X15	15
X16	16
X20	20
X21	21
X23	23
X26	26
X7	7
X8	8
Z	P+1, 5+5, 24+4, 27+5

Naked Globals

Name	Field # of Occurrence
^(	RD+2, R, R+1, X10
^("DGPM1"	X13
^("DIR"	DE+3, C3+2, C3+4, C3S+2, C3S+4*
^("F"	SAVEVALS*
^("ODS"	DE+4
^("PTF"	DE+5
^("USR"	DE+6
^("^DG(405.1,"	X15
^(0	DE+1, R, R+1, C2+12, C2S+8, C2S+10, C2S+12, C14+2, C14S+2, C19+6 , C19S+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DE+1, DE+2, DE+3, DE+4, DE+5, DE+6, UNIQ!, R+2, C3S+2~
%(	UNIQ!
%(0	UNIQ
%DT	X2*!
%H	C3S+2~
%I	C3S+2~
%Z	DE+1, DE+2, DE+3, DE+4, DE+5, DE+6*, DE+7!
>> A1B2TAG	C2+16, C2S+16, C17+2, C17S+2
>> ADMTYP	X20*
>> D	N, D*
>> D0	BEGIN+3, C2S+6, C2S+10, C3+2, C3+4, C3S+2, C3S+4, C14+2, C14S+2, C19S+4
>> DA	DE, UNIQ, BEGIN+3, X1, C2+2, C2+12, C2+14, C2+16, C2S+2, C2S+8 , C2S+10, C2S+12, C2S+14, C2S+16, C3+2, C3+4, C3S+2, C3S+4, 5+2, C14+2 , C14S+2, X16, C17+2, C17S+2, C19+6, C19S+4, C19S+6, X26
DB	DE!, C2!, C2S!, C3!, C3S!, C14!, C14S!, C17!, C17S!, C19! , C19S!, C22!, C22S!
DB(	T+2, P, X, 2+4, 5+4, 24+3, 27+4
>> DC	RP
DDER	T+3!
DE	DE!
DE(	O+2, RE, Z, Y, PR, RP, SAVEVALS, SAVEVALS+1, KEYCHK, 2+1* , 2+4, 3+1, 5+4, 14+1, 17+1, 19+1, 22+1, 24+3, 27+4
DE(11	DE+1*
DE(14	DE+1*, C14, C14+1
DE(17	DE+1*, C17, C17+1
DE(18	DE+1*
DE(19	DE+1*, C19, C19+1, C19+3, C19+5
DE(2	DE+1*, C2, C2+1, C2+3, C2+5, C2+7, C2+9, C2+11, C2+13, C2+15
DE(22	DE+1*, C22, C22+1
DE(24	DE+4*
DE(27	DE+6*
DE(3	DE+3*, C3, C3+1, C3+3, C3+5
DE(4	DE+2*
DE(5	DE+5*
>> DFN	X7, X8, X10
DG	DE!, PR, PR+1, R, R+1*, R+2, 1, 3, 4, 7 , 8, 10, 13, 15, 16, 17, 18, 20, 21, 22 , 23, 24, 26
DG(	Z*, C2S, C2S+1, C2S+3, C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15 , C3S, C3S+1, C3S+3, C3S+5, C14S, C14S+1, C17S, C17S+1, C19S, C19S+1 , C19S+3, C19S+5, C22S, C22S+1
>> DGHNYT	C2+14, C2S+14, C19S+6*
DGIDX	C2S+14!, C19+6!, C19S+6!
>> DGODS	X23
DGOOS	X19!, X22!
>> DGOWD	C19+6*, C19S+6
>> DGPMDDF	C2+4, C2S+4, C3+6, C3S+6, C19+2, C19S+2, C22+2, C22S+2
>> DGPMDDT	C3+6, C3S+6, C19+2, C19S+2, C22+2, C22S+2
>> DGPMN	X1
>> DGPMP	X26
>> DGPMT	X2, X3, X17, X22
>> DGPMY	X1, 2+2
DIC	DE, P, C2+1, C2+3, C2+5, C2+7, C2+9, C2+11, C2+13, C2+15 , C2S+1, C2S+3, C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15, C3+1, C3+3 , C3+5, C3S+1, C3S+3, C3S+5, X4!, C14+1, C14S+1, X14!, C17+1, C17S+1 , C19+1, C19+3, C19+5, C19S+1, C19S+3, C19S+5, X19!, C22+1, C22S+1, X22!
DIC("S"	Z!, X4, X14, X19, X22
DIC(0	P, 1, 7, 8, 10, 13, 15, 16, 20, 21 , 23, 26
>> DICRREC	BEGIN+2*
>> DIE	DE*, P, UNIQ, C2+1, C2+3, C2+5, C2+7, C2+9, C2+11, C2+13 , C2+15, C2S+1, C2S+3, C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15, C2F1 , C3+1, C3+3, C3+5, C3S+1, C3S+3, C3S+5, X4, C14+1, C14S+1, X14 , C17+1, C17S+1, C19+1, C19+3, C19+5, C19S+1, C19S+3, C19S+5, X19, C22+1 , C22S+1, X22
DIEBADK	BEGIN+1!
DIEFIRE	BEGIN+1!, 1, 7, 8, 10, 13, 15, 16, 20, 21 , 23, 26
>> DIEL	DE*
>> DIEZ	BEGIN+3*
DIEZAR	BEGIN+1~, BEGIN+2*
DIEZRXR	BEGIN+1~
DIEZRXR(405	C2F1, C2F1+1
DIEZTMP	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~*
>> DIFLD	O+2, N, T+2, UNIQ, D, PR+1, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2 , 2, 3, 4, 5, 11, 14, 17, 18, 19, 22 , 24, 27
>> DIG	C3+2, C3+4, C3S+4, C14+2, C19S+4*
>> DIH	C3+2, C3+4, C3S+4, C14+2, C19S+4*
DIIENS	SAVEVALS, SAVEVALS+1, SAVEVALS+2, BEGIN+1~, BEGIN+3*, C2F1
DIPA	T+2!, PR+1!
>> DIU	C2S+6, C2S+10, C3+2, C3+4, C3S+2, C3S+4, C14+2, C14S+2, C19S+4*
DIV	C2S+6, C2S+10!, C3+2!, C3+4!, C3S+2!, C3S+4!, C14+2!, C14S+2!, C19S+4!
DIV(0	C2S+10, C3+2, C3+4, C3S+2, C3S+4, C14+2, C14S+2, C19S+4
DIXR	BEGIN+1~, C2F1+1*
>> DL	DE*, W
DLAYGO	P*, Z!
>> DLB	W, RD+2, Z, D, 2, 3, 4, 5, 11, 14 , 17, 18, 19, 22, 24, 27
>> DNM	BEGIN*
>> DP	DE*, O+2, N, T+2, PR+1, R+2, SAVEVALS, SAVEVALS+1, SAVEVALS+2, 2 , 4, 5, 11, 17, 18, 19, 22, 24, 27
>> DQ	O+2, A, B, RE, T+2, P, P+2, V, X, D , Y, PR, RP, SAVEVALS, BEGIN, 1, 2+4, C2S, C2S+1, C2S+3 , C2S+5, C2S+7, C2S+9, C2S+11, C2S+13, C2S+15, 3, C3S, C3S+1, C3S+3 , C3S+5, 4, 5+4, 6, 7, 8, 9, 10, 12, 13 , C14S, C14S+1, 15, 16, 17, C17S, C17S+1, 18, C19S, C19S+1 , C19S+3, C19S+5, 20, 21, 22, C22S, C22S+1, 23, 24, 24+3 , 25, 26*, 27+4
>> DQ(	A!, P+2, D*, PR
DT	C2+14, C2S+14, C19+6, C19S+6
DTIME	TR, BEGIN+3*
>> DTOUT	TR*
>> DU	DE, P, D, PR, 2, 3, 3+2, 4, 4+1, 5* , 5+1, 11, 11+1, 14, 14+2, 17, 17+2, 18, 19, 19+2 , 22, 22+2, 24, 24+1, 27, 27+1
DUZ	RD+2, Z, C3S+4, X13, X15, 27+2
DUZ("LANG"	R+2
DUZ(0	TR, RE
>> DV	O+1, O+2, TR, RE, N, RD+2, T, T+1, T+3, P , P+1, UNIQ, Z, D, Y, PR, RP, I, 2, 2+4 , 3, 4, 5, 5+4, 11, 14, 17, 18, 19, 22 , 24, 24+3, 27, 27+4
>> DW	Z, D, SAVEVALS+1, KEYCHK, 1, 2, 2+1, 3, 3+1, 4 , 5, 5+4, 7, 8, 10, 11, 13, 14, 14+1, 15 , 16, 17, 17+1, 18, 19, 19+1, 20, 21, 22, 22+1 , 23, 24, 24+3, 26, 27*, 27+4
>> DZ	QS*
>> I(0	C2S+6
>> PTF	X8
U	DE+1, DE+2, DE+3, DE+4, DE+5, DE+6, TR, P, P+2, Z , D, R, R+1, BEGIN+3*, 1, C2+12, C2+14, C2S+6, C2S+8, C2S+10 , C2S+12, C2S+14, C3+2, C3+4, C3S+2, C3S+4, 5+2, 7, 8, 10 , 13, C14+2, C14S+2, 15, 16, C19+6, C19S+4, C19S+6, 20, 21 , 23, 26
X	O+2!, TR, N, RD, RD+1, RD+2, T, P, P+1!, P+2* , UNIQ!, Z, X+1, QS, Y, PR, R, R+1, R+2, RP , I+1, NKEY, 1, 2+2, 2+3, 2+4, C2+1, C2+2, C2+3, C2+5* , C2+7, C2+9, C2+11, C2+12, C2+13, C2+14, C2+15, C2S, C2S+1, C2S+2 , C2S+3, C2S+5, C2S+6, C2S+7, C2S+9, C2S+10, C2S+11, C2S+12, C2S+13, C2S+14 , C2S+15, X2!, C3+1, C3+2, C3+3, C3+4, C3+5, C3S, C3S+1, C3S+2* , C3S+3, C3S+4, C3S+5, X3!, X4!, 5+2, 5+3, 5+4, 5+5, 7* , 8, 10, 13, C14+1, C14+2, C14S, C14S+1, C14S+2, X14!, 15 , 16, C17+1, C17S, C17S+1, X17!, X18!, X18+1!, C19+1, C19+3, C19+5* , C19+6, C19S, C19S+1, C19S+3, C19S+4, C19S+5, X19!, 20, 21, X21 , C22+1, C22S, C22S+1, X22!, 23, 24+3, 24+4, 26, 27+2, 27+3 , 27+4*, 27+5
X("FIELD"	O+2*
X("FILE"	O+2*
Y	O, O+1, O+2, P, Y, PR, R, R+1, R+2, 1* , X1, 2+3, 2+4, C2+14, C2S+6!, C2S+10!, C2S+14, X2, C3+2!, C3+4! , C3S+2!, C3S+4!, X4, 5+3, 5+4, 7, X7, 8, 10, X10 , 13, C14+2!, C14S+2!, X14, 15, 16, X16, C19+6, C19S+4!, C19S+6 , X19, 20, 21, X22, 23, X23, 24+2, 24+3, 26, X26* , 27+3*, 27+4
Y(0	C2S+10*
Y(1	C2S+10, C3+2, C3+4, C3S+2, C3S+4, C14+2, C14S+2, C19S+4
Y(101	C2S+6
YS	V!
>> ZTQUEUED	X, NKEY

Marked Items

Name	Field # of Occurrence
$T(	X7
$T(@(3)	D

Customize PDF page

Package: Registration

Routine: DGPMX1

Information

Source Information

Call Graph

Call Graph Total: 29

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items