Routine: DGMSTR3

Package	Total	Call Graph
VA Fileman	5	DD^%DT ^%DTC ^DIC DT^DICRW ^DIR
Kernel	2	HOME^%ZIS EN^XUTMDEVQ
Registration	2	$$GETSTAT^DGMSTAPI DEM^VADPT
Scheduling	1	$$GETPDX^SDOE

Package	Total	Caller Graph
Registration	1	DGMST STATISTICAL PRINT

Entry Points

Name	Comments	DBIA/ICR reference
END1
EN	;ENTRY POINT FOR ROUTINE
RPT	;LOOP THROUGH AND CALCULATE NEW MST CASES
TDAT
HED	;PRINT HEADER INFO
PRT	;LAST CALCULATIONS AND PRINT
SDAT
DEVICE
NOFF
CALCLOS(DGPTFIEN,DGPDAYS)	;CALCULATE LOS FOR EPISODE

External References

Name	Field # of Occurrence
DD^%DT	EN+8, SDAT+3, TDAT+3
^%DTC	CALCLOS+4
HOME^%ZIS	DEVICE+3
$$GETSTAT^DGMSTAPI	RPT+16
^DIC	RPT+7
DT^DICRW	EN+7
^DIR	SDAT+1, TDAT+1, PRT+21, PRT+29, PRT+39
$$GETPDX^SDOE	RPT+24
DEM^VADPT	RPT+22, RPT+37
EN^XUTMDEVQ	DEVICE+2

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: DEVICE+1
Function Call: WRITE	Prompt: !!,"Military Sexual Trauma entry missing from Outpatient Classification Type (409.41) file" Line Location: RPT+8
Function Call: WRITE	Prompt: !!,"# OF NEW CASES IDENTIFIED FOR MST",?78-$L(DGMST("N")),DGMST("N") Line Location: PRT+5
Function Call: WRITE	Prompt: !!,"-------------OUTPATIENT STATISTICS-------------" Line Location: PRT+6
Function Call: WRITE	Prompt: !!,"# OF OUTPATIENT ENCOUNTERS RELATED TO MST",?78-$L(DGMST("O","R")),DGMST("O","R") Line Location: PRT+7
Function Call: WRITE	Prompt: !,"# OF OUTPATIENT ENCOUNTERS NOT RELATED TO MST",?78-$L(DGMST("O","NR")),DGMST("O","NR") Line Location: PRT+8
Function Call: WRITE	Prompt: !,"# OF UNIQUE OUTPATIENTS TREATED FOR MST",?78-$L(DGMST("O","U")),DGMST("O","U") Line Location: PRT+9
Function Call: WRITE	Prompt: !,"AVERAGE # OF ENCOUNTERS RELATED TO MST",?78-$L(DGMST("O","AR")),DGMST("O","AR") Line Location: PRT+10
Function Call: WRITE	Prompt: !,"AVERAGE # OF ENCOUNTERS NOT RELATED TO MST",?78-$L(DGMST("O","ANR")),DGMST("O","ANR") Line Location: PRT+11
Function Call: WRITE	Prompt: !!,"-------------INPATIENT STATISTICS---------------" Line Location: PRT+12
Function Call: WRITE	Prompt: !!,"# OF INPATIENT EPISODES RELATED TO MST",?78-$L(DGMST("I","R")),DGMST("I","R") Line Location: PRT+13
Function Call: WRITE	Prompt: !,"# OF INPATIENT EPISODES NOT RELATED TO MST",?78-$L(DGMST("I","NR")),DGMST("I","NR") Line Location: PRT+14
Function Call: WRITE	Prompt: !,"# OF UNIQUE INPATIENTS TREATED FOR MST",?78-$L(DGMST("I","U")),DGMST("I","U") Line Location: PRT+15
Function Call: WRITE	Prompt: !,"AVERAGE # OF INPATIENT EPISODES TREATED FOR MST",?78-$L(DGMST("I","AR")),DGMST("I","AR") Line Location: PRT+16
Function Call: WRITE	Prompt: !,"AVERAGE # OF INPATIENT EPISODES NOT TREATED FOR MST",?78-$L(DGMST("I","ANR")),DGMST("I","ANR") Line Location: PRT+17
Function Call: WRITE	Prompt: !,"TOTAL LENGTH OF STAY OF INPATIENTS TREATED FOR MST",?78-$L(DGMST("LOS")),DGMST("LOS") Line Location: PRT+18
Function Call: WRITE	Prompt: !,"AVERAGE LENGTH OF STAY OF INPATIENTS TREATED FOR MST",?78-$L(DGMST("ALOS")),DGMST("ALOS") Line Location: PRT+19
Function Call: WRITE	Prompt: !!,"ICD-9 CODE",?24,"NUMBER OF MALE",?54,"NUMBER OF FEMALE" Line Location: PRT+25
Function Call: WRITE	Prompt: !,?22,"OUTPATIENT",?35,"INPATIENT",?52,"OUTPATIENT",?65,"INPATIENT" Line Location: PRT+26
Function Call: WRITE	Prompt: !!,"ICD-9 CODE",?24,"NUMBER OF MALE",?54,"NUMBER OF FEMALE",!,?22,"OUTPATIENT",?35,"INPATIENT",?52,"OUTPATIENT",?65,"INPATIENT" Line Location: PRT+31
Function Call: WRITE	Prompt: @IOF Line Location: HED+1
Function Call: WRITE	Prompt: !,?20,"MST Statistical Report" Line Location: NOFF+0
Function Call: WRITE	Prompt: !,?20,"Date Range: ",DGPSDT," - ",DGPEDT Line Location: NOFF+1
Function Call: WRITE	Prompt: !,?20,"Date Report Printed: ",DGPCDT Line Location: NOFF+2
Routine Call	%ZIS Line Location: DEVICE+3
Routine Call	DIC Line Location: RPT+7
Routine Call	DIR Line Location: SDAT+1 TDAT+1 PRT+21 PRT+29 PRT+39

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	RPT+4
^DGPM - [#405]	RPT+29
^DGPM("B"	RPT+29
^DGPT - [#45]	RPT+30, RPT+34, RPT+42, CALCLOS+2, CALCLOS+3
^ICD9 - [#80]	RPT+25, RPT+38
^SCE - [#409.68]	RPT+13
^SCE("B"	RPT+11, RPT+12
^SDD(409.42 - [#409.42]	RPT+19, RPT+20
^TMP("DGMSTAPI"	END1+1!
^TMP("DGMSTR3"	EN+3!, RPT+26, RPT+27, RPT+39, RPT+40, PRT+24, PRT+27, PRT+32, PRT+33, PRT+34 , PRT+35, PRT+36, PRT+37, PRT+38

Label References

Name	Line Occurrences
$$CALCLOS	RPT+43
END1	PRT+24
HED	PRT+23, PRT+31
NOFF	PRT+4

Naked Globals

Name	Field # of Occurrence
^(	RPT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	RPT+1~, END1!
DFN	RPT+1~, RPT+9!, RPT+14, RPT+15, RPT+16, RPT+21, RPT+34*, RPT+35, RPT+36
DFN(	RPT+21, RPT+36
DGADT	CALCLOS+1~, CALCLOS+3*, CALCLOS+4
DGAPST	RPT+1~, RPT+14*
DGCALC	RPT+1~, RPT+30, RPT+33, RPT+42
DGCC	RPT+2~, RPT+17*, RPT+18
DGCLIEN	RPT+2~, RPT+19*, RPT+20
DGCSTAT	RPT+2~, RPT+16*, RPT+17
DGDA	RPT+2~, RPT+29*
DGDATE	RPT+1~, RPT+4, RPT+11, RPT+12, RPT+29*
DGDAYS	CALCLOS+1~, CALCLOS+5*, CALCLOS+6
DGDDT	CALCLOS+1~, CALCLOS+3*, CALCLOS+4
DGDX	RPT+2~, RPT+24, RPT+25, RPT+26, RPT+27, RPT+37, RPT+38, RPT+39, RPT+40, PRT+27* , PRT+32, PRT+33, PRT+34, PRT+35, PRT+36, PRT+37, PRT+38
DGDXERR	RPT+3~, RPT+24
DGEDAT	TDAT+3*, RPT+4, RPT+11, RPT+16, RPT+29, END1!
DGEIEN	RPT+1~, RPT+12*, RPT+13, RPT+19, RPT+24
DGGEN	RPT+1~, RPT+26, RPT+39
DGIEN	RPT+1~, RPT+4*
DGLDAYS	CALCLOS+1~, CALCLOS+3*, CALCLOS+5
DGLOS	RPT+2~, RPT+3~, RPT+43*
DGMIEN	RPT+2~, RPT+30*, RPT+31
DGMST	EN+4~, EN+6!, END1!
DGMST(	EN+9*
DGMST("ALOS"	EN+10, PRT+1, PRT+19
DGMST("I"	RPT+31, RPT+33, RPT+36, RPT+41, PRT+1, PRT+3*, PRT+13, PRT+14, PRT+15, PRT+16 , PRT+17
DGMST("LOS"	EN+10, RPT+43, PRT+1, PRT+18
DGMST("N"	EN+10, RPT+4, PRT+5
DGMST("O"	RPT+19, RPT+20, RPT+21, PRT+2, PRT+7, PRT+8, PRT+9, PRT+10, PRT+11
DGOCIEN	RPT+3~, RPT+9*, RPT+19
DGPCDT	EN+4~, EN+8*, END1!, NOFF+2
DGPDAYS	RPT+2~, RPT+30, RPT+31, RPT+43, CALCLOS~, CALCLOS+5
DGPEDT	EN+4~, TDAT+3*, END1!, NOFF+1
DGPSDT	EN+4~, SDAT+3*, END1!, NOFF+1
DGPTFIEN	RPT+2~, RPT+29*, RPT+30, RPT+34, RPT+42, RPT+43, CALCLOS~, CALCLOS+2, CALCLOS+3
DGSDAT	SDAT+3*, TDAT, RPT+4, RPT+11, RPT+29, END1!
DGSEDT	RPT+1~
DGSTAT	EN+4~, EN+9*
DGSUB	EN+4~, EN+9*
DGTYP	RPT+1~, RPT+26, RPT+39
DIC	RPT+6*, RPT+7!
DIC(0	RPT+6*
DIR	SDAT+1!, TDAT+1!, PRT+21!, PRT+29!, PRT+39*!
DIR("A"	SDAT, TDAT
DIR(0	SDAT, TDAT, PRT+21, PRT+29
DT	EN+8, SDAT, TDAT
DTOUT	EN+4~, EN+5~, SDAT+2, TDAT+2, RPT+1~, PRT+20, PRT+21, PRT+27, PRT+28, PRT+29
DUOUT	EN+4~, EN+5~, SDAT+2, TDAT+2, RPT+1~, PRT+20, PRT+21, PRT+27, PRT+28, PRT+29
IOF	HED+1
IOSL	PRT+20, PRT+28
IOST	PRT+21, PRT+29, PRT+39
SEX	RPT+1~, RPT+22, RPT+23, RPT+27, RPT+37, RPT+38, RPT+40
TJOB	EN+1~, EN+2*, END1+2!
VADM	RPT+1~
VADM(5	RPT+22, RPT+37
X	EN+4~, DEVICE, RPT+1~, RPT+6, END1!, CALCLOS+5
X1	CALCLOS+1~, CALCLOS+4*
X2	CALCLOS+1~, CALCLOS+4*
Y	EN+4~, EN+8, SDAT+3, TDAT+3*, RPT+1~, RPT+8, RPT+9, END1!, CALCLOS+1~
Y(0	RPT+13, RPT+14, RPT+31, RPT+32, RPT+37
Y(70	CALCLOS+2*, CALCLOS+3
ZTSAVE	EN+4~, EN+5~, DEVICE+2
ZTSAVE(	DEVICE*

Customize PDF page

Package: Registration

Routine: DGMSTR3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: