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

Call Graph Total: 5

Package Total Call Graph
Registration 2 ^DGPMLOS  (LAST,Q)^VADPT3  
VA FileMan 2 NOW^%DTC  $$EXTERNAL^DILFD  
Scheduling 1 PCMM^SCRPU4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Registration 3 DGPMV  DGPMV1  DGRPD  
Scheduling 3 SDAMEP2  SDECEP  SDECEPT  

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

    External References

    Name Field # of Occurrence
    NOW^%DTC INP+4
    ^DGPMLOS CS1+8
    $$EXTERNAL^DILFD TSQ+5
    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: !
    • 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

    Global Variables Directly Accessed

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

    Naked Globals

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