©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
JULIE ;
F I=65:1:67 D
.F J=48:1:50 D
..F K=48:1:50 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
.F J=65:1:67 D
..F K=48:1:50 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
...F L=65:1:67 D
....D SET
..F K=65:1:67 D
...F L=48:1:50 D
....D SET
Q
SET S X=$C(I)_$C(J)_$C(K)_$C(L)
S ^JULIEDBA(I,J,K,L)=X
W !,X
Q