Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 2 (KVAR,VAR)^VADPT30  ^VADPT31  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 3 DGPMV1  DGPMV10  VADPT0  
Shift Handoff Tool 1 CRHDUT  

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.

    External References

    Name Field # of Occurrence
    KVAR^VADPT30 Q
    VAR^VADPT30 CHK+1
    ^VADPT31 GO
    $$NOW^XLFDT 6+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGPM - [#405] 6+3, 6+11, 6+15, 6+16, OK+11, OK+12, OK1+1, LAST+4, LODGER+5, LLDCHK+4
    , ASIHOF+2, SCAN+3
    ^DGPM("APID" 6+14, 6+15, OK1, LAST+2, LAST+4, ASIHOF+1
    ^DGPM("APMV" SCAN+3
    ^DGPM("ATID4" LODGER+4, LLDCHK+2
    ^DGPM("ATID5" LLDCHK+3
    ^DPT - [#2] 6+11, LODGER+2
    ^DPT("LD" LODGER+2
    ^UTILITY("VADPTZ" Q!

    Label References

    Name Line Occurrences
    42 OK+3
    47 OK+4
    ASIHOF 6+11
    GO 6+3, 6+5, 6+11, 6+14, 6+15, 6+16
    LAST 6+5
    LASTQ LAST+3
    LLDCHK LAST+3
    LODGER 6+11, 6+14, 6+15, 6+16
    LODGERQ LODGER+1, LODGER+2
    OK 6+16, OK+2, OK+3, OK+4, LAST+4
    OK1 OK+2, OK+3, OK+4
    Q 6+5, 6+8, 6+11, 6+14, 6+15, 6+16
    Q42 42+3, 42+4
    SCAN 42+5, 47+2

    Naked Globals

    Name Field # of Occurrence
    ^( 6+11, OK1, LODGER+2, LLDCHK+2, LLDCHK+3, ASIHOF+1, SCAN+3
    ^(0 6+3, OK1+1, LAST+4, LODGER+5, ASIHOF+2, SCAN+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DFN 6+11, 6+14, 6+15, Q, OK1, LAST+2, LAST+4, LODGER+2, LODGER+4, LLDCHK+2
    , LLDCHK+3, ASIHOF+1, SCAN+3
    E 6+3*, 6+5, 6+11*, 6+14, 6+15, 6+16, Q!, OK+1*, OK+13*, LAST+2*
    , LAST+3, LODGER+1*, LODGER+2*, LODGER+4*, LODGER+5*, LLDCHK+4*, ASIHOF+1*, ASIHOF+2*
    IDT LLDCHK+1~, LLDCHK+2*, LLDCHK+3*, LLDCHK+4*
    IDT( LLDCHK+1*, LLDCHK+2*, LLDCHK+3*, LLDCHK+4
    IDT(0 LLDCHK+4
    M SCAN+2~, SCAN+3*
    NOW 6+1*, 6+10, GO, Q!, LASTQ
    NOWI 6+1*, Q!, LAST+2, LLDCHK+2, LLDCHK+3, ASIHOF+1
    VAADT OK~, OK+10*, OK+11, OK+12
    VACA SCAN+2~*, SCAN+3
    VACC Q!
    VADDT OK~, OK+11*, OK+12*
    VAID SCAN+2~*, SCAN+3*
    >> VAINDT 6+7
    >> VAIP("D" 6+5, 6+7
    >> VAIP("E" 6+3
    >> VAIP("L" LAST+3, LODGER+1
    VANN Q!
    VAQ Q!
    VAQUIT OK~, OK+9*, OK+12*
    VASET Q!
    VAX 6+7*, 6+8, 6+14*, 6+15*, 6+16, Q!, OK+2, OK+3, OK+4, OK+13
    , OK1*, OK1+1, LAST+2*, LAST+4*, LODGER+2*, LODGER+4*, LLDCHK+1, ASIHOF+1*, ASIHOF+2
    VAX("DAT" 6+1*, 6+11, LODGER+2, 42+3
    VAX("DT" 6+3*, 6+8*, 6+10*, 6+11, 6+14, GO*, OK+5, OK+9, OK+12, LASTQ*
    , LODGER+2, LODGER+4, LODGER+5
    VAZ 6+16*, Q!, OK+1, OK+5, OK+9, OK+10, OK+12, OK1, OK1+1*, LAST+4*
    , 42+3, 42+4, SCAN+2
    VAZ2 Q!, OK+1*, OK+2, OK+3, OK+4
    >> Y OK+3, OK+4, 42+3*, 42+4*, SCAN+2*, SCAN+3*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All