Routine: DGPTOTRL

Package	Total	Call Graph
Registration	3	NUMACT^DGPTSUF RTY^DGPTUTL (CLOSE,ZIS)^DGUTQ
VA Fileman	2	^%DT DT^DIQ
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Registration

NUMACT^DGPTSUF RTY^DGPTUTL (CLOSE,ZIS)^DGUTQ

VA Fileman

^%DT DT^DIQ

Kernel

$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	4	DG PTF TRANSMITTED RECORDS DGPTCO DGRUGPP1 DGRUGS

Package

Total

Caller Graph

Registration

DG PTF TRANSMITTED RECORDS DGPTCO DGRUGPP1 DGRUGS

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2, NOW+1
NUMACT^DGPTSUF	2+2
RTY^DGPTUTL	DGPTOTRL+3
CLOSE^DGUTQ	QUIT
ZIS^DGUTQ	DATE+4
DT^DIQ	HEAD+1
$$FMTE^XLFDT	DF, NOW+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,7,7,"THIS REPORT REQUIRES 132 COLUMN OUTPUT" Line Location: DGPTOTRL+2
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !,K,?14 Line Location: PRT+1
Function Call: WRITE	Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75 Line Location: PRT+1
Function Call: WRITE	Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75 Line Location: PRT+1
Function Call: WRITE	Prompt: ?26,$P(DGST,U,6),?38,$E($P(DGST,U),1,25),?66,$J(M,6),?75 Line Location: PRT+1
Function Call: WRITE	Prompt: !!,?40,"Total Transmitted Records From ",$S($D(DGW):DGW,1:"Facility "_DGH),": ",?128,$J(DGC(DGH),4) Line Location: T+0
Function Call: WRITE	Prompt: @IOF,!,?54,$P(DGRTY0,U)," TRANSMITTED RECORDS LIST",?121,"PAGE: ",$J(DGPG,3),!,?52 Line Location: HEAD+1
Function Call: WRITE	Prompt: " - " Line Location: HEAD+1
Function Call: WRITE	Prompt: !?54,"DATE RUN: ",DGNOW,!!?14,"ADMISSION",?26,"FACILITY/",?75,$S(DGRTY=1:"DISCHARGE",1:"CENSUS") Line Location: HEAD+2
Function Call: WRITE	Prompt: ?87,"RELEASED",?110,"RELEASED",?121,"TRANSMITTED",!,"SSN",?14,"DATE",?26,"SUFFIX",?38,"PATIENT NAME",?66,$S(DGRTY=1:"PTF",1:"CENSUS")," #",?75,"DATE",?87,"BY",?110,"ON",?121,"ON",! Line Location: HEAD+3
Function Call: WRITE	Prompt: Y,! Line Location: HEAD+3
Function Call: WRITE	Prompt: ! Line Location: QUIT+0
Function Call: WRITE	Prompt: $TR($$FMTE^XLFDT(Y,"5DF")," ","0") Line Location: DF+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DATE+4
^DGP(45.83 - [#45.83]	1
^DGP(45.84 - [#45.84]	2+6
^DGPT - [#45]	2
^DPT - [#2]	2+1
^UTILITY($J	1+1, 2+6*, 3+1, PRT, QUIT!
^VA(200 - [#200]	PRT+1

Name	Line Occurrences
2	1
3	1+1
DF	PRT+1
HEAD	PRT
NOW	1
PRT	3+1
QUIT	DATE+1, DATE+2, DATE+4, 1+1
T	1+1, HEAD

Name	Field # of Occurrence
^(0	2, 2+1, 2+6, PRT+1
^(70	2+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1, DATE+2!, QUIT!, NOW+1*
%DT("A"	DATE+1, DATE+2
%DT(0	DATE+1*
DFN	2+1*, QUIT!
DGAD	2+1*, 2+6, QUIT!
DGANUM	2+2!, 2+3, 2+4, 2+5!
DGBDT	DATE+1, 1, 3, HEAD+1, QUIT!
DGC	QUIT!
DGC(	2+7*, T
DGCTR	2+4*, 2+5!
DGDD	2+1*, 2+6, QUIT!
DGEDT	DATE+2, 1, 3, HEAD+1, QUIT!
DGF	2+1*, 2+6, 2+7, QUIT!
DGH	1, PRT, T, HEAD, QUIT!
DGHX	QUIT!, NOW+1*!
DGHY	NOW+1*!
DGI	2+1*, QUIT!
DGI2	2+1*, QUIT!
DGIFN	1*, 2, 2+6, QUIT!
DGNOW	HEAD+2, QUIT!, NOW+1*
DGPG	1, HEAD, HEAD+1, QUIT!
DGPGM	DATE+4*, QUIT!
DGPT	2+1*, 2+6, QUIT!
DGRB	2+6, PRT, PRT+1, QUIT!
DGRO	2+6*, QUIT!
>> DGRTY	DGPTOTRL+3, 2, HEAD+2, HEAD+3
>> DGRTY0	HEAD+1
DGSF	2+1*, 2+2, 2+4, 2+6, QUIT!
DGSSN	2+1*, 2+6, QUIT!
DGST	PRT*, PRT+1, QUIT!
DGSUFNAM	2+5!
DGSUFNAM(	2+4
DGTO	2+6*, QUIT!
DGTR	2+6*, QUIT!
DGVAR	DATE+4*, QUIT!
DGW	T!*, QUIT!
F	2+2, 2+4, 2+6, 2+7, T*, QUIT!
I	1, 2+6, 3, 3+1*, PRT, HEAD, QUIT!
I1	3+1*, QUIT!
IO	DATE+4
IOF	HEAD+1
IOSL	PRT
J	1, 3+1, PRT, QUIT!
K	1, 3, 3+1*, PRT, PRT+1, QUIT!
K1	3+1*, QUIT!
L	3+1*, PRT, PRT+1, QUIT!
M	3+1*, PRT, PRT+1, QUIT!
POP	DATE+4, QUIT!
U	1*, 2, 2+1, 2+6, PRT, PRT+1, HEAD+1
X	DATE+4, QUIT!, NOW+1
Y	DGPTOTRL+3, DATE+1, DATE+2, PRT+1, HEAD+1, HEAD+3!, QUIT!, DF, NOW+1*

Customize PDF page

Package: Registration

Routine: DGPTOTRL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
QUIT
HEAD
DF
1
PRT
3
2
T
DATE
NOW	;Called from other routines...gets present date/time and formats for outputs