VADPT3 ;ALB/MRL - PATIENT VARIABLES [IN5]; 12 DEC 1988 ; 7/22/03 5:00pm
Source file <VADPT3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
6 | ;
|
|
GO | ||
Q | ||
OK | ||
OK1 | ||
LAST | ; returns last movement for patient
; called by bed control and pt inquiry |
|
LASTQ | ||
LODGER | ;
|
|
LODGERQ | ||
LLDCHK | ; -- last lodger mvt checking ; build array of inverse dates and chk
|
|
CHK | ;
|
|
ASIHOF | ; -- is last mvt asih oth fac
|
|
42 | ; -- check to see if this mvt can be used; for 'while asih' d/c category
; If Y returned high then mvt is good |
|
Q42 | ||
SCAN | ; -- determine is d/c while in other fac(Y=1 returned if so.)
|
|
47 | ; -- check to see if d/c from nhcu while asih in other fac
; If y returned high then mvt is good. |