Routine: DGPMV

Call Graph

Call Graph Total: 17

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

Call Graph

Registration

UC^DGPMV SPCLU^DGPMV0 (,C,Q)^DGPMV1 (INP,LODGER)^DGPMV10 SEL^DGPMV2 NEW^DGPMVODS (ENED,NEW)^DGRP LO^DGUTL
KVAR^VADPT

VA Fileman

NOW^%DTC ^DIC YN^DICN

IHS Changes To ADT

MSG^BDGF $$HRCN^BDGF2

Kernel

^%ZIS $$VERSION^XPDUTL

IHS User Security Audit

$$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

Package

Total

Caller Graph

Registration

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

ADGRPD BDGAPI BDGAPI2

Incomplete Records Tracking

DGJTVW1

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	DISPO+5
^%ZIS	PAT+1
MSG^BDGF	PAT1+10, PAT1+11
$$HRCN^BDGF2	PAT1+9
$$LOG^BUSAAPI	UC+7
UC^DGPMV	DISPO+5
SPCLU^DGPMV0	PAT1
^DGPMV1	CHK+2
C^DGPMV1	CA+11
Q^DGPMV1	DISPOQ
INP^DGPMV10	CA+10, DISPO+5
LODGER^DGPMV10	LODGER+4
SEL^DGPMV2	DISPO+11
NEW^DGPMVODS	CHK+1, DISPO+10
ENED^DGRP	REG+2
NEW^DGRP	REG+1
LO^DGUTL	PAT+1
^DIC	PAT1+5
YN^DICN	REG+2, DIED
KVAR^VADPT	Q
$$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+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	Line Occurrences
$$LODGER	OREN+2, DISPO+7
$$USINGOR	OREN
CHK	MOVE+5
DIED	CHK, DIED+1
DISPOQ	OREN+6, DISPO+6, DISPO+7
OREN	PAT1
PAT1	PAT1+9, MOVE+5, CHK+2
Q	PAT1, PAT1+5, MOVE+5, CHK+2
REG	CHK, REG+4
UC	MOVE+1, CA+9

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Registration

Routine: DGPMV

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: