| [613] | 1 | NURCEVE3 ;HIRMFO/RTK,RM/MD-Nursing Care Plans Edit Report ;8/16/95
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | ; THIS IS A TEST VERSION OF THE ORDERS ROUTINE
|
|---|
| 4 | ORDERS ; ORDERS
|
|---|
| 5 | K ORARRAY,^TMP("NURSEL",$J) S CNT=0
|
|---|
| 6 | D EN1^NURCEVE4(DFN,GMRGPDA,GMRGRT,NURCINT(0))
|
|---|
| 7 | K ^TMP("NURSEL",$J),CNT,NURCLP,NURLPV,NUROCB,NUROCC,NURORSI,NURSTERM,NURX,NURY,NURZ,ORARRAY,ORDSTAT
|
|---|
| 8 | Q
|
|---|
| 9 | STAT(DA,ORD) ; GIVEN ENTRY IN 216.8 (DA) AND ORDERABLE (ORD), THIS FUNCTION
|
|---|
| 10 | ; WILL RETURN THE MOST CURRENT STATUS OF THIS ORDER.
|
|---|
| 11 | N NURSEL,NUREVDT,NURORDA
|
|---|
| 12 | S NURSEL="" F NUREVDT=0:0 S NUREVDT=$O(^NURSC(216.8,DA,"ORD","AA",ORD,NUREVDT)) Q:NUREVDT'>0 D Q:NURSEL]""
|
|---|
| 13 | . F NURORDA=0:0 S NURORDA=$O(^NURSC(216.8,DA,"ORD","AA",ORD,NUREVDT,NURORDA)) Q:NURORDA'>0 S NURSEL=$G(^NURSC(216.8,DA,"ORD",NURORDA,0)) Q:NURSEL]""
|
|---|
| 14 | . Q
|
|---|
| 15 | Q $P(NURSEL,U,3)
|
|---|
| 16 | Q
|
|---|
