- 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 Apr 23, 2025@19:16:55 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
