BEHOENCV.m

BEHOENCV ;MSC/IND/DKM - Cover Sheet: Visits ;20-Mar-2007 13:48;DKM

 ;;1.1;BEH COMPONENTS;**037001**;Mar 20, 2007

 ;=================================================================

 ; Return list of visits

LIST(DATA,DFN) ;

 D VISITLST^BEHOENCX(.DATA,.DFN,,,-1)

 Q

 ; Return detail view of visit

DETAIL(DATA,DFN,VST) ;

 D GETRPT^BEHOENPS(.DATA,+$$VSTR2VIS^BEHOENCX(DFN,VST))

 Q

BEHOENCV  ;MSC/IND/DKM - Cover Sheet: Visits ;20-Mar-2007 13:48;DKM

 +1       ;;1.1;BEH COMPONENTS;**037001**;Mar 20, 2007

 +2       ;=================================================================

 +3       ; Return list of visits

LIST(DATA,DFN) ;

 +1        DO VISITLST^BEHOENCX(.DATA,.DFN,,,-1)

 +2        QUIT 

 +3       ; Return detail view of visit

DETAIL(DATA,DFN,VST) ;

 +1        DO GETRPT^BEHOENPS(.DATA,+$$VSTR2VIS^BEHOENCX(DFN,VST))

 +2        QUIT