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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPMV

Package: Registration

Routine: DGPMV


Information

DGPMV ;ALB/MRL/MIR - PATIENT MOVEMENT DRIVER; 10 MAR 89

Source Information

Source file <DGPMV.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Registration 9 UC^DGPMV  SPCLU^DGPMV0  (,C,Q)^DGPMV1  (INP,LODGER)^DGPMV10  SEL^DGPMV2  NEW^DGPMVODS  (ENED,NEW)^DGRP  LO^DGUTL  
KVAR^VADPT  
VA FileMan 3 NOW^%DTC  ^DIC  YN^DICN  
Kernel 2 ^%ZIS  $$VERSION^XPDUTL  

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

Package Total Caller Graph
Registration 16 DG ADMIT PATIENT  DG DISCHARGE PATIENT  DG OERR TREATING TRANSFER  DG TRANSFER PATIENT  DG TREATING TRANSFER  DGDIS1  DGOERR ADMIT  DGOERR DISCHARGE  
DGOERR TRANSFER  DGPM CHECK-IN  DGPM CHECK-OUT  DGPM PROVIDER CHANGE  DGPMEX  DGPMV  DGPTFM1  DGREG  
Incomplete Records Tracking 1 DGJTVW1  

Entry Points

Name Comments DBIA/ICR reference
PAT
PAT1
OREN
MOVE ;
CHK
REG ;new patient
DIED
Q
UC ; -- set type of mvt literal
CA ; -- bypass interactive process and allows editing of past admission
; mvts
  • ICR #3470
    • Status: Active
    • Usage: Private
    DISPO ;called from admission disposition types
    DISPOQ
    USINGOR() ; return a 1 if OE/RR option is being used or 0 otherwise
    LODGER(DFN) ; Determine lodger status
    ; Input: DFN=patient IEN
    ; Output: '1' if currently a lodger, '0' otherwise

    External References

    Name Field # of Occurrence
    NOW^%DTC DISPO+5
    ^%ZIS PAT+1
    UC^DGPMV DISPO+5
    SPCLU^DGPMV0 PAT1
    ^DGPMV1 CHK+2
    C^DGPMV1 CA+11
    Q^DGPMV1 DISPOQ
    INP^DGPMV10 CA+10, DISPO+5
    LODGER^DGPMV10 LODGER+4
    SEL^DGPMV2 DISPO+11
    NEW^DGPMVODS CHK+1, DISPO+10
    ENED^DGRP REG+2
    NEW^DGRP REG+1
    LO^DGUTL PAT+1
    ^DIC PAT1+4
    YN^DICN REG+2, DIED
    KVAR^VADPT Q
    $$VERSION^XPDUTL USINGOR+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"'",$P(Y(0),"^",1),"' HAS NEVER BEEN ",$S(DGPMT'=5:"ADMITTED",1:"CHECK-IN")," TO THE DHCP ADMISSIONS MODULE" G PAT1:'DGUSEOR,Q
    • Line Location: MOVE+2
    Function Call: WRITE
    • Prompt: !?4,"Answer YES if you want to load 10/10 data at this time otherwise answer NO.",*7
    • Line Location: REG+4
    Function Call: WRITE
    • Prompt: !!,"PATIENT EXPIRED '",Y,"'...WANT TO CONTINUE"
    • Line Location: DIED+0
    Function Call: WRITE
    • Prompt: !?4,*7,"Answer YES if you want to continue this process even though the patient",!?4,"has expired otherwise answer NO!"
    • Line Location: DIED+1
    Function Call: WRITE
    • Prompt: !,"Patient is already an inpatient...editing the admission is not allowed."
    • Line Location: DISPO+6
    Function Call: WRITE
    • Prompt: !,*7,"Patient is a lodger...you can not add an admission!"
    • Line Location: DISPO+7
    Routine Call
    • DIC
    • Line Location:
      • PAT1+4
    Routine Call
    • %ZIS
    • Line Location:
      • PAT+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" DIED
    ^DGPM("APTT" MOVE+2
    ^DIC(21 - [#21] CHK+1, DISPO+10
    ^DPT - [#2] OREN+1, CHKCHK+1, REG+2, DISPO+10
    ^UTILITY("VAIP" Q!, DISPOQ!

    Label References

    Name Line Occurrences
    $$LODGER OREN+2, DISPO+7
    $$USINGOR OREN
    CHK MOVE+2
    DIED CHKDIED+1
    DISPOQ OREN+6, DISPO+6, DISPO+7
    OREN PAT1
    PAT1 MOVE+2, CHK+2
    Q PAT1PAT1+4, MOVE+2, CHK+2
    REG CHKREG+4
    UC MOVE+1, CA+9

    Naked Globals

    Name Field # of Occurrence
    ^( CHKCHK+1, DISPO+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % REG+2*, REG+3, DIED*, Q!, DISPO+6
    >> DEF DISPO+11*
    DFN PAT1+4*, OREN+1*, OREN+2, MOVE+2, CHKCHK+1, REG+2, Q!, DISPO+7, DISPO+10
    , LODGER~
    DGER PAT1, Q!
    DGODS Q!, DISPOQ!
    DGODSON CHK+1, Q!, DISPO+10, DISPOQ!
    >> DGPM1X DISPO+11*
    DGPM5X Q!
    DGPMBYP CA+11*, CA+12!
    DGPMCA CA+10~
    DGPMDCD DISPO+6, LODGER+3~
    DGPMDER OREN+6!, DISPO+5!, DISPO+6!, DISPO+7!, DISPO+11*
    DGPME MOVE+1*, CHKCHK+1*, CHK+2, REG+2*, REG+3*, DIED*, Q!, DISPO+10*
    >> DGPML DISPO+5*
    >> DGPMMD DISPO+5*
    DGPMN PAT1*, PAT1+4*, OREN+1*, CHK, Q!, DISPOQ!
    DGPMPC PAT1+1, Q!, UC+2
    DGPMSV DISPOQ!
    DGPMSVC DISPOQ!
    DGPMT PAT1PAT1+1, PAT1+4, OREN+2, MOVE+2, Q!, UC+1, UC+2, DISPO+5*, DISPOQ!
    DGPMUC Q!, UC+1*, UC+2*, CA+12!, DISPOQ!
    DGPMVI LODGER+3~
    DGPMVI(1 DISPO+6
    DGPMVI(2 LODGER+5
    DGUSEOR OREN*, OREN+1, MOVE+2, CHK+2, Q+1, Q+2!
    DIC PAT1+1*, PAT1+4!, Q!
    DIC("A" PAT1+1*
    DIC("S" PAT1+4*
    DIC(0 PAT1+1*
    I LODGER+3~
    IOF PAT+1
    ION PAT+1
    IOP PAT+1*!
    ORACTION PAT!, USINGOR+3
    ORMENU PAT!, USINGOR+4
    >> ORVP OREN+1
    RETURN USINGOR+1~, USINGOR+2*, USINGOR+3*, USINGOR+4*, USINGOR+5
    VAIP CA+10!, DISPO+5!
    VAIP("D" DISPO+5*
    VAIP("E" CA+10*
    X Q!, USINGOR+1~, USINGOR+2*, USINGOR+3, USINGOR+4, LODGER+3~
    XQORQUIT MOVE+1*, Q+1!
    >> XTEMP OREN+5*
    Y PAT1+4, CHK*, DIED, Q!, CA+12*
    Y(0 OREN+1*, MOVE+2
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All