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

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: 9

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

Entry Points

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

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+4, CK+2
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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
@(	CKLN
ADDR	INS+9
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

Naked Globals

Name	Field # of Occurrence
^(	PRT+1
^("VET"	CK+2
^(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+4, QUIT!, CK+2
DGADT	RET!, RET+1*, QUIT+1!, 212
DGADX	RET!, RET+1*, QUIT+1!, 201
DGDATA	INS+1~, INS+4
>> DGDEF	ASK+1
DGGRP	INS+11~, INS+12*, INS+13
DGI	RET+1, RET+2, INS+9, QUIT+1!
DGIB	INS+1~, INS+4*, INS+7
DGIBDT	INS+1~, INS+2, INS+3, INS+4
DGIBINS	INS+1~, INS+5*
DGIBINS(	INS+7, INS+8, INS+10, INS+12, INS+14, ADDR+1, 51, 71
DGIMULT	QUIT+1!
DGINAD	RET!, INS+9!, INS+14, 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+2, QUIT!, ASK+5
DGPTPR	ASK+5!
DGSDT	RET!, RET+2*, INS+2, 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+1~, INS+5*
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+2, INS+8, 21
FLDS	EN1*, EN1+2!
I	RET!, INS+6, INS+7, INS+8, INS+10, INS+12, INS+14, QUIT+1!, ADDR+1, EN1+2!
I(	INS+10, INS+13, INS+14*, 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+6, INS+10, INS+13, INS+14, INS+15, PRT+1*, QUIT+1!, 51, 61, 71 , 72, 73
POP	IO, QUIT+1!, ASK+5
U	RET+2, INS+10, INS+13, INS+14, 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

Legends:

Package Component Superscript legend

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: