东华学习笔记

1..MAC文件是m语言，下面是test111.MAC

test111

aa()
  w "abc"
  q 0

• 最上面的名字和文件名一致
• 然后是方法名
• 文件名和方法名要顶头写，不能有空格
  调用方式：DHC-APP>d aa^test111()，方法名有括号就带括号

2..cls是类文件，方法的写法与上面不一样

ClassMethod aa()
{
    w "abc"
    q 0
}

调用方式：DHC-APP>d ##class(web.test111).aa()

3.建立临时Global

DHC-APP>set ^TEMP=3//Global物理存储到数据库，terminal关了的话还会有，其他变量会消失
DHC-APP>S ^TEMP("A")=1//设置节点

DHC-APP>s ^TEMP("B")=2

在Global里可以搜索到^TEMP

4.$h日期函数
$ZDate 把$Horolog 格式的日期值按照指定格式显示
+号表示第一个非数字符号前的数字
$ZDateH 是$ZDate 的反函数
$ZTime 把$Horolog 格式的时间值按照指定格式显示。
$ZTimeH $ZTime 的反函数。

DHC-APP>w $h
63802,58589
DHC-APP>w $zd(63802)
09/07/2015
DHC-APP>w $zd(63802,3)
2015-09-07
DHC-APP>w +$h
63802
DHC-APP>w $zd(+$h,3)
2015-09-07
DHC-APP>w $zdh("2015-9-7",3)
63802
DHC-APP>w $zdh("2024-9-7",3)-$zdh("2015-9-7",3)
3288
DHC-APP>w $zt(58543)
16:15:43
DHC-APP>w $zt(58543,2)
16:15
DHC-APP>w $zt(58543,3)
04:15:43PM
DHC-APP>w $zt($p($h,",",2))
17:07:50

5.$i
对每次运行的global产生唯一一个值

DHC-APP>w $i(^TEMP)
4
DHC-APP>w $i(^TEMP)
5
DHC-APP>w $i(^TEMP)
6

6.$e截取字符串

DHC-APP>s a="abcdef"

DHC-APP>w $e(a,2)
b
DHC-APP>w $e(a,2,4)
bcd

7.for循环1加到100

ClassMethod testfor()
{
    s m=0
    f i=1:1:100 d
    .s m=m+i
    s sum=m
    q sum
}
DHC-APP>w ##class(web.test111).testfor()
5050

计算有多少个科室

ClassMethod testfor()
{
    s m=0
    s ctlocrowid=""
    //q和d，f和s空两个空格
    f  s ctlocrowid=$o(^CTLOC(ctlocrowid)) q:ctlocrowid=""  d
    .s m=m+1
    s sum=m
    q sum
}

8.Terminal查看Global
zw ^STUDENT

9.buildIndices()重建索引指定的类