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 |  Local Variables  | All
Print Page as PDF
Routine: DGPTODR

Package: Registration

Routine: DGPTODR


Information

DGPTODR ;ALB/ABS/ADL - DRG Information Report ;11/15/06 2:57pm

Source Information

Source file <DGPTODR.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Registration 1 ^DGPTICD  
VA FileMan 1 DD^%DT  

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 DGPTDRG  

Entry Points

Name Comments DBIA/ICR reference
Q
HDR ;print heading
CONT

External References

Name Field # of Occurrence
DD^%DT HDR+2
^DGPTICD DGPTODR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGLN,!?10,"PRINCIPAL DIAGNOSIS:",$J($P(DGDX(DGX),"^"),8)," ",$P(DGDX(DGX),"^",2)
  • Line Location: DGPTODR+5
Function Call: WRITE
  • Prompt: @IOF,"DRG INFORMATION REPORT",?45,"Date: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," Page: ",DGPG,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Effective Date: ",Y,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Patient: ",NAME,?40
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Sex: ",$S(SEX="M":"Male",1:"Female"),?61,"Age: ",AGE,!,"Expired: ",$S(DGEXP:"Yes",1:"No"),?18,"Transferred to Acute Care: ",$S(DGTRS:"Yes",1:"No"),?55,"Irreg D/C: ",$S(DGDMS:"Yes",1:"No")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Diagnosis Codes:"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$J($P(DGSURG(I),"^"),8)," ",$P(DGSURG(I),"^",2)
  • Line Location: HDR+7
Function Call: READ
  • Formatting: !!?20
  • Prompt: "Press <RET> to continue or ""^"" to abort "
  • Variable: DGQ
  • Timeout: DTIME
  • Line Location: CONT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1

Label References

Name Line Occurrences
CONT DGPTODR+4
HDR DGPTODR+3, CONT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE Q!, HDR+4
>> DGDAT HDR+2
DGDMS Q!, HDR+4
DGDRGPRT DGPTODR+3*, Q!
DGDX DGPTODR+3, DGPTODR+5*, Q!
DGDX( DGPTODR+5, HDR+5
>> DGDXPOA HDR+5, HDR+6
DGEXP Q!, HDR+4
DGLN DGPTODR+3*, DGPTODR+5, Q!
DGPG DGPTODR+3*, Q!, HDR+1*, HDR+5
DGPTODR Q!
DGQ DGPTODR+3*, DGPTODR+4, Q!, CONT*
DGSURG Q!, HDR+7
DGSURG( HDR+7
>> DGTERMIN HDR+6
DGTMP DGPTODR+3*, DGPTODR+4, Q!
DGTRS Q!, HDR+4
DGX DGPTODR+4*, DGPTODR+5, Q!
DT HDR+1
DTIME CONT
I Q!, HDR+5*, HDR+6, HDR+7*
IOF HDR+1
IOSL CONT
IOST DGPTODR+4
NAME Q!, HDR+3
SEX Q!, HDR+4
Y Q!, HDR+1*, HDR+2*, HDR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All