source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VAFHCUTL.m@ 1796

Last change on this file since 1796 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 323 bytes
Line 
1VAFHCUTL ;ALB/CM OUTPATIENT UTILITIES ;05/01/95
2 ;;5.3;Registration;**91**;Jun 06, 1996
3 ;
4GETPTR(TYPE) ;
5 ;gets pointer pivot entry for outpatient encounter file
6 ;while in outpatient event driver
7 ;
8 ;returns OUTPATIENT ENCOUNTER PTR
9 ;
10 N OUT
11 S OUT=$O(^TMP("SDEVT",$J,SDHDL,TYPE,"SDOE","")) ;outpt encounter ptr
12 Q OUT
Note: See TracBrowser for help on using the repository browser.