Routine: DGMSTR4

Package	Total	Call Graph
Registration	4	($$GETSTAT,$$NAME)^DGMSTAPI (KVA,PID)^VADPT PAUSE^VALM1 PATIENT^VAUTOMA
Kernel	3	HOME^%ZIS ($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Registration	1	DGMST HISTORY REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point
RPT	; Generate and print report
BUILD(PTARRY,RPARRY)	; Build TMP global of patients to include in report form array ; of patient names passed in (PTARRY)
HEADER()	; Print report header

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,"No data found for report." Line Location: RPT+11
Function Call: WRITE	Prompt: !?2,$E($P(MSTNAME,U),1,$L($P(MSTNAME,U)))," ("_VA("PID")_")" Line Location: RPT+17
Function Call: WRITE	Prompt: !?2,$$FMTE^XLFDT(-MSTDT) Line Location: RPT+21
Function Call: WRITE	Prompt: ?21,$J($P(DGMST,U,2),2) Line Location: RPT+22
Function Call: WRITE	Prompt: ?30,$$GET1^DIQ(4,(+$P(DGMST,U,7))_",",99) Line Location: RPT+23
Function Call: WRITE	Prompt: ?36,$E($$NAME^DGMSTAPI($P(DGMST,U,4)),1,25) Line Location: RPT+24
Function Call: WRITE	Prompt: ?61,$E($$NAME^DGMSTAPI($P(DGMST,U,5)),1,25) Line Location: RPT+25
Function Call: WRITE	Prompt: ! Line Location: RPT+26
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+5
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+7
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+10
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+13
Function Call: WRITE	Prompt: !!?2,"Status Date",?21,"Status",?30,"Site",?36,"Provider",?61,"Who entered status",! Line Location: HEADER+15
Function Call: WRITE	Prompt: SDASH,! Line Location: HEADER+17
Routine Call	%ZIS Line Location: EN+11

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	BUILD+6, BUILD+9
^DPT - [#2]	BUILD+12

Name	Line Occurrences
$$HEADER	RPT+6, RPT+28
BUILD	RPT+5

Name	Field # of Occurrence
DFN	RPT+1~, RPT+15, BUILD+3~, BUILD+5, BUILD+6*, BUILD+7, BUILD+9, BUILD+10, BUILD+12
DGMST	RPT+20, RPT+22, RPT+23, RPT+24, RPT+25, BUILD+3~, BUILD+10, BUILD+11, BUILD+12
DGQUIT	RPT+1~, RPT+14, RPT+19, RPT+27, RPT+28*
FRSTPAS	RPT+1~, HEADER+2, HEADER+3, HEADER+4*
IOF	HEADER+5, HEADER+7
IOM	HEADER+9, HEADER+12, HEADER+16
IOSL	RPT+27
IOST	HEADER+2
LINE	HEADER+1~, HEADER+9, HEADER+10, HEADER+12!, HEADER+13
MSTDT	RPT+18, RPT+19, RPT+20, RPT+21, BUILD+3~, BUILD+8, BUILD+9, BUILD+10, BUILD+12
MSTIEN	BUILD+3~
MSTNAME	RPT+1~, RPT+13, RPT+14, RPT+15, RPT+17, RPT+19, RPT+20
PTARRY	BUILD~, BUILD+7
PTARRY(	BUILD+7
RPARRY	BUILD~, BUILD+12
RPTREF	RPT+1~, RPT+3*, RPT+4, RPT+5, RPT+10, RPT+14, RPT+19, RPT+20, RPT+31
SDASH	HEADER+1~, HEADER+16*, HEADER+17
STR	HEADER+1~, HEADER+8, HEADER+9, HEADER+10, HEADER+11, HEADER+12, HEADER+13
U	RPT+15, RPT+17, RPT+22, RPT+23, RPT+24, RPT+25, BUILD+12
VA	EN+1~
VA("PID"	RPT+17
VAUTN	EN+1~, EN+6, RPT+5
VAUTN(""	EN+6
VAUTNI	EN+1~, EN+4*
Y	EN+1~, HEADER+2
ZTSAVE	EN+1~, EN+8~, EN+10
ZTSAVE("VAUTN"	EN+9*