source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMHVET.m@ 1800

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

initial load of WorldVistAEHR

File size: 1017 bytes
RevLine 
[613]1PXRMHVET ; SLC/AGP - Clinical Reminders entry points. ; 03/03/2004
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;Supports DBIA #4455.
4 ;==========================================================
5START(DFN,DISP) ;
6 N NAME,REMIEN
7 I $G(DISP)="" S DISP=0
8 K ^TMP("PXRHM",$J)
9 S REMIEN=0
10 F S REMIEN=$O(^PXD(811.9,"P",REMIEN)) Q:+REMIEN'>0 D
11 . I $P($G(^PXD(811.9,REMIEN,0)),U,6)'=1 D MAIN^PXRM(DFN,REMIEN,DISP)
12 Q
13 ;
14 ;==========================================================
15HS(DFN,HVDISP) ;
16 N NAME,REMIEN,STATUS
17 K ^TMP("PXRHM",$J),^TMP("PXRMHV",$J)
18 S REMIEN=0
19 F S REMIEN=$O(^PXD(811.9,"P",REMIEN)) Q:+REMIEN'>0 D
20 . I $P($G(^PXD(811.9,REMIEN,0)),U,6)'=1 D MAIN^PXRM(DFN,REMIEN,$G(HVDISP))
21 S REMIEN=0 F S REMIEN=$O(^TMP("PXRHM",$J,REMIEN)) Q:REMIEN'>0 D
22 . S NAME="" F S NAME=$O(^TMP("PXRHM",$J,REMIEN,NAME)) Q:NAME="" D
23 . . S STATUS=$P($G(^TMP("PXRHM",$J,REMIEN,NAME)),U)
24 . . I STATUS=0 S STATUS="UNKNOWN"
25 . . M ^TMP("PXRMHV",$J,STATUS,NAME,REMIEN)=^TMP("PXRHM",$J,REMIEN,NAME)
26 K ^TMP("PXRHM",$J)
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.