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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 4 IN^DGHELP  ^DGPTOD1  LO^DGUTL  (CLOSE,ZIS)^DGUTQ  
VA Fileman 2 ^%DT  YN^DICN  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Registration 11 DG PTF DRG ALOS  DG PTF DRG CASE MIX SUMMARY  DG PTF FREQUENCY REPORT  DG PTF TRIM REPORT  DGPTBE1  DGPTBEP  DGPTMOVE  DGPTOD1  
DGPTOD3  DGPTODI4  DGPTTRIM  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DC, DC+2, DGY2K+2
IN^DGHELP ASK+1, DRG+1, SVC+3
^DGPTOD1 DGPTOD0+3
LO^DGUTL DGPTOD0+3
CLOSE^DGUTQ DGPTOD0+3
ZIS^DGUTQ DGPTOD0+3
YN^DICN OK1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"THIS REPORT REQUIRES 132 COLUMN OUTPUT."
  • Line Location: DGPTOD0+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DGPTOD0+3
^DD("DD" CONT+4
^DG(43 - [#43] CONT
^UTILITY($J Q!

Label References

Name Line Occurrences
$$DGY2K CONT
$$FY DC+5, CONT
ASK DGPTOD0+3, ASK+1
CONT SVC
DC DC, DC+1, DC+2, DC+5
DRG DRG+1
OK1 CONT+5, OK1
Q DGPTOD0+3
RD ASK, DRG, SVC+2
SVC ASK+2, SVC+3

Naked Globals

Name Field # of Occurrence
^( CONT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+1*, DRG+1*, SVC+3*, OK1*, OK1+1
%DT DC*, DC+2*, DGY2K+1~
%DT("A" DC*, DC+2*
%DT(0 DC*, DC+2*
DG1 Q!
DG1DAWW Q!
DG2 Q!
DG3 Q!
DG4 Q!
DGB Q!, ASK+2*, DRG+2*, CONT+4
DGCR Q!, ASK+2*, DC*
DGCST Q!, CONT*
DGD Q!, ASK+2*, CONT+3, CONT+4
DGED Q!, ASK+2*, DC+3*, DC+5, CONT, CONT+4
DGFT Q!
DGFY Q!, CONT*, NOFY+1
DGFY2K Q!, CONT*
DGHIWW Q!
>> DGPGM DGPTOD0+3*
DGPTFR DGPTOD0+3!, SVC, CONT+5
DGQ DGPTOD0+3, Q!, RD*, ASK*, DC*, DC+2*, DRG, SVC+2, OK1+1*
DGS Q!, CONT*, CONT+6
DGSD Q!, ASK+2*, DC*, DC+2, DC+5, CONT+4
DGSDFY Q!
>> DGVAR DGPTOD0+3*
DGWWCST Q!
DT ASK+2, DC
DTIME RD
IO DGPTOD0+3
>> POP DGPTOD0+3
X DGPTOD0+3*, Q!, RD*, RD+1*, ASK*, ASK+2, DC, DC+2, DRG*, DRG+2
, SVC*, SVC+2*, CONT, DGY2K~, FY~, FY+2*, FY+3
Y Q!, DC, DC+1, DC+2, DC+3, CONT+4*, DGY2K+1~, DGY2K+3
Z Q!, ASK*, DRG*, SVC+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All