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

Package: Registration

Routine: DGPTODR


Information

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

Source Information

Source file <DGPTODR.m>

Entry Points

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

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