文件名
语法
R_CheckForDuplicateCode(VAL Code_Name: STRING, VAL type: INTEGER): BOOLEAN IS
参数
Code_Name - 要检查的代码名
type - 要检查的代码类型
返回
布尔值
副作用
无
说明
该例行程序检查拷贝代码的添加状况。
调用的对话框窗体
无
文件名
语法
R_CheckForEightStatuses(VAL Status_List: LIST OF R_STATUS_REC, REF notUsedList: LIST OF STRING): BOOLEAN IS
参数
Status_List - 当前状态的列表
notUsedList - 未映射状态的列表
返回
布尔值
副作用
无
说明
该例行程序为确保已输入所有状态类型而进行检查。
调用的对话框窗体
无
文件名
语法
R_ClearCommandAlterFlags IS
参数
无
返回
无
副作用
无
说明
该例行程序清除命令的替换标志。
调用的对话框窗体
无
文件名
语法
R_CodesCommandsEvent_gr_PrintDe(VAL w: WINDOW, REF printList: LIST OF ScreenPrintRec ) IS
参数
w - 窗口句柄
printlist - ScreenPrintRec 列表
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesEvent" 的 "gr_PrintDe" 消息。
调用的对话框窗体
无
文件名
语法
R_CodesCommandsEvent_MsgAccept(VAL w: WINDOW, REF this_Command: R_COMMANDS_REC, REF stat: INTEGER, REF exitFlag: BOOLEAN ) IS
参数
w - 窗口句柄
this_Command - R_COMMANDS_REC
stat - 整数
ExitFlag - 布尔值
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesCommandsEvent" 的 "$MsgAccept" 消息。
调用的对话框窗体
无
文件名
语法
R_CodesCommandsEvent_MsgCreate(VAL w: Window, REF this_Command: R_COMMANDS_REC, REF this_Parameter: R_PARAM_REC, REF itemCount:INTEGER ) IS
参数
w - 窗口句柄
this_command - R_COMMANDS_REC 记录
this_Parameter - R_PARAM_REC 记录
itemCount - 整数
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesCommandsEvent" 的 "$MsgCreate" 消息。
调用的对话框窗体
无
文件名
语法
R_CodesCommandsEvent_MsgExitField(VAL w: WINDOW, VAL FieldName: STRING, REF tableName: STRING, REF names: LIST OF STRING ) IS
参数
w - 窗口句柄
FieldName - R_CodesEvent($FieldName) 中的字段名
tableName - 字符串
names - 字符串列表
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesCommandsEvent" 的 "$MsgExitField" 消息。
调用的对话框窗体
无
文件名
语法
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
参数
w - 窗口句柄
FieldName - R_CodesEvent($FieldName) 中的字段名
this_Parameter - R_PARAM_REC
this_Command - R_COMMANDS_REC
itemCount - 整数
stat - 整数
printlist - ScreenPrintRec 列表
tableName - 字符串
names - 字符串列表
返回
整数
副作用
无
说明
该例行程序处理来自 "R_CodesCommandsEvent" 的 "$MsgSelect" 消息。
调用的对话框窗体
无
文件名
语法
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
参数
w - 窗口句柄
FieldName - R_CodesEvent($FieldName) 中的字段名
ExitFlag - 布尔值
R_IsEnabled - 布尔值
this_Command - R_COMMANDS_REC
notUsedList - 字符串列表
返回
无
副作用
无
说明
该例行程序处理来自 "r_codesevent" 的 "$MsgAccept" 消息。
调用的对话框窗体
无
文件名
语法
R_CodesEvent_MsgCancel(VAL w: WINDOW, REF exitFlag: BOOLEAN, REF notUsedList: LIST OF STRING ) IS
参数
w - 窗口句柄
ExitFlag - 布尔值
notUsedList - 字符串列表
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesEvent" 的 "$MsgCancel" 消息。
调用的对话框窗体
无
文件名
语法
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
参数
w - 窗口句柄
this_ImpCategory - R_IMP_CAT_REC 记录
itemCount - 整数
this_Risk - R_RISK_REC 记录
this_Status - R_STATUS_REC 记录
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesEvent" 的 "$MsgCreate" 消息。
调用的对话框窗体
无
文件名
语法
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
参数
w - 窗口句柄
this_ImpCategory - R_COMMANDS_REC
FieldName - R_CodesEvent($FieldName) 中的字段名
this_Risk - R_RISK_REC 记录
this_Status - R_STATUS_REC 记录
返回
无
副作用
无
说明
该例行程序处理来自 "R_CodesCommandsEvent" 的 "$MsgInitialize" 消息。
调用的对话框窗体
无
文件名
语法
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
参数
w - 窗口句柄
w - 窗口句柄
FieldName - 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 - 整数
stat - 整数
i - 整数
返回
整数
副作用
无
说明
该例行程序处理来自 "R_CodesEvent" 的 "$MsgSelect" 消息。
调用的对话框窗体
radmn.dfc[exit_commands]
print.dfc[printchoice]
文件名
语法
R_PerformCommandEditView(VAL w: WINDOW, VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC ) IS
参数
w - 窗口句柄
FieldName - R_CodesEvent($FieldName) 中的字段名
this_command - R_COMMANDS_REC 记录
返回
无
副作用
无
说明
该例行程序执行命令的编辑或查看。
调用的对话框窗体
radmn.dfc[exit_commands]
文件名
语法
R_ReorderParameterList(VAL w: WINDOW,VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC) IS
参数
w - 当前窗口
field_Name - 对话框的选定字段
this_Command - 要重新排序的命令记录
返回
无
副作用
无
说明
该例行程序对参数列表进行重新排序,以满足用户的喜好。
调用的对话框窗体
无
文件名
语法
R_SetPrefValue(VAL w: WINDOW, REF sysCfg: R_PreferencesRec) IS
参数
w - 当前窗口
sysCfg - 首选项记录
返回
无
副作用
无
说明
该例行程序设置首选值。
调用的对话框窗体
无
文件名
语法
R_UnloadParameters(VAL w: WINDOW, VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC) IS
参数
w - 当前窗口
field_Name - MCLB 参数的字段名
this_Command - 要卸载的命令记录
返回
无
副作用
无
说明
该例行程序获取来自 MCLB 参数的参数列表。
调用的对话框窗体
无
文件名
语法
R_UpdateCommandList(VAL this_Command: R_COMMANDS_REC) IS
参数
this_Command - 当前命令记录
返回
无
副作用
无
说明
该例行程序处理对命令列表的修改。
调用的对话框窗体
无
文件名
语法
R_UpdateImpCategoryList(VAL this_ImpCategory: R_IMP_CAT_REC) IS
参数
this_impCategory - 当前效应代码记录
返回
无
副作用
无
说明
该例行程序处理对效应代码列表的修改。
调用的对话框窗体
无
文件名
语法
R_UpdateParameterList(REF this_Command: R_COMMANDS_REC, VAL this_Parameter: R_PARAM_REC) IS
参数
this_Command - 当前命令记录
this_Parameter - 当前参数记录
返回
无
副作用
无
说明
该例行程序处理对命令的参数列表的修改。
调用的对话框窗体
无
文件名
语法
R_UpdateRiskList(VAL this_Risk: R_RISK_REC) IS
参数
this_Risk - 当前风险代码记录
返回
无
副作用
无
说明
该例行程序处理对风险代码列表的修改。
调用的对话框窗体
无
文件名
语法
R_UpdateStatusList(VAL this_Status: R_STATUS_REC) IS
参数
this_Status - 当前状态记录
返回
无
副作用
无
说明
该例行程序处理对状态列表的修改。
调用的对话框窗体
无