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

Package: Registration

Routine: DGPMUTL


Information

DGPMUTL ;ALB/MJK - SELECT PATIENT MOVEMENT FOR PATIENT ; 3/24/90 1PM ;

Source Information

Source file <DGPMUTL.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^%DT  IX^DIC  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 5 DGPMGLG3  DGPTFCR  DGRUGC  ^DGPM  DGBLRV  
Dietetics 1 FHMMNADM  
Integrated Billing 1 IB20PT81  
Scheduling 1 SCRPW41  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- sets DIC and DIC(0) before calling DFN (*** FOR MAS USE ONLY ***)
; input: DFN
; All desired DIC variables except DIC and DIC(0)
; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC
PTF(DGPTF) ; -- determine ward at discharge
; o called by WARD AT DISCHARGE(c) field in PTF file
; input: DGPTF := ifn of ptf file
DFNQ
WARDQ
DIC ;
DFN ; -- select mvt for DFN patient (*** FOR MAS USE ONLY ***)
; input: DFN
; All desired DIC variables
; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC
WARD ; -- determine ward at discharge
; o called by WARD AT DISCHARGE(c) field in pt mvt file
; input: D0 := d/c ifn of pat. mvt. file
  • ICR #152
    • Status: Retired
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%DT DFN+11
    IX^DIC DIC+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$S($D(DIC("A")):DIC("A"),1:"Select Movement for "_$P(X,"^")_": ")
    • Line Location: DFN+6
    Function Call: WRITE
    • Prompt: DIC("B")_"// "
    • Line Location: DFN+6
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: DFN+7
    Routine Call
    • DIC
    • Line Location:
      • DIC+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGPM - [#405] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGPM - [#405] WARD+6, WARD+8, PTF+6
    ^DGPM("APMV" WARD+8
    ^DGPM("APTF" PTF+6
    ^DIC(42 - [#42] WARD+8
    ^DPT - [#2] DFN+5

    Label References

    Name Line Occurrences
    DFN EN+5, DFN+10, DFN+11, DFN+12
    DFNQ DFN+5, DFN+7, DFN+9, DFN+11, DFN+12
    DIC DFN+10, DFN+12
    WARD PTF+7
    WARDQ WARD+6, WARD+8

    Naked Globals

    Name Field # of Occurrence
    ^(0 DFN+5, WARD+6, WARD+8

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % DIC+1*
    %DT DFN+11*!
    CA WARD+5~, WARD+7*, WARD+8
    D DFNQ!, DIC+2*
    D0 WARD+6, PTF+5~, PTF+6*
    DFN DFN+5, DIC+2, WARD+5~, WARD+7*, WARD+8
    DGPTF PTF~, PTF+6
    >> DIC EN+5*
    >> DIC("A" DFN+6
    >> DIC("B" DFN+6, DFN+8
    >> DIC(0 EN+5*, DIC+1*
    DTIME DFN+7
    >> DTOUT DFN+7*, DFN+11, DFN+12
    >> DUOUT DFN+9*
    IDT WARD+5~, WARD+8*
    M WARD+5~, WARD+6*, WARD+7, WARD+8*
    MVT WARD+5~, WARD+8*
    U WARD+6, WARD+7, WARD+8, PTF+6
    >> X DFN+5*, DFN+6, DFN+7*, DFN+8*, DFN+9, DFN+10, DFN+11*, WARD+5*, WARD+8*
    >> Y DFN+5*, DFN+7*, DFN+9*, DFN+11, DFN+12
    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