Routine: DGPTDRG

Package	Total	Call Graph
Registration	5	IN^DGHELP ICDEN1^DGPTF5 ^DGPTICD ^DGPTODR (CLOSE,ZIS)^DGUTQ
VA Fileman	5	^%DTC ^DIC YN^DICN DT^DICRW ^DIR
DRG Grouper	2	($$CODEN,$$ICDDX,$$ICDOP)^ICDCODE $$ISVALID^ICDGTDRG

Package

Total

Call Graph

Registration

IN^DGHELP ICDEN1^DGPTF5 ^DGPTICD ^DGPTODR (CLOSE,ZIS)^DGUTQ

VA Fileman

^%DTC ^DIC YN^DICN DT^DICRW ^DIR

DRG Grouper

($$CODEN,$$ICDDX,$$ICDOP)^ICDCODE $$ISVALID^ICDGTDRG

Package	Total	Caller Graph
Registration	2	DG DRG CALCULATION DG PTF DRG INFORMATION OUTPUT

Package

Total

Caller Graph

Registration

DG DRG CALCULATION DG PTF DRG INFORMATION OUTPUT

External References

Name	Field # of Occurrence
^%DTC	PAT+4
IN^DGHELP	SEX+1
ICDEN1^DGPTF5	DX+2, DX+10
^DGPTICD	DX+17
^DGPTODR	DX+16
CLOSE^DGUTQ	DX+16
ZIS^DGUTQ	DX+16
^DIC	PAT+4, DX+13
YN^DICN	PAT+1, EXP, TRS, DMS
DT^DICRW	DGPTDRG+3
^DIR	EFFDATE+3
$$CODEN^ICDCODE	DX+4, DX+10
$$ICDDX^ICDCODE	DX+5, DX+8, DX+10
$$ICDOP^ICDCODE	DX+13
$$ISVALID^ICDGTDRG	DX+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Choose Patient from PATIENT file" Line Location: PAT+1
Function Call: WRITE	Prompt: !?3,"Enter <RET> for YES if you want DRGs for a patient from your PATIENT File",!?3,"Answer 'N' for NO if you want DRGs for a hypothetical patient" Line Location: PAT+2
Function Call: WRITE	Prompt: " AGE:",AGE Line Location: PAT+4
Function Call: WRITE	Prompt: !,"Unacceptable AGE",!,"Grouper accepts age values from 0-124 years.",!,"Verify patient's age in PATIENT File before continuing." Line Location: PAT+5
Function Call: READ	Prompt: "Patient's AGE: " Formatting: !! Timeout: DTIME Variable: AGE Line Location: AGE+0
Function Call: WRITE	Prompt: !,"Enter a number for patient's age in years (0-124)" Line Location: AGE+0
Function Call: READ	Prompt: "Patient's SEX: MALE// " Formatting: !! Timeout: DTIME Variable: X Line Location: SEX+0
Function Call: WRITE	Prompt: X Line Location: SEX+0
Function Call: WRITE	Prompt: !?3,"Enter <RET> for MALE if hypothetical patient is male",!?3,"Enter 'F' for Female" Line Location: SEX+1
Function Call: WRITE	Prompt: !?3,"Enter <RET> for NO if patient did not die during the hospital",!?15,"stay for which this DRG is to be calculated",!?3,"Enter 'Y' for YES" Line Location: EXP+0
Function Call: WRITE	Prompt: !?3,"Enter <RET> for NO if patient not transfered to an acute care facility",!?3,"Enter 'Y' for YES if patient was transfered to acute care facility" Line Location: TRS+0
Function Call: WRITE	Prompt: !?3,"Enter <RET> for NO if patient did not leave against medical advice",!?3,"Enter 'Y' for YES if patient did leave against medical advice",!,*7 Line Location: DMS+0
Function Call: WRITE	Prompt: !,*7,">>>You have selected diagnosis code that is not considered" Line Location: DX+6
Function Call: WRITE	Prompt: !,"a primary diagnosis code. Please enter a PRIMARY code." Line Location: DX+7
Function Call: WRITE	Prompt: ! Line Location: DX+9
Function Call: WRITE	Prompt: ! Line Location: DX+12
Function Call: WRITE	Prompt: ! Line Location: DX+16
Function Call: WRITE	Prompt: !,*7,">>> You have selected an INACTIVE diagnosis code." Line Location: INAC+1
Function Call: WRITE	Prompt: !," This code is not used by the grouper and may cause" Line Location: INAC+2
Function Call: WRITE	Prompt: !," the case to be grouped into DRG 470 - UNGROUPABLE.",! Line Location: INAC+3
Function Call: WRITE	Prompt: !," Therefore, this diagnosis code will NOT be passed" Line Location: INAC+4
Function Call: WRITE	Prompt: !," to the grouper. Please enter another code." Line Location: INAC+5
Routine Call	DIC Line Location: PAT+4 DX+13
Routine Call	DIR Line Location: EFFDATE+3

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^ICD0 - [#80.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PAT+6

Name	Line Occurrences
AGE	PAT+3, AGE
DMS	DMS
DX	EXP+1, DX+5, DX+8
EFFDATE	PAT
EXP	PAT+7, EXP
INAC	DX+8, DX+11
PAT	PAT+2, DX+16, DX+17
Q	DGPTDRG+3, PAT, PAT+1, PAT+4, AGE, SEX, EXP, TRS, DMS, DX+12 , DX+16, DX+17
SEX	SEX+1
TRS	PAT+7, TRS

Name	Field # of Occurrence
^(	PAT+6

Local Variables

Name	Field # of Occurrence
%	PAT+1, PAT+2, PAT+3, SEX+1, EXP, EXP+1, TRS, TRS+1, DMS, DMS+1 , Q!
%Y	PAT+2, EXP, TRS, DMS, Q!
AGE	PAT+4, AGE, Q!
DFN	PAT+4*, PAT+6, Q!
>> DGDAT	DX, DX+5, DX+8, DX+10, DX+13, EFFDATE+4*
DGDMS	EXP+1, DMS+1, Q!
DGDRGPRT	DX+17*, Q!
DGDX	DX+1, DX+8, DX+10*, Q!
DGDX(	DX+10*
DGDX(1	DX+8*
DGEXP	PAT+6, PAT+7, EXP+1, Q!
DGI	DX+10, DX+11, DX+13*, Q!
DGPGM	DX+16*, Q!
DGPTHOW	PAT+3*, Q!
>> DGPTODR	DX+16*
>> DGPTTMP	DX+8, DX+10, DX+11
DGSURG	DX+1, DX+13, DX+15*, Q!
DGSURG(	DX+13*
DGTRS	EXP+1, TRS+1, Q!
DGVAR	DX+16*, Q!
DIC	PAT+4, DX+12, Q!
DIC("A"	DX+12*
DIC("S"	DX+12*
DIC(0	PAT+4, DX+12
DIR	EFFDATE+1!, EFFDATE+3!
DIR("?"	EFFDATE+2*
DIR("A"	EFFDATE+1*
DIR("B"	EFFDATE+1*
DIR(0	EFFDATE+1*
>> DIRUT	EFFDATE+3
DOB	PAT+4~*
DRG	Q!
DT	PAT+4
DTIME	AGE, SEX
>> DTOUT	PAT
>> DUOUT	PAT
DXINF	DX~, DX+8, DX+10, DX+13*
ICDVDT	DX~*
IO	DX+16
NAME	PAT+3, PAT+4, Q!
POP	DX+16, Q!
>> PROMPT	DX+1, DX+9
>> QUIT	EFFDATE+3*
SEX	PAT+4, SEX+2, Q!
U	DGPTDRG+3*, PAT+4, DX+5, DX+8, DX+10, DX+11, DX+13, DX+15
X	PAT+4, SEX*, SEX+2, DX+3, DX+4, DX+10, DX+12, DX+13, DX+16, Q!
X1	PAT+4*, Q!
X2	PAT+4*, Q!
Y	PAT+4, DX+4, DX+5, DX+8, DX+10, DX+13, Q!, EFFDATE+4
Y(0	PAT+4
Z	SEX*, Q!

Customize PDF page

Package: Registration

Routine: DGPTDRG

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAT
DX
AGE
SEX
Q
DMS
EXP
TRS
INAC	;
EFFDATE	;prompts for effective date for DRG grouper?

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed