Routine: DGPMV

Call Graph

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
IHS Changes To ADT	2	MSG^BDGF $$HRCN^BDGF2
Kernel	2	^%ZIS $$VERSION^XPDUTL
IHS User Security Audit	1	$$LOG^BUSAAPI

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
IHS Changes To ADT	3	ADGRPD BDGAPI BDGAPI2
Incomplete Records Tracking	1	DGJTVW1

Name	Comments	DBIA/ICR reference
PAT1
OREN
CHK
PAT
DISPO	;called from admission disposition types
CA	; -- bypass interactive process and allows editing of past admission ; mvts	ICR #3470 Status: Active Usage: Private
MOVE	;
Q
LODGER(DFN)	; Determine lodger status ; Input: DFN=patient IEN ; Output: '1' if currently a lodger, '0' otherwise
USINGOR()	; return a 1 if OE/RR option is being used or 0 otherwise
UC	; -- set type of mvt literal
DISPOQ
REG	;new patient
DIED

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+4
Function Call: WRITE	Prompt: !!,"'",$P(Y(0),"^",1),"' HAS NEVER BEEN ",$S(DGPMT'=5:"ADMITTED",1:"CHECK-IN")," TO THE IHS ADMISSIONS MODULE" G PAT1:'DGUSEOR,Q Line Location: MOVE+5
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+5
Routine Call	%ZIS Line Location: PAT+1

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	UC+4
^DD("DD"	DIED
^DGPM("APTT"	MOVE+5
^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
BDGAUDIT	UC+5~, UC+7*
BDGREC	UC+5~
BDGREC(1	UC+6*
>> DEF	DISPO+11*
DFN	PAT1+5, PAT1+9, OREN+1, OREN+2, MOVE+5, CHK, CHK+1, REG+2, Q!, UC+6 , 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+5, OREN+1*, CHK, Q!, DISPOQ!
DGPMPC	PAT1+1, Q!, UC+2
DGPMSV	DISPOQ!
DGPMSVC	DISPOQ!
DGPMT	PAT1, PAT1+1, PAT1+5, OREN+2, MOVE+5, Q!, UC+1, UC+2, DISPO+5*, DISPOQ!
DGPMUC	Q!, UC+1, UC+2, UC+7, CA+12!, DISPOQ!
DGPMVI	LODGER+3~
DGPMVI(1	DISPO+6
DGPMVI(2	LODGER+5
DGUSEOR	OREN*, OREN+1, MOVE+5, CHK+2, Q+1, Q+2!
DIC	PAT1+1*, PAT1+5!, Q!
DIC("A"	PAT1+1*
DIC("S"	PAT1+5*
DIC(0	PAT1+1*
DLAYGO	PAT1+5!
DUZ(2	PAT1+9
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
U	UC+7
VAIP	CA+10!, DISPO+5!
VAIP("D"	DISPO+5*
VAIP("E"	CA+10*
X	Q!, UC+4, USINGOR+1~, USINGOR+2, USINGOR+3, USINGOR+4, LODGER+3~
XQORQUIT	MOVE+1*, Q+1!
>> XQY0	UC+7
>> XTEMP	OREN+5*
Y	PAT1+5, CHK, DIED, Q!, CA+12
Y(0	OREN+1*, MOVE+5