Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: VADPT3

Package: Registration

Routine: VADPT3


Information

VADPT3 ;ALB/MRL - PATIENT VARIABLES [IN5]; 12 DEC 1988 ; 7/22/03 5:00pm

Source Information

Source file <VADPT3.m>

Entry Points

Name Comments DBIA/ICR reference
6 ;
GO
Q
OK
OK1
LAST ; returns last movement for patient
; called by bed control and pt inquiry
  • ICR #5143
    • Status: Pending
    • Usage: Private
    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.
    Info |  Source |  Entry Points