Routine: DGOTHRP6

Information

DGOTHRP6 ;SLC/RED(LIB) - OTHD (OTHER THAN HONORABLE DISCHARGE) Reports ;May 9,2018@05:08

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS (,$$S)^%ZTLOAD $$FMTE^XLFDT
Registration	3	ASKCONT^DGOTHMG2 (DEM,KVA)^VADPT $$SITE^VASITE
VA FileMan	3	WAIT^DICD $$GET1^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG OTH POTENTIAL OTH DG53P952

Entry Points

Name	Comments	DBIA/ICR reference
EN	; VistA option: DG OTH POTENTIAL OTH PTS
ENQUE	; Queued entry
PRTHDR	;
PRNTREP	;Print the report
STARTDT(MINDT,MAXDT)	;
QUIT	;

External References

Name	Field # of Occurrence
^%ZIS	EN+7
HOME^%ZIS	EN+12
^%ZTLOAD	EN+12
$$S^%ZTLOAD	PRTHDR+1
ASKCONT^DGOTHMG2	PRNTREP+4
WAIT^DICD	EN+14
$$GET1^DIQ	ENQUE+9, ENQUE+13, ENQUE+15, ENQUE+18
^DIR	PRNTREP+8, STARTDT+13
DEM^VADPT	ENQUE+16
KVA^VADPT	ENQUE+17
$$SITE^VASITE	PRTHDR+10
$$FMTE^XLFDT	PRTHDR+8, PRNTREP+12, STARTDT+7, STARTDT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: EN+13
Function Call: WRITE	Prompt: @IOF Line Location: PRTHDR+2
Function Call: WRITE	Prompt: "This report will list patients registered in VistA since Executive" Line Location: PRTHDR+4
Function Call: WRITE	Prompt: !,"Order #13822 (dated Jan. 9, 2018) who have an 'Other Than Honorable'" Line Location: PRTHDR+5
Function Call: WRITE	Prompt: !,"discharge type and are not currently enrolled in VA healthcare." Line Location: PRTHDR+6
Function Call: WRITE	Prompt: !!,"The default start date is 7/1/17, you may select a different start date" Line Location: PRTHDR+7
Function Call: WRITE	Prompt: !?3,"REPORT RUN DATE: ",$$FMTE^XLFDT(DT,10),?40,"STARTING DATE RANGE: ",$$FMTE^XLFDT(DGSTDT,10),! Line Location: PRTHDR+8
Function Call: WRITE	Prompt: "=" Line Location: PRTHDR+9
Function Call: WRITE	Prompt: !,"PATIENTS WITH 'OTH' DISCHARGE TYPE",?37,"FACILITY: ",$E($P($$SITE^VASITE,U,2),1,19),?68,"PAGE: ",PAGE,! Line Location: PRTHDR+10
Function Call: WRITE	Prompt: "=" Line Location: PRTHDR+11
Function Call: WRITE	Prompt: !,"PATIENT",?22,"PID",?30,"REG. DATE",?41,"CURRENT PRIMARY ELIG.",?65,"DATE OF",!,?65,"DEATH",! Line Location: PRTHDR+12
Function Call: WRITE	Prompt: "-" Line Location: PRTHDR+13
Function Call: WRITE	Prompt: !,$E(NAM,1,20),?22,$P(@DGARRAY@(NAM),U),?30,$$FMTE^XLFDT($P(@DGARRAY@(NAM),U,2),5),?41,$E($P(@DGARRAY@(NAM),U,4),1,23),?65,$$FMTE^XLFDT($P(@DGARRAY@(NAM),U,3),5) Line Location: PRNTREP+12
Function Call: READ	Formatting: !!?8 Prompt: "End of the Report...Press Enter to Continue" Variable: X Timeout: DTIME Line Location: PRNTREP+14
Function Call: WRITE	Prompt: @IOF Line Location: PRNTREP+14
Routine Call	%ZIS Line Location: EN+7
Routine Call	%ZIS Line Location: EN+12
Routine Call	DIR Line Location: PRNTREP+8 STARTDT+13

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.3216	GET1^DIQ
^DGEN(27.11 - [#27.11]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGEN(27.11 - [#27.11]	ENQUE+12
^DGOTH(33 - [#33]	ENQUE+11
^DPT - [#2]	ENQUE+5, ENQUE+6, ENQUE+8
^TMP("DGOTHRP6"	ENQUE+2

Label References

Name	Line Occurrences
$$STARTDT	EN+4
PRNTREP	ENQUE+20
PRTHDR	ENQUE+20, PRNTREP+10
QUIT	ENQUE+20, PRNTREP+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+7*
>> %ZIS("B"	EN+7*
COUNT	ENQUE+1~, ENQUE+3, ENQUE+19, PRNTREP+13
DASH	ENQUE+1~, PRTHDR+9, PRTHDR+11, PRTHDR+13*
DESCR	ENQUE+1~, STARTDT+1*
DFN	ENQUE+1~, ENQUE+5*, ENQUE+6, ENQUE+8, ENQUE+9, ENQUE+11, ENQUE+12, ENQUE+15, ENQUE+18
DGARRAY	ENQUE+1~, ENQUE+2*, ENQUE+19, PRNTREP+2, PRNTREP+7, PRNTREP+12, QUIT+1
DGDISC	ENQUE+1~, ENQUE+9*, ENQUE+10
DGDOD	ENQUE+1~, ENQUE+15*, ENQUE+19
DGELIG	ENQUE+1~, ENQUE+18*, ENQUE+19
DGENDT	ENQUE+1~, ENQUE+6*, ENQUE+7, ENQUE+19
DGENR	ENQUE+1~, ENQUE+12*, ENQUE+13
DGLAST	ENQUE+1~, ENQUE+8*, ENQUE+9
DGNAME	ENQUE+1~, ENQUE+17*, ENQUE+19
DGQ	ENQUE+1~, PRTHDR+1*
DGSTAT	ENQUE+1~, ENQUE+13*, ENQUE+14
DGSTDT	EN+1~, EN+4, EN+5, ENQUE+4, ENQUE+7, PRTHDR+8
DIR	PRNTREP+8!, STARTDT+5~
DIR("?"	STARTDT+11, STARTDT+12
DIR("A"	STARTDT+9*
DIR("B"	STARTDT+10*
DIR(0	PRNTREP+8, STARTDT+8
DIROUT	STARTDT+5~
DIRUT	STARTDT+5~
DT	EN+3, PRTHDR+8
DTIME	PRNTREP+14
DTOUT	PRNTREP+9, STARTDT+5~, STARTDT+14
DUOUT	PRNTREP+9, STARTDT+5~, STARTDT+14
EXIT	ENQUE+1~, PRNTREP+6, PRNTREP+7, PRNTREP+9, PRNTREP+11, PRNTREP+13, PRNTREP+14
IO("Q"	EN+7!, EN+9
IOF	EN+2, PRTHDR+2, PRNTREP+14
IOP	EN+7!
IOSL	PRNTREP+8
IOST	EN+14, PRNTREP+8, PRNTREP+14
MAXDT	EN+3*, EN+4, STARTDT~, STARTDT+7, STARTDT+8
MAXDTE	EN+1~, STARTDT+7*
MINDT	EN+3*, EN+4, STARTDT~, STARTDT+8
MINDTE	EN+1~, STARTDT+7*, STARTDT+12
NAM	PRNTREP+1~, PRNTREP+6, PRNTREP+7, PRNTREP+12
PAGE	ENQUE+1~, ENQUE+3, PRTHDR+3, PRTHDR+10, PRNTREP+10
PID	ENQUE+1~, ENQUE+17*, ENQUE+19
>> POP	EN+7*, EN+8
U	ENQUE+6, ENQUE+17, ENQUE+19, PRTHDR+10, PRNTREP+12
>> VADM(1	ENQUE+17
>> VADM(2	ENQUE+17
X	PRNTREP+14*, STARTDT+5~
Y	STARTDT+5~, STARTDT+15
>> ZTDESC	EN+10*
>> ZTQUEUED	PRTHDR+1
>> ZTRTN	EN+10*
>> ZTSAVE("DGSTDT"	EN+11*
>> ZTSAVE("ZTREQ"	EN+11*
>> ZTSK	EN+13
>> ZTSTOP	PRTHDR+1*

Customize PDF page

Package: Registration