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

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 NOW^%DTC  $$EXTERNAL^DILFD  $$GET1^DIQ  
IHS Changes To ADT 2 $$IHS^BDGF  $$ADMPRV^BDGF1  
Registration 2 ^DGPMLOS  (LAST,Q)^VADPT3  
Scheduling 1 PCMM^SCRPU4  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Registration 3 DGPMV  DGPMV1  DGRPD  
IHS Changes To ADT 1 BDGPI  
IHS Changes To Lab 1 BLRAG04  
IHS Electronic Health Record 1 BEHOPTC1  
Scheduling 1 SDAMEP2  

Entry Points

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

    External References

    Name Field # of Occurrence
    NOW^%DTC INP+4
    $$IHS^BDGF CS2+1
    $$ADMPRV^BDGF1 INP+14
    ^DGPMLOS CS1+14
    $$EXTERNAL^DILFD TSQ+5
    $$GET1^DIQ CS1+3, CS1+9
    PCMM^SCRPU4 CS+2
    LAST^VADPT3 INP+4
    Q^VADPT3 TSQ+6

    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: " (",X,")"
    • Line Location: CS1+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: CS1+4
    Function Call: WRITE
    • Prompt: "Patient chose not to be included in the Facility Directory for this admission"
    • Line Location: CS1+4
    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+6
    Function Call: WRITE
    • Prompt: !,"Provider : ",$E($P(DGPMVI(7),"^",2),1,26),?39,"Specialty : ",$E($P(DGPMVI(8),"^",2),1,21)
    • Line Location: CS1+7
    Function Call: WRITE
    • Prompt: !,"Ward : ",$E($P(DGPMVI(5),"^",2),1,24),?39,"Room-Bed/Ext : ",$E($P(DGPMVI(6),"^",2),1,21)_" / "_$$GET1^DIQ(405.4,+DGPMVI(6),9999999.01)
    • Line Location: CS1+9
    Function Call: WRITE
    • Prompt: !,"Provider : ",$E($P(DGPMVI(7),"^",2),1,26),?39,"Specialty : ",$E($P(DGPMVI(8),"^",2),1,21)
    • Line Location: CS1+10
    Function Call: WRITE
    • Prompt: !,"Attending : ",$E($P(DGPMVI(18),"^",2),1,26)
    • Line Location: CS1+10
    Function Call: WRITE
    • Prompt: !,"Attending :",$E($P(DGPMVI(18),"^",2),1,26)
    • Line Location: CS1+11
    Function Call: WRITE
    • Prompt: ?39,"Admitted by :",$E(DGPMVI(9999999.02),1,26)
    • Line Location: CS1+12
    Function Call: WRITE
    • Prompt: !!,"Admission LOS: ",+$P(X,"^",5)
    • Line Location: CS1+14
    Function Call: WRITE
    • Prompt: !!,"Religion : ",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"")
    • Line Location: CS2+4
    Function Call: WRITE
    • Prompt: ?39,"Marital Status : ",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"")
    • Line Location: CS2+5
    Function Call: WRITE
    • Prompt: !,"Eligibility : ",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"")
    • Line Location: CS2+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^DGPM - [#405] EXTERNAL^DILFD
    ^DG(405.4 - [#405.4] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" INP+8, INP+11
    ^DD(2 CS2+9
    ^DG(405.1 - [#405.1] CS1
    ^DG(405.4 - [#405.4] INP+9, SETWD+3
    ^DGPM - [#405] CS1, LODGER+3, LODGER+4, INP+8, INP+11, INP+12, INP+14, TSQ+1, TSQ+2, TS1+1
    , SETWD+1
    ^DGPM("APMV" GETWD+2
    ^DGPM("ATID4" LODGER+2
    ^DGPM("ATS" INP+15
    ^DGPM("C" CS+4
    ^DIC(11 - [#11] CS2+5
    ^DIC(13 - [#13] CS2+4
    ^DIC(42 - [#42] INP+9, INP+11, SETWD+2
    ^DIC(45.7 - [#45.7] TS1+4
    ^DIC(8 - [#8] CS2+7
    ^DPT - [#2] CS2+3, CS2+6, CS2+8
    ^VA(200 - [#200] TS1+2, TS1+3

    Label References

    Name Line Occurrences
    CS1 CS+6, CS+7, CS+8, CS+9
    CS2 CS+4, CS1+13
    GETWD INP+10
    NULL LODGER+3
    SETWD GETWD+1, GETWD+2
    TS1 INP+15
    TSQ INP+15

    Naked Globals

    Name Field # of Occurrence
    ^( CS2+6, CS2+8, LODGER+2
    ^(0 CS1, CS2+3, CS2+4, CS2+5, CS2+7, LODGER+3, LODGER+4, INP+9, INP+12, TS1+1
    , TS1+2, TS1+3, TS1+4, SETWD+2, SETWD+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % INP+4
    A CS+5*, CS+6, CS1+15!
    BDGCA INP+14~*
    C CS1+15!
    >> DFN CS+2, CS+4, CS1+3, CS2+3, CS2+6, CS2+8, LODGER+2, INP+14, INP+15, GETWD+2
    DGAP INP+13*, INP+15, TSQ, TSQ+6!, TS1+3*
    DGHOLD CS2+3*, CS2+4, CS2+5, CS2+6*, CS2+7, CS2+8*, CS2+9, CS2+10, CS2+11!
    >> DGPMDCD LODGER+4*, LODGER+5*, NULL*, INP+12*, TSQ+4
    >> DGPMIFN CS1+14*
    >> DGPMSV INP+11*
    >> DGPMSVC INP+11
    >> DGPMT CS+3, CS2+2
    >> DGPMVI( CS1+12, NULL*, INP+5*, INP+6*, INP+14*
    >> DGPMVI(1 LODGER+4*, LODGER+5*, INP+7*, INP+8, INP+14
    >> DGPMVI(13 CS1+5, CS1+6, CS1+14, LODGER+4*, LODGER+5*, INP+9*, INP+11*, INP+15, TSQ+1, TSQ+2
    , GETWD+1, GETWD+2
    >> DGPMVI(17 CS1, LODGER+4*, LODGER+5*, INP+11*, INP+12
    >> DGPMVI(18 CS1+10, CS1+11, TSQ*
    >> DGPMVI(19 CS1+4, TSQ+5*
    >> DGPMVI(2 CS+5, CS1, CS1+3, CS1+5, CS1+6, CS1+10, CS1+14, LODGER+4*, LODGER+5*, INP+8*
    , INP+10, GETWD+1
    >> DGPMVI(3 CS1+6, INP+8*
    >> DGPMVI(4 CS+6, INP+8*
    >> DGPMVI(5 CS1+9, INP+9*, GETWD+2, SETWD+2*
    >> DGPMVI(6 CS1+9, INP+9*, SETWD+3*
    >> DGPMVI(7 CS1+10, TSQ*
    >> DGPMVI(8 CS+5, CS1+10, TSQ*
    DGPP INP+13*, INP+15, TSQ, TSQ+6!, TS1+2*
    DGTS INP+13*, INP+15, TSQ, TSQ+6!, TS1+4*
    DGX INP+8*, INP+9, INP+11*, TSQ+1*, TSQ+2*, TSQ+3*, TSQ+4*, TSQ+5, TSQ+6!, TS1+1*
    , TS1+2, TS1+3, TS1+4
    DT CS+2
    >> E INP+7
    I CS1+15!, LODGER+2*, LODGER+3, LODGER+4, LODGER+5, NULL*, INP+5*, INP+6*, INP+15*, GETWD+2*
    IFN INP+15*, TSQ+6!, TS1+1
    J CS1+15!, INP+15*, GETWD+1*, GETWD+2*, SETWD+1
    >> NOW INP+4*
    >> NOWI INP+4*, INP+15
    U CS2+4, CS2+5, CS2+6, CS2+7, CS2+9, CS2+10, INP+14
    >> VAIP("E" INP+4, INP+7
    >> VAX("DAT" INP+4*
    X CS+3*, CS+6*, CS+7, CS+8, CS+9, CS1+3*, CS1+14, CS1+15!, LODGER+3*, LODGER+4
    , LODGER+5, SETWD+1*, SETWD+2, SETWD+3
    >> Y INP+8*, INP+11*, TS1+2*, TS1+3*
    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