Routine: DGFFP04

Information

DGFFP04 ;ALB/SCK - FUGITIVE FELON PROGRAM CLEARED REPORT 12/5/02

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
Registration	2	GETDT^DGFFP02 PID^VADPT6
VA Fileman	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Registration	1	DGFFP CLEARED STATUS RPT

Name	Comments	DBIA/ICR reference
GETLST(DGBEG,DGEND)	; Retreive cleared FF Flags by date range (date cleared)
HDR(DGBEG,DGEND)	;
RPT	;
GETALL	;
START	;
PRINT(DGBEG,DGEND)	;
QUE	;
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$CHAR(7) Line Location: QUE+12
Function Call: WRITE	Prompt: !?5,">> This report requires a 132-column printer" Line Location: QUE+13
Function Call: WRITE	Prompt: !!?5,"Report canceled" Line Location: START+6
Function Call: WRITE	Prompt: !!?5,"Report Queued" Line Location: START+7
Function Call: WRITE	Prompt: !,TXT Line Location: PRINT+11
Function Call: WRITE	Prompt: ?40,$$FMTE^XLFDT($P(DGNODE,U,3),"2D") Line Location: PRINT+13
Function Call: WRITE	Prompt: ?50,$$GET1^DIQ(200,$P(DGNODE,U,2),.01) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?80,$$FMTE^XLFDT($P(DGNODE,U,5),"2D") Line Location: PRINT+15
Function Call: WRITE	Prompt: ?90,$$GET1^DIQ(200,$P(DGNODE,U,4),.01) Line Location: PRINT+16
Function Call: WRITE	Prompt: !?5,$P(DGNODE,U,9) Line Location: PRINT+17
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !?SPACE,TXT Line Location: HDR+6
Function Call: WRITE	Prompt: !?SPACE,TXT Line Location: HDR+11
Function Call: WRITE	Prompt: !?SPACE,TXT Line Location: HDR+15
Function Call: WRITE	Prompt: !?SPACE,TXT Line Location: HDR+20
Function Call: WRITE	Prompt: !!,"Patient Name",?40,"Entered",?50,"Who Entered",?80,"Cleared",?90,"Who Cleared" Line Location: HDR+22
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+23
Routine Call	%ZIS Line Location: EXIT
Routine Call	DIR Line Location: QUE+7
Routine Call	%ZIS Line Location: QUE+14

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETALL+4, GETALL+5, GETALL+7, GETLST+5, GETLST+6, GETLST+8
^DPT("AXFFP"	GETALL+6, GETLST+7
^TMP("DGFFP"	RPT+4!, RPT+10!, GETALL+7, GETLST+10, PRINT+6, PRINT+8, PRINT+12

Name	Field # of Occurrence
^("FFP"	GETALL+7

Name	Field # of Occurrence
%ZIS	QUE+1~, QUE+14*
DFN	PRINT+1~, PRINT+7, PRINT+8, PRINT+12
DGABRT	PRINT+1~, PRINT+6, PRINT+8
DGBEG	QUE+1~, QUE+9*, QUE+10, RPT+6, RPT+9, GETLST~, GETLST+9, PRINT~, PRINT+4, HDR~ , HDR+8, HDR+9
DGDFN	GETALL+1~, GETALL+3, GETALL+4, GETALL+5, GETALL+6, GETALL+7, GETLST+1~, GETLST+3, GETLST+5, GETLST+6 , GETLST+7, GETLST+8, GETLST+10
DGEND	QUE+1~, QUE+9, QUE+10, RPT+6, RPT+9, GETLST~, GETLST+4, GETLST+9, PRINT~, PRINT+4 , HDR~, HDR+9
DGFFP	GETLST+1~, GETLST+8*, GETLST+9, GETLST+10
DGIEN	GETALL+1~
DGNAME	PRINT+1~, PRINT+5, PRINT+6, PRINT+8, PRINT+10, PRINT+12
DGNODE	PRINT+1~, PRINT+12*, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17
DGTMP	QUE+1~
DIR	QUE+1~, QUE+7!
DIR("?"	QUE+4, QUE+5, QUE+6*
DIR("A"	QUE+3*
DIR("B"	QUE+3*
DIR(0	QUE+3*
DIRUT	QUE+1~, QUE+8
IO	QUE+1~, RPT+3
IO("Q"	QUE+15
IOF	HDR+3
IOM	HDR+5, HDR+10, HDR+14, HDR+19, HDR+23
IOST	HDR+3
LINE	HDR+1~, HDR+23*
PAGE	RPT+1~, PRINT+1~, PRINT+3, HDR+17, HDR+18
POP	QUE+1~, QUE+14
SPACE	HDR+1~, HDR+5, HDR+6, HDR+10, HDR+11, HDR+14, HDR+15, HDR+19, HDR+20
TXT	PRINT+1~, PRINT+10, PRINT+11, HDR+1~, HDR+4, HDR+5, HDR+6, HDR+9, HDR+10, HDR+11 , HDR+13, HDR+14, HDR+15, HDR+18*, HDR+19, HDR+20
U	GETALL+7, GETLST+9, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17
VA	PRINT+1~
VA("BID"	PRINT+10
Y	QUE+1~, QUE+9
ZTDESC	QUE+1~, START+3*
ZTDTH	QUE+1~, START+1*
ZTIO	QUE+1~
ZTRTN	QUE+1~, START+4*
ZTSAVE	QUE+1~
ZTSAVE("DGBEG"	START+2*
ZTSAVE("DGEND"	START+2*
ZTSK	QUE+1~, START+6