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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: EHMDGPMV2

Package: Electronic Health Modernization

Routine: EHMDGPMV2


Information

EHMDGPMV2 ;ALB/WTC - EHRM - AUTOMATED PATIENT DISCHARGE TOOL; Mar 18, 2025@13:02:27

Source Information

Source file <EHMDGPMV2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 UP^DGHELP  (,WR)^DGPMV20  (,PTF)^DGPMV21  SCHDADM^DGPMV22  
VA FileMan 2 ^%DT  (HELP,NOW)^%DTC  
Electronic Health Modernization 1 DGPMV3^EHMDGPMV3  

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 EHMDGPMV1  

Entry Points

Name Comments DBIA/ICR reference
DGPMV2 ;ALB/MRL/MIR - PATIENT MOVEMENT PROCESSOR; 21 APR 1989
SEL
NEW
SEL2 ; DISABLED EHM*1*15 ;S DGPMN=0 W !! W:'DGPM1X "Select " W DGPMUC," DATE: ",DEF W $S(DEF]"":"// ",1:"") R X:DTIME G Q:'$T!(X["^") I X["?" D SHOW G SEL2
CONT
Q
E
SHOW
S
S1
S2
S4
S6
OLD ;for previous entries (discharges and check-outs) skip select

External References

Name Field # of Occurrence
^%DT SEL2+7
HELP^%DTC SHOW+1
NOW^%DTC DGPMV2+5, SEL2+2
UP^DGHELP SEL2+2
^DGPMV20 NEW+2
WR^DGPMV20 SHOW
^DGPMV21 CONT+2, OLD+1
PTF^DGPMV21 DGPMV2+3
SCHDADM^DGPMV22 CONT+2
DGPMV3^EHMDGPMV3 CONT+2, OLD+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"INPATIENT ARRAY NOT DEFINED...MODULE ENTERED INCORRECTLY"
  • Line Location: DGPMV2+2
Function Call: WRITE
  • Prompt: !?22,"Enter '?' to see more choices"
  • Line Location: NEW+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL2+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL2+0
Function Call: WRITE
  • Prompt: I
  • Condition for execution: 'DGPM1X "Select " W DGPMUC," DATE: ",DEF W $S(DEF]"":"// ",1:"") R X:DTIME G Q:'$T!(X["^")
  • Line Location: SEL2+0
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: SEL2+2
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: SEL2+4
Function Call: WRITE
  • Prompt: " (",Y,")"
  • Line Location: SEL2+5
Function Call: WRITE
  • Prompt: !?8,*7,"NOT A VALID SELECTION...CHOOSE BY DATE/TIME OR NUMBER."
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !?8,"NEW MOVEMENT ENTRIES MUST INCLUDE A DATE AND TIME."
  • Condition for execution: DGPMN
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,DGPME
  • Line Location: OLD+2
Function Call: WRITE
  • Prompt: !,DGPME
  • Line Location: OLD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SEL+1, SEL2+2, SEL2+5
^DG(405.1 - [#405.1] NEW
^DGPM - [#405] CONT, S, S1, S2, S4, S6
^DGPM("APMV" S2
^DGPM("ATID1" S1
^DGPM("ATID4" S4
^DGPM("ATS" S6
^UTILITY("DGPMVD" SEL2+7, SEL2+8, CONT, Q!, S1*, S2*, S4*, S6*
^UTILITY("DGPMVN" DGPMV2+6, NEW+3, SEL2+5, SEL2+6, Q!, SHOW, S1*, S2*, S4*, S6*

Label References

Name Line Occurrences
@( DGPMV2+5
CONT SEL2+2, SEL2+3, SEL2+5
E SEL2+2, SEL2+6, SEL2+7, SEL2+8
NEW DGPMV2+4
OLD DGPMV2+4, OLD+3
Q DGPMV2+3, SEL, OLD+1, OLD+4
S DGPMV2+3
SEL SEL2+2, SEL2+6, SEL2+7, SEL2+8, CONT+2

Naked Globals

Name Field # of Occurrence
^( SEL2+5, CONT, S1, S2, S4, S6
^(0 CONT, S, S1, S2, S4, S6
^(1 DGPMV2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DGPMV2+7, DGPMV2+8, SEL2+2, Q!
%DT SEL2+7*, CONT+2!, SHOW*, SHOW+1!, OLD+1!
%DT(0 SEL2+7*
C DGPMV2+6!, SHOW+1!, S1*, S2*, S4*, S6*
D DGPMV2+6!, Q!, SHOW+1!, S1*, S2*, S4*, S6*
DEF DGPMV2+3*, DGPMV2+7*, DGPMV2+8*, SEL+1*, SEL2+1, SEL2+2, Q!
>> DFN S1, S2, S4, S6
DGONE NEW*, NEW+1*, Q!
DGPM1X DGPMV2+3*, DGPMV2+4*, Q!
>> DGPM2X DGPMV2+7
DGPMAN CONT*, Q!, S*
DGPMCA CONT*, Q!, S*, S2, S6
>> DGPMDA CONT*, OLD+1*
>> DGPMDCD DGPMV2+4, DGPMV2+7, DGPMV2+8, OLD+1
DGPME DGPMV2+3!, DGPMV2+4!, SEL, SEL+1!, CONT+2, Q!, OLD+1, OLD+3
DGPML DGPMV2+4*, DGPMV2+6*, DGPMV2+7, NEW+2, Q!
DGPMMD DGPMV2+3*, DGPMV2+7*, SEL+1, SEL2+3, SEL2+8, Q!
DGPMN SEL2+1*, SEL2+2*, SEL2+8*, CONT+2, Q!, E, OLD+1*
DGPMSA Q!
>> DGPMT DGPMV2+3, DGPMV2+4, DGPMV2+5, DGPMV2+7, DGPMV2+8, NEW, SEL2+2, SEL2+8, CONT, CONT+2
>> DGPMUC SEL2+1
>> DGPMVI DGPMV2+2
>> DGPMVI(1 S
>> DGPMVI(13 S
>> DGPMVI(17 OLD+1
>> DGPMY CONT*, CONT+2, OLD+1*, OLD+3
>> DGX NEW*, NEW+1
>> DGZ SEL2+2*, SEL2+5*
I DGPMV2+6!, Q!, SHOW*, SHOW+1!, S1*, S2*, S4*, S6*
I1 Q!, SHOW+1!
J DGPMV2+6!, Q!, S6*
N DGPMV2+6!, Q!, SHOW+1!, S1*, S2*, S4*, S6*
PTF Q!
X SEL2+1*, SEL2+2, SEL2+3, SEL2+5, SEL2+6, Q!
Y SEL+1*, SEL2+2*, SEL2+3*, SEL2+5*, SEL2+7, SEL2+8, CONT, Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All