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

Package: Registration

Routine: DGPTOD0


Information

DGPTOD0 ;ALB/AS - PTF DRG REPORTS ; 9/5/01 11:38am

Source Information

Source file <DGPTOD0.m>

Entry Points

Name Comments DBIA/ICR reference
Q
RD
ASK
DC
DRG
SVC
CONT
OK1
NOFY ; this no longer applies
DGY2K(X) ; convert date to fm
FY(X) ;Return FY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"THIS REPORT REQUIRES 132 COLUMN OUTPUT."
  • Line Location: DGPTOD0+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,"For (A)CTIVE ADMISSIONS or",!?4,"(D)ISCHARGED PATIENTS: DISCHARGED// "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"A - Active Admissions (all current inpatients)",!?12,"D - Discharged Patients within a date range",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DC+0
Function Call: WRITE
  • Prompt: *7,!?12,"Discharge dates may not begin prior to October 1,2000"
  • Line Location: DC+1
Function Call: WRITE
  • Prompt: *7,!?12,"Please limit your date range to no more than 1 year"
  • Line Location: DC+2
Function Call: WRITE
  • Prompt: *7,!?12,"Please do not select dates that overlap fiscal years"
  • Line Location: DC+5
Function Call: WRITE
  • Prompt: !!,"For (T)RANSFER DRGs or",!?4,"(D)RG from 701/702/703 TRANSACTIONS: TRANSFER DRGs// "
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: X
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"D - to include DRGs calculated using diagnosis codes from",!?16,"701/702/703 transactions",!?12,"T - to include TRANSFER DRGs based on diagnosis codes from",!?16,"501 transactions",!
  • Line Location: DRG+1
Function Call: WRITE
  • Prompt: !!,"Sort Report by DRG for:",!?3,"(M)EDICAL CENTER ONLY or",!?3,"(S)ERVICE WITH SPECIALTY BREAKOUT or",!?3,"(B)OTH MEDICAL CENTER AND SERVICE WITH SPECIALTY: BOTH// "
  • Line Location: SVC+1
Function Call: WRITE
  • Prompt: X
  • Line Location: SVC+2
Function Call: WRITE
  • Prompt: !!?12,"CHOOSE FROM:",!?12,"M - to have report sorted by DRG for entire medical center or",!?12,"S - for service with specialties or",!?12,"B - for both medical center and service with specialties",!
  • Line Location: SVC+3
Function Call: WRITE
  • Prompt: !!,"You have selected output for: ",!?4,$S(DGD:"Patients discharged between ",1:"Active admissions")
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !?4,"With breakout by ",$S(DGS="B":"Both Medical Center and Service with Specialties",DGS="D":"Medical Center Only",1:"Service with Specialties Only"),"."
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this information is correct",!?10,"Enter 'N' for N0 to exit",!!
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !!,*7,"RAM COSTS and/or DRG WEIGHTS/TRIMS are not entered for Fiscal Year ",DGFY,".",!,"PROCESSING CAN NOT BE DONE FOR SELECTED TIME FRAME"
  • Line Location: NOFY+1
Function Call: WRITE
  • Prompt: !,"The following RAM values must be entered in your MAS PARAMETERS File",!,"for whatever fiscal year you select: $ PER WWU; COST FOR 1 DAY LOS;",!,"HIGH OUTLIER COST PER DAY.",!,"DRG fy weights and trims must be entered in your DRG File."
  • Line Location: NOFY+2
Info |  Source |  Entry Points |  Interaction Calls