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

Package: Registration

Routine: DGPMV


Information

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

Source Information

Source file <DGPMV.m>

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

    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

    FileMan Files Accessed Via FileMan Db Call

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