Routine: DGPTOD0

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

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

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

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

>>	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*

Customize PDF page

Package: Registration

Routine: DGPTOD0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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

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