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

Package: Registration

Routine: DGMSTR1


Information

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

Source Information

Source file <DGMSTR1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 DD^%DT  DT^DICRW  ^DIR  
Kernel 2 HOME^%ZIS  EN^XUTMDEVQ  
Registration 1 $$GETSTAT^DGMSTAPI  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMST SUMMARY REPORT  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT SDAT+3, TDAT+3, RPT+31
HOME^%ZIS TDAT+7
$$GETSTAT^DGMSTAPI RPT+10
DT^DICRW EN+3
^DIR SDAT+1, TDAT+1, RPT+67
EN^XUTMDEVQ TDAT+6

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
Routine Call
  • %ZIS
  • Line Location:
    • TDAT+7
Routine Call
  • DIR
  • Line Location:
    • SDAT+1
    • TDAT+1
    • RPT+67

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMS(29.11 - [#29.11] RPT+5, RPT+9
^DPT - [#2] RPT+2, RPT+4, RPT+15, EXCLUDE+2

Label References

Name Line Occurrences
$$EXCLUDE RPT+3

Naked Globals

Name Field # of Occurrence
^( EXCLUDE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN RPT+1~, RPT+2*, RPT+3, RPT+4, RPT+5, RPT+9*, RPT+10, RPT+15, EXCLUDE~, EXCLUDE+2
DGEDAT EN+1~, TDAT+3*, RPT+10
DGMIFN RPT+1~, RPT+14*
DGMST EN+1~, EN+2!
DGMST( RPT+5*, RPT+17*, RPT+18*, RPT+22*, RPT+23, RPT+24, RPT+25
DGMST("%" RPT+25*, RPT+63, RPT+64, RPT+65, RPT+66
DGMST("%F" RPT+24*, RPT+58, RPT+59, RPT+60, RPT+61
DGMST("%M" RPT+23*, RPT+53, RPT+54, RPT+55, RPT+56
DGMST("D" RPT+50
DGMST("F" EN+4*, EN+5*, RPT+20, RPT+22, RPT+24, RPT+34, RPT+43, RPT+44, RPT+45, RPT+46
DGMST("M" EN+4*, EN+5*, RPT+20, RPT+22, RPT+23, RPT+33, RPT+38, RPT+39, RPT+40, RPT+41
DGMST("N" RPT+49
DGMST("T" RPT+20*, RPT+25, RPT+35
DGMST("U" RPT+51
DGMST("Y" RPT+48
DGMSTST RPT+1~, RPT+13*, RPT+17
DGPCDT RPT+31*, RPT+32, RPT+76!
DGPEDT EN+1~, TDAT+3*, RPT+30
DGPSDT EN+1~, SDAT+3*, RPT+30
DGSDAT EN+1~, SDAT+3*, TDAT, RPT+12
DGSTAT EN+1~, EN+4*, RPT+76!
DIR SDAT+1!, TDAT+1!, RPT+67!
DIR("A" SDAT*, TDAT*
DIR(0 SDAT*, TDAT*, RPT+67*
DT SDAT, TDAT, RPT+31
DTOUT EN+1~, SDAT+2, TDAT+2, RPT+67
DUOUT EN+1~, SDAT+2, TDAT+2, RPT+67
IOF RPT+28, RPT+67, RPT+68
IOST RPT+28, RPT+67, RPT+68
S RPT+21*, RPT+22, RPT+23, RPT+24, RPT+25, RPT+76!
SEX RPT+1~, RPT+4*, RPT+5, RPT+15*, RPT+16, RPT+17, RPT+18
X EN+1~, TDAT+4*, RPT+76!
Y EN+1~, SDAT+3*, TDAT+3*, RPT+10*, RPT+11, RPT+12, RPT+13, RPT+14, RPT+31*, RPT+76!
ZTSAVE EN+1~, TDAT+6
ZTSAVE( TDAT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All