Routine: DGBLRV

Package	Total	Call Graph
Registration	5	RET^DGBLRV EN^DGPMUTL ($$FIRST,ENDREP,LO)^DGUTL (CLOSE,ZIS)^DGUTQ PID^VADPT6
VA Fileman	4	^DIC YN^DICN EN1^DIP (D,DT)^DIQ
Integrated Billing	1	$$INSUR^IBBAPI

Package

Total

Call Graph

Registration

RET^DGBLRV EN^DGPMUTL ($$FIRST,ENDREP,LO)^DGUTL (CLOSE,ZIS)^DGUTQ PID^VADPT6

VA Fileman

^DIC YN^DICN EN1^DIP (D,DT)^DIQ

Integrated Billing

$$INSUR^IBBAPI

Package	Total	Caller Graph
Registration	7	DG THIRD PARTY ADMIT REVIEW DG THIRD PARTY PATIENT REVIEW DG1010P DG1010PA DGBLRV DGPMV31 DGSCHAD
Integrated Billing	1	IB20PT81

Package

Total

Caller Graph

Registration

DG THIRD PARTY ADMIT REVIEW DG THIRD PARTY PATIENT REVIEW DG1010P DG1010PA DGBLRV DGPMV31 DGSCHAD

Integrated Billing

IB20PT81

Entry Points

External References

Name	Field # of Occurrence
RET^DGBLRV	ASK+5
EN^DGPMUTL	START+1
$$FIRST^DGUTL	PRT
ENDREP^DGUTL	QUIT
LO^DGUTL	DGBLRV+3
CLOSE^DGUTQ	Q
ZIS^DGUTQ	IO, ASK+5
^DIC	START, PRT
YN^DICN	ASK+1
EN1^DIP	EN1+2
D^DIQ	RET+1, RET+2
DT^DIQ	21
$$INSUR^IBBAPI	INS+5, CK+3
PID^VADPT6	RET

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No admissions on file, will check scheduled admissions",! Line Location: START+0
Function Call: WRITE	Prompt: !,"Since an admission was not chosen, scheduled admissions for this patient will be checked",! Line Location: START+1
Function Call: WRITE	Prompt: !,"No scheduled admissions on file" Line Location: SCHAD+0
Function Call: WRITE	Prompt: !!,"This report requires 132 column output",! Line Location: IO+0
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: $E($P(J,"{}",K),$S(K=1:1,X1']"":1,1:$L(X)+1),999) S X1=$P(J,"{",K+1),P=$S(DGLN<9:1,DGLN<14:2,1:3) Q:X1']"" Line Location: PRT+1
Function Call: WRITE	Prompt: $P(DGINFO,U,1) Line Location: 31+0
Function Call: WRITE	Prompt: VA("PID") Line Location: 32+0
Function Call: WRITE	Prompt: $S($D(DGIBINS(P)):$P(DGIBINS(P,1),U,2),1:"") Line Location: 51+0
Function Call: WRITE	Prompt: $S($D(I(P)):$P(I(P),U,5),1:"") Line Location: 61+0
Function Call: WRITE	Prompt: $S($D(DGIBINS(P)):DGIBINS(P,6),1:"") Line Location: 71+0
Function Call: WRITE	Prompt: $S($D(I(P)):$P(I(P),U,2),1:"") Line Location: 72+0
Function Call: WRITE	Prompt: $S($D(I(P)):$P(I(P),U,3),1:"") Line Location: 73+0
Function Call: WRITE	Prompt: " " Line Location: 81+0
Function Call: WRITE	Prompt: " " Line Location: 82+0
Function Call: WRITE	Prompt: $S($D(DGADX):DGADX,$D(DGSDX):DGSDX,1:"") Line Location: 201+0
Function Call: WRITE	Prompt: $S($D(^DIC(42,X,0)):$P(^(0),U,1),1:"") Line Location: 202+0
Function Call: WRITE	Prompt: $S($D(DGSDT):DGSDT,1:"") Line Location: 211+0
Function Call: WRITE	Prompt: $S($D(DGADT):DGADT,1:"") Line Location: 212+0
Function Call: WRITE	Prompt: !,"PRINT THIRD PARTY REVIEW" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"CHOOSE FROM",!?4,"YES - If you wish to print Third Party Review Sheet",!?4,"NO - If you don't want to print Third Party Review Sheet",! Line Location: ASK+3
Routine Call	DIC Line Location: START PRT

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGPM - [#405]	Classic Fileman Calls
^DIC(47 - [#47]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	IO
^DGPM - [#405]	RET+1, INS+3
^DGPM("ATID1"	START
^DGS(41.1 - [#41.1]	SCHAD, RET+2
^DIC(42 - [#42]	202
^DIC(47 - [#47]	PRT+1
^DPT - [#2]	RET, CK+3
^UTILITY($J	DGBLRV+3!

Name	Line Occurrences
@(	CKLN
ADDR	INS+10
ASK	ASK+3
CKLN	PRT+1
INS	RET+1
IO	START+2
Q	PRT
QUIT	START, SCHAD, IO, PRT, EN1+2
SCHAD	START, START+1

Name	Field # of Occurrence
^(	PRT+1
^("VET"	CK+3
^(0	RET+1, 202

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2, ASK+3
BY	EN1*, EN1+2!
DFN	START*, SCHAD, RET, RET+2, INS+5, QUIT!, CK+3
DGADT	RET!, RET+1*, QUIT+1!, 212
DGADX	RET!, RET+1*, QUIT+1!, 201
DGDATA	INS+2~, INS+5
>> DGDEF	ASK+1
DGGRP	INS+12~, INS+13*, INS+14
DGI	RET+1, RET+2, INS+10, QUIT+1!
DGIB	INS+2~, INS+5*, INS+8
DGIBDT	INS+2~, INS+3, INS+4, INS+5
DGIBINS	INS+2~, INS+6*
DGIBINS(	INS+8, INS+9, INS+11, INS+13, INS+15, ADDR+1, 51, 71
DGIMULT	QUIT+1!
DGINAD	RET!, INS+10!, INS+15, QUIT+1!, ADDR+1*
DGINFO	RET*, QUIT+1!, 31
DGINS	QUIT+1!
DGLN	PRT+1*, QUIT+1!, CKLN
>> DGNOQ	ASK+4
>> DGOPT	Q
DGPGM	IO, QUIT+1!, ASK+5, ASK+6!
>> DGPMA	QUIT
DGPMDA	START+2, SCHAD+1, RET*, RET+1, INS+3, QUIT!, ASK+5
DGPTPR	ASK+5!
DGSDT	RET!, RET+2*, INS+3, QUIT+1!, 211
DGSDX	RET!, RET+2*, QUIT+1!, 201
DGVAR	IO, QUIT+1!, ASK+5, ASK+6!
DGWD	RET+1, RET+2, QUIT+1!, 202
DGX	INS+2~, INS+6*
DGY	PRT*, PRT+1, QUIT+1!
DHD	EN1*, EN1+2!
DIC	START, START+1!, PRT!, QUIT+1!, EN1*, EN1+2!
DIC("S"	START+1*
DIC(0	START, PRT
DIS	EN1+2!, ASK+5!
DIS(0	IO!, PRT, Q, EN1+1*
DT	INS+3, INS+9, 21
FLDS	EN1*, EN1+2!
I	RET!, INS+7, INS+8, INS+9, INS+11, INS+13, INS+15, QUIT+1!, ADDR+1, EN1+2!
I(	INS+11, INS+14, INS+15*, 61, 72, 73
IO	IO, ASK+5
J	PRT+1*, QUIT+1!
K	PRT+1*, QUIT+1!, CKLN
L	QUIT+1!, CKLN, EN1
P	INS+7, INS+11, INS+14, INS+15, INS+16, PRT+1*, QUIT+1!, 51, 61, 71 , 72, 73
POP	IO, QUIT+1!, ASK+5
U	RET+2, INS+11, INS+14, INS+15, ADDR+1, 31, 51, 61, 72, 73 , 202
VA	QUIT+1!
VA("PID"	32
X	IO, PRT, PRT+1, QUIT+1!, 202*
X1	PRT+1*, QUIT+1!
Y	START, START+1, START+2, RET+1, RET+2, PRT, QUIT+1!, 21*

Customize PDF page

Package: Registration

Routine: DGBLRV

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 8

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
CK	;check logic to see if 3rd party review is asked
212
IO
211
RET
61
82
81
21
EN1
PRT
ASK	;print TPR?
201
202
SCHAD
Q
START
CKLN
72
71
QUIT
ADDR	;
32
31
51
INS	; -- new insurance logic, modified for IBBAPI insurance call, DG*570
73