Skip to content

SPS1 - Specification of Setup.md

Latest commit

 

History

History
212 lines (151 loc) · 5.07 KB

SPS1 - Specification of Setup.md

File metadata and controls

212 lines (151 loc) · 5.07 KB

Specification of Setup

  • 创建日期：2024-12-12
  • 更新日期：2024-12-12

本文件规定了 setup.sas 文件的一般规范。

setup.sas 文件用于初始化项目的一些变量，它只会在 SAS 会话启动时运行一次。 setup.sas 文件不会被递交至监管机构。

重置运行环境

需要重置的窗口如下：

  • LOG 窗口
  • OUTPUT 窗口
  • ODSRESULT 窗口
dm 'log; clear; output; clear; odsresult; clear;';

重置系统自动宏变量

%let SYSCC = 0;

SYSCC 会被宏 %ERROR 引用，所以必须进行重置。

设置路径

动态获取 setup.sas 文件的路径

%let DIR_CURRENT = %sysget(SAS_EXECFILEPATH);

设置常用文件夹路径

%let DIR_PROJECT     = %substr(&DIR_CURRENT, 1, %eval(%index(&DIR_CURRENT, %scan(&DIR_CURRENT, -3, \/)) -2));
%let DIR_STAT        = &DIR_PROJECT\04 统计分析;
%let DIR_RAWDATA     = &DIR_STAT\02 原始数据;
%let DIR_ADAM        = &DIR_STAT\03 分析数据;
%let DIR_TFL         = &DIR_STAT\06 TFL;
%let DIR_TFL_TABLE   = &DIR_TFL\01 table;
%let DIR_TFL_FIGURE  = &DIR_TFL\02 figure;
%let DIR_TFL_LISTING = &DIR_TFL\03 listing;
%let DIR_TFL_OTHER   = &DIR_TFL\04 other;
%let DIR_MACRO       = &DIR_STAT\09 Macro;
%let DIR_INITIAL     = &DIR_STAT\10 Initial;

Note

可根据需要，定义更多常用路径，但不能与上述定义的变量名称冲突。

建立逻辑库

libname rawdata "&DIR_RAWDATA" compress = yes access = readonly;
libname adam    "&DIR_ADAM"    compress = yes;

Important

建立 rawdata 逻辑库使用的 access = readonly 是必要的，这可以防止意外更改原始数据库中的数据。

调用通用宏程序

  1. QC 相关的宏程序

    %include "&DIR_MACRO\02 QC\Transcode.sas";
%include "&DIR_MACRO\02 QC\ReadRTF.sas";
%include "&DIR_MACRO\02 QC\CompareRTFWithDataset.sas";

  2. 日志相关的宏程序

    %include "&DIR_MACRO\03 Misc\SM_LOG_V2.sas";
%include "&DIR_MACRO\03 Misc\ERROR.sas";

  3. RTF 处理相关的宏程序

    %include "&DIR_MACRO\03 Misc\MergeRTF.sas";

Note

可根据需要，添加更多宏程序。

加载模板

%include "&DIR_INITIAL\template\template_rtf_threelines.sas";
%include "&DIR_INITIAL\template\template_graph_regression.sas";
%include "&DIR_INITIAL\template\template_graph_baplot.sas";
%include "&DIR_INITIAL\template\template_graph_waterfall.sas";

Note

可根据需要，添加更多模板。

定义 ODS 输出相关变量

  1. 定义 RTF 输出目录
%let RTF_DIR_T = &DIR_TFL_TABLE;
%let RTF_DIR_F = &DIR_TFL_FIGURE;
%let RTF_DIR_L = &DIR_TFL_LISTING;
%let RTF_DIR_O = &DIR_TFL_OTHER;
  1. 定义 ODS 转义字符
%let ODS_ESCAPECHAR = @;
  1. 定义 RTF 页眉
%let TITLE = \pard\plain\ql\fs21{试验医疗器械：xxxxxxxx};
  1. 定义 RTF 页脚
%let FOOTNOTE_LEFT  = Confidential Information;
%let FOOTNOTE_RIGHT = &ODS_ESCAPECHAR{pageof};

Tip

也可以通过 %sysfunc(inputc(&SYSODSESCAPECHAR, $hex.)) 获得当前环境设置的 ODS ESCAPECHAR 的值。

示例

/*STEP0 : Reset runtime environment*/
dm 'log; clear; output; clear; odsresult; clear;';


/*Rest system automatic macro variable*/
%let syscc = 0;


/*STEP1 : Set the path*/
%let DIR_CURRENT = %sysget(SAS_EXECFILEPATH);

/*设置常用文件夹路径*/
%let DIR_PROJECT     = %substr(&DIR_CURRENT, 1, %eval(%index(&DIR_CURRENT, %scan(&DIR_CURRENT, -3, \/)) -2));
%let DIR_STAT        = &DIR_PROJECT\04 统计分析;
%let DIR_RAWDATA     = &DIR_STAT\02 原始数据;
%let DIR_ADAM        = &DIR_STAT\03 分析数据;
%let DIR_TFL         = &DIR_STAT\06 TFL;
%let DIR_TFL_TABLE   = &DIR_TFL\01 table;
%let DIR_TFL_FIGURE  = &DIR_TFL\02 figure;
%let DIR_TFL_LISTING = &DIR_TFL\03 listing;
%let DIR_TFL_OTHER   = &DIR_TFL\04 other;
%let DIR_MACRO       = &DIR_STAT\09 Macro;
%let DIR_INITIAL     = &DIR_STAT\10 Initial;


/*STEP2 : Establish Logical Library*/
libname rawdata "&DIR_RAWDATA" compress = yes access = readonly;
libname adam    "&DIR_ADAM"    compress = yes;


/*STEP3 : Call Macro*/
/*QC相关的宏程序*/
%include "&DIR_MACRO\02 QC\Transcode.sas";
%include "&DIR_MACRO\02 QC\ReadRTF.sas";
%include "&DIR_MACRO\02 QC\CompareRTFWithDataset.sas";

/*日志相关的宏程序*/
%include "&DIR_MACRO\03 Misc\SM_LOG_V2.sas";
%include "&DIR_MACRO\03 Misc\ERROR.sas";

/*其他宏程序*/
%include "&DIR_MACRO\03 Misc\MergeRTF.sas";


/*STEP4 : Call Style*/
%include "&DIR_INITIAL\template\tagsets_template.sas";


/*STEP5 : Configure RTF Output*/
/*定义 RTF 输出目录*/
%let RTF_DIR_T = &DIR_TFL_TABLE;
%let RTF_DIR_F = &DIR_TFL_FIGURE;
%let RTF_DIR_L = &DIR_TFL_LISTING;
%let RTF_DIR_O = &DIR_TFL_OTHER;

/*定义 ODS 转义字符*/
%let ODS_ESCAPECHAR = @;

/*定义 RTF 页眉*/
%let RTF_TITLE = \pard\plain\ql\fs21{试验医疗器械：X射线计算机体层摄影设备};

/*定义 RTF 页脚*/
%let RTF_FOOTER_L =  Confidential Information; /*页脚-左*/
%let RTF_FOOTER_R = &ODS_ESCAPECHAR{pageof}; /*页脚-右*/

/*STEP7 : Detect Error and Warning*/
%ERROR;