VAFHCUTL.m

VAFHCUTL ;ALB/CM OUTPATIENT UTILITIES ;05/01/95

 ;;5.3;Registration;**91**;Jun 06, 1996

 ;

GETPTR(TYPE) ;

 ;gets pointer pivot entry for outpatient encounter file

 ;while in outpatient event driver

 ;

 ;returns OUTPATIENT ENCOUNTER PTR

 ;

 N OUT

 S OUT=$O(^TMP("SDEVT",$J,SDHDL,TYPE,"SDOE","")) ;outpt encounter ptr

 Q OUT

VAFHCUTL  ;ALB/CM OUTPATIENT UTILITIES ;05/01/95

 +1       ;;5.3;Registration;**91**;Jun 06, 1996

 +2       ;

GETPTR(TYPE) ;

 +1       ;gets pointer pivot entry for outpatient encounter file

 +2       ;while in outpatient event driver

 +3       ;

 +4       ;returns OUTPATIENT ENCOUNTER PTR

 +5       ;

 +6        NEW OUT

 +7       ;outpt encounter ptr

           SET OUT=$ORDER(^TMP("SDEVT",$JOB,SDHDL,TYPE,"SDOE",""))

 +8        QUIT OUT