Routine: DGPTUTL1

Package	Total	Call Graph
Registration	4	(501,535)^DGPTFVC2 D^DGPTUTL ELIG^VADPT $$INCOME^VAFMON
DRG Grouper	3	$$GETDATE^ICDGTDRG $$CPT^ICPTCOD $$MOD^ICPTMOD
VA Fileman	3	NOW^%DTC ^DIC ^DIE
MailMan	1	GET^XMA2

Package	Total	Caller Graph
Registration	8	DGPT SET XMIT FLAG DGPTF DGPTFFB DGPTFM DGPTFM2 DGPTFM3 DGPTFTR DGPTX8
Integrated Billing	1	IB20PT82

Entry Points

Name	Comments	DBIA/ICR reference
DISP
INCQ
ELIG	; shows eligibility and disabilities
HELP
MOD
SETTRAN	;-- set transmission if error DGOUT=1, will return XMZ
CHK	;
KILLABX	;KILL AB CROSSREFERENCE IN FILE 45
UP	; -- select mvt and update xmit flag
INQ	;
CHQUES	;-- This function will deterime if the patient has any of the following ; indicated : AO, IR and EC. If so the array DGEXQ will contain ; DGEXQ(1)="" - AO ; DGEXQ(2)="" - IR ; DGEXQ(3)="" - EC ; Otherwise they will be undefined.
FLAG	; -- select PTF rec to update xmit flags
SETQ	;
FLAGQ
INCOME	;-- load ptf income information ; Use discharge date if available; else use current date/time
DATE	;EDIT CPT DATE/TIME TO BE AFTER ADMISSION DATE BUT BEFORE DISCHARGE
KVAR	; -- clean up for l/e
INC	;-- load income information Input:X date,Output:Y-income
CPT	;DISPLAY CPT CODES AND MODIFIERS
SETABX	;SET AB CROSSREFERENCE IN FILE 45
UPQ

External References

Name	Field # of Occurrence
NOW^%DTC	INCOME+2
501^DGPTFVC2	CHK+2
535^DGPTFVC2	CHK+2
D^DGPTUTL	DISP+1
^DIC	FLAG+3, UP+4
^DIE	UP+7, INCOME+7
$$GETDATE^ICDGTDRG	CPT+1, MOD
$$CPT^ICPTCOD	CPT+1
$$MOD^ICPTMOD	MOD
ELIG^VADPT	ELIG+1
$$INCOME^VAFMON	INC+3
GET^XMA2	SETTRAN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FLAG+2
Function Call: WRITE	Prompt: ! Line Location: UP+4
Function Call: WRITE	Prompt: !!,"* ERROR * Unable to create Mail Message #... Try again later." Line Location: SETTRAN+7
Function Call: WRITE	Prompt: #,!,"Eligibility: "_$P(VAEL(1),"^",2)_$S(+VAEL(3):" SC%: "_$P(VAEL(3),"^",2),1:"") Line Location: ELIG+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ELIG+6
Function Call: WRITE	Prompt: !,"PRESS RETURN TO CONTINUE:" Line Location: ELIG+6
Function Call: WRITE	Prompt: # Line Location: ELIG+6
Function Call: WRITE	Prompt: !,"Not before admission" Line Location: DATE+1
Function Call: WRITE	Prompt: !,"Not after discharge" Line Location: DATE+2
Function Call: WRITE	Prompt: !,"Cannot change to existing CPT date/time entry" Line Location: DATE+3
Function Call: WRITE	Prompt: !,I,?5,Y Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Enter '^' to stop display and edit of data," Line Location: HELP+0
Function Call: WRITE	Prompt: !,"'^N' to jump to screen #N (appears in upper right of screen as" Line Location: HELP+1
Function Call: WRITE	Prompt: " <N>),",!,"a number to jump to that number 801 screen," Line Location: HELP+2
Function Call: WRITE	Prompt: " ?? to list the 801 screens," Line Location: HELP+3
Function Call: WRITE	Prompt: !,"<RET> to continue on to next screen or A-B to edit:" Line Location: HELP+4
Function Call: WRITE	Prompt: !?10,"A-Professional service information",!,?10,"B-Procedure codes",!,"You may also enter any combination of the above, separated by commas (ex:A,B)",! Line Location: HELP+5
Function Call: WRITE	Prompt: $P(N,U)," ",$P(N,U,2) Line Location: CPT+2
Function Call: WRITE	Prompt: !,?7,"Quantity: ",$P(DGZPRF(J,K),U,14) Line Location: CPT+4
Function Call: WRITE	Prompt: !,?7,"CPT Modifier ",I,":",$P(N,U,2)," ",$P(N,U,3) Line Location: MOD+0
Routine Call	DIE Line Location: UP+7 INCOME+7
Routine Call	DIC Line Location: FLAG+3 UP+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SETTRAN+3
^DGCPT(46 - [#46]	SETABX+3, SETABX+4
^DGPT - [#45]	INCOME+3, DATE+1, DATE+3, SETABX+1, KILLABX+1
^DGPT("AB"	SETABX+5!, SETABX+6*, KILLABX+2!
^DIC(31 - [#31]	ELIG+3
^DPT - [#2]	ELIG+2
^UTILITY($J	KVAR+3!

Label References

Name	Line Occurrences
CHK	FLAG+3
FLAGQ	FLAG+3
INC	INCOME+4
INCQ	INC+2
INQ	INCOME+5
KILLABX	SETABX+1
MOD	CPT+3
SETABX	KILLABX+1
SETQ	SETTRAN+6
UP	FLAG+4, UP+7
UPQ	UP+6

Naked Globals

Name	Field # of Occurrence
^(	DATE+3
^(0	ELIG+2, ELIG+3
^(101	INCOME+3
^(70	INCOME+3, DATE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INCOME+3, INQ+1!, KVAR+1!
%DT	KVAR+1!
A	KVAR+1!
AGE	KVAR+1!
ANS	KVAR+1!
B	KVAR+1!
BOOL	SETABX+2~, SETABX+3, SETABX+4, SETABX+5
C	FLAGQ!, CHK+1~, CHK+2
CC	KVAR+1!
>> CPT	CPT+1*
D	KVAR+3!
D0	KVAR+3!
DA	UP+7, INCOME+6, INQ+1!, KVAR+1!, SETABX+1, SETABX+5, SETABX+6, KILLABX+1, KILLABX+2
DA(1	DATE+1, SETABX+1, SETABX+3, SETABX+5, SETABX+6, KILLABX+1, KILLABX+2
DAM	KVAR+1!
DE	UP+7!
DFN	INC+3, KVAR+1!, KVAR+3!, ELIG+2
DFN1	KVAR+3!
DFN2	KVAR+3!
DG	KVAR+2!
DG30	INQ+1!, INC+1~
DG300	KVAR+4!
DG300A	KVAR+4!
DG300B	KVAR+4!
DG362	INQ+1!, INC+1~
DG701	KVAR+4!
DGA	FLAGQ!
DGA1	FLAGQ!, KVAR+2!
DGAD	KVAR+2!
DGADM	FLAGQ!, KVAR+3!
DGAMY	KVAR+4!
DGBPC	KVAR+4!
DGCFL	KVAR+3!
>> DGCPT	SETABX+2, SETABX+3, SETABX+4
>> DGD	SETTRAN+3
DGDC	KVAR+2!
DGDD	KVAR+3!
DGDRGNM	KVAR+2!
DGDX	KVAR+2!
DGER	KVAR+2!
DGERR	KVAR+3!
DGEXQ	CHQUES+6!
DGEXQ(1	CHQUES+7*
DGEXQ(2	CHQUES+7*
DGEXQ(3	CHQUES+7*
DGFC	KVAR+3!
DGHOLD	KVAR+4!
DGI	INQ+1!, INC+1~, KVAR+2!
DGICD0	KVAR+2!
DGINCM	INQ+1!, INC+1~
DGINFO	KVAR+2!
DGJUMP	KVAR+2!
DGLAST	KVAR+5!
DGLOS	KVAR+2!
DGMAX	FLAG+1*, FLAGQ!, CHK+2
DGMOV	KVAR+4!
DGMOVM	KVAR+2!
DGMTY	FLAG+4, FLAGQ!, UP+2, UP+3, CHK+1!, CHK+2
DGMTY(	FLAG+4, CHK+2*
DGMVT	KVAR+5!
DGN	KVAR+3!
DGNEXT	KVAR+2!
DGNODE	KVAR+3!
DGNUM	KVAR+3!
DGNXD	KVAR+2!
DGOUT	FLAG+4, FLAGQ!, UP+5!*
>> DGOUTX	SETTRAN+2, SETTRAN+8
DGP	KVAR+2!
DGPAS	KVAR+2!
DGPC	KVAR+2!
DGPM2X	KVAR+4!
DGPMDA	KVAR+4!
DGPMDCD	KVAR+4!
DGPMVI	KVAR+4!
DGPR	KVAR+1!
DGPRD	KVAR+2!
DGPROCD	KVAR+2!
DGPROCI	KVAR+2!
DGPROCM	KVAR+2!
DGPSV	KVAR+2!
DGPTFE	KVAR+1!
DGPTFMT	KVAR+2!
DGPTIT	KVAR+4!
DGPTSCRN	KVAR+4!
DGQWK	KVAR+2!
DGREC	KVAR+4!
DGREL	KVAR+1!
DGRTY	KVAR+2!
DGRTY0	SETTRAN+4, KVAR+2!
>> DGSD	SETTRAN+3
DGST	KVAR+1!
DGSUR	KVAR+4!
DGT	FLAGQ!, INQ+1!, INC+1~
DGTLOS	KVAR+2!
DGTY	KVAR+2!
DGVAR	KVAR+2!
DGVI	KVAR+3!
DGVO	KVAR+3!
DGX	FLAGQ!, INCOME+3*, INCOME+5, INQ+1!, INC+1~, KVAR+2!
DGXMZ	SETTRAN+1!, SETTRAN+6*
DGZ	KVAR+3!
DGZDIAG	KVAR+3!
DGZM0	KVAR+1!
>> DGZPRF	DISP
>> DGZPRF(	DISP+1, CPT+1, CPT+3, CPT+4
DGZPRO	KVAR+3!
DGZS0	KVAR+1!
DGZSER	KVAR+3!
DGZSUR	KVAR+1!
DIC	FLAG+2, FLAG+3!, UP+2, UP+3*, UP+4!, KVAR+1!
DIC("S"	FLAG+2, UP+2, UP+3*
DIC(0	FLAG+2, UP+4
DIE	UP+4, UPQ!, INCOME+6, INQ+1!, KVAR+1!
DIS2	KVAR+2!
DOB	KVAR+1!
DP	KVAR+2!
DQ	UP+7!, KVAR+2!
DR	UP+7, UPQ!, INCOME+6, INQ+1!, KVAR+1!, KVAR+2!
DRG	KVAR+1!
DRGCAL	KVAR+1!
DTIME	ELIG+6
DXLS	KVAR+1!
EXP	KVAR+1!
HEAD	KVAR+1!
I	KVAR+1!, ELIG+2, DATE+3, DISP, DISP+1, CPT+3, CPT+4!, MOD
I1	KVAR+3!, ELIG+2*, ELIG+3, ELIG+4, ELIG+5
J	KVAR+1!, CPT+1, CPT+3, CPT+4
J1	KVAR+3!
K	KVAR+1!, CPT+1, CPT+3, CPT+4
L	KVAR+1!
L1	KVAR+1!
L2	KVAR+3!
L3	KVAR+3!
L4	KVAR+3!
L5	KVAR+3!
L6	KVAR+3!
M	KVAR+1!
M1	KVAR+1!
M2	KVAR+3!
M3	KVAR+5!
MDC	KVAR+3!
MOD	CPT+3*, CPT+4!, MOD
MOV	KVAR+1!
MT	KVAR+1!
N	CPT+1, CPT+2, CPT+4!, MOD
NDR	KVAR+3!
NL	KVAR+3!
NO	KVAR+1!
NOR	KVAR+1!
NSD	KVAR+3!
NU	KVAR+1!
OR	KVAR+3!
ORG	KVAR+3!
P	KVAR+1!
P1	KVAR+1!
P2	KVAR+3!
PD	KVAR+3!
PM	KVAR+3!
POP	KVAR+2!
PROC	KVAR+3!
>> PSCNT	ELIG+3*, ELIG+4, ELIG+5
>> PSDIS	ELIG+3*, ELIG+4, ELIG+5
PT	KVAR+1!
PTF	FLAG+3*, UP+2, UP+3, INCOME+3, INCOME+6, KVAR+1!, DATE+3, CPT+1, MOD
RC	KVAR+2!
S	KVAR+3!
S1	KVAR+1!
S2	KVAR+3!
SD	KVAR+3!
SD1	KVAR+3!
SEX	KVAR+1!
ST	KVAR+3!
ST1	KVAR+2!
SU	KVAR+3!
SUR	KVAR+1!
T	KVAR+3!
T1	CHK+1~*
T2	CHK+1~*
TAC	KVAR+3!
TRS	KVAR+3!
TY	KVAR+2!
U	INCOME+5, SETTRAN+4, DATE+1, SETABX+1, KILLABX+1, DISP, CPT+1, CPT+2, CPT+3, CPT+4 , MOD
>> VAEL(1	ELIG+1
>> VAEL(3	ELIG+1
VAERR	KVAR+4!
VAIP	KVAR+4!
X	UP+5, INCOME+3, INC+2, INC+3, KVAR+3!, ELIG+6, DATE+1!, DATE+2!, DATE+3!, SETABX+5 , SETABX+6, KILLABX+2
>> XMDUZ	SETTRAN+4*
>> XMSUB	SETTRAN+4*
XMZ	SETTRAN+6!
Y	FLAG+3, UP+6, UP+7, INCOME+5, INCOME+6, INC+2, INC+3, INC+4, SETTRAN+3, SETTRAN+4 , KVAR+1!, DISP+1
Z	KVAR+3!
Z1	KVAR+3!

Customize PDF page

Package: Registration

Routine: DGPTUTL1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: