Routine: DGMSTR1

Package	Total	Call Graph
VA Fileman	3	DD^%DT DT^DICRW ^DIR
Kernel	2	HOME^%ZIS EN^XUTMDEVQ
Registration	1	$$GETSTAT^DGMSTAPI

Package	Total	Caller Graph
Registration	1	DGMST SUMMARY REPORT

Entry Points

Name	Comments	DBIA/ICR reference
TDAT
SDAT
EN	;ENTRY POINT FOR ROUTINE
RPT	;LOOP THROUGH PATIENT FILE TO CALCULATE UNKNOWN STATUSES
EXCLUDE(DFN)	;DETERMINE IF PATIENT SHOULD BE EXCLUDED FROM MST TRACKING

External References

Name	Field # of Occurrence
DD^%DT	SDAT+3, TDAT+3, RPT+31
HOME^%ZIS	TDAT+7
$$GETSTAT^DGMSTAPI	RPT+10
DT^DICRW	EN+3
^DIR	SDAT+1, TDAT+1, RPT+67
EN^XUTMDEVQ	TDAT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This may take long to print, queue the report to free-up your terminal!",! Line Location: TDAT+5
Function Call: WRITE	Prompt: @IOF Line Location: RPT+28
Function Call: WRITE	Prompt: !,?20,"MST Summary Report" Line Location: RPT+29
Function Call: WRITE	Prompt: !,?20,"Date Range: ",DGPSDT," - ",DGPEDT Line Location: RPT+30
Function Call: WRITE	Prompt: !,?20,"Date report Printed: ",DGPCDT,!! Line Location: RPT+32
Function Call: WRITE	Prompt: !,"Total Male with a MST Status",?78-$L(DGMST("M")),DGMST("M") Line Location: RPT+33
Function Call: WRITE	Prompt: !,"Total Female with a MST Status",?78-$L(DGMST("F")),DGMST("F") Line Location: RPT+34
Function Call: WRITE	Prompt: !,"Total Patients with a MST Status",?78-$L(DGMST("T")),DGMST("T") Line Location: RPT+35
Function Call: WRITE	Prompt: !!,"MST STATUS",?47,"Y",?57,"N",?67,"D",?77,"U" Line Location: RPT+36
Function Call: WRITE	Prompt: !!,"Total Male" Line Location: RPT+37
Function Call: WRITE	Prompt: ?48-$L(DGMST("M","Y")),DGMST("M","Y") Line Location: RPT+38
Function Call: WRITE	Prompt: ?58-$L(DGMST("M","N")),DGMST("M","N") Line Location: RPT+39
Function Call: WRITE	Prompt: ?68-$L(DGMST("M","D")),DGMST("M","D") Line Location: RPT+40
Function Call: WRITE	Prompt: ?78-$L(DGMST("M","U")),DGMST("M","U") Line Location: RPT+41
Function Call: WRITE	Prompt: !,"Total Female" Line Location: RPT+42
Function Call: WRITE	Prompt: ?48-$L(DGMST("F","Y")),DGMST("F","Y") Line Location: RPT+43
Function Call: WRITE	Prompt: ?58-$L(DGMST("F","N")),DGMST("F","N") Line Location: RPT+44
Function Call: WRITE	Prompt: ?68-$L(DGMST("F","D")),DGMST("F","D") Line Location: RPT+45
Function Call: WRITE	Prompt: ?78-$L(DGMST("F","U")),DGMST("F","U") Line Location: RPT+46
Function Call: WRITE	Prompt: !!,"Total Patients with MST Status" Line Location: RPT+47
Function Call: WRITE	Prompt: ?48-$L(DGMST("Y")),DGMST("Y") Line Location: RPT+48
Function Call: WRITE	Prompt: ?58-$L(DGMST("N")),DGMST("N") Line Location: RPT+49
Function Call: WRITE	Prompt: ?68-$L(DGMST("D")),DGMST("D") Line Location: RPT+50
Function Call: WRITE	Prompt: ?78-$L(DGMST("U")),DGMST("U") Line Location: RPT+51
Function Call: WRITE	Prompt: !!,"Percent of Male" Line Location: RPT+52
Function Call: WRITE	Prompt: ?48-$L($J(DGMST("%M","Y"),3,1)),$J(DGMST("%M","Y"),3,1) Line Location: RPT+53
Function Call: WRITE	Prompt: ?58-$L($J(DGMST("%M","N"),3,1)),$J(DGMST("%M","N"),3,1) Line Location: RPT+54
Function Call: WRITE	Prompt: ?68-$L($J(DGMST("%M","D"),3,1)),$J(DGMST("%M","D"),3,1) Line Location: RPT+55
Function Call: WRITE	Prompt: ?78-$L($J(DGMST("%M","U"),3,1)),$J(DGMST("%M","U"),3,1) Line Location: RPT+56
Function Call: WRITE	Prompt: !,"Percent of Female" Line Location: RPT+57
Function Call: WRITE	Prompt: ?48-$L($J(DGMST("%F","Y"),3,1)),$J(DGMST("%F","Y"),3,1) Line Location: RPT+58
Function Call: WRITE	Prompt: ?58-$L($J(DGMST("%F","N"),3,1)),$J(DGMST("%F","N"),3,1) Line Location: RPT+59
Function Call: WRITE	Prompt: ?68-$L($J(DGMST("%F","D"),3,1)),$J(DGMST("%F","D"),3,1) Line Location: RPT+60
Function Call: WRITE	Prompt: ?78-$L($J(DGMST("%F","U"),3,1)),$J(DGMST("%F","U"),3,1) Line Location: RPT+61
Function Call: WRITE	Prompt: !!,"Percent of all patients" Line Location: RPT+62
Function Call: WRITE	Prompt: ?48-$L($J(DGMST("%","Y"),3,1)),$J(DGMST("%","Y"),3,1) Line Location: RPT+63
Function Call: WRITE	Prompt: ?58-$L($J(DGMST("%","N"),3,1)),$J(DGMST("%","N"),3,1) Line Location: RPT+64
Function Call: WRITE	Prompt: ?68-$L($J(DGMST("%","D"),3,1)),$J(DGMST("%","D"),3,1) Line Location: RPT+65
Function Call: WRITE	Prompt: ?78-$L($J(DGMST("%","U"),3,1)),$J(DGMST("%","U"),3,1) Line Location: RPT+66
Function Call: WRITE	Prompt: ! Line Location: RPT+67
Function Call: WRITE	Prompt: @IOF Line Location: RPT+67
Function Call: WRITE	Prompt: @IOF Line Location: RPT+68
Function Call: WRITE	Prompt: !! Line Location: RPT+69
Function Call: WRITE	Prompt: !,"----- LEGEND -----" Line Location: RPT+70
Function Call: WRITE	Prompt: !,"Y means Yes, Reports MST" Line Location: RPT+71
Function Call: WRITE	Prompt: !,"N means No, Does not Report MST" Line Location: RPT+72
Function Call: WRITE	Prompt: !,"D means Declined to Answer" Line Location: RPT+73
Function Call: WRITE	Prompt: !,"U means Unknown" Line Location: RPT+74
Function Call: WRITE	Prompt: ! Line Location: RPT+75
Routine Call	%ZIS Line Location: TDAT+7
Routine Call	DIR Line Location: SDAT+1 TDAT+1 RPT+67

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	RPT+5, RPT+9
^DPT - [#2]	RPT+2, RPT+4, RPT+15, EXCLUDE+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	RPT+1~, RPT+2, RPT+3, RPT+4, RPT+5, RPT+9, RPT+10, RPT+15, EXCLUDE~, EXCLUDE+2
DGEDAT	EN+1~, TDAT+3*, RPT+10
DGMIFN	RPT+1~, RPT+14*
DGMST	EN+1~, EN+2!
DGMST(	RPT+5, RPT+17, RPT+18, RPT+22, RPT+23, RPT+24, RPT+25
DGMST("%"	RPT+25*, RPT+63, RPT+64, RPT+65, RPT+66
DGMST("%F"	RPT+24*, RPT+58, RPT+59, RPT+60, RPT+61
DGMST("%M"	RPT+23*, RPT+53, RPT+54, RPT+55, RPT+56
DGMST("D"	RPT+50
DGMST("F"	EN+4, EN+5, RPT+20, RPT+22, RPT+24, RPT+34, RPT+43, RPT+44, RPT+45, RPT+46
DGMST("M"	EN+4, EN+5, RPT+20, RPT+22, RPT+23, RPT+33, RPT+38, RPT+39, RPT+40, RPT+41
DGMST("N"	RPT+49
DGMST("T"	RPT+20*, RPT+25, RPT+35
DGMST("U"	RPT+51
DGMST("Y"	RPT+48
DGMSTST	RPT+1~, RPT+13*, RPT+17
DGPCDT	RPT+31*, RPT+32, RPT+76!
DGPEDT	EN+1~, TDAT+3*, RPT+30
DGPSDT	EN+1~, SDAT+3*, RPT+30
DGSDAT	EN+1~, SDAT+3*, TDAT, RPT+12
DGSTAT	EN+1~, EN+4*, RPT+76!
DIR	SDAT+1!, TDAT+1!, RPT+67!
DIR("A"	SDAT, TDAT
DIR(0	SDAT, TDAT, RPT+67*
DT	SDAT, TDAT, RPT+31
DTOUT	EN+1~, SDAT+2, TDAT+2, RPT+67
DUOUT	EN+1~, SDAT+2, TDAT+2, RPT+67
IOF	RPT+28, RPT+67, RPT+68
IOST	RPT+28, RPT+67, RPT+68
S	RPT+21*, RPT+22, RPT+23, RPT+24, RPT+25, RPT+76!
SEX	RPT+1~, RPT+4, RPT+5, RPT+15, RPT+16, RPT+17, RPT+18
X	EN+1~, TDAT+4*, RPT+76!
Y	EN+1~, SDAT+3, TDAT+3, RPT+10, RPT+11, RPT+12, RPT+13, RPT+14, RPT+31, RPT+76!
ZTSAVE	EN+1~, TDAT+6
ZTSAVE(	TDAT+4*

Customize PDF page

Package: Registration

Routine: DGMSTR1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: