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 Total: 2

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPTDRG  

Entry Points

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

External References

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

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+4
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: !,$J($P(DGDX(I),"^"),8)," ",$P(DGDX(I),"^",2)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$J($P(DGSURG(I),"^"),8)," ",$P(DGSURG(I),"^",2)
  • Line Location: HDR+6
Function Call: READ
  • Prompt: "Press <RET> to continue or ""^"" to abort "
  • Formatting: !!?20
  • Timeout: DTIME
  • Variable: DGQ
  • 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+4*, Q!
DGDX( DGPTODR+4, HDR+5
DGEXP Q!, HDR+4
DGLN DGPTODR+3*, DGPTODR+4, Q!
DGPG DGPTODR+3*, Q!, HDR+1*, HDR+5
DGPTODR Q!
DGQ DGPTODR+3*, DGPTODR+4, Q!, CONT*
DGSURG Q!, HDR+6
DGSURG( HDR+6
DGTMP DGPTODR+3*, DGPTODR+4, Q!
DGTRS Q!, HDR+4
DGX DGPTODR+4*, Q!
DT HDR+1
DTIME CONT
I Q!, HDR+5*, HDR+6*
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