Routine: DGPTODR

Information

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

Source file <DGPTODR.m>

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