Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMSTR3

Package: Registration

Routine: DGMSTR3


Information

DGMSTR3 ;ALB/GRR - GENERATE AND PRINT MST STATISTICAL REPORT ; 1/30/01 10:45am

Source Information

Source file <DGMSTR3.m>

Call Graph

Call Graph Total: 10

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  

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All