Routine: DGPTODI1

Package	Total	Call Graph
Registration	5	IN^DGHELP ^DGPTODI2 (C,E,H,RANGE)^DGPTODI4 LO^DGUTL (CLOSE,ZIS)^DGUTQ
VA Fileman	2	^%DT YN^DICN
Kernel	1	^%ZIS

Package	Total	Caller Graph
Registration	1	DG PTF DRG INDEX

Entry Points

External References

Name	Field # of Occurrence
^%DT	DC, DC+1
^%ZIS	DGPTODI1+2
IN^DGHELP	ASK+1, B+1, S+2, R+1, P+1, C+1
^DGPTODI2	DGPTODI1+4
C^DGPTODI4	C+1
E^DGPTODI4	R+4
H^DGPTODI4	S+2
RANGE^DGPTODI4	R+4
LO^DGUTL	DGPTODI1+2
CLOSE^DGUTQ	DGPTODI1+4
ZIS^DGUTQ	DGPTODI1+4
YN^DICN	OK

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?12,7,"* NOTE: 132 columns required for output",! Line Location: DGPTODI1+4
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) or",!?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,"Please limit your discharge date range to no more than 1 year" Line Location: DC+1
Function Call: WRITE	Prompt: !!,"For (T)RANSFER DRGs or",!?4,"(D)RG from 701/702/703 TRANSACTIONS: TRANSFER DRGs// " Line Location: B+0
Function Call: WRITE	Prompt: X Line Location: B+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: B+1
Function Call: WRITE	Prompt: !!,"Choose PTF Status(es) to include:",!?4,"(A)LL STATUSES or",!?4,"(O)PEN,(C)LOSED,(R)ELEASED,(T)RANSMITTED ONLY: ALL// " Line Location: S+0
Function Call: WRITE	Prompt: X Line Location: S+1
Function Call: WRITE	Prompt: !!,"(R)ANGE or (E)XACT MATCH or (A)LL DRGs: ALL// " Line Location: R+0
Function Call: WRITE	Prompt: X Line Location: R+0
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:",!?12,"R - to specify a range of DRGs or",!?12,"A - to select ALL DRGs or",!?12,"E - to specify a DRG to match exactly",! Line Location: R+1
Function Call: WRITE	Prompt: !!,"Sort by (P)ATIENT NAME or (T)ERMINAL DIGIT ORDER: PATIENT// " Line Location: P+0
Function Call: WRITE	Prompt: X Line Location: P+0
Function Call: WRITE	Prompt: !!?12,"CHOOSE FROM:",!?12,"T - to sort by terminal digit order or",!?12,"P - to sort by patient last name",! Line Location: P+1
Function Call: WRITE	Prompt: !!,"Choose (I)NCLUDE or (S)UPPRESS NO CODES LISTING: INCLUDE// " Line Location: C+0
Function Call: WRITE	Prompt: X Line Location: C+0
Function Call: WRITE	Prompt: !!,"You have selected output for: ",!?4,$S(DGD:"Patients discharged between ",1:"Active admissions.") Line Location: C+3
Function Call: WRITE	Prompt: $S(DGS="A":"es",1:" only"),"." Condition for execution: DGD Line Location: C+5
Function Call: WRITE	Prompt: !?4,"Search for ",$S(DGR=2:"all DRG codes",1:"DRG code: ") Line Location: C+5
Function Call: WRITE	Prompt: DGC1 Line Location: C+5
Function Call: WRITE	Prompt: " to DRG code: ",DGC2 Condition for execution: DGR=1 Line Location: C+5
Function Call: WRITE	Prompt: "." Line Location: C+5
Function Call: WRITE	Prompt: !?4,"No Codes Listing ",$S(DGC:"included",1:"suppressed"),"." Line Location: C+6
Function Call: WRITE	Prompt: !?4,"Sort report by ",$S(DGP:"patient last name.",1:"terminal digit order."),! Line Location: C+7
Function Call: WRITE	Prompt: !!?6,"Enter <RET> if this information is correct",!?10,"Enter 'N' for NO to exit",!! Line Location: OK+0
Routine Call	%ZIS Line Location: DGPTODI1+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DGPTODI1+4
^DD("DD"	C+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+1, B+1, S+2, R+1, P+1, C+1, OK*, OK+1, Q!
%DT	DC*, Q!
%DT("A"	DC, DC+1
%DT(0	DC, DC+1
DGB	ASK+2, B+2, C+4, Q!
DGC	C+2*, C+6, Q!
DGC1	R+3*, C+5, Q!
DGC2	R+3*, C+5, Q!
DGD	ASK+2*, C+3, C+4, C+5, Q!
DGED	ASK+2, DC+2, C+4, Q!
DGP	P+2*, C+7, Q!
DGPGM	DGPTODI1+3*, Q!
DGQ	DGPTODI1+2, RD, ASK, DC, DC+1, B, S+1, R, R+4, P , C, OK+1*, Q!
DGR	R+2, R+3, R+4, C+5, Q!
DGS	ASK+2, S+3, C+4, C+5, Q!
DGSD	ASK+2, DC, DC+1, C+4, Q!
DGVAR	DGPTODI1+3*, Q!
DIC	R+4*, Q!
DIC(0	R+4*
DT	ASK+2, DC
DTIME	RD
IO	DGPTODI1+4
IOP	DGPTODI1+2*!
POP	DGPTODI1+4, Q!
X	DGPTODI1+4, RD, RD+1, ASK, ASK+2, DC, DC+1, B, B+2, S+1 , S+3, R, R+2, R+3, P, P+2, C*, C+2, Q!
Y	DC, DC+1, DC+2, C+4*, Q!
Z	ASK, B, S+1, R, P, C, Q!

Customize PDF page

Package: Registration

Routine: DGPTODI1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
ASK	DGPTODI1+2, ASK+1
B	B+1
C	C+1
DC	DC, DC+1
OK	OK
P	R+3, P+1
Q	DGPTODI1+2, DGPTODI1+4
R	ASK+2, R+1
RD	ASK, B, S+1, R, P, C
S	S+2

Name	Comments	DBIA/ICR reference
Q
C
B
OK
DC
RD
P
S
R
ASK