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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHCUTL 335 printed Oct 16, 2024@19:03:23 Page 2
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
