Routine: DGPTFVC3

Package	Total	Call Graph
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
Registration	2	(ANYPSY,DC,FLAGCHK,GETNUM,SCAN)^DGPTSCAN LO^DGUTL

Package	Total	Caller Graph
Registration	1	DGPTFTR

Entry Points

Name	Comments	DBIA/ICR reference
CHK4Q
EN	;
INITQ
CHKFL5	;-- check field entries
W701	;-- display error messages for 701
701	;-- process 701 load DGPTIT array
CHKFL4	;-- check field entries
ENQ	;
INIT	;
CHK5Q
W501	;-- display error message for 501
401	;-- check 401's for inconsistent data
CHK7Q	;
W401	;-- display error message for 401
ERRMSG	;-- error messages
501	;-- check 501's for inconsistent data

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"401 Surgery date: ",X,"...",$P($T(ERRMSG+1),";",4) Line Location: W401+2
Function Call: WRITE	Prompt: !,"501 Movement date: ",X,"...",$P($T(ERRMSG+DGII),";",4) Line Location: W501+2
Function Call: WRITE	Prompt: !,"701 ",$P($T(ERRMSG+DGII),";",4) Line Location: W701+1
Routine Call	%ZIS Line Location: INIT+4

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6, W401+1 , W501+1, INIT+3

Name	Field # of Occurrence
DG701	701+7*, CHK7Q+1!
DGBPC	ENQ+1!, CHKFL5+3, CHK5Q!, CHKFL4+3, CHK4Q!, 701+5
DGBPC(	CHKFL5+7, 701+10
DGBPC(1	CHKFL4+6
>> DGERR	CHKFL5+7, CHKFL4+6, 701+10, INIT+3
DGFNUM	CHKFL5+7, CHK5Q!, 701+10, CHK7Q+1!
DGHOLD	ENQ+1!, 501+2, CHKFL5+1, CHKFL5+4, CHKFL5+7, 401+2, CHKFL4+1, CHKFL4+4, CHKFL4+6, CHK7Q+1!
DGI	701+3*, CHK7Q+1!
DGII	CHKFL5+7, CHK5Q!, 701+10, CHK7Q+1!
DGJ	ENQ+1!, CHKFL5+1, CHKFL4+1
DGMOV	ENQ+1!, 501+2*, 501+3!, CHKFL5+3, CHKFL5+4, W501+1
DGOUT	EN+1, ENQ+1!, INIT+1, INIT+2, INIT+3*
DGPTF	ENQ+1!, 501+2, CHKFL5+3, CHKFL5+4, 401+2, CHKFL4+3, CHKFL4+4, 701+2, 701+5, 701+6 , W401+1, W501+1, INIT+2*, INIT+3
DGPTIT	ENQ+1!, 501+1!, CHK5Q!, 401+1!, CHK4Q!, 701+1!
DGPTIT(	CHKFL5+1, CHKFL4+1, 701+3*
DGREC	ENQ+1!, 701+2*, 701+3
DGSUR	ENQ+1!, 401+2*, CHKFL4+3, CHKFL4+4, W401+1
DGTREC	701+6*, 701+10, CHK7Q+1!
>> PTF	INIT+1, INIT+2
U	CHKFL5+1, CHKFL5+7, CHKFL4+1, CHKFL4+6, 701+3, 701+10
X	W401+1~, W401+2, W501+1~, W501+2

Name	Field # of Occurrence
$T(ERRMSG+1	W401+2
$T(ERRMSG+DGII	W501+2, W701+1