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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGPTOD3

Package: Registration

Routine: DGPTOD3


Information

DGPTOD3 ;ALB/AS - PTF DRG REPORTS CONTINUATION FROM DGSUDO ; 9/5/01 9:43am

Source Information

Source file <DGPTOD3.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 2 IN^DGHELP  ^DGPTOD0  
VA FileMan 1 YN^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PTF BATCH REPORTS  

Entry Points

Name Comments DBIA/ICR reference
A
EN
OK
HELP
NO
BATCH
1 ;;Trim Point DRG Report
3 ;;ALOS Report for DRGs
2 ;;DRG Frequency Report
B1
4 ;;DRG Case Mix Summary

External References

Name Field # of Occurrence
IN^DGHELP B1
^DGPTOD0 OK+1
YN^DICN OK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BATCH+0
Function Call: WRITE
  • Prompt: !,I,". ",$P($T(@I),";;",2)
  • Line Location: BATCH+0
Function Call: READ
  • Prompt: " CHOOSE REPORTS TO BE BATCHED (BY NUMBER) : "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: B1+0
Function Call: WRITE
  • Prompt: !!,"You have selected the following outputs:",!
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !,$P($T(@$P(DGPTFR,"*",I)),";;",2)
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!!
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,"YOU ALREADY CHOSE TO PRINT ",$P($T(@X),";;",2)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"ENTER THE OPTION NUMBER OF THE REPORT TO BE PRINTED"
  • Line Location: HELP+0

Label References

Name Line Occurrences
A B1
BATCH HELP
HELP B1
NO B1, OK+1
OK OK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OK*, OK+1, NO!
DG1 EN!, NO!
DG2 EN!, NO!
DG3 EN!, NO!
DG4 EN!, NO!
DGPTFR EN*, B1+1, A+1*, NO!
DTIME B1
I EN*, BATCH*, B1*, B1+1*, NO!
U EN
X B1*, A, A+1, NO!
Z EN*, B1*, A*, NO!
Z1 EN*, B1, A, NO!

Marked Items

Name Field # of Occurrence
$T(@$PIECE^2;4(5) B1+1
$T(@I EN, BATCH
$T(@X A
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  Marked Items |  All