- 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