Routine: DGPMV

Package	Total	Call Graph
Registration	9	UC^DGPMV SPCLU^DGPMV0 (,C,Q)^DGPMV1 (INP,LODGER)^DGPMV10 SEL^DGPMV2 NEW^DGPMVODS (ENED,NEW)^DGRP LO^DGUTL KVAR^VADPT
VA FileMan	3	NOW^%DTC ^DIC YN^DICN
Kernel	2	^%ZIS $$VERSION^XPDUTL

Package	Total	Caller Graph
Registration	16	DG ADMIT PATIENT DG DISCHARGE PATIENT DG OERR TREATING TRANSFER DG TRANSFER PATIENT DG TREATING TRANSFER DGDIS1 DGOERR ADMIT DGOERR DISCHARGE DGOERR TRANSFER DGPM CHECK-IN DGPM CHECK-OUT DGPM PROVIDER CHANGE DGPMEX DGPMV DGPTFM1 DGREG
Kernel	2	^DIC(19 ^ORD(101
Electronic Health Modernization	1	EHMDGPMV
Incomplete Records Tracking	1	DGJTVW1

Entry Points

Name	Comments	DBIA/ICR reference
PAT
PAT1
OREN
MOVE	;
CHK
REG	;new patient
DIED
Q
UC	; -- set type of mvt literal
CA	; -- bypass interactive process and allows editing of past admission ; mvts	ICR #3470 Status: Active Usage: Private
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

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: !?4,"Answer YES if you want to load 10/10 data at this time otherwise answer NO.",*7 Line Location: REG+4
Function Call: WRITE	Prompt: !!,"PATIENT EXPIRED '",Y,"'...WANT TO CONTINUE" Line Location: DIED+0
Function Call: WRITE	Prompt: !?4,*7,"Answer YES if you want to continue this process even though the patient",!?4,"has expired otherwise answer NO!" Line Location: DIED+1
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	DIC Line Location: PAT1+4
Routine Call	%ZIS Line Location: PAT+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DIED
^DGPM("APTT"	MOVE+2
^DIC(21 - [#21]	CHK+1, DISPO+10
^DPT - [#2]	OREN+1, CHK, CHK+1, REG+2, DISPO+10
^UTILITY("VAIP"	Q!, DISPOQ!

Name	Field # of Occurrence
^(	CHK, CHK+1, DISPO+10

Name	Field # of Occurrence
%	REG+2, REG+3, DIED, Q!, DISPO+6
>> DEF	DISPO+11*
DFN	PAT1+4, OREN+1, OREN+2, MOVE+2, CHK, CHK+1, REG+2, Q!, DISPO+7, DISPO+10 , LODGER~
DGER	PAT1, Q!
DGODS	Q!, DISPOQ!
DGODSON	CHK+1, Q!, DISPO+10, DISPOQ!
>> DGPM1X	DISPO+11*
DGPM5X	Q!
DGPMBYP	CA+11*, CA+12!
DGPMCA	CA+10~
DGPMDCD	DISPO+6, LODGER+3~
DGPMDER	OREN+6!, DISPO+5!, DISPO+6!, DISPO+7!, DISPO+11*
DGPME	MOVE+1, CHK, CHK+1, CHK+2, REG+2, REG+3, DIED, Q!, DISPO+10
>> DGPML	DISPO+5*
>> DGPMMD	DISPO+5*
DGPMN	PAT1, PAT1+4, OREN+1*, CHK, Q!, DISPOQ!
DGPMPC	PAT1+1, Q!, UC+2
DGPMSV	DISPOQ!
DGPMSVC	DISPOQ!
DGPMT	PAT1, PAT1+1, PAT1+4, OREN+2, MOVE+2, Q!, UC+1, UC+2, DISPO+5*, DISPOQ!
DGPMUC	Q!, UC+1, UC+2, CA+12!, DISPOQ!
DGPMVI	LODGER+3~
DGPMVI(1	DISPO+6
DGPMVI(2	LODGER+5
DGUSEOR	OREN*, OREN+1, MOVE+2, CHK+2, Q+1, Q+2!
DIC	PAT1+1*, PAT1+4!, Q!
DIC("A"	PAT1+1*
DIC("S"	PAT1+4*
DIC(0	PAT1+1*
I	LODGER+3~
IOF	PAT+1
ION	PAT+1
IOP	PAT+1*!
ORACTION	PAT!, USINGOR+3
ORMENU	PAT!, USINGOR+4
>> ORVP	OREN+1
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!, USINGOR+1~, USINGOR+2*, USINGOR+3, USINGOR+4, LODGER+3~
XQORQUIT	MOVE+1*, Q+1!
>> XTEMP	OREN+5*
Y	PAT1+4, CHK, DIED, Q!, CA+12
Y(0	OREN+1*, MOVE+2