source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURCEVE3.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 805 bytes
Line 
1NURCEVE3 ;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
4ORDERS ; 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
9STAT(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
Note: See TracBrowser for help on using the repository browser.