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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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
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
DFNQ
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
    WARDQ
    PTF(DGPTF) ; -- determine ward at discharge
    ; o called by WARD AT DISCHARGE(c) field in PTF file
    ; input: DGPTF := ifn of ptf file

    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
    • Variable: X
    • Timeout: DTIME
    • Line Location: DFN+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DGPM - [#405] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call