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: DGPMSTAT

Package: Registration

Routine: DGPMSTAT


Information

DGPMSTAT ;ALB/JDS - DETERMINE INPATIENT STATUS - FORMERLY DGINPW ;01 JAN 1986

Source Information

Source file <DGPMSTAT.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Registration 7 DGDEATH  DGINPW  DGPMHST  DGQPT2  DGRRLU2  DGSEC  DGWARDWHEN  
Dietetics 1 FHASN71  
Order Entry Results Reporting 1 ORQPT2  
Scheduling 1 SCRPW41  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- call to return coresp adm and mvt data of pt as of a date
; input: DFN => patient file ifn
; DGT => date to check if pt was inpatient
; output: DGA1 => coresp adm mvt ifn of ^DGPM
; DG1 => ward ^ room-bed ^ mvt type(for xfrs only)
; DGXFR0 => Oth of last xfr mvt for admission
; -- init
  • ICR #1071
    • Status: Pending
    • Usage: Supported
    TR2
    TREAT1
    CA ; -- scan mvts for cor. adm that happened on or before DGT date
    ; -- if mvt is adm or xfr then set DG1
    ; -- if mvt is xfr then continue to XFR
    TREAT
    DGTQ
    DGT(X) ; FIGURE OUT WHICH TYPE OF DATE TO USE FOR DGWARDWHEN
    ; Input: X=Date in either FM format or regular date
    ; Output: Date in FM format
    XFR ; -- set DG1="" if XFR to asih(oth fac) --ELSE-- add MVT type to DG1
    CAQ

    External References

    Name Field # of Occurrence
    ^%DT DGT+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGPM - [#405] EN+13, CA+4, TREAT1
    ^DGPM("APMV" CA+4
    ^DGPM("ATID1" EN+13
    ^DGPM("ATS" TREAT1
    ^DIC(45.7 - [#45.7] TREAT+2

    Label References

    Name Line Occurrences
    CA EN+14
    DGTQ DGT+4
    EN TREAT
    TR2 TREAT1
    TREAT1 TREAT
    XFR CA+4

    Naked Globals

    Name Field # of Occurrence
    ^( EN+13, CA+4
    ^(0 CA+4, TREAT+2, TREAT1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % EN+14, CA+3*, CA+4*, XFR+1
    %DT DGT+3~, DGT+5*
    >> DFN EN+13, CA+4, TREAT1
    >> DG1 EN+8*, EN+13, EN+14*, CA+4*, XFR+1*, TREAT
    >> DG2 TREAT*, TREAT+1*, TREAT+2*, TR2*
    >> DGA1 EN+13*, CA+4, TREAT1
    DGCA EN+7~, EN+13*
    >> DGDA TREAT1*
    DGDC EN+7~, EN+13*, EN+14
    >> DGID TREAT1*
    DGNO EN+15!
    >> DGS TREAT1*, TR2
    >> DGT EN+13, EN+14, CA+4, TR2
    >> DGX TREAT1*, TR2
    >> DGXFR0 XFR+1*
    DT DGT+4
    IAD EN+7~, EN+13*
    IMD EN+7~, CA+4*
    MT EN+7~, CA+4*
    U EN+13, EN+14, TREAT+2
    X DGT~, DGT+4*, DGT+5*, DGTQ
    Y DGT+3~, DGT+5
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All