radmn_wf.kb 的例行程序


R_CheckForDuplicateCode

文件名

radmn_wf.kb

语法

R_CheckForDuplicateCode(VAL Code_Name: STRING, VAL type: INTEGER): BOOLEAN IS

参数

Code_Name - 要检查的代码名

type - 要检查的代码类型

返回

布尔值

副作用

说明

该例行程序检查拷贝代码的添加状况。

调用的对话框窗体


R_CheckForEightStatuses

文件名

radmn_wf.kb

语法

R_CheckForEightStatuses(VAL Status_List: LIST OF R_STATUS_REC, REF notUsedList: LIST OF STRING): BOOLEAN IS

参数

Status_List - 当前状态的列表

notUsedList - 未映射状态的列表

返回

布尔值

副作用

说明

该例行程序为确保已输入所有状态类型而进行检查。

调用的对话框窗体


R_ClearCommandAlterFlags

文件名

radmn_wf.kb

语法

R_ClearCommandAlterFlags IS

参数

返回

副作用

说明

该例行程序清除命令的替换标志。

调用的对话框窗体


R_CodesCommandsEvent_gr_PrintDe

文件名

radmn_wf.kb

语法

R_CodesCommandsEvent_gr_PrintDe(VAL w: WINDOW, REF printList: LIST OF ScreenPrintRec ) IS

参数

w - 窗口句柄

printlist - ScreenPrintRec 列表

返回

副作用

说明

该例行程序处理来自 "R_CodesEvent" 的 "gr_PrintDe" 消息。

调用的对话框窗体


R_CodesCommandsEvent_MsgAccept

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

R_CodesEvent_MsgCancel(VAL w: WINDOW, REF exitFlag: BOOLEAN, REF notUsedList: LIST OF STRING ) IS

参数

w - 窗口句柄

ExitFlag - 布尔值

notUsedList - 字符串列表

返回

副作用

说明

该例行程序处理来自 "R_CodesEvent" 的 "$MsgCancel" 消息。

调用的对话框窗体


R_CodesEvent_MSGCreate

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

R_ReorderParameterList(VAL w: WINDOW,VAL field_Name: STRING, REF this_Command: R_COMMANDS_REC) IS

参数

w - 当前窗口

field_Name - 对话框的选定字段

this_Command - 要重新排序的命令记录

返回

副作用

说明

该例行程序对参数列表进行重新排序,以满足用户的喜好。

调用的对话框窗体


R_SetPrefValue

文件名

radmn_wf.kb

语法

R_SetPrefValue(VAL w: WINDOW, REF sysCfg: R_PreferencesRec) IS

参数

w - 当前窗口

sysCfg - 首选项记录

返回

副作用

说明

该例行程序设置首选值。

调用的对话框窗体


R_UnloadParameters

文件名

radmn_wf.kb

语法

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

文件名

radmn_wf.kb

语法

R_UpdateCommandList(VAL this_Command: R_COMMANDS_REC) IS

参数

this_Command - 当前命令记录

返回

副作用

说明

该例行程序处理对命令列表的修改。

调用的对话框窗体


R_UpdateImpCategoryList

文件名

radmn_wf.kb

语法

R_UpdateImpCategoryList(VAL this_ImpCategory: R_IMP_CAT_REC) IS

参数

this_impCategory - 当前效应代码记录

返回

副作用

说明

该例行程序处理对效应代码列表的修改。

调用的对话框窗体


R_UpdateParameterList

文件名

radmn_wf.kb

语法

R_UpdateParameterList(REF this_Command: R_COMMANDS_REC, VAL this_Parameter: R_PARAM_REC) IS

参数

this_Command - 当前命令记录

this_Parameter - 当前参数记录

返回

副作用

说明

该例行程序处理对命令的参数列表的修改。

调用的对话框窗体


R_UpdateRiskList

文件名

radmn_wf.kb

语法

R_UpdateRiskList(VAL this_Risk: R_RISK_REC) IS

参数

this_Risk - 当前风险代码记录

返回

副作用

说明

该例行程序处理对风险代码列表的修改。

调用的对话框窗体


R_UpdateStatusList

文件名

radmn_wf.kb

语法

R_UpdateStatusList(VAL this_Status: R_STATUS_REC) IS

参数

this_Status - 当前状态记录

返回

副作用

说明

该例行程序处理对状态列表的修改。

调用的对话框窗体