Routine: DGPTDRG

Information

DGPTDRG ;ALB/ABS,HIOFO/FT - DRG Information Report User Prompts ;07/01/2015 11:21 AM

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Registration	7	IN^DGHELP $$POA^DGPTFD (DIAG,PROC)^DGPTFIC EFFDAT1^DGPTIC10 ^DGPTICD ^DGPTODR (CLOSE,ZIS)^DGUTQ
VA FileMan	6	DD^%DT ^%DTC ^DIC YN^DICN DT^DICRW ^DIR
Kernel	1	HOME^%ZIS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	2	DG DRG CALCULATION DG PTF DRG INFORMATION OUTPUT
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
PAT	;
AGE	;
SEX	;
EXP	;
TRS
DMS	;
DX	;
Q
DISP()	; -- Return value to display
EFFDATE	;prompts for effective date for DRG grouper?
INAC	;
ASKPOA(CNT)	; -- asks POA for each Diagnosis
OP()	; -- asks Operation Procedure code.
NEWOUT	;
Q2
HDR	;print heading
CONT

External References

Name	Field # of Occurrence
DD^%DT	HDR+2
^%DTC	PAT+9
HOME^%ZIS	NEWOUT+1
IN^DGHELP	SEX+3
$$POA^DGPTFD	ASKPOA+6
DIAG^DGPTFIC	DX+11, DX+26
PROC^DGPTFIC	OP+8
EFFDAT1^DGPTIC10	EFFDATE+5
^DGPTICD	NEWOUT+3
^DGPTODR	DX+41
CLOSE^DGUTQ	DX+41
ZIS^DGUTQ	DX+41
^DIC	PAT+7
YN^DICN	PAT+2, EXP+1, TRS, DMS+1
DT^DICRW	DGPTDRG+9
^DIR	EFFDATE+3, ASKPOA+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Choose Patient from PATIENT file" Line Location: PAT+2
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+3
Function Call: WRITE	Prompt: " AGE:",AGE Line Location: PAT+9
Function Call: WRITE	Prompt: !,"Enter a number for patient's age in years (0-124)" Line Location: AGE+4
Function Call: READ	Formatting: !! Prompt: "Patient's SEX: MALE// " Variable: X Timeout: DTIME Line Location: SEX+1
Function Call: WRITE	Prompt: X Line Location: SEX+2
Function Call: WRITE	Prompt: !?3,"Enter <RET> for MALE if hypothetical patient is male",!?3,"Enter 'F' for Female" Line Location: SEX+3
Function Call: WRITE	Prompt: !!,"Did patient die during this episode" Line Location: EXP+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+2
Function Call: WRITE	Prompt: !!,"Transfer to an acute care facility" Line Location: TRS+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+1
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+1
Function Call: WRITE	Prompt: ! Line Location: DX+8
Function Call: WRITE	Prompt: !,*7,">>>You have selected diagnosis code that is not considered" Line Location: DX+17
Function Call: WRITE	Prompt: !,"a primary diagnosis code. Please enter a PRIMARY code." Line Location: DX+18
Function Call: WRITE	Prompt: ! Line Location: DX+25
Function Call: WRITE	Prompt: ! Line Location: DX+32
Function Call: WRITE	Prompt: ! Line Location: DX+41
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
Function Call: WRITE	Prompt: ! Line Location: OP+3
Function Call: WRITE	Prompt: !! Line Location: NEWOUT+4
Function Call: WRITE	Prompt: @IOF,"DRG Calculation",?45,"Date: " Condition for execution: $Y>0 Line Location: HDR+1
Function Call: WRITE	Prompt: Y," Page: ",DGPG,!! Line Location: HDR+1
Function Call: WRITE	Prompt: "Effective Date: ",Y,! Line Location: HDR+3
Function Call: WRITE	Prompt: "Patient: ",NAME,?40 Line Location: HDR+3
Function Call: WRITE	Prompt: "Sex: ",$S(SEX="M":"Male",1:"Female"),?61,"Age: ",AGE,!,"Expired: ",$S(DGEXP:"Yes",1:"No"),?18,"Transferred to Acute Care: ",$S(DGTRS:"Yes",1:"No"),?55,"Irreg D/C: ",$S(DGDMS:"Yes",1:"No") Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Diagnosis Codes:" Line Location: HDR+5
Function Call: WRITE	Prompt: !,$J($P(DGSURG(I),"^"),8)," ",$P(DGSURG(I),"^",2) Line Location: HDR+9
Function Call: READ	Formatting: !!?20 Prompt: "Press <RET> to continue or ""^"" to EXIT " Variable: DGQ Timeout: DTIME Line Location: CONT+0
Routine Call	DIC Line Location: PAT+7
Routine Call	DIR Line Location: EFFDATE+3 ASKPOA+5
Routine Call	%ZIS Line Location: NEWOUT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+1
^DPT - [#2]	PAT+11

Label References

Name	Line Occurrences
$$ASKPOA	DX+23, DX+30
$$DISP	DX+9, DX+25, OP+6
AGE	PAT+4, AGE+4
DMS	DMS+1
DX	EXP+3, DX+16, DX+20
EFFDATE	PAT+1
EXP	PAT+12, EXP+2
HDR	NEWOUT+2
INAC	DX+20, DX+28
NEWOUT	DX+44
OP	DX+37
PAT	PAT+3, DX+41, DX+44
Q	DGPTDRG+9, PAT+1, PAT+2, PAT+7, AGE+2, SEX+1, EXP+1, TRS, DMS+1, DX+34 , DX+39, DX+40, DX+41, DX+44
SEX	SEX+3
TRS	PAT+12, TRS+1

Naked Globals

Name	Field # of Occurrence
^(	PAT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PAT+2, PAT+3, PAT+4, SEX+3, EXP+1, EXP+2, EXP+3, TRS, TRS+1, TRS+2 , DMS+1, DMS+2, Q!
%Y	PAT+3, EXP+2, TRS+1, DMS+1, Q!
AGE	PAT+8, PAT+9, AGE+1, AGE+2, AGE+3, AGE+4, Q!, Q2!, HDR+4
CNT	ASKPOA~, ASKPOA+3
CODESET	DX+11*, Q+1!
DA	ASKPOA+1~, OP+1~
DFN	PAT+8*, PAT+11, Q!
>> DGDAT	DX+5, DX+6, EFFDATE+4, EFFDATE+5, OP+4, OP+7, HDR+2
DGDMS	EXP+3, DMS+2, Q!, Q2!, HDR+4
>> DGDRGDT	OP+7*
DGDRGPRT	Q!, NEWOUT+2*, Q2!
DGDX	DX+9, DX+21, DX+29*, Q!, NEWOUT+2, Q2!
DGDX(	DX+29*, HDR+6
DGDX(1	DX+21*
DGDXPOA	DX+23, DX+30, DX+31*, Q+1!, HDR+6, HDR+7
DGENR	Q+1!
DGEXP	PAT+11, PAT+12, EXP+3, Q!, Q2!, HDR+4
DGI	DX+26, DX+28, DX+29, DX+30, Q!, OP+1~, OP+5, OP+8, OP+10
DGLN	NEWOUT+2*, Q2!
DGPG	NEWOUT+2, Q2!, HDR+1
DGPGM	DX+41*, Q!
DGPOA	ASKPOA+1~, ASKPOA+6*, ASKPOA+7, OP+1~
DGPTHOW	PAT+4*, Q!
DGPTODR	DX+41*, Q2!
DGPTTMP	DX+15, DX+16, DX+20, DX+21, DX+27, DX+28, DX+29, Q+1!
DGQ	NEWOUT+2, Q2!, CONT
DGSURG	DX+9, DX+40, Q!, OP+9, OP+12*, Q2!, HDR+9
DGSURG(	OP+10*, HDR+9
DGTEMP	Q+1!
DGTERMIN	DX+5, DX+6, DX+11, DX+23, DX+30, DX+31, Q+1!, DISP+1, HDR+7
DGTMP	NEWOUT+2*, Q2!
DGTRS	EXP+3, TRS+2, Q!, Q2!, HDR+4
DGVAR	DX+41*, Q!
DGX	Q2!
DIC	PAT+6*, Q!
DIC("S"	DX+35*
DIC(0	PAT+6, DX+35
DIR	EFFDATE+1!, EFFDATE+3!, ASKPOA+1~, ASKPOA+5!, OP+1~
DIR("?"	EFFDATE+2*
DIR("A"	EFFDATE+1, ASKPOA+3
DIR("B"	EFFDATE+1, ASKPOA+4
DIR(0	EFFDATE+1, ASKPOA+2
DIROUT	DX+13, DX+40, ASKPOA+1~, OP+1~
DIRUT	DX+13, EFFDATE+3, ASKPOA+1~, OP+1~
DOB	PAT+5~, PAT+8*
DRG	Q!
DT	PAT+9, OP+4, HDR+1
DTIME	AGE+1, SEX+1, CONT
DTOUT	PAT+1, DX+13, DX+40, ASKPOA+1~, OP+1~
DUOUT	PAT+1, DX+13, DX+40, ASKPOA+1~, OP+1~
DXINF	DX+1~
EFFDATE	Q+1!
I	Q2!, HDR+6, HDR+7, HDR+9
ICDDRG	Q+2!
ICDDX	Q+2!
ICDPDRG	Q+2!
ICDPOA	Q+2!
ICDSEX	Q+2!
ICDSYS	Q+2!
ICDTMP	Q+2!
ICDVDT	DX+1~, Q+1!
ICDY	Q+2!
IMPDATE	DX+5, DX+6, Q+1!
IO	DX+41
IOF	HDR+1
IOSL	CONT
NAME	PAT+4, PAT+8, Q!, Q2!, HDR+3
POP	DX+41, Q!
PROMPT	DX+9, DX+25, Q+1!, OP+1~, OP+6*
>> QUIT	EFFDATE+3*
SEX	PAT+8, SEX+4, Q!, Q2!, HDR+4
TERM	Q+1!, OP+1~, OP+2*
U	DGPTDRG+9*, PAT+8, DX+16, DX+20, DX+21, DX+28, DX+29, OP+9, OP+10, OP+12
X	PAT+9, SEX+1, SEX+2, SEX+4, DX+2!, DX+12, DX+26, DX+34, DX+39, Q! , ASKPOA+1~, OP+8
X1	PAT+9*, Q!
X2	PAT+9*, Q!
Y	PAT+7, PAT+8, DX+2!, DX+15, DX+21, DX+27, DX+29, Q!, EFFDATE+4, ASKPOA+1~ , ASKPOA+6, OP+9, OP+10, Q2!, HDR+1, HDR+2, HDR+3
Y(0	PAT+8
Z	SEX+2*, Q!

Customize PDF page

Package: Registration