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

Package: Registration

Routine: DGPMV10


Information

DGPMV10 ;ALB/MRL/MIR - PATIENT MOVEMENT, CONT.; 11 APR 89 ; 4/15/03 5:48pm

Source Information

Source file <DGPMV10.m>

Entry Points

Name Comments DBIA/ICR reference
CS ;Current Status
CS1
CS2 ;-- additional fields for admission screen
LODGER ;set-up necessary variables if getting last lodger episode
NULL
INP ;set-up inpt vbls needed (mimic VAIP array)
  • ICR #5384
    • Status: Withdrawn
    • Usage: Controlled Subscription
  • ICR #7035
    • Status: Pending
    • Usage: Private
    TSQ
    TS1 ; set DGTS, DGPP, and DGAP
    GETWD ;get the from ward if last mvt is discharge or check-out
    SETWD ;set ward and room-bed variables for discharge/check-out mvts

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Status : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER",*7
    • Line Location: CS+4
    Function Call: WRITE
    • Prompt: "-"
    • Line Location: CS+6
    Function Call: WRITE
    • Prompt: "on PASS"
    • Line Location: CS+6
    Function Call: WRITE
    • Prompt: "on ",$S("^2^26^"[X:"A",1:"U"),"A"
    • Line Location: CS+7
    Function Call: WRITE
    • Prompt: "ASIH"
    • Line Location: CS+8
    Function Call: WRITE
    • Prompt: "OTHER FAC"
    • Line Location: CS+9
    Function Call: WRITE
    • Prompt: "on WARD"
    • Line Location: CS+10
    Function Call: WRITE
    • Prompt: ?39,"Discharge Type : ",$S($D(^DG(405.1,+$P(^(0),"^",4),0)):$P(^(0),"^",1),1:"UNKNOWN")
    • Line Location: CS1+0
    Function Call: WRITE
    • Prompt: " (Seriously ill)"
    • Line Location: CS1+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: CS1+2
    Function Call: WRITE
    • Prompt: "Patient chose not to be included in the Facility Directory for this admission"
    • Line Location: CS1+2
    Function Call: WRITE
    • Prompt: ?39,$S("^4^5^"[("^"_+DGPMVI(2)_"^"):"Checked-out",+DGPMVI(2)=3:"Discharged ",1:"Transferred")," : ",$S("^1^4^"'[("^"_+DGPMVI(2)_"^"):$P(DGPMVI(3),"^",2),$P(DGPMVI(3),"^",2)'=$P(DGPMVI(13,1),"^",2):$P(DGPMVI(3),"^",2),1:"")
    • Line Location: CS1+4
    Function Call: WRITE
    • Prompt: !,"Provider : ",$E($P(DGPMVI(7),"^",2),1,26),?39,"Specialty : ",$E($P(DGPMVI(8),"^",2),1,21)
    • Line Location: CS1+5
    Function Call: WRITE
    • Prompt: !,"Attending : ",$E($P(DGPMVI(18),"^",2),1,26)
    • Line Location: CS1+6
    Function Call: WRITE
    • Prompt: !!,"Admission LOS: ",+$P(X,"^",5)," Absence days: ",+$P(X,"^",2)," Pass Days: ",+$P(X,"^",3)," ASIH days: ",+$P(X,"^",4)
    • Line Location: CS1+8
    Function Call: WRITE
    • Prompt: !!,"Religion : ",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"")
    • Line Location: CS2+3
    Function Call: WRITE
    • Prompt: ?39,"Marital Status : ",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"")
    • Line Location: CS2+4
    Function Call: WRITE
    • Prompt: !,"Eligibility : ",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"")
    • Line Location: CS2+6

    FileMan Files Accessed Via FileMan Db Call

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