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

Package: Electronic Health Modernization

Routine: EHMDGPMV


Information

EHMDGPMV ;ALB/WTC - EHRM - AUTOMATED PATIENT DISCHARGE TOOL; Apr 24, 2025@05:53:22

Source Information

Source file <EHMDGPMV.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 7 UC^DGPMV  (C,Q)^DGPMV1  (INP,LODGER)^DGPMV10  SEL^DGPMV2  NEW^DGPMVODS  LO^DGUTL  KVAR^VADPT  
VA FileMan 3 NOW^%DTC  YN^DICN  ^DIE  
Kernel 2 ^%ZIS  $$VERSION^XPDUTL  
Electronic Health Modernization 1 $$ENTRY^EHMDGPMV1  

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

Package Total Caller Graph
Electronic Health Modernization 1 EHMDISCH  

Entry Points

Name Comments DBIA/ICR reference
ENTRY(DFN) ; EHM*1*15
;
; DFN = Patient (pointer to #2)
PAT
PAT1
OREN ; DISABLED EHM*1*15 ;S DGUSEOR=$$USINGOR()
; DISABLED EHM*1*15 ;I DGUSEOR Q:'$D(ORVP) S DFN=+ORVP,DGPMN="",Y(0)=$G(^DPT(DFN,0))
; DISABLED EHM*1*15 ;I $$LODGER(DFN)&(DGPMT=1) D Q
; DISABLED EHM*1*15 ;.W !,*7,"Patient is a lodger...you can not add an admission!"
; DISABLED EHM*1*15 ;.W !," Press RETURN to continue"
; DISABLED EHM*1*15 ;.R XTEMP:30
; DISABLED EHM*1*15 ;.D DISPOQ K DGPMDER
MOVE ;
CHK ; DISABLED EHM*1*15 ;D:DGPMN REG I 'DGPME,$D(^DPT(DFN,.35)),+^(.35) S Y=+^(.35) D DIED
; DISABLED EHM*1*15 ;D NEW^DGPMVODS I $S('DGODSON:0,'$D(^DPT(DFN,.32)):1,'$D(^DIC(21,+$P(^(.32),"^",3),0)):1,1:0) S DGPME=1
REG ;new patient
; DISABLED EHM*1*15 ; D NEW^DGRP
; DISABLED EHM*1*15 ;W !!,"NEW PATIENT! WANT TO LOAD 10-10 DATA NOW" S %=1 D YN^DICN I %=1 D ENED^DGRP S:'$D(^DPT(DFN,0)) DGPME=1 Q
; DISABLED EHM*1*15 ;Q:%>0 I % S DGPME=1 Q
; DISABLED EHM*1*15 ;W !?4,"Answer YES if you want to load 10/10 data at this time otherwise answer NO.",*7 G REG
DIED
Q ;WTC ;K %,DFN,DGER,DGPM5X,DGODS,DGODSON,DGPMUC,DGPME,DGPMN,DGPMT,DGPMPC,DIC,X,Y,^UTILITY("VAIP",$J) D KVAR^VADPT
UC ; -- set type of mvt literal
CA ; -- bypass interactive process and allows editing of past admission
; mvts
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
DSC2CRNR(DFN) ;

External References

Name Field # of Occurrence
NOW^%DTC DISPO+5
^%ZIS PAT+1
UC^DGPMV DISPO+5
C^DGPMV1 CA+11
Q^DGPMV1 DISPOQ
INP^DGPMV10 CA+10, DISPO+5
LODGER^DGPMV10 LODGER+4
SEL^DGPMV2 DISPO+11
NEW^DGPMVODS DISPO+10
LO^DGUTL PAT+1
YN^DICN DIED
^DIE DSC2CRNR+5
$$ENTRY^EHMDGPMV1 CHK+2
KVAR^VADPT Q+6
$$VERSION^XPDUTL USINGOR+2

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: !!,"PATIENT EXPIRED '",Y,"'...WANT TO CONTINUE"
  • Line Location: DIED+0
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
Routine Call
  • DIE
  • Line Location:
    • DSC2CRNR+5
Routine Call
  • %ZIS
  • Line Location:
    • PAT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DIED
^DIC(21 - [#21] DISPO+10
^DPT - [#2] DISPO+10
^UTILITY("VAIP" Q+6!, DISPOQ!

Label References

Name Line Occurrences
$$LODGER DISPO+7
DISPOQ DISPO+6, DISPO+7
DSC2CRNR Q+4
Q CHK+2
UC MOVE+1, CA+9

Naked Globals

Name Field # of Occurrence
^( DISPO+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DIED*, Q+6!, DISPO+6
DA DSC2CRNR+4~, DSC2CRNR+5*
>> DEF DISPO+11*
DFN ENTRY~, Q+4, Q+6!, DISPO+7, DISPO+10, LODGER~, DSC2CRNR~, DSC2CRNR+5
DGER Q+6!
DGODS Q+6!, DISPOQ!
DGODSON Q+6!, DISPO+10, DISPOQ!
>> DGPM1X DISPO+11*
DGPM5X Q+6!
DGPMBYP CA+11*, CA+12!
DGPMCA CA+10~
DGPMDCD DISPO+6, LODGER+3~
DGPMDER DISPO+5!, DISPO+6!, DISPO+7!, DISPO+11*
DGPME MOVE+1*, CHK+2*, DIED*, Q+6!, DISPO+10*
>> DGPML DISPO+5*
>> DGPMMD DISPO+5*
DGPMN ENTRY+5*, Q+6!, DISPOQ!
DGPMPC Q+6!, UC+2
DGPMSV DISPOQ!
DGPMSVC DISPOQ!
DGPMT ENTRY+4~, ENTRY+5*, Q+6!, UC+1, UC+2, DISPO+5*, DISPOQ!
DGPMUC Q+6!, UC+1*, UC+2*, CA+12!, DISPOQ!
DGPMVI LODGER+3~
DGPMVI(1 DISPO+6
DGPMVI(2 LODGER+5
DGUSEOR Q+7, Q+8!
DIC Q+6!
DIE DSC2CRNR+4~, DSC2CRNR+5*
DR DSC2CRNR+4~, DSC2CRNR+5*
EHMRTNCD ENTRY+4~, CHK+2*, Q+4
I LODGER+3~
IOF PAT+1
ION PAT+1
IOP PAT+1*!
ORACTION PAT!, USINGOR+3
ORMENU PAT!, USINGOR+4
RETURN USINGOR+1~, USINGOR+2*, USINGOR+3*, USINGOR+4*, USINGOR+5
VAIP CA+10!, DISPO+5!
VAIP("D" DISPO+5*
VAIP("E" CA+10*
X Q+6!, USINGOR+1~, USINGOR+2*, USINGOR+3, USINGOR+4, LODGER+3~
XQORQUIT MOVE+1*, Q+7!
Y DIED, Q+6!, CA+12*
ZTQUEUED ENTRY+4~, ENTRY+6*
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