Routine: DGPAR1

Information

DGPAR1 ;ALB/MRL - ADT PARAMETERS ENTRY/EDIT ; 24 Feb 2000 6:52 PM

Source Information

Source file <DGPAR1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Registration	3	^DGPAR EN^DGPAR2 NEW^VASITE1
VA Fileman	2	^DIC ^DIE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPAR

Entry Points

Name	Field # of Occurrence
^DGPAR	DGPAR1+7, DGPAR1+8, DGPAR1+9, DGPAR1+11, SC
EN^DGPAR2	DEV+2
^DIC	DGPAR1+10
^DIE	DGPAR1+6, DGPAR1+8, DGPAR1+10
NEW^VASITE1	VASITE+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: DGAN Line Location: DGPAR1+2
Function Call: WRITE	Prompt: !,"Enter " Line Location: DGPAR1+2
Function Call: WRITE	Prompt: "'D' to view DIVISIONS, " Condition for execution: DGMULT Line Location: DGPAR1+2
Function Call: WRITE	Prompt: "1-3 to EDIT, or RETURN to QUIT: " Line Location: DGPAR1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: H+0
Function Call: WRITE	Prompt: !,"Press RETURN to see more DIVISION PARAMETERS: " Line Location: H+0
Function Call: WRITE	Prompt: @IOF,!,"DIVISION PARAMETERS",$S(C>0:", CONTINUED",1:""),! Line Location: H1+0
Function Call: WRITE	Prompt: X Line Location: H1+0
Function Call: WRITE	Prompt: ?4,"Print Wristbands",?25,": ",$S($P(DGZE,"^",8)="Y":"YES",1:"NO"),! Line Location: DEV+0
Function Call: WRITE	Prompt: ?4,"'",$P(DGDV1,"^",1),"' on G&L",?25,": ",$S($P(DGZE,"^",4):"YES",1:"NO") Line Location: DEV+1
Function Call: WRITE	Prompt: !?4,"Division PTF printer",?25,": ",$S(X]"":X,1:"NEEDS TO BE SPECIFIED") Line Location: P+0
Function Call: WRITE	Prompt: @IOF,!,"ADT PARAMETER ENTRY/EDIT, HELP SCREEN" Line Location: HELP+0
Function Call: WRITE	Prompt: !,X Line Location: HELP+1
Function Call: WRITE	Prompt: !,">>> Enter RETURN to QUIT this option.",! Line Location: HELP+2
Function Call: WRITE	Prompt: !,">>> Enter a 'D' to display individual DIVISION parameters.",! Line Location: HELP+3
Function Call: WRITE	Prompt: !,">>> NOTE: To view and edit Scheduling parameters use the 'Scheduling Parameters'" Line Location: HELP+4
Function Call: WRITE	Prompt: !," option under the 'Supervisor Menu' in the Scheduling package.",! Line Location: HELP+5
Function Call: WRITE	Prompt: !,">>> Enter the field group number(s) you wish to edit using commas" Line Location: HELP+6
Function Call: WRITE	Prompt: !," and or dashes as delimiters." Line Location: HELP+7
Function Call: WRITE	Prompt: !!,"Edit Data Group(s) [Select by number]:" Line Location: HELP+8
Function Call: WRITE	Prompt: !,"-------------------------------------" Line Location: HELP+9
Function Call: WRITE	Prompt: !,"[1] Primary facility parameters, which if multi-divisional facility apply to all",!?4,"divisions, such as 'PRINT PTF MESSAGE?', etc." Line Location: HELP+10
Function Call: WRITE	Prompt: !!,"[2] ADT Specific parameters which, again, if the facility is multi-divisional",!?4,"apply to all divisions. Includes such items as 'at what point is a",!?4,"disposition considered late', etc." Line Location: HELP+11
Function Call: WRITE	Prompt: !!,"[3] " Line Location: HELP+12
Function Call: WRITE	Prompt: "The names of the individual divisions associated with this facility. You",!?4,"may enter a 'D' at the 'ENTER' prompt to view division specific data." Line Location: HELP+13
Function Call: WRITE	Prompt: "The device/G&L parameters associated with this facility." Line Location: HELP+14
Function Call: WRITE	Prompt: ! Line Location: L+0
Routine Call	DIE Line Location: DGPAR1+6 DGPAR1+8 DGPAR1+10
Routine Call	DIC Line Location: DGPAR1+10

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls
^DG(43 - [#43]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DGPAR1+8, Q, Q+1, DIV+1, H
^DIC(4 - [#4]	Q*, Q+1!

Name	Line Occurrences
1	DGPAR1+6
2	DGPAR1+6
3	DGPAR1+8, DGPAR1+10
DEV	DIV+1
DIV	DGPAR1+3
H	DIV+1
H1	DIV
HELP	DGPAR1+2, DGPAR1+3
L	DGPAR1+2, H, SC
Q	DGPAR1+7, DGPAR1+9, DGPAR1+11, Q
Q1	DGPAR1+2, Q
SC	DIV+2, HELP+15
VASITE	DGPAR1+10

Name	Field # of Occurrence
^(	DIV+1
^("DEV"	DIV+1
^(0	DIV+1

Local Variables

Name	Field # of Occurrence
C	Q1!, DIV, DIV+1, H, H1
DA	DGPAR1+6!, DGPAR1+8, DGPAR1+10*, Q1!
DFN1	Q, Q+1, Q1!, VASITE+1~
DG	Q1!
DGAN	DGPAR1+2, DGPAR1+3, DGPAR1+4, DGPAR1+5, DGPAR1+6, DGPAR1+7, DGPAR1+8, Q1!
DGAN1	DGPAR1+4, DGPAR1+5, Q1!
DGD	Q1!, DIV+1*, H
DGDV	Q1!, DIV+1*, P
DGDV1	Q1!, DEV+1*
DGERR	DGPAR1+2, Q1!, DIV, DIV+1, H*, SC
DGHEAD	Q1!
DGI	DGPAR1+10*, Q1!, VASITE+1~
DGIN	Q1!
DGIND	Q1!
DGMULT	DGPAR1+2, DGPAR1+3, DGPAR1+5, DGPAR1+8, DGPAR1+9, Q1!, HELP+3, HELP+13, HELP+14
DGNOD	Q1!
DGNOD("GL"	DGPAR1+8
DGNOD(0	P
DGPTFP	Q1!, P
DGX	Q1!
DGX1	Q1!
DGZE	Q1!, DIV+1*, DEV, DEV+1
DIC	DGPAR1+10*, Q1!, VASITE+1~
DIC(0	DGPAR1+10*
DIE	DGPAR1+6!, DGPAR1+8, DGPAR1+10*, Q1!, VASITE+1~
DIK	Q1!
DR	DGPAR1+6!, DGPAR1+8, DGPAR1+10*, Q1!, VASITE+1~
DTIME	DGPAR1+2, H, SC
I	DGPAR1+4, DGPAR1+5, Q1!, L*
I1	DGPAR1+5*, Q1!
I2	DGPAR1+5*, Q1!
I3	DGPAR1+5*, Q1!
IOF	H1, HELP
J	DGPAR1+5*, Q1!
SDMD	Q, Q+1, Q1!, VASITE+1~
U	DGPAR1+10
VASITE	VASITE+1~
VASITE("NEW"	VASITE+2*
X	Q1!, DIV+1, H, H1, DEV+1, P, HELP+1, SC*
X1	Q1!, DIV+1*
Y	DGPAR1+10, Q1!, VASITE~, VASITE+2

Customize PDF page

Package: Registration

Routine: DGPAR1

Information

Source Information

Call Graph

Call Graph Total: 5

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:

Marked Items

Name	Comments	DBIA/ICR reference
Q1
1	;;12;S DFN1=X;13;11;S SDMD=X,DGIND=1;15;16;4;9.6;9.5;9;34;76;77;37;38;
HELP
H
H1
L
DEV
Q
P
3	;;35.01;35.03;S:X'="Y"&($P($G(^DG(40.8,DA,"MT")),U)'="Y") Y="@36";35.02;@36;S:'DGMULT Y=.08;3;S:X=1 Y=.07;.08;4;5;6;.07;7;8;9;S:'$P(DGNOD(0),"^",31) Y=0;9.1;
2	;;46;5.5;6;7;17;8;S:X'=1 Y="@42";44;45;Q;@42;42;S:X'=1 Y="@18";43;Q;@18;18;19;70;722;25;39;33;47;S:X'=1 Y="@48";48;Q;@48;1201;1100.01;1100.02;1100.03;1100.04;1100.05;1100.06;1110;1120;1202
SC
DIV
VASITE(Y)	; -- add new time sensitive entry

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed