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

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

initial load of WorldVistAEHR

File size: 323 bytes
RevLine 
[613]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.