Routine: DGPMV30

Package	Total	Call Graph
VA Fileman	3	C^%DTC YN^DICN ^DIE
Registration	2	(RIN,WIN)^DGPMDDCF SET^DGPMV32
Kernel	1	H^XUS

Package	Total	Caller Graph
Registration	5	DGPMV21 DGPMV3 DGPMV321 DGPMV331 DGPMVDL1

Entry Points

Name	Comments	DBIA/ICR reference
CHK	;Check new date/time for consistency with other movements
FAMT	;find active movement type
CHKLAST(DFN,DGCA,DGY,DGP)	;Function to confirm that patient is not on absence for time/date selected for TS transfer
CHKTSQ
WR
ASK
CHKTS(DFN,DGP,DGY)	;check previous and next ts transfer date/time

External References

Name	Field # of Occurrence
C^%DTC	CHK+17, CHK+18
RIN^DGPMDDCF	CHK+10
WIN^DGPMDDCF	CHK+9
SET^DGPMV32	CHK+18
YN^DICN	ASK+1
^DIE	ASK+5
H^XUS	ASK+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"WARNING: By changing the date/time of this 'WHILE ASIH' discharge,",!?15,"you are permanently discharging this patient from the NHCU/DOM" Line Location: ASK+0
Function Call: WRITE	Prompt: !?15,"prior to the 30 days of ASIH allotted. The patient can not be",!?15,"returned to the NHCU/DOM except by readmission.",!!?15,"Are you sure you want to continue" Line Location: ASK+1
Function Call: WRITE	Prompt: !!?5,"Enter 'Y'es to discharge the patient from the NHCU/DOM or 'N'o to",!?15,"continue patient's ASIH stay." Line Location: ASK+2
Function Call: WRITE	Prompt: !?5,*7,"NO CHANGE TO DATE/TIME MADE" Line Location: ASK+3
Function Call: WRITE	Prompt: !,*7," There is a",$S(X=1:"n admission",X=2:" transfer",X=3:" discharge",X=4:" check-in lodger",X=5:" check-out lodger",X=6:" specialty transfer",1:"")," movement on file for this patient on " Line Location: WR+0
Function Call: WRITE	Prompt: Y,"." Line Location: WR+0
Function Call: WRITE	Prompt: !!,"You ASIH movement types are not properly defined...Contact your site manager!","There is no movement type define for ",$P(^DG(405.2,DGMAS,0),"^",1) Line Location: FAMT+7
Routine Call	DIE Line Location: ASK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPM - [#405]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WR
^DG(405.1 - [#405.1]	FAMT+6, CHKLAST+13
^DG(405.2 - [#405.2]	FAMT+7
^DGPM - [#405]	CHK+1, CHK+3, CHK+4, CHK+5, CHK+6, CHK+16, CHK+26, CHKLAST+11
^DGPM("APCA"	CHK+16, CHKLAST+11
^DGPM("APID"	CHK+5
^DGPM("APMV"	CHK+26
^DGPM("APRD"	CHK+2, CHK+3
^DGPM("APTT4"	CHK+2, CHK+4
^DGPM("APTT5"	CHK+2
^DGPM("APTT6"	CHK+2, CHKTS+6, CHKTS+7
^DGPM("ATID5"	CHK+6
^DGPT("ACENSUS"	CHK+21

Label References

Name	Line Occurrences
$$CHKLAST	CHK+7
$$CHKTS	CHK+8
ASK	ASK+2
CHKTSQ	CHKTS+6
FAMT	ASK+4, CHKLAST+12
WR	CHK+3, CHK+4, CHK+5, CHK+6

Naked Globals

Name	Field # of Occurrence
^(	CHK+16, CHK+26, CHKLAST+11
^(0	CHK+3, CHK+4, CHK+5, CHK+6, CHK+16, CHK+21, CHK+26, FAMT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2, ASK+3
>> D0	CHK+9, CHK+10
>> DA	ASK+5*
DFN	CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+16, CHK+26, CHKLAST~ , CHKLAST+11, CHKTS~, CHKTS+6, CHKTS+7
DGCA	CHKLAST~, CHKLAST+11
DGFAC	ASK+4, ASK+5!, FAMT+5, FAMT+6, FAMT+7, CHKLAST+10~, CHKLAST+13
DGMAS	ASK+4, FAMT+6, FAMT+7, FAMT+8!, CHKLAST+10~, CHKLAST+12
>> DGNOW	CHK+16
DGP	CHKLAST~, CHKLAST+14, CHKTS~, CHKTS+6, CHKTS+7
>> DGPMAB	CHK+18
>> DGPMAN	CHK+18, CHK+21
>> DGPMCA	CHK+1, CHK+7, CHK+16, CHK+26
>> DGPMDA	CHK+1, ASK+5
>> DGPME	CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+9, CHK+10 , CHK+14, CHK+17, CHK+18, CHK+19, CHK+21, CHK+23, CHK+26, ASK+1
>> DGPMOS	CHK+9, CHK+10
>> DGPMP	CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+9, CHK+10, CHK+12, CHK+18 , CHK+19, CHK+23, CHK+26, ASK+3
>> DGPMT	CHK+1, CHK+7, CHK+8, CHK+11, CHK+21
>> DGPMTYP	CHK+12*, CHK+14, CHK+16, CHK+23, CHK+24
>> DGPMUC	CHK+3, CHK+4, CHK+5, CHK+6
>> DGPMY	CHK+17, CHK+18, CHK+19, CHK+23, ASK+3*
DGTS1	CHKTS+4~, CHKTS+6*
DGTS2	CHKTS+4~, CHKTS+7*
DGX	CHKLAST+10~, CHKLAST+11*
DGX0	CHKLAST+10~, CHKLAST+11*, CHKLAST+13
DGXTS	CHK+8~*
DGY	CHKLAST~, CHKLAST+11, CHKLAST+14, CHKTS~, CHKTS+6, CHKTS+7
DGZ	CHKLAST+10~, CHKLAST+11*
>> DIE	ASK+5*
>> DR	ASK+5*
I	CHK+16, FAMT+5~, FAMT+6
>> K	CHK+16*, CHK+17
U	CHK+1, CHKLAST+11
X	CHK+3, CHK+4, CHK+5, CHK+6, CHK+9, CHK+10, CHK+17, CHK+18, CHK+19, CHK+26* , WR, CHKLAST+10~, CHKLAST+11, CHKLAST+13, CHKLAST+14, CHKLAST+15, CHKTS+4~, CHKTS+5, CHKTS+6, CHKTS+7* , CHKTSQ
>> X1	CHK+3, CHK+4, CHK+5, CHK+6, CHK+17, CHK+18
>> X2	CHK+17, CHK+18
>> Y	CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, WR*
>> Z	CHK+3, CHK+4, CHK+5, CHK+6, WR

Customize PDF page

Package: Registration

Routine: DGPMV30

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: