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

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

initial load of FOIAVistA 6/30/08 version

File size: 394 bytes
Line 
1DGL ;ALB/MJK - Utility for RAD ; 24 JAN 91 12:00 am
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 Q
5LOSS ; -- utility to determine if pt was an inpatient
6 ; at time NOW ; obsolete in version 5.1
7 ; input: NOW := inverse date/time
8 ; DFN
9 ; output: L := 0 not inpatient ; 1 is inpatient
10 S VAINDT=9999999.9999-NOW D ADM^VADPT2 S L=$S(VADMVT:1,1:0)
11 K VAINDT,VADMVT,NOW Q
Note: See TracBrowser for help on using the repository browser.