File Name
Syntax
R_CheckForDuplicateCode(VAL Code_Name: STRING, VAL type: INTEGER): BOOLEAN IS
Parameters
Code_Name - Code name to be checked
type - Type of code to check
Returns
Boolean
Side Effects
None
Description
This routine checks for the addition of duplicate codes.
Dialog Forms Called
None
File Name
Syntax
R_CheckForEightStatuses(VAL Status_List: LIST OF R_STATUS_REC, REF notUsedList: LIST OF STRING): BOOLEAN IS
Parameters
Status_List - Current List of statuses
notUsedList - List of statuses that are not mapped
Returns
Boolean
Side Effects
None
Description
This routine checks to make sure all status types are entered.
Dialog Forms Called
None
File Name
Syntax
R_ClearCommandAlterFlags IS
Parameters
None
Returns
Nothing
Side Effects
None
Description
This routine clears alter flags for command.
Dialog Forms Called
None
File Name
Syntax
R_CodesCommandsEvent_gr_PrintDe(VAL w: WINDOW, REF printList: LIST OF ScreenPrintRec ) IS
Parameters
w - Window handler
printlist - List of ScreenPrintRec
Returns
None
Side Effects
None
Description
This routine handles the "gr_PrintDe" Message from "R_CodesEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesCommandsEvent_MsgAccept(VAL w: WINDOW, REF this_Command: R_COMMANDS_REC, REF stat: INTEGER, REF exitFlag: BOOLEAN ) IS
Parameters
w - Window handler
this_Command - R_COMMANDS_REC
stat - Integer
ExitFlag - Boolean
Returns
None
Side Effects
None
Description
This routine handles the "$MsgAccept" Message from the "R_CodesCommandsEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesCommandsEvent_MsgCreate(VAL w: Window, REF this_Command: R_COMMANDS_REC, REF this_Parameter: R_PARAM_REC, REF itemCount:INTEGER ) IS
Parameters
w - Window handler
this_command - R_COMMANDS_REC record
this_Parameter - R_PARAM_REC record
itemCount - Integer
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgCreate" Message from "R_CodesCommandsEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesCommandsEvent_MsgExitField(VAL w: WINDOW, VAL FieldName: STRING, REF tableName: STRING, REF names: LIST OF STRING ) IS
Parameters
w - Window handler
FieldName - Field name from R_CodesEvent($FieldName)
tableName - String
names - List of string
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgExitField" Message from "R_CodesCommandsEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesCommandsEvent_MsgSelect(VAL w: WINDOW, VAL FieldName: STRING, REF this_Parameter: R_PARAM_REC, REF this_Command: R_COMMANDS_REC, REF itemCount: INTEGER, REF stat: INTEGER, REF printList: LIST OF ScreenPrintRec, REF tableName: STRING, REF names: LIST OF STRING ): INTEGER IS
Parameters
w - Window handler
FieldName - Field name from R_CodesEvent($FieldName)
this_Parameter - R_PARAM_REC
this_Command - R_COMMANDS_REC
itemCount - Integer
stat - Integer
printlist - List of ScreenPrintRec
tableName - String
names - List of string
Returns
Integer
Side Effects
None
Description
This routine handles the "$MsgSelect" Message from "R_CodesCommandsEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesEvent_MsgAccept(VAL w: WINDOW, VAL FieldName: STRING, REF exitFlag: BOOLEAN, REF R_IsEnabled:BOOLEAN, REF this_Command: R_COMMANDS_REC, REF notUsedList: LIST OF STRING ) IS
Parameters
w - Window handler
FieldName - Field name from R_CodesEvent($FieldName)
exitFlag - Boolean
R_IsEnabled - Boolean
this_Command - R_COMMANDS_REC
notUsedList - List of string
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgAccept" message from "r_codesevent".
Dialog Forms Called
None
File Name
Syntax
R_CodesEvent_MsgCancel(VAL w: WINDOW, REF exitFlag: BOOLEAN, REF notUsedList: LIST OF STRING ) IS
Parameters
w - Window handler
exitFlag - Boolean
notUsedList - LIST OF STRING
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgCancel" Message from "R_CodesEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesEvent_MSGCreate(VAL w: Window, REF this_ImpCategory:R_IMP_CAT_REC, REF itemCount:INTEGER, REF this_Risk: R_RISK_REC, REF this_Status: R_STATUS_REC ) IS
Parameters
w - Window handler
this_ImpCategory - R_IMP_CAT_REC record
itemCount - Integer
this_Risk - R_RISK_REC record
this_Status - R_STATUS_REC record
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgCreate" Message from "R_CodesEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesEvent_MsgInitialize(VAL w: Window, REF this_ImpCategory:R_IMP_CAT_REC, VAL FieldName: STRING, REF this_Risk: R_RISK_REC, REF this_Status: R_STATUS_REC ) IS
Parameters
w - Window handler
this_ImpCategory - R_COMMANDS_REC
FieldName - Field name from R_CodesEvent($FieldName)
this_Risk - R_RISK_REC record
this_Status - R_STATUS_REC record
Returns
Nothing
Side Effects
None
Description
This routine handles the "$MsgInitialize" Message from "R_CodesCommandsEvent".
Dialog Forms Called
None
File Name
Syntax
R_CodesEvent_MsgSelect(VAL w: Window, REF repParentW: WINDOW, VAL FieldName: STRING, REF oldImpCategory:R_IMP_CAT_REC, REF this_ImpCategory:R_IMP_CAT_REC, REF oldRisk: R_RISK_REC, REF this_Risk: R_RISK_REC, REF oldStatus: R_STATUS_REC, REF this_Status: R_STATUS_REC, REF this_Command: R_COMMANDS_REC, REF printChoice: PrintChoiceRec, REF printlist: LIST OF ScreenPrintRec, REF itemCount: INTEGER, REF stat: INTEGER, REF i: INTEGER ): INTEGER IS
Parameters
w - Window handler
repParent - Window handler
FieldName - Field name from R_CodesEvent($FieldName)
oldImpCategory - R_IMP_CAT_REC
this_ImpCategory - R_IMP_CAT_REC
oldRisk - R_RISK_REC
this_Risk - R_RISK_REC
oldStatus - R_STATUS_REC
this_Status - R_STATUS_REC
this_Command - R_COMMANDS_REC
printChoice - PrintChoiceRec
printlist - List of ScreenPrintRec
itemCount - Integer
stat - Integer
i - Integer
Returns
Integer
Side Effects
None
Description
This routine handles the "$MsgSelect" Message from "R_CodesEvent".
Dialog Forms Called
radmn.dfc[exit_commands]
print.dfc[printchoice]
File Name
Syntax
R_PerformCommandEditView(VAL w: WINDOW, VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC ) IS
Parameters
w - Window handler
FieldName - Field name from R_CodesEvent($FieldName)
this_command - R_COMMANDS_REC record
Returns
Nothing
Side Effects
None
Description
This routine performs editing or viewing of command.
Dialog Forms Called
radmn.dfc[exit_commands]
File Name
Syntax
R_ReorderParameterList(VAL w: WINDOW,VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC) IS
Parameters
w - Current window
field_Name - Selected field of the dialog box
this_Command - Command record to be reordered
Returns
Nothing
Side Effects
None
Description
This routine reorders the list of parameters to match the user's preferences.
Dialog Forms Called
None
File Name
Syntax
R_SetPrefValue(VAL w: WINDOW, REF sysCfg: R_PreferencesRec) IS
Parameters
w - Current window
sysCfg - preference record
Returns
None
Side Effects
None
Description
This routine sets preference values.
Dialog Forms Called
None
File Name
Syntax
R_UnloadParameters(VAL w: WINDOW, VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC) IS
Parameters
w - Current window
field_Name - Field name of parameter MCLB
this_Command - Command record to be unloaded
Returns
Nothing
Side Effects
None
Description
This routine gets a list of parameters from the MCLB parameter.
Dialog Forms Called
None
File Name
Syntax
R_UpdateCommandList(VAL this_Command: R_COMMANDS_REC) IS
Parameters
this_Command - Current command record
Returns
Nothing
Side Effects
None
Description
This routine handles modifications to a list of commands.
Dialog Forms Called
None
File Name
Syntax
R_UpdateImpCategoryList(VAL this_ImpCategory: R_IMP_CAT_REC) IS
Parameters
this_impCategory - Current impact code record
Returns
Nothing
Side Effects
None
Description
This routine handles modifications to an impact codes list.
Dialog Forms Called
None
File Name
Syntax
R_UpdateParameterList(REF this_Command: R_COMMANDS_REC, VAL this_Parameter: R_PARAM_REC) IS
Parameters
this_Command - Current command record
this_Parameter - Current parameter record
Returns
Nothing
Side Effects
None
Description
This routine handles modifications to the parameter list of a command.
Dialog Forms Called
None
File Name
Syntax
R_UpdateRiskList(VAL this_Risk: R_RISK_REC) IS
Parameters
this_Risk - Current risk code record
Returns
Nothing
Side Effects
None
Description
This routine handles modifications to a list of risk codes.
Dialog Forms Called
None
File Name
Syntax
R_UpdateStatusList(VAL this_Status: R_STATUS_REC) IS
Parameters
this_Status - Current status record
Returns
Nothing
Side Effects
None
Description
This routine handles modifications to the list of statuses.
Dialog Forms Called
None