Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls