| Name | Value |
|---|---|
| NAME | A1C |
| XECUTABLE CODE | S G6=0 F G=1:1:5 S G6=$O(^LR(LRDFN,"CH",G6)) Q:G6="" Q:'$D(^LR(LRDFN,"CH",G6,2)) W !,?40," GLUCOSE: ",$P(^(2),"^",1),?55," DATE: " S G6=9999999-G6,G7=$E(G6,5)_"-"_$E(G6,6,7)_"-"_$E(G6,2,3)_" "_$E(G6,9,12) W G7 S G6=9999999-G6 |
| DESCRIPTION | Looks at patient's last 5 lab results to see if there is a result for Glucose, and if so, dislays the glucose value and time it was collected. |