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: DGMSTR1

Package: Registration

Routine: DGMSTR1


Information

DGMSTR1 ;ALB/GRR - GENERATE AND PRINT SUMMARY REPORT ; Jan 6, 1999

Source Information

Source file <DGMSTR1.m>

Entry Points

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

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