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

Call Graph Total: 13

Package Total Call Graph
VA FileMan 5 DD^%DT  ^%DTC  ^DIC  DT^DICRW  ^DIR  
Kernel 3 HOME^%ZIS  $$FMADD^XLFDT  EN^XUTMDEVQ  
Registration 3 $$GETSTAT^DGMSTAPI  ($$IMPDATE,EFFDATE)^DGPTIC10  DEM^VADPT  
DRG Grouper 1 $$ICDDATA^ICDXCODE  
Scheduling 1 $$GETPDX^SDOE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMST STATISTICAL PRINT  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT EN+8, SDAT+3, TDAT+7
^%DTC CALCLOS+4
HOME^%ZIS DEVICE+3
$$GETSTAT^DGMSTAPI RPT+16
$$IMPDATE^DGPTIC10 EN+12
EFFDATE^DGPTIC10 RPT+31
^DIC RPT+7
DT^DICRW EN+7
^DIR SDAT+1, TDAT+5, PRT+21, PRT+29, PRT+38
$$ICDDATA^ICDXCODE RPT+25, RPT+40
$$GETPDX^SDOE RPT+24
DEM^VADPT RPT+22, RPT+39
$$FMADD^XLFDT TDAT+4
EN^XUTMDEVQ DEVICE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"Start date is before ICD-10 implementation.",!,?10,"End date must be before ICD-10 implementation",!
  • Line Location: TDAT+3
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: !!,DGLABEL,?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: !!,DGLABEL,?24,"NUMBER OF MALE",?54,"NUMBER OF FEMALE",!,?22,"OUTPATIENT",?35,"INPATIENT",?52,"OUTPATIENT",?65,"INPATIENT"
  • Line Location: PRT+30
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
  • DIC
  • Line Location:
    • RPT+7
Routine Call
  • DIR
  • Line Location:
    • SDAT+1
    • TDAT+5
    • PRT+21
    • PRT+29
    • PRT+38
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMS(29.11 - [#29.11] RPT+4
^DGPM - [#405] RPT+30
^DGPM("B" RPT+30
^DGPT - [#45] RPT+32, RPT+36, RPT+45, CALCLOS+2, CALCLOS+3
^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+27*, RPT+28*, RPT+42*, RPT+43*, PRT+23, PRT+27, PRT+31, PRT+32, PRT+33
, PRT+34, PRT+35, PRT+36, PRT+37

Label References

Name Line Occurrences
$$CALCLOS RPT+46
END1 PRT+23
HED PRT+22, PRT+30
NOFF PRT+4

Naked Globals

Name Field # of Occurrence
^( RPT+33

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+36*, RPT+37, RPT+38
DFN( RPT+21*, RPT+38*
DGADT CALCLOS+1~, CALCLOS+3*, CALCLOS+4
DGAPST RPT+1~, RPT+14*
DGCALC RPT+1~, RPT+32*, RPT+35*, RPT+45
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+30*
DGDATE RPT+1~, RPT+4*, RPT+11*, RPT+12, RPT+25, RPT+30*
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+28, RPT+39*, RPT+40*, RPT+41, RPT+42
, RPT+43, PRT+27*, PRT+31, PRT+32, PRT+33, PRT+34, PRT+35, PRT+36, PRT+37
DGDXERR RPT+3~, RPT+24
DGEDAT TDAT+7*, RPT+4, RPT+11, RPT+16, RPT+30, END1!
DGEIEN RPT+1~, RPT+12*, RPT+13, RPT+19, RPT+24
DGGEN RPT+1~, RPT+27*, RPT+42*
DGIEN RPT+1~, RPT+4*
DGLABEL EN+5~, PRT+24*, PRT+25, PRT+30
DGLDAYS CALCLOS+1~, CALCLOS+3*, CALCLOS+5
DGLOS RPT+2~, RPT+3~, RPT+46*
DGMIEN RPT+2~, RPT+32*, RPT+33
DGMST EN+4~, EN+6!, END1!
DGMST( EN+9*
DGMST("ALOS" EN+10*, PRT+1*, PRT+19
DGMST("I" RPT+33*, RPT+35*, RPT+38*, RPT+44*, PRT+1, PRT+3*, PRT+13, PRT+14, PRT+15, PRT+16
, PRT+17
DGMST("LOS" EN+10*, RPT+46*, 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+32*, RPT+33*, RPT+46, CALCLOS~, CALCLOS+5
DGPEDT EN+4~, TDAT+7*, END1!, NOFF+1
DGPSDT EN+4~, SDAT+3*, END1!, NOFF+1
DGPTDAT EN+5~
DGPTFIEN RPT+2~, RPT+30*, RPT+31, RPT+32, RPT+36, RPT+45, RPT+46, CALCLOS~, CALCLOS+2, CALCLOS+3
DGSDAT SDAT+3*, TDAT+1, TDAT+2, TDAT+4, RPT+4, RPT+11, RPT+30, END1!
DGSEDT RPT+1~
DGSTAT EN+4~, EN+9*
DGSUB EN+4~, EN+9*
DGTEMP EN+5~, EN+12*, RPT+25*, RPT+40*
DGTYP RPT+1~, RPT+27*, RPT+42*
DIC RPT+6*, RPT+7!
DIC(0 RPT+6*
DIR SDAT+1!, TDAT+5!, PRT+21!, PRT+29!, PRT+38*!
DIR("A" SDAT*, TDAT+1*
DIR(0 SDAT*, TDAT+1*, TDAT+4*, PRT+21*, PRT+29*
DT EN+8, SDAT, TDAT+1, TDAT+2
DTOUT EN+4~, EN+5~, SDAT+2, TDAT+6, RPT+1~, PRT+20, PRT+21, PRT+27, PRT+28, PRT+29
DUOUT EN+4~, EN+5~, SDAT+2, TDAT+6, RPT+1~, PRT+20, PRT+21, PRT+27, PRT+28, PRT+29
EFFDATE EN+5~, RPT+40
IMPDATE EN+5~, EN+12*, TDAT+2, TDAT+4
IOF HED+1
IOSL PRT+20, PRT+28
IOST PRT+21, PRT+29, PRT+38
SEX RPT+1~, RPT+22*, RPT+23, RPT+28, RPT+39*, RPT+40, RPT+43
TJOB EN+1~, EN+2*, END1+2!
VA EN+5~
VADM RPT+1~
VADM(5 RPT+22, RPT+39
VAERR EN+5~
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+7*, RPT+1~, RPT+8, RPT+9, END1!, CALCLOS+1~
Y(0 RPT+13*, RPT+14, RPT+33*, RPT+34, RPT+39
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