Routine: DGPTFRU1

Information

DGPTFRU1 ; ALB/SCK - PTF RECORDS CLOSEOUT RPT FOR MT INDICATOR = U ; 21 JULY 2003

Source Information

Source file <DGPTFRU1.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ENDR^%ZISS ^%ZTLOAD ($$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT
VA Fileman	3	NOW^%DTC $$GET1^DIQ ^DIR
Registration	2	DEM^VADPT PID^VADPT6
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DG PTF TRANS MT EQUAL U RPT

Entry Points

Name	Comments	DBIA/ICR reference
BLD(DGBEG,DGEND)	; Build list of PTF records for discharge date range
EN	; Main entry point for report
RUN	; Run report
HDR	; Report Header
CHKMT	; Clean out all PTF records except those meeting the MT=U conditions
LAST4(DFN)	; Print last four of SSN
GETDT(DGBEG,DGEND)	; Get beginning and ending date for search ; Output DGBEG Beginning for date range, passed in by reference ; DGEND End of date range, passed in by reference ; result 1 - If function successful ; 0 - If function NOT successful (User quit)
PASTYR(DGBEG,DGEND)	; Set dates for previous fiscal year
SRTNAME	; Sort remaining PTF records by patient name and discharge date
EXIT
CURYR(DGBEG,DGEND)	; Set dates for current fiscal year
DOFD(DFN)	; Print Date of Death, if there is one
PRINT	; Print Report
MAIL	; send message with report statistics

External References

Name	Field # of Occurrence
NOW^%DTC	PASTYR+5, CURYR+5
^%ZIS	EN+28
HOME^%ZIS	EN+33
^%ZISC	EN+35
ENDR^%ZISS	EN+21
^%ZTLOAD	EN+33
$$GET1^DIQ	BLD+14, SRTNAME+5, PRINT+16, PRINT+17, PRINT+18
^DIR	EN+6, GETDT+15, GETDT+22
DEM^VADPT	DOFD+3
PID^VADPT6	LAST4+3
$$FMADD^XLFDT	PASTYR+10, PASTYR+11, BLD+5, BLD+6
$$FMTE^XLFDT	EN+17, MAIL+3, HDR+9, HDR+12
$$HDIFF^XLFDT	MAIL+7
$$HTE^XLFDT	MAIL+5, MAIL+6
$$NOW^XLFDT	CURYR+10, HDR+12
^XMD	MAIL+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Date Range: "_$$FMTE^XLFDT(DGBEG)_" to "_$$FMTE^XLFDT(DGEND) Line Location: EN+17
Function Call: WRITE	Prompt: !,"A 132-Column printer is required for this report." Line Location: EN+23
Function Call: WRITE	Prompt: !,"This report will NOT print correctly to the screen!" Line Location: EN+24
Function Call: WRITE	Prompt: !!?3,"You have selected to specify your own date range. Please note that by" Line Location: GETDT+8
Function Call: WRITE	Prompt: !?3,"doing so you may not generate an accurate picture of the transmitted PTF" Line Location: GETDT+9
Function Call: WRITE	Prompt: !?3,"closeouts where the means test indicator equals 'U'.",! Line Location: GETDT+10
Function Call: WRITE	Prompt: !,$E(DGNAME,1,30),LAST4 Line Location: PRINT+13
Function Call: WRITE	Prompt: ! Line Location: PRINT+14
Function Call: WRITE	Prompt: ?35,DGPIEN Line Location: PRINT+15
Function Call: WRITE	Prompt: ?48,$$GET1^DIQ(45,DGPIEN,11) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?57,$$GET1^DIQ(45,DGPIEN,6) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?80,$$GET1^DIQ(45,DGPIEN,7.4) Line Location: PRINT+18
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+8
Function Call: WRITE	Prompt: !!?TAB,PRNTLN Line Location: HDR+11
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+14
Function Call: WRITE	Prompt: !?TAB,PRNTLN Line Location: HDR+17
Function Call: WRITE	Prompt: !!?35,"Record",?80,"Transmission",?97,"Date of" Line Location: HDR+18
Function Call: WRITE	Prompt: !,"Patient Name",?35,"Number",?48,"Type",?57,"Status",?80,"Date",?97,"Death" Line Location: HDR+19
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+20
Routine Call	%ZIS Line Location: EN+33
Routine Call	DIR Line Location: EN+6 GETDT+15 GETDT+22
Routine Call	%ZIS Line Location: EN+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGPT - [#45]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	BLD+12, BLD+14
^DGPT("ADS"	BLD+9, BLD+11
^TMP("DGPTFRU"	RUN+2!, RUN+9!, BLD+8, BLD+14, BLD+15, BLD+16, CHKMT+4, CHKMT+6, CHKMT+7, CHKMT+10! , CHKMT+11, SRTNAME+4, SRTNAME+7, SRTNAME+9, SRTNAME+10, SRTNAME+11, SRTNAME+12, MAIL+5, MAIL+6, MAIL+7 , MAIL+9, MAIL+10, MAIL+11, PRINT+22*
^TMP("DGPTFRUS"	RUN+2!, RUN+9!, SRTNAME+10*, PRINT+6, PRINT+8, PRINT+9

Label References

Name	Line Occurrences
$$DOFD	PRINT+11
$$LAST4	PRINT+10
BLD	RUN+4
CHKMT	RUN+5
CURYR	EN+13
EXIT	EN+28
GETDT	EN+15
HDR	PRINT+4, PRINT+21
MAIL	RUN+8
PASTYR	EN+11
PRINT	RUN+7
RUN	EN+34
SRTNAME	RUN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	PASTYR+1~, CURYR+1~
%I(1	PASTYR+6, CURYR+6
%I(3	PASTYR+6, CURYR+6
%ZIS	EN+27~, EN+28*
CNT	BLD+1~
CURMN	PASTYR+1~, PASTYR+6, PASTYR+7, CURYR+1~, CURYR+6, CURYR+7
CURYR	PASTYR+1~, PASTYR+6, PASTYR+8, PASTYR+9, CURYR+1~, CURYR+6, CURYR+8, CURYR+9
DFN	BLD+1~, BLD+12, BLD+13, BLD+14, CHKMT+1~, CHKMT+3, CHKMT+4, CHKMT+6, CHKMT+7, CHKMT+10 , SRTNAME+1~, SRTNAME+3, SRTNAME+4, SRTNAME+5, SRTNAME+9, SRTNAME+10, PRINT+1~, PRINT+9, PRINT+10, PRINT+11 , LAST4~, DOFD~
DGBEG	EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+11, CURYR~ , CURYR+9, GETDT~, GETDT+17, GETDT+18, BLD~, BLD+5, MAIL+3, HDR+9
DGDOD	PRINT+1~, PRINT+11*, PRINT+19
DGEND	EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+10, CURYR~ , CURYR+10, GETDT~, GETDT+24, GETDT+25, BLD~, BLD+6, MAIL+3, HDR+9
DGIND	CHKMT+1~, CHKMT+7*, CHKMT+9
DGMAX	BLD+1~, BLD+6*, BLD+9
DGNAME	SRTNAME+1~, SRTNAME+5, SRTNAME+6, SRTNAME+10, PRINT+1~, PRINT+5, PRINT+6*, PRINT+8, PRINT+9, PRINT+13
DGPDT	SRTNAME+1~
DGPIEN	BLD+1~, BLD+10, BLD+11, BLD+12, BLD+14, CHKMT+1~, CHKMT+5, CHKMT+6, CHKMT+7, SRTNAME+1~ , SRTNAME+8, SRTNAME+9, SRTNAME+10, PRINT+1~, PRINT+7, PRINT+8, PRINT+9, PRINT+15, PRINT+16, PRINT+17 , PRINT+18
DGX	BLD+1~, BLD+5, BLD+9, BLD+11, BLD+14
DIR	EN+1~, EN+6!, GETDT+6~
DIR("?"	EN+5, GETDT+14
DIR("A"	EN+3, GETDT+13, GETDT+21*
DIR("B"	EN+4*
DIR(0	EN+3, GETDT+12, GETDT+20*
DIRUT	EN+1~, EN+7, GETDT+6~, GETDT+16, GETDT+23
DUZ	MAIL+15
IO	RUN+1
IO("Q"	EN+29, EN+33!
IOF	HDR+3
IOM	HDR+7, HDR+10, HDR+13, HDR+16, HDR+20
IORVOFF	EN+19~, EN+25
IORVON	EN+19~, EN+22
IOSL	PRINT+21
LAST4	PRINT+1~, PRINT+10*, PRINT+13
LINE	HDR+1~, HDR+20*
MSG	MAIL+1~
MSG(1	MAIL+3*
MSG(2	MAIL+4*
MSG(3	MAIL+5*
MSG(4	MAIL+6*
MSG(5	MAIL+7*
MSG(6	MAIL+8*
MSG(7	MAIL+9*
MSG(8	MAIL+10*
MSG(9	MAIL+11*
NEWNAME	PRINT+1~, PRINT+7, PRINT+12, PRINT+19, PRINT+20
PAGE	PRINT+1~, PRINT+3, HDR+3, HDR+4, HDR+15
POP	EN+27~, EN+28
PRNTLN	HDR+1~, HDR+6, HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR+14 , HDR+15, HDR+16, HDR+17
PRVYR	PASTYR+1~, PASTYR+9*, PASTYR+10, PASTYR+11
RSLT	EN+1~, EN+8*, EN+10, EN+12
SPACE	HDR+1~
TAB	HDR+1~, HDR+7, HDR+8, HDR+10, HDR+11, HDR+13, HDR+14, HDR+16, HDR+17
U	BLD+12, BLD+14, CHKMT+7, SRTNAME+10, PRINT+9, DOFD+4
VA	PRINT+1~, LAST4+1~
VA("BID"	LAST4+4
VADM	DOFD+1~
VADM(6	DOFD+4
X	EN+1~, EN+19~, EN+20*
XMDUZ	MAIL+1~, MAIL+16*
XMSUB	MAIL+1~, MAIL+13*
XMTEXT	MAIL+1~, MAIL+14*
XMY	MAIL+1~
XMY(	MAIL+15*
Y	EN+1~, EN+8, EN+19~, GETDT+6~, GETDT+18, GETDT+25
ZTDESC	EN+27~, EN+32*
ZTQUEUED	EN+27~, EXIT
>> ZTREQ	EXIT*
ZTRTN	EN+27~, EN+31*
ZTSAVE	EN+27~
ZTSAVE("DGBEG"	EN+30*
ZTSAVE("DGEND"	EN+30*
ZTSAVE("DUZ"	EN+30*

Customize PDF page

Package: Registration

Routine: DGPTFRU1

Call Graph Total: 11

Caller Graph Total: 1