source:
WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGL.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 394 bytes |
Line | |
---|---|
1 | DGL ;ALB/MJK - Utility for RAD ; 24 JAN 91 12:00 am |
2 | ;;5.3;Registration;;Aug 13, 1993 |
3 | ; |
4 | Q |
5 | LOSS ; -- 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.