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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: DGPAR1

Package: Registration

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

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPAR  

Entry Points

Name Comments DBIA/ICR reference
Q
Q1
DIV
H
H1
DEV
P
HELP
L
SC
VASITE(Y) ; -- add new time sensitive entry
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;
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;1100.07
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;

External References

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
  • Variable: DGAN
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • DIC
  • Line Location:
    • DGPAR1+10
Routine Call
  • DIE
  • Line Location:
    • DGPAR1+6
    • DGPAR1+8
    • DGPAR1+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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

Marked Items

Name Field # of Occurrence
$T(1 DGPAR1+6
$T(2 DGPAR1+6
$T(3 DGPAR1+8, DGPAR1+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All