DGL.m

DGL ;ALB/MJK - Utility for RAD ; 24 JAN 91 12:00 am

 ;;5.3;Registration;;Aug 13, 1993

 ;

 Q

LOSS ; -- utility to determine if pt was an inpatient

 ;    at time NOW ; obsolete in version 5.1

 ;    input:     NOW := inverse date/time

 ;               DFN

 ;   output:       L := 0 not inpatient ; 1 is inpatient

 S VAINDT=9999999.9999-NOW D ADM^VADPT2 S L=$S(VADMVT:1,1:0)

 K VAINDT,VADMVT,NOW Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGL   405     printed  Dec 13, 2024@02:44:01                                                                                                                                                                                                          Page 2

DGL       ;ALB/MJK - Utility for RAD ; 24 JAN 91 12:00 am

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2       ;

 +3        QUIT 

LOSS      ; -- utility to determine if pt was an inpatient

 +1       ;    at time NOW ; obsolete in version 5.1

 +2       ;    input:     NOW := inverse date/time

 +3       ;               DFN

 +4       ;   output:       L := 0 not inpatient ; 1 is inpatient

 +5        SET VAINDT=9999999.9999-NOW

           DO ADM^VADPT2

           SET L=$SELECT(VADMVT:1,1:0)

 +6        KILL VAINDT,VADMVT,NOW

           QUIT