Routine: DG53213P

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

DG53213P ;BP-CIOFO/KEITH - NPCDB patient demographics extraction utility ; 07 Dec 98 12:05 PM

Source file <DG53213P.m>

Package	Total	Call Graph
Kernel	3	(,$$S,STAT)^%ZTLOAD $$NOW^XLFDT BMES^XPDUTL
Registration	2	XMITFLAG^VAFCDD01 $$PIVNW^VAFHPIVT
MailMan	1	^XMD
Scheduling	1	$$OUTPTPR^SDUTL3
VA Fileman	1	(C,NOW,YX)^%DTC

Name	Comments	DBIA/ICR reference
SET(DGR)	;Set patient list node
BMSG
RUN	;Exit if XTMP global exists
DONE()	;Determine if extraction is finished
REQUE(ZTRTN)	;Requeue for tomorrow's run
S1	;Send a record
STOP	;Check for stop task request
SEND	;Send group of patient records to NPCDB
ZQ()	;Determine if process is already queued
M1	;Message text
BUILD	;Build XTMP global with list of records to send
CLEAN
LQ
MSG	;Send mail message
NOQ	;Suppress option question
TXT(DGT)	;Build message line
BQ	;Queue extraction global build process

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BQ+6, M1+1
^DGPM("APTT3"	BUILD+7
^DPT - [#2]	BUILD+4, BUILD+6, M1+18
^XTMP("DG53213P"	RUN+1, RUN+3, BQ+7!, BQ+9, BQ+10, LQ, ZQ+1, BUILD+1, BUILD+11!, BUILD+13 , SEND+1, SEND+3, SEND+4, SEND+5, SEND+6!, REQUE+7, M1+5, M1+6, M1+15, M1+17 , DONE+1, S1+4, S1+5, S1+6, S1+7!, S1+9, S1+10!, SET+2, SET+3*

Name	Field # of Occurrence
%	BQ+1~, REQUE+2~, REQUE+3
%H	BQ+1~, REQUE+2~, REQUE+3*
%I	BQ+1~, REQUE+2~
DA	MSG+1~
DFN	BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+8, SEND+2, SEND+3, CLEAN!, M1+17, M1+18 , S1+2, S1+4, S1+5, S1+6, S1+7, S1+9, S1+10, SET+2
DG	MSG+1~
DG(	TXT+2*
DGCT	SEND+2, SEND+3, SEND+4, SEND+5, CLEAN!, S1+1, S1+9
DGERR	SEND+2, REQUE+8, BMSG*, CLEAN!, M1+4, M1+10
DGFS	BUILD+1, BUILD+11, SEND+1*, CLEAN!, M1+3, M1+5, M1+6, M1+7, M1+8, M1+10 , M1+11, M1+12
DGGP	SEND+1*, SEND+3, SEND+4, CLEAN!
DGI	BQ+1~, BQ+4, BUILD+1, REQUE+6, CLEAN!, M1+1, TXT+2*
DGOUT	BUILD+1, BUILD+4, BUILD+5, BUILD+11, SEND+1, SEND+3, SEND+4, CLEAN!, S1+1, STOP+1*
DGPDT	BQ+7~, BQ+8*, BQ+9
DGPV	CLEAN!, S1+2*, S1+3, S1+8, S1+9
DGQDT	BQ+3, BQ+6, BQ+10, REQUE+5, REQUE+7, CLEAN!, M1+1
DGR	SET~, SET+2
DGT	TXT~, TXT+2
DIE	MSG+1~
DR	MSG+1~
DT	BQ+8, BQ+9
DUZ	BQ+9, BMSG+2
U	BQ+9, BQ+10, ZQ+1, BUILD+6, REQUE+7, M1+18
X	RUN+1~*, BQ+8, REQUE+2~, REQUE+3, REQUE+5
X1	BQ+7~, BQ+8, REQUE+2~, REQUE+5
X2	BQ+7~, BQ+8, REQUE+2~, REQUE+5
XMDUN	MSG+1~, BMSG+1*
XMDUZ	MSG+1~, BMSG+1*
XMSUB	MSG+1~, BMSG*
XMTEXT	MSG+1~, BMSG+2*
XMY	MSG+1~
XMY(	BMSG+2*
XMZ	MSG+1~
>> XPDDIQ("XPZ1"	NOQ+1*
>> XPDENV	NOQ+1
>> XPDQUES("POS1"	BQ+3
Y	BQ+1~, BQ+6, BQ+11, REQUE+2~, M1+1, M1+11, M1+12
ZTDESC	BQ+1~, BQ+2, REQUE+2~, REQUE+4
ZTDTH	BQ+1~, BQ+3, REQUE+3, REQUE+5*
ZTIO	BQ+1~, BQ+3, REQUE+2~, REQUE+5
>> ZTQUEUED	STOP+1
ZTRTN	BQ+1~, BQ+2*, REQUE~
ZTSK	BQ+1~, BQ+4, BQ+5, BQ+10, BQ+12, ZQ+1~*, REQUE+6, REQUE+7, REQUE+8, M1+13
ZTSK(0	ZQ+2
ZTSK(1	ZQ+2
>> ZTSTOP	STOP+1*